






‘TRH MAINTENANCE DIAGNOSTIC PRocRAR 


"046 FILE CONTROL UNIT PLT SECTION 1 


ERR LOC OBJECT CODE 


gage 


oace 
Ba02 
BA03. 
OA04 
OA06 
oa0e 
OADA 
oa0D 
0A10 
oat 
0a12 
Oats 


oa18 3 


AIC 
0a20 
OA28 
OA2ZA 


OA2E ; 


0A32 
0A36 
OA3A 
OAND 
Oasu 
OAG8 
OAuC 
0a50 
OA54 
0a58 


OASE 0 


OGY 
0a68 
OAGE 
0a72 
DATE 
OA77 
oa79 
On7B 
oa7F 
0483 
0289 
OAD 
0293 
0497 
DASB 
OA9T 
Ona 
oaas 
OAAD 
0aB3 
OABT 
OABD 
Oac3 
OAC7 
OAeD 
0aD1 
OADS 
OADB 


OaDF- 


OBE3 
OAES 
OAEF 
Oar3 
Oar? 
OAFD 
803 
0807 


DATE 
EC NO. 


BO1k 


50 
69 

GOD 
Oat 


A0-4000 


ce 87 
co 87 
0c 03 
3¢ 00 
oc 01 
35 01 
3c 07 
3c F1 
oc 03 
co 87 
CO 87 
oc 01 
35 01 
oc 01 
oc 03 
co 87 
oc 03 
cO 87 
CO 87 
oc 03 
co 87 
35 01 
Oc 01 
oC 03 
co 87 
co 87 
oc 03 
oc 01 
35 04 
oc 03 


O2HAR7 
571512 


1Aa25 
12F2 
749B 
149D 
1350 
TA1D 
J21E 
OB5C 
1521 
1525 
12DB 
1ZDA 
0as8 
12 DB 
OA58 
0a83 
12C7 
1B98 
IBAS 
TBA4 
1B52 
O21E 


1219 
TATA 
FES 
WEA 
OCD7 
1927 
1269 
1521 
1825 
0c98 
0c 39 
1207 
t6D0 
OCD7 
1525 
13D2 
IFES 
0c98 
0c39 
FEY 
0c39 
15C3 
OCD? 
41525 
0c938 
0c 39 
IFES 
OCD? 
1687 
1525 


6 


SOURCE 


ADDL STMT STATESENT 
2 CLKSTP START 2560 
3 "DECK 4 
0a01 4 BC 8 -XL2*aO148" 
0a02 5 pC XLIOOF 
0a03 6 CHUM DC xXL1*00° 
0405 7 BC X12*00008 
0Aa07 8 RTIADR DC «AL 2 (RTN1) 
0A 09 9 DS = CL2 
CACC §='110 «OWA DC =—._s« XL3*a040008 
OAOF 11 UNB DC XL3*BO1000° 
0A10 #12 RTN1~=6 DC XL1"018 
oati = 13 pC 8 s«XL1¢*008 
0ai3 14 pC =—-_- AL2. (RT N2-1) 
15 LA GOOUT, XR1 
46 SUDS MMVI BRAD-1,X*FO 
17 LIQ = BESS, X* au? 
18 LIO  ANNE,X*A6* 
1331 19 SVC VIPER(4O) , BLANK 
20 ST END+3,XR1 
21 MVI =‘ ONLY+1,.X°878 
22 MVI «- PILET#1,X*87* 
23 MVI- ALMS-4, X* FO* 
1462 24 MYC = ALBS (4) , TRUCK 
25 SNS _KHIT-2,X*A2" 
26 TSF KNIT-3,X'SO* 
27 BF FIRS 
28 TBN  KNIT-2,X"109 
29 BI FIRS 
30 B PINT 
144uC 31 FIRS VC GOUT+3(2) ,GAUDY 
1BAB 32 MVC =-MSK-1 (3) ,MSK2 
33 MVI «EXP, X*00! 
1BAS 34 MVC =- EXP-1(7) , EXP 
35 B FAKE 
36 B Ua PACK 
OA76 ©6337 pc XL 1°03" 
0A78 «= 38 DC AL2{EXP-5) 
OA7A = 339 DC ‘AL2 (VIPER~23) | 
40 B TURW 
41 B - ERD 
1c? 42 PINT MVC ARNE+3(4) ,MOPE 
43 BVI ABNER-1,X*00! 
14B5 44 MVC «= ETTA+2(2) , MAY 
45 L MAX ,XR1 
46 MVI «- STAR+1,X"07! 
47 MVI «= ALMS-4,X"F1! 
1462 48 MVC 8 ALMS (4) , TRUCK 
49 B GNAT 
50 B TRUST 
1B1IF 51 RAPT MVC GOUT+3(2),SAT 
52 i WOFE,XR1 
1457 53 MVC 9 ETTA4#2 (2) , NOR 
1460 54 MVC = ALMS (4) , TRUCK-2 
55 B BASS 
148 56 MVC = ARNE+3 (4) ,ROPE 
57 B GNAT 
58 B TRUST 
1453 59 RAFT MVC ARNE#3(4),COFE 
60 2 TRUST 
61 L PEN, XR1 
1437 62 MVC  —- ETTA+2 (2) , NOR 
1466 63 MVC =ALMS (4) ,T RICK-2 
64 B GNAT 
65 B TRUST 
tac 66 RAST MYC ARNE+3(4),RCEE 
14BD 67 HVC) 80 -ETTA42 (2), RAT 
68 1 ROT, XR1 
146C 63 B¥C ALNS (&} ,THIC K-2 
O7APR70 O6NAY70 0155L70 O1HBR71 
571516 571513 571524 571573 


‘PERT WO. 
PAGE 


PROGRAB ID 

FLAGS 
CURRENT ROUTINE wR 
RESERVED 

ADDE FIRST RTS 


DDT PRIMARY SPINDLE 
UDI SECOND SPINDLE 


SET UP KORHAL TERMINATION 
RESET ERROR COUNT 


ELANK [XP KESULT AREA 


SET UP FOR HEADING 
DONT STOP AFTER FIRST GROUP 
SET UP FOR 000000 msSG 


SNS 01 

TEST FOR INV REQ OR EQU CHK 
BR. IF EITHER 

CHECK FOR SEEK BUSY 


SET UP DONT CARE MASK 
SET UP EXP FIELD 


BR. TO ADJUST EXPECTED BITS 
CONVERT EXPECTED STATUS 


SET UP CTL FLD 
RESTORE CE BYTE TO 00 
RD ID SstIoO 


RESET PR MOD SW 
SETUP ROUTINE WUMBER 
BOUTINE 10 


GO TO TERMINATE OP 


READ DATA SIO 
ROUTINE 11 
SELECT 8D 0 
SET uP CTL FLD 


GO TO TERMINATE OP 

SET UP CTRL FLD 
READ DATA SIO 
ROUTINE 72 

GO TO TERMINATE op 

SET UP CTL FLD 
WRITE DATA SiG 
ROUTINE 13 


PROG ID QAGI~& 
PAGE 4 
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IBN MAINTENANCE DIAGNOSTIC PROGRAM 





A018 FILE CONTROL UNIT FLT SECTION 1 


ERR LOC 


OB0D 
0511 
0315 
OBIB 
O0B21 
0B25 
0828 
OB2F 
0335 
0839 
053D 
OBd3 
O0B49 
OB4D 
0853 
0£57 
OBSB 
OBSF 
6863 
OB69 
OBSD 
0373 
0879 
OB7D 
0881 
OB8S 
0889 
OB8D 
0893 
0B97 
OB9D 
OBA1 
OBa5 
OBAB 
OBF1 
OBB? 
OPEB 
OBBF 
OBCc3 
oBCc9 
OBCF 
OBDS 
OBDS 
OBDD 
OBE 
OBE? 
OBED 
OBF3 
OBF7 
OBFB 
OBFF 
ocos 
OcOoOB 
0c11 
0c1S 
9c19 
OCiID 
6C23 
ec29 
OC2D 
0c371 
0c35 


0C39 
8c3D 
ocai 
oc4as 
OcKHs 


DATE 
EC NO. 


OBJECT CODE 


co 
co8 
oc 
oc 
35 
oC 
c3 
6c 
co 
co 
OC 
oc 
35 
0c 
co 
co 
co 
co 
oc 
3c 
Oc 
0c 
35 
3c 
co 
3c 
co 
Oc 
3c 
oc 
3c 
3c 
oc 
Oc 
0c 
35 
co 
co 
oc 
oc 
Oc 
35 
co 
co 
oc 
0c 
oc 
35 
co 
co 
Oc 
0c 
oc 
35 
co 
co 
Oc 
oc 
35 
co 
co 
co 


34 
ci 
31 
F3 
34 


87 
87 
01 
01 
01 
03 
87 
03 
87 
87 
03 
01 
01 
03 
87 
87 
87 
87 
03 
F2 
03 
01 
01 
80 
87 
00 
87 
03 
00 
FE 
71 
FF 
0B 
03 
01 
91 
87 
87 
03 
03 
01 
01 
87 
87 
C3 
03 
01 
01 
87 
87 
03 
03 
01 
01 
87 
87 
03 
01 
01 
87 
87 
387 


08 
A2 
A3 
Ai 
a3 


ec98 
0c39 
12C7 
ocD7 
172P 
1525 
13cC4 
1PES 
oc98 
0c39 
1IFEQ 
OCD? 
17C2 
1525 
0C98 
0c39 
0B63 
TATA 
IPES 
1521 
1525 
OcD7 
1897 
18EA 
oc 98 
WEA 
0c 39 
IFES 
1? DF 
1FDE 
1ZE0 
1EF& 
1EF3 
1525 
OCD7 
18B8 
0c98 
0c39 
IFES 
1525 
OCD? 
1921 
oc98s 
0C 39 
1FEG 
1525 
OCD? 
1967 
0c 98 
0c39 
IFES 
1525 
OCD7 
19AD 
0c98 
0c 39 
IFEQ 
OcD7 
19D7 
0c98 
0c39 
VATA 


Oc67 
ocasB 
1UEB 
07 

1895 


O2nMAarF 76 


S77SizZ 


1B1D 
14B9 


1872 
1899 


150¢ © 


T4BF 


1478 


1499 


1462 
14B9 


1494 


1FDF 


VEF4 
1466 
14BD 


1491 
146C 
14C1 


1491 
W472 
14C3 


1491 
1878 
148D 


1446 
14BB 


OIAPRTO 
571546 


ADDER STHT 


70 
71 
72 
73 
78 
75 
76 
77 
78 
39 
80 
81 
82 
83 
84 
85 
B86 
87 
88 
89 
90 
91 
32 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
136 
131 
132 


SOURCE STA SESEST 


B 
8 

avec 
ayvc 


VASE 


xvC 


nyc 


FILET 8B 


DELTA 


DOUGH 


SOLAR 


SOUND 


NOLA 


BRAND 


VIRG B 


GNAT 
TRUST 
GOUT+3 (2) , SATE 


ETTA+2(2) ,OPERA 


CAT, XR 
ALBS(4) , TSAT-2 
BOSS 

ARNE*¢3 (4), ABYSS 
GNAT 

TRUST 

ARNE+3(&) ,TCRY 
ETTA42 (2) ¢SET 
TROT, XB1 
ALMS (4) ,THES-2 
GHAT 

TRUST 

DELTA 

END 

ARNE+3 (4), ABYSS 
ALNS-4&,X*F2* 
ALS (4) ,TRUC* 
ETTA¢2(2) ,OPERA 
BLCB,XR1 
ABNER-1,X* 80° 


GNAT 


ABNER-1,X* 00* 
TRUST 

ABRNE+3 (&), SOAP 
BARN+255,X*0C* 


PART BO. 5129611 
= PAGE . WR 


GO TO TERMINATE OF 


MOVE READ DIAG S10 

SET UP PARA abDoR 

ROUTINE 14 

SELECT HD 1 -- 

MOVE READ DATA DIAG CTL FLD In 


GO TO TERMIMATE oP 
WRITE ID ¥.T. 


BOUTINE 15 
GO TO TERKINATE OP 


READ DIAG CTRL PLD 
SET UP ROUTIEE NUSDEB 
ROUTINE 20 

READ DIAG SIO 

ADDR OF PARA 

SET INDEX BEFORE SIO 


RESTORE CE BYTE TO 80 


SEI OP CTRL FLD 
CLEAR DATA FLD 


BARN+254 (255), BARN¢ 255 


BARN, X*11° 
BARN¢20,X° FF® 


BARN+ 19 (12) , BARR+20 


ALMS (4%) ,TRICK-2 
ETTA+2 (2) , RAT 
BLCT, XR1 

GAT 

TRUST 
ARNE+3 (4) ,SCAE 
ALMS (4) ,-THICK-2 
ETTAt2(2) , TAP 
BLAB,XR1 

GNAT 

TRUST 
ARNE¢3(4) , SOAP 
ALMS (4) ,THAT-2 
ETTA+2 (2) -VIF 
BRAN, XB1 

GNAT 

TRUST 

ARNE+3 (4) ,SOAE 
AL&S (4), THEN-2 
ETTA+2 (2) ,LAP 
BIRD, XB1 

GREAT 

TRUST 
ARNE+3(4),PASS 
ETTA42(2) ,PLBE 
HAND, XR1 

GHAT 

TRUST 

END 


¥*C*eECSROUTINE TC TERMINATE 


133 TRUST ST TRYST?#3,%° 08" 
136 TIO CRUST, X*s2? 
135 LITO ABRER,X*°a3® 
136 Sio X°Ou?,x*a7° 
137 CRUST LIC CORD,X*A3* 
J6NAY7IG CIOL7TG OINART4 
571513 $713 28 S71873 


SEI OP DATA CHAR 


SEI UP DATA FLD FOR @B AND SCAB 
FOUTINE 22 

WRITE DATA SIO 

ADDR OF PARA 


SET UP CTBL FLD FOR SCAN £Q LU 
ROUTINE 23 
SCAN EQ LO SIO 

ADCR OF PARA 


SET UP CTRE FLD FOR SCam EQ BI 
FOUTINE 28 
SCAN EQ #I SIO 


ADDR OF PARA 


SET UP CTRL FLO FOR SCAN EQ 
ROUTINE 25 

Sas EQ SIO 

ADDER OF PARA 


SEI OP CTRL FLD 
SET UP SIO REAL VERIFY 


AN OPERATIONS ¢#4¢454¢08e¢02329% 


STORE RETURE 
SEST FOR BUSY 


NOT INDEX 


PROG ID SADi-- 
PAGE Pe 











IBE HAINTEBANCE DIAGNOSTIC PROGRAS 


A010 FILE CONTROL UNIT FLT SECTION 4. 


“SER LOC 


ocac 
oC50 
ocs4 
oc5e 
ocsc 
060 
O64 
6C68 
OCGA 
OC6E 
0c71 
oc7s 
oc?? 
0c73 
ocr 
oceo 
0c81 
— 0C82 
OcBS4s 
0C86 
oc8a 
ocec 
oc90 
0c98 
ocsc 
Ocad 
OCAN 
Ocas 
ocac 
OcBO 
OCBS 
OCRS 
occ 
OCco 
9cc3 
occ9 
occD 
ocp1 
ocDs 
OcD8 
OcpD 
OCE3 
OCES 
OCED 
OCF1 
OCS 
ocra 
OcFC 
Ocrr 
oD0s 
oD0B 
ODOF 
oD11 
0D73 
oD14 
0D18 
onic 
oDn20 
on24 
0D28 
0D2c 
8D30 
OD34 
0D38 
OD3c 
one 
eDey 
eDes 


BATE 
EC NO. 


ADDR STMT SOURCE STATEMERT 


OBJECT CODE 

31 a3 OC6s 138 ‘LIO YORE, Z*A3# 

ci a2 0c58 139 TIO CRUSH, X?A2¢ 

cO 87 OCé64 140 B TRYST 

37 a3 7NG5 181 CRUSH LIO CORB, xX*A3! 

347 a3 OCS9 142 LIO = YORE, X?23? 

C1 AZ SCBA 143 TIO BRUSH, X*aze 

cO B7 0C6s ; 144 TRYST 8 TRYST 

8000 CC69 145 YORE oc ZL.2? 80008 

3p 07 121£ 186 BRUSH CLI ONRLY+7,xX'O75 

F2 01 OB 147 INE FEE 

cO 87 021A 148 B PRINT 

8€ 08 0C76 149 DC XL2* 0608! 

0¢97 0c78 150 DC AL2 (FRESH) 

F2 87 OA 154 3 DUN 

CO 87 021A 152 PEE 8B PRINT 

C6 0c80 153 DC XL7°C6? 

oe 0c81 754 BC XL1 "98" 

097 0cB83 155 pc AL2 (FRESH) 

ACS3 0c85 156 DC XL2*2093¢ 

CO 87 0222 157 DUN B HALT 

A093 OcB8B 158 pc XL2*A093 

cO 87 0C3D 159 B TRUST+4 

KODSCSC64BSOFIPO 0C97 16u FRESH DC CL8" REF. 10° 

34 08 712C7 167 GNAT ST souTe3,x'08? 

31 AG 149D 162 LIO ANNE,X'A6* 

31 AG 1498 163 LIO BESS, X*Aau' 

3C 87 OFIB 164 BVI RINK+1,X*87* 

3C 07 OFSF 165 MVI FOES+1,%°07° 

3C 07 10D0 166 NVI EON+1,X'07? 

3C 07 OFSB 167 MVI  ZONE+1,X*078 

3c 07 oDCcs 168 NVI DLYSH+1,x*07! 

317 43 14EB 169 LIO ABNER,X'A3? 

ci a2 0cc3 170 TIO. FAULT, X*A2* 

F2 87 12 171 J ETTA 

OC 04 1207 7455 172 FAULT MYC GOUT#3(2),SAND 

3C DS 138A 173 NVI VIPER-38,C'HNt 

cO 87 1279 174 B TURN 

cO 87 1A1A 175 B END 

?3 00 09 176 ETTA SIO x*'O00',x008 

ic 04 FHDD On 177 PANDA MVC  FAY+#4{5),4{, X81) 

OC 27 1330 1381 178 HVC VIPER(40), BLANK 

06 11 1525 14688 179 AZ ALMS (3) , TEN (2) 

38 02 14D9 180 TBH FAY,xX?02# 

CO 30 ODC1 181 BF ANILE 

38 03 14D9 182 TBN. FAY,X*O1! 

F2 10 98 183 aT PEER 

3D 7A 148D9 188 CLI FAY,X'7a* 

F2 84 91 185 JH PEER 

Oc 01 ODOE OD10 186 MVC = STAND43(2) , STALL 

OE 01 ODOE 14D9 187 ALC STAND+3(2) ,FAY 

CO 87 0D12 188 STAND 8B STALE 

opiz 0p10 189 STALL DC AL2(STALE) 

0000 0D12 190 STALE pC XL2 70000' 
0p13 191 DS CL 1 

CO 87 OESE 192 B PROD 

cO 87 OETS 193 B BANA 

CO 87 OES8 194 B CHERI 

CO 87 OEB7 195 3 FACT 

cO 87 GEC7 196 B TACT 

CO 87 OECF 197 B CAPE 

CO 87 OEEA 198 B TRACT 

CO 87 1011 199 B WORK 

cO 87 1019 200 B SHARK 

CO 87 1062 201 B SALT 

CO 87 106A 202 B SAINT 

CO 87 1074 203 B FOOD 

CO 87 5D90 204 B PEER 

CO 87 OD90 205 B PEER 

O2MAR7O O1APR70 06MAY70 0150170 01MAR71 

571512 571516 571513 571524 ‘571573 





“PART NO. 
PAGE 


FORCE INDEX IN CE 
SEST FOR BUSY 


HODE 


NOG INDEX 

FORCE INDEX IN CE HODE 
SEST FOR BUSY , 
RETU REE 


STORE RETURN FOR ERROR PRINT 


SET UP DFCR 

SET UP DFDR 

RESET TEST FOR BUSY ERR S# 
RESET SB 

SET PR SNS SW OFF 

RESET DATA FLD SB 

SEI DELAY SH OFF 

FORCE CE MODE 


8729841 
; 2 


START I/O IS SET UP BEFORE EXECUTION 


MOVE PARA TO WORK AREA 
ADD ONE TO MSG CNTR 


GO TO LIO RCOUTIRE 
IS THIS A BAD PARA 


RESET BRANCH ADDRESS TO ORIG VALUE 


ADD PARA TO BRANCH TO ADDR 


COMP CTL FLD 

COHP DFDR 

COMP DFCR 

GO TO ALT PARA 
RIN TO MAJOR PARA 
COMP DATA CHAR 
DATA CHAR ROUTINE 
INDEX INITIALIZE 
SET 8 INITIALIZE 
RESET DFDR 

COHP BUSY AND ERROR 
TEST SENES PROBES 


PROG XID 
PAGE 
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IBN MAINTERANCE DIAGHOSTIC PROCRAZ . 


ADi& FILE CONTROL USIT FLT SECTION 2 


“ERR Loc 


opac 
OB50 
ODS4 
oD58 
 ODse 
“OD69 
0D64 
ODES 
OD6c 
0D70 
OD7u 
0D78 
OD7c 
0D80 
ODB4 
OD88 
opsc 
0D90 
op94 
0D95 
0D96 
0p98 
OD9A 
OD9E 
ODAO 
ODAS 
ODAC 
ODB4 
orBe 


0DC1 
ODCc7 
ODCB 
ODDi 
ODDS 
ODDB 
. ODDF 
ODE3 
ODE7 
ODE 
ODEF 
ODF3 
ODF7 


ODFS 
O£01 
O07 
O§EOB 


OEOF 
0513 
OF17 
OE1B 
OEIF 
0E23 
OE27 
OE2B 
OCE£2F 
OE33 
OE36 
OE3A 
GE3E 
GER2 
GELE 
OESA 
QEGE 
OES2 
OES6 


DATE 
EC NO. 


& 


OBJECT CODE _SBDR STHT SOURCE STATERERT 
cO 87 i9A1 206 8B PLAT. 
CO Sy. VIA 207 8 ARTE 
co 87 4112 208 2 ‘ BRP: 
co B87 71776 203 3 SHOP 
CO 87 1122 210 B #HELK 
cO 87 17338 277 B STAT 
CO 87 7168 212 B _ VARY 
©O 87 7777 273 B BARY 
ce 87 1183 274 B SINE 
co 87 7188 215 B TIBZ 
CO 87 1793 246 8 @IRE 
co 87 1798 217 B WIRY 
cO 87 4743 218 8 HINT 
cO 87 11A8B 219 B SINE 
CO 87 1189 229 8 LINT 
co 87 11C5 221 B ‘ACRID 
cO 87 11D5 222 B POOR 
CO 87 O27a 223 PEER B PRIRT 
cé OD94 224 pc XL1¢°c6# 
1D 095 225 DC ITL1*298 
oDpco OD97 226 Bc AL 2 (BDPARM) 
AOCF OD39 227 DC XL2*aOCr® 
cO 87 0222 228 B BALT 
AOCF OD9F 229 DC XL2*aQCP? 
c@ 87 1A25 230 B GoouT 
D7DIDSCTDSCIDS4O ODCO 231 BDPARN DC CL29"PROGRAM ERROR - 
C5D9IDIDED 9406040 231 
C2CITCRUODICIDSCI 231 
D&CIE3C5D9 231 
232 **#%eee%2% SUR ROUTINE TOC CONTROL BY BIT 
Oc 00 1325 44DA 233 AMILE #YC ANDY{1) ,FAY¢7 
CO 87 ODFB 234 DLYSH B ERGO 
Oc 00 THEC 18D9 235 FANCY AVC ELLA-1(1) .FAY 
31 A3 i8ED 236 L1G ELLA,X*A3* 
OF 00 1325 1562 237 SLC aANDY{1),ONE 
cO 01 ODCc7 238 BRZ DLYSHY 
CO 87 ODEF 239 B ADVZ 
36 01 1502 240 ADY5 A GNE,iR1 
36 01 1502 241 ADVS A ONE, XB1 
36 07 1502 242 ADV3 A OWE, XR1 
36 071 1502 243 ADV2 A ONE, XR1 
36 01 1502 244 ADY? A ONE, XR1 
cO 87 OcDS 265 B PANDA ; 
246 ##34¢¢¢44% SUBROUTINE FOR DELAY 
OC 02 1UF6 14F9 247 ERGO MVC BEIGE(2},TAN 
OF 02 WF6& 1502 248 ENGO SLC BEIGE (3) ,ONE 
CO 01 OF01 245 BNZ EXGO 
cO 87 ODCcs 250 B FANCY 
251 **%**2 SUBROUTINE TO COSP BUSY AND ERROR 
34 98 OEUD 252 DANTE ST PGRT+3,3°08* 
3c 00 i51A 253 NVI ANNA, X* 00* 
Ci AO OEE 2548 TIO AVA,X*aG? 
Ci A2 OF56 255 CART TIO BETH, X*A2* 
3D OO 151A 256 DART CLI ANNA,X*00* 
CO 81 OF4: 257 BE PGRT 
3C DS 138C 258 NVI VIPER-36,C°N® 
3c DS 138A 259 NVI VIPER-38,C*Nn? 
38 01 OF20 260 TBN DART+71,X%°0 2° 
F2 90 04 261 JF vic. 
3c £8 7138C 262 NVI VIPER-26,C*z* 
38 10 GE20 263 vic TBN DART?1,X*10* 
co $0 41219 264 BF TURE 
3C ES 136A Z65 AVI VIPER-35,C* Ys 
co 87 1219 266 B TORN 
CO 87 OESA 267 PGRT B PGRT ‘ 
3A 07 151A 268 AVA SBN ANNA,X°64* 
CO 87 O£1B 269 B CART 
3A 10 1S7A 270 BETH SBN ANRA,X*170° 
028A; 70 QiAPR7O G6HAY70 0155L70 O1maR 71 
571542 571516 571513 57 1528 5714573 








“PART BO. 


PAGE 


h-® ROUTIES 


‘Stt 3 To 0 


END OF EOLTIBE BaiT = - | 
258 &E OSS TIMES CHT 

AE TO NES ROUTIRE 

STaTDS ROUTINE 


5129617 
: aa 


SET SR CSC BIT GH SER DATA RODT IRE 
SET BR OSC BIT OFF SER DATA RODTIEE 


SEY SEYSE BY BIT 
SET SESSE BY BITE 


SEI SEP CLK OFF SER DATA ROUTIBZE 
SET SEP CLK OB SEE DATA ROUTIZE 
SERZALIZE DET& CH>R BITH SEBSE 


SERIALIZE DATA CHAR SEXSE AND CCAP 


GO TG SCLO FUD TOUTI KE 


BAD PARABATER® 


SSSSEASES 

SET PARA CHT IE PARK CHTR 
DELAY SWITCH 

HOVE PARA CHAR TO CE LIO 
cE Lio 

SUBT ONE FEOA P&RA CHET 
CONTIEUVE UNTIL O 


GO GET NEXT PaRA 
$4 HFSTREKEOKLEKRSISAESSED 


LELAY COUNTER 


SIBVWOVSSS 


COSP BOSY AED ERPOR 


I[2ST BUSY 

SEE IF ERR EXP 

BR. IF wOoT 

SEE IF BUSY EXP 

BR. IF NOT 

SET IND FOR ERROR 

SET IND FOR BUSY 
FROG ID 
PAGE 
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IBA MAINTENANCE DIAGROSTIC PROGRAS 


agt1s FILE CONTROL UNIT FLT SECTIO“ 14 


ERR LOC 


OESA 


ESE 
OEG4 
OE68 
QE6C 
OE6D 
GEOF 
OE71 
OE75 


0E79 
OE7D 
0E83 
0587 
OESB 
OESC 
OE8E 
OE90 
OES4 


OE98 
CEOC 
OEA2 
QEAG 
OEAA 
GEAB 
GEAD 
OEAF 
QER3 


OEB? 
CEBB 
OQEEF 
QEC3 


OEC7 
OECB 


OECF 
QEDS 


QEDD 


OEDD 
OEDE 
OEEO 
QEE2 
OEEG 


OFEA 
OEFO 
OEF6 
OEFA 
OEFE 
Orda 
OFUS 
OFOB 
OFOF 
OF13 
OF17 
OFA 
OFTE 
OF24 
OF28 
OFZC 
OF30 
OF34 
OF38 
OF3E 


DATE 


Ec 


#6. 


GBIECT CODE 
‘CO 


OD 
co 
co 
O4 


87 


03° 


81 
87 


T&DD 
13a0 


co 
co 


30 
OD 


OD 
co 
co 
01 


87 
87 


Au 


14UDA 
1380 


co 
co 


oc 
oc 
3c 
3c 
oc 
38 
F2 
3B 
3B 
38 
F2 
co 
OF 
co 
3c 
3c 
3c 
co 
OE 
38 


87 
87 


00 
00 
64 
ay 
02 
08 
90 
ou 
O48 
01 
90 
87 
00 
01 
87 
07 
07 
87 
03 
O1 


OEIF 


IFES& 
ODE3 
O2tE 


1219 
ODE3 


1513 
1513 
ODEB 
O21E 


1219 
ODEB 


1515 
1515 
ODEB 
021E 


1219 
ODEB 


1505 
1519 
14DB 
OCD8 


1519 
ocDs 


TEEO 
ODEF 
O2Z1E 


1219 
ODEF 


1325 
14D2 
4151D 
1S1F 
1491 
1kDO 
08 

151D 
151F 
V4cFr 
1E 

OEOF 
1325 
OEFO 
OFTB 
OFSF 
OFSB 
ODEB 
14D2 
16D 1 


O2NAR70 
571512 


14&DD 


74DB 


18D5 


TODA 


TUDB 
4DA 


1503 


1502 


1&D2 


ADDR STHT 


OF6C 
OE6E 
O70 


OE88B 
OESD 
OESF 


OEAA 
O EAC 
OEAE 


OEDD 
OED? 
OEE1 


OTAPR79 
571516 


271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
3171 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


331 


332 
333 
334 
335 
336 
337 
338 


SOURCE 


*eeee4 
PROD 


48688 
BANA 


£84448 
CHERI 


42444 
FACT 


FECES 
TACT 


EEE 
CAPE 


+4448 
TRACT 
PART 
ORE 


STCNE 


RACY 


RINK 


BRACT 


O6MAY70 
571513 


PART NO. 5129611 
PAGE 3 

STATESRENT | 

B DART 

SUBROUTINE TO COMPARE CTL FLD +ObeeSbeS8 
CLC ARNE+3 (4) ,FAY¢4 COMP CONTROL FIELD 

BE aDvs 

B UNPACK 

pc XL1°Ou* 

pc AL2 (PAY+4) 

DC AL2 (VIPEB- 16) 

B TURE 

B ADV5 

SUBROUTINE TO COMPARE DFDR ceeeeeees 
SNS  BROAD,X*A4?* SENSE DFDR 

CLC BROAD(2),FAY+2 COMPARE TO PARA 

BE ADY3 

B UNPACK 

pc XL1°02° 

pc AL2 (PAY+#2) 

DC AL2 (VIPER-4) 

B TURE 

B ADV3 

SUBROUTINE TO COMP DFCR Fee eeeees 
SRS  TOAD,X*A6* CHECK DFCR 

CLC TOAD(2) ,FAY+2 

BE ADV3 BRANCH TO ADD 3 TO PTR 

B UNPACK 

cc XL1¢02" 

DC AL2(FAY¢2) 

Dc AL2 (VI PER-10) 

B TURN 

B ADVY3) 

SUBROUTINE TO GO TO ALT PARA $44 See88% 
A THREE, 181 

ST ALTAR, X81 

L FAY+2, XB1 

B PANDA 

SUBROUTINE TO BTN TO MAJOR PARA +#eeee208 
L BLTAR,XR1 

B PANDA 

SUBROUTINE TO COMPARE DATA CHAR +e eteeses 
CLC BARN(1),FAY+1 COMP DATA CHAR 

BE ADV2 BRANCH TO ADD 2 TO PTR 

B UNPACK 

DC XL1*018 

DC AL2 (FAY41) 

pc AL2 (VIPER) 

B TURN 

B ADV2 

SUBROUTINE TO DATA CHAR | Seeeeeses 
MVC ANDY(1),FAY+2 ; 

MVC CAREA(1),FAY+1 

MVI  CLK1-1,X°64! RDSET CLOCK LIO BYTE 

MVI FETE-1,x"44! RESET DATA LIO BYTE 

MVC CAREA—1(3) ,ONE+1 

TBN CAREA-2,X*O8* IS THIS BIT RING 1 

JF RACY 

SBF CLK1I-1,x"O4! RESET INH DATA CYCLE REQ 
SBF FETE-1,X'08! RESET INH DATA CYCLE REQ 
TBH CAREA-3,X401' IS THIS BIT RING 6 

JF BRACT 

B DANTE 

SLC ANDY(1),ONE 

BNZ PART 

NVI - RINK+1,x"°87°* 

MVI FOES+1,X'0O7° RESET SHS PROBES SW 

BVI ZONE+?,x*0O7* RESET DATA FLD SB 

B ADV3 

ALC CAREA(8),CAREA SHIFT BITS 

TBH CAREA-1,X°01! 
0130L70 04BAR71 PROG ID GAS1-4 
571524 571573 PAGE 3 
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PART BO. 5129629 





P&GE 3. & 
2018 FILE CCHTROL ONIT FLT SECTION 1 y ; a 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMEBT | 
OFS2 CO SO OF4E 339 BF RACE : e 
OF&6 3a 08 151F 340 SBN PETE-1,Z*°O8* 
OFSA CO 87 OF52 341 B TRACY @ 
OFSE 3B 08 151F 342 RACE SBF PETE-1,x%°08* 
OFS2 31 43 151E 383 TRACY LIO CLK1,x*a3? CE L3O CLOCK 
OF56 31 A3 1520 344 LIO 8 =—- PETE, &* a3* CE 110 DATA ° 
OFSA CO 87 OFDS 345 ZONE 8B BAMA ~~ CATA FLD CHAR a 
OFSE CO 87 OFF9 346 FOES B GALA S#ITCH TO ALLOW PROBE SERSE 
OF62 CO 87 OFO04 347 Lacy 8B STONE os 
OF66 38 80 OFFA 348 FROG TBH GALA+1,X*80* SES AT BIT RATE « 
OF6A F2 10 12 349 IT SNAG a 
OP6D 38 20 1882 350 TBN ART-7,X°20° | “ aN 
OF71 F2 10 13 351 JT. s#oc 
OF78 38 20 18283 352 TBN ART-6,X*20¢ 
OF78 F2 10 Oc 353 aT SHOG C 
OF7s8 CO 87 10D3 3598 B ANT 
OF7F CO 87 OF87 355 SHAG 8B SHOG 
OF83 CO 87 10D3 356 B ART & 
OF87 34 O08 OFBB 357 SHOG ST GAS+3,x*08* STORE RETURE z 
OF8B 36 01 1502 358 FRUIT A ONE, XR1 | 
OF8SF 06 31 1881 1488 359 BRUTE az CROX(5) ,TEN(2) aDD 1 TO CTk a 
OF95 30 A3 12DD 360 SNS KNIT,X*A3* SENSE PROBES ‘ 
OF99 3C EO 1899 361 BVI #MSK,X*EO* SEI UP DONT CARE MASK | 
OF9D 1c 00 1BAS 02 362 MVC) = EX P(1) 2 (X81) * 
OFA2 CO 87 1852 363 B FAKE BR. TO ADJUST EXPECTED BITS te 
OFA6 OD 00 1BA1 12DD 364 CLC EXP-8(1), KUIT COMPARE 2DIJUSTED SENSE PROBES 
OFAC CO 01 OFCO 365 BNE YELP rt 
OFBO 3C 07 OF1B 366 BVI RINK+1,x°07° as 
OFB& CO 87 OE0F 367 B DANTE | 
OFBS8 CO 87 OPBS 368 GAS B GAS re 
OFBC CO 87 OF62 369 B Lacy . 
OFCO 38 O8 OFDS 370 YELP sT KELP¢3,x*98°* | 
Orca CO 87 0218 371 EPoUT B UN PACK CONVERT EXPECTED PRCBES 
OFCB 01 CrFcs8 372 Dc XL1°O1¢ — 
OFC9S 1BA1 OFCA 373 pc AL2 (EXP-4) ) 
OFCB 1396 OFCC 374 pc AL2(VIPER-26) * 
OPCD CO 87 1219 375 B TURN a 
OFD1 CO 87 OFD1 376 KELP 3B KELP 
OFPD5 38 08 14D0 377 BYANA TBN CAREA~2,x*08* IS THIS BUT RING O a 
OFDS CO 10 OFE1 378 BT CRIME : 
OFDD CO 87 OF62 379 B LACY 
OFE1 31 AS 1898 380 CRIME LIO BESS,xX*Aa* RESET DFDE 2 
OFES 3C 11 EEO 381 SVI BARN,X*11? 
OPES CO 87 OFF! 382 B RUBE 
OFED CO 87 OF62 383 B Lacy — @ 
OFF1 38 O8 OFBB 38% RUBE ST GAS+3,x*08* STCRE RETURB- 
OFFS CO 87 OF8P 385 B BRUTE 
OFF9 CO 87 1009 386 GALA 8B SKOG 2 
OFFD 38 08 14D0 387 TBH CAREA-2,x*08* IS THIS BUT RING O 
1001 CO 10 OF87 388 BT SHOG 
1005 CO 87 OF62 389 B LACY e, 
1009 CO 87 OF87 390 SKOG. B SMOG ~ 
100D CO 87 OF62 391 B LACY 
392 **#*** SUBROUTINE TO INITIALIZE INDEX Ssesessses nn 
1011 3C CO IEE 393 WORK &MVI  BELL-1,x*CO? ~ 
1015 CO 87 101D 394 B YORK 
395 ****** SUBROUTINE TO INITIALIZE SEI TO 8 St eeseses a 
1019 3C 4O 14EE 336 SHARK svI BELL-1,X "40 * 
101D 30 a3 12DD 397 YORK SNS  KNIT,X*A3* SERSE PROBES 
1021 3c 02 1BAS 398 SVI EXP,X*02® SET UP EXPECTED FIELD & 
1025 3c PD 1899 399 BVI MSK,X*FD* SET UP DOET CARE BITS o 
1029 CO 87 1B52 400 B PAKE ER. TO ALJUST EXPECTED BITS 
102D 38 02 12DD 401 TBN KNIT,X?°02°* JEST FOR BIT RIBG 0 “ 
103% CO 10 ODF3 802 BT ADV1 ~ 
1035 31 A3 14EF 4803 LI0 BELL, xta3* BRITE OSC 
1039 30 A3 12DD 808 SNS  KRIT,X*A3* Q 
103D 3C 02 1Ba5 “os HVI EXP,X°628 SET UP EXP FIELD 
1087 3C PD 1599 206 NVI MSK,X*FD? SET UP DOKT CARE BITS 
3 
DATE O2HR 270 OTBPR7G OGMAY70 CIIUL70 O1MAR 7? PROS ID O207-% 
FC we. 571512 571516 577513 571528 571573 PAGE | 38 a 
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BE BAINTEMANCE DIAGNOSTIC PROGRES 
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PRE. 8G. 
PAGE & 
aoa PILE CONTROL UNIT FLT SECTFISE 1 
ERR LOC OBJECT COBE &DDE STR SGURCE STATERERT 
1085 cO 87 1852 &O7 B PAKE BR. TO ADJUST EXPECTED BITS 
1089 38 @2 12DD Ses TBR KNIT,X*O2!' 4EST FOR BIT ELHG 0 
204D CG 10 ODFS &OS Br ADVi 
1051 €CO 87 O2Z7E &16 B UNP ACK BR. TO CORVERT PROBES 
1055 61 1055 &t7 Dc ZL71*O0178 
7056 1BAi 57 412 pc AL2 (EXP-4} 
1058 1396 1659 &13 pe AL2(VIPER-25) 
1058 CO 87 1219 &1& B TORN 
OSE CO 87 ODF3 RTS B ADV1 
416 #¢&4+%% SUBROUTINE TG BESET DFDR SESKESKTS 
1062 31 BY 14898 S17 SALT Lio BESS, X*Ax?t RESET F DFDR 
1066 CO 87 ODF3 &18 B ADV! 
479 were CHANGE BUSY OB ERROR ROUTINE 
106A OC 00 OF20 14DA S20 SBINT NVC DART4+1(14) , FAY+1 
1070 ¢O 87 ODEF 424 B ADV2 
&22 €eesee SUBROUTINE TO TEST SENSE PROBES SVESLERSS 
1078 30 A3 12DD &23 FOOD SNS KNIT, X*a3° SENSE PROBES 
7078 CC 07 1BA5S WDA 82g 4VC EXP, FAY+1 SET UP EXP FIELDS 
TO7VE 3C PE 1899 &25 AVI SSK,X*FE* SET UP DONT CARE BITS 
1082 CO 87 1852 826 B FAKE BR. TO ADJUST EXPECTED BITS 
1086 OD 00 12DD 1BA1 &27 CcL¢e KNIT (1), EXP-4 COHPARE ADJUSTED PROBES 
108C CO 81 ODEF R26 BE ADV2 
1090 CO 87 O21TE &2g9 B UNPACK CONVERT PROBES 
1095 01 1034 &30 pc XL 1°018 
1095 1BAT 1096 431 pc AL2 (EXP-4) 
1097 1396 1898 «32 pe AL2 (VIPEB-26) 
1099 CO 87 1219 &33 B TURN 
109D CO 87 ODEF gza B ADV2 
1041 OC 00 T4E9 TUDA &35 FLAT svc ART (1) ,FAY+1 * AM CHAR ROUTINE 
10R7 OC OO I4E8 14UDA &36 svc ART~-1 (1) , FAY+1 
1O0AD OC 00 148E7 14DB 437 MVC ART-2(1) ,FAY+2 
160B3 0C 00 14E6 T4DB a3s MYC ART-3 (1) ,FAY+2 
1OB9 OC O4& IHE5 1508 &3¢g MVC ART-4 (5) ,ONE#2 
TOBF 3 24 TUBER 4&6 ELAN BVI ABNER-1,X*24! CLOCK BYTE RESET 
10cC3 3¢C Cu 14EC R414 GRAIN MVI ELLA-1,X'O4? DATA BYTE RESET 
10C7 38 01 14E1 8&2 TSN ART~8,X*O1® 
10CB CO 10 1102 uaz BT ORGY 
10CF CO 87 OFf65 &&& EON B FROG 
10D3 38 80 14E6 4a5 ENT TBa ART-3,X'80! TURN ON AM BIT 
10D7 F2 10 OA GEE JT ACT 
10DA 38 80 14E8 &at BAT TBN ART-1,X'80# TURK ON DATA BIT 
1O0DE F2 10 OB ase JT AXE 
WOE F2 87 OC &&S J BAT 
10E4 3A 10 18EA &50 acT SBN ABNER-1,X' 10! SET AM BIT ORF 
10E8 CO 87 TODA &51T B MAT 
GEC 3A 08 18EC 4S2 EXE SBN ELLA-1,xX'* 08! SET DATA BIT O8 
10FO 31 A3 14EB &53 BAT LIO ABNER,X'*a3? CE LIO FOR CLOCK TIME 
TOFU 31 A3 I4HED &S4a Lio ELLA, X*A3* CE LIO FOB DATA TIBE 
10F8 OF 09 14E9 14E9 &55. ALC ART (10) , ART SHIFT BITS 
1O0FE CO 87 10BF 856 B ELAN 
1102 3c 07 10D0 &57 ORGY MVI EON+1,X*O7# SET SW OFF FOR SENSE PR 
1706 CO 87 ODEB a56& B ADV3 
4S €£eee% SUBROUTINE TO SET B TO 0 SeEEESESE 
V10A 3C 00 1FE4 860 ANTE MVI ARNE+3,xX'0O0O# SET 8 BYTE TO 0 
TI0E CO 87 ODF3 &§61 B ADV1 
462 *#%*%* SUBROUTINE TO END CF ROUTINE BALT +TESHEK SS 
1112 CO 87 TATA &63 AEP B END 
46% ##e4%* SUBROUTINE TO FORCE 256 X PARA CHT OSC VEKEKTE SE 
1116 OC 00 151A 14DA 465 SHOP BYC ANO-1(1),FAY+1 MOVE COURT TO COUNTER 
111C 31 83 1UCE &66 SEPAL LIO ARID, X°A3! CE LIO &8R OSC 
4120 OF 01 151B 1502 S67 SLC ANO (2) ,CONE SUET ONE 
1126 CO 01 T11Cc 468 BNZ SEPAL CORT TILL 3 ZERO 
112A CO 87 ODEF &63 B ADV2 GET NEXT PARA 
%7Q See%% SUBROUTINE TO BRANCH TO NE@ ROUTINE FFSITSRASE 
T12E oc 01 4137 14uDB &7T GHELK YC BEAT+3 (2) , FAY+2 
1134 cO 87 7134 §T2Z BEART B BEAT 
Q7Z S#SeeLEKKE SUBROUTINE TO CHK STATOS SERECSESOE 
1138 30 A2 12DB &7& STAT SNS KNIT-2,X*A2?* SENSE STATUS 0 ¢ 1 
BATE  ####$O2MAR70 O1APR70 OGRAY70 0130L70 O1MAR71 PROG ID OA01-4 
EC WO. 571512 571516 5714513 571524 571573 PAGE u 
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EBN ABRINTENANCE DIAGNOSTIC PROGRAB PRET BO. 3129674 
. PAGE a «OCG 
201%  #$FILE CONTROL UNIT FLT SECTION 4 - . o 
$ . 
BRR LOC OBJECT CODE ADDR STMT SOURCE STATERE. * 
413C 30 a3 72DD 475 SNS  KBIT,X*A3* SEESE STATUS 2 ¢ 3 3 
7180 OC 02 1BAS 14DC 596 MYC EXP-1(3) ,FAYe3 SEZ UP EXP PIELD 
7186 0c O02 1B98 1BA8 “77 HYC MSK-1(3),8SK?2 SET GP DONT CARE BIK’S Be 
114C CO 87 1B52 a7s B FAKE BR. TO ADJUST EXPECTED Sv ares ! 
4150 OD G2 12DC 1BAO a79 CLC KBLT<-1(3) , EX E-5 COBPARE ADJUSTED STATUS 
1156 CO 81 ODE3 880 BE ADYS = 
115A CO 87 O2Z1E 48t 8 UNPACK CONVERT EXPECTED STATUS a 
115E 03 415E 482 pc XL1*°03° 
115F 1BA0 1160 4e3 pc AL2(EXP-5) . eo 
4161 1398 1162 488 pe AL2 (VI PEB-28) i 
1163 CO 87 1239 &B5 8 TURE 
1167 CO 87 ODE3 4 86 B aDvS $e 
kQ7 *#eee6eSFT WR OSC BIT ON SERIAL DATA ROUTINE*¢eceseesensose we 
116B 3A 4O OEFT 888 VARY SBH ORE+*1,X%4u0¢ SETSET OSC BIL OF 
116F 3A 40 OEPB & 89 SBN ORE*S,x*°a@0?* SET OSC BIT OB a 
41173 CO 87 ODF3 8390 B ADV1 ve 
uO} seeeeteSET WR OSC BIT OFF SERIAL DATA ROUTIBNESessecescseacesess 
1177 3B 4&0 OEF7 &92 WARY Siy ORE+1,x*°8O® SEZ OSC BIT OFF a 
117B 3B SC OEFFB 493 SBF ORE+5,X*s0° od 
117F CO 87 ODF3 494 8 ADV1 
495 RSeSesee SET SEWSE BY BIT $# CSSOSESSSSSSSESSTHEESS ae 
1183 3C 87 OFFA 896 WINE SYI GALA¢1,xX*87* SET SENSE TO BIT BATE ai 
1187 CO 87 ODF3 u97 B ADV? 
G98 ¢eeeeESET SENSE BY BYTE*Q tS OCS OF 86 S9SSSSSSEs 
118B 3C 07 OFFA 499 TINE MYI  GALAt1,xX*07* SEZ SEKSE TO BYTE RATE 
118F CO 87 ODF3 500 B aADV1 
S01 *#*¢s*eSET SEP CLK OFF SERIAL DATA ROUTINE *eeceeecseasoesese 
1193 3B 20 OEF7 502 WIRE SBF  ORE+1,x*20° SET SEP CLK Bit OFF 
1197 CO 87 ODF3 503 B ADV1 
50% **#e¢e°SET SPP CLK ON SERIAL DATA RUUTIEES¢¢eesecusoescese 
119B 3A 20 OEF7 505 wIRY SBE ORE+*1,X°20°* SET SEP CLK BIT OF 
119F CO 87 ODF3 506 -B ADV1 . 
507 RSTSOCSSSERIALIZE DATA CHAR WITH SERS SESeSsesseese see esseseesee 
11A3 3C 87 OFSFP 508 MIET NVI  FOES+1,x*87# SET S® FOR SES PPBEX 
11A7 CO &7 OFFA 509 B TRACT 
510 S¥StkS*eERM CHAR WITH SERSE FAKSESSEESESTCSKESESS 
11AB 0C 09 14E9 14AF 511 SIBE BYC ART(10),SHA8T7 
11B1 3C 87 10D0 512 HY¥YI EOR¢1,xX°87? SET SH FOR SNS PROBES 
11B5 CO 87 10BF 513 B ELAN 
514 *##eeeee3SPRIRLIZE DATA CHAR WITH SENSE AND RESET DFDR?#teeeeseee9 
11B9 3C 87 OFSB 515 LINT EVI ZONE+1,X°87* 
11BD 36 01 1502 516 A ONE,XR1 
11C1 CO 87 OEEA 517 B TRACT 
518 €$4SE44RT EST CE LIO ROUTIB FEROS Se SS SF SSSESCESSS 
11C5 31 A& 1493 519 ACRID LIO CORN,X*AS* 
1109 37 Aw 1495 520 LIO CORD,X*Au® 
11CD 31 AY 1893 521 LIO §=6cCoRN, X*AG* 
11D1 CO 87 ODF3 522 B ADV1i 
523 S*eSEKSES*EROUTINE TO CHECK SCAB POORD SKFSESSESKSESSESRSESSK 
11D5 3C 01 11E2 524 POOR VI FOR+1,X*01" a 
11D9 C1 AS 1121 525 TIO FOR,X*A! 
11DD 3B 01 11E2 526 SBF POR+1,x*01° 
11E1 3p 00 14DA 527 FOR CLI FAY+¢1,x#00°* 
11E5 CO 81 ODEF 528 BE ADV2 
11E9 OC 11 13B0 13c3 ~< 529 SYC VIPER(18),SCAS 
11EF 38 01 14DA 530 TBR PAY+1,x*O7* JEST FOR EXP SCE HIT 
11P3 CO 90 1219 531 BF TURN BR IF “OT 
11F7 OC 07 13A0 1341 §32 KVC WIPER-16{2) , VIPEB-15 
11FD CO 87 1219 532 B TURE 
1201 CO 87 ODEP 538 B ADV2 
535 RBECEKKSIS PRINT SUBEOCUTIBE SBSCSESESSSESCCKSSoeensese 
7205 8OD540D54u6480 120A 536 OGLE oC CL6" BR °* 
120B 3C E8 12FE 537 ELF HVI WIBS+2,X°ES* BOVE Y TO P2IET 
120F F2 87 8E 536 3 FLY 
1212 3C E8 1300 539 BUG NVI HIBS+4,X*ES* BOVE Y TO PRIET 
1216 F2 87 8B 540 J FLIT 
1219 34 08 12c3 5481 TURN St PoUT,x*08* 
121D CO 87 1326 542 ONLY B OSCE 
DATE 0284R70 01APR70 OG6MAY70 01301L70 OTMAR71 PROG ID 0007-8 
EC NO. 571512 571516 571524 571573 PAGE aa 
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agian. 
ERR LOC 


1221 
1227 
1228 
122F 
1233 
1239 
123F 
1243 
7249 
1248D 
1251 
1255 
1259 
125F 
1263 
1264 
1266 
1268 
126C 
1272 
1278 
‘ 127¢ 
1282 
1288 
126E 
12948 
4298 
129C 
12A0 
T2A4 
1248 
12A9 
T2AR 
I2AC 
4280 
1282 
1284 
1288 
T2BC 
12€0 
12C4 
12C8 
12CE 


12D2 
12D6 
12D7 
T2DE 
12E3 
12E6 
12E9 
12EB 
12F3 
T2FR 
12FD 
1325 


1326 
132A 
1325 
1332 
1333 
1334 
1336 
1338 
133¢ 
1344 


DATE 
EC NO. 


FILE CONTROL UNIT FLT SECTION 1 


SOURCE STATEMENT 


PART RO. 5129617 
PAGE 5 


OBJECT CODE ADDR SiMT 
06 01 12F3 1488 543 AZ BRAD (2) , TEN (2) ADD 1 TO ERROR COUNT 
3C 40 12F3 544 BVI BRAD,X*4O! MOVE BLANK TO PRINT 
3C 40 12F1 545 MVI BPAD-2,X'40? MOVE BLANK TO PRINT 
3C 00 122A 546 EVI OPINE,X*00* CLEAR UNPACK AREA 
OC 15 12E9 12EA 547 MVC OPINE-1(22) ,OPINE 
OC 00 12D6 1325 588 MVC ANDES(1) , ARDY 
3&8 01 12D5 549 ST AN DES-1,XR1 STORE MSG COUNTR IN PR AREA 
OC 03 12E2 1FE4 550 NEON VC KITE(4) ,ARNES3 
30 a2 12DB 551 SNS  KNIT-2,X*a2!* SENSE 01 
30 a3 12DD 552 SNS KNIT, X*A3* SENSE 23 
30 A6 12E5 553 SNS  KIT,X*A6? SENSE DFCR 
30 Au’ 12E8 554 SNS  KAT,X*Au* SNSE DFDR 
Oc 00 12EA 1£E0 555 MVC OPINE(1),BARN 
CO 8? 021E 556 B UNPACK 
18 1263 557 DC XL1*18" 
12EA 1265 558 DC AL2 (OPINE) 
1324 1267 559 pc AL2 (UNIT) 
cO 87 12c8 560 STAR B BURN 
Oc 03 12FA 1524 561 MVC) = NIBS-2(4) , ALMS-1 BOVE MSG NOMBER TP PR 
OC OS 1302 120A 562 SLAB VC NIBS+6 (6),O0GLE 
3C 40 12F6 563 NVI NIBS-6,X'40! MOVE BLANK TO PR 
Oc 01 1322 120A 564 MYC. UNIT-2(2), OGLE MOVE BLANKS BETWEEN FLDS TO PR 
Oc 01 131C 120A 565 MVC =- UNI T-8 (2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR 
OC 01 1316 120A 566 MVC UNIT-14(2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR 
OC 01 130C 120a 567 HVC) UNIT-24 (2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR 
3C 40 12F4 568 MVI BRAD+1,X*40! MOVE BLANKS TO PR AREA 
3C 40 12F5 569 MVI BRAD+2,X'40' MOVE BLANKS TO PR AREA 
C1 a2 120B 570 TIO ELF,X'A2? EST FOR BUSY 
C1 a0 1212 571 FLY TIO BUG, X*AO? TEST FOR ERROR 
CO 87 O21A 572 FLIT 8B PRINT 
81 12A8 573 pc XL1*91°# 
39 12A9 574 DC XL 1* 39" 
1324 12AB 575 pc AL2 (UNIT) 
CO 87 021A 576 B PRINT 
0139 12B1 577 Dc XL2'01398 
13B0 12B3 578 ie AL 2 (VIPER) 
3C 07 OS5C 579 MVI = FILET+1,x'07# STOP AFTER FIRST GROUP 
C2 01 027A 580 LA PRINT ,XR1 
34 01 1A1D 581 ST END+3,XB1 
C0071000 12C3 582 POUT DC XL4 "C007 1000 °* 
cO 87 12c4 583 GOUT 8B GOUT 
Oc 05 12FC 1480 584 BURH YC NIBS(6),CRUX-1 
cO 87 1272 585 B SLAB 
0218 586 PRINT EQU  X*217A~! 
021E S87 UNPACK EQU X*21E? 
12D5 588 KUT DS CL4 
00 12D6 589 ANDES DC XL 1*00* 
12DD 590 KNIT DS CL7 
12E2 591 KITE Ds CLS 
12E5 592 KIT DS CL3 
12E8 593 KAT DS cL3 
12EA 594 OPINE DS CL2 
4OCSD9DIDEDS4OFO 12F3 595 BRAD DC CL9* ERROR 0 ! 
40 595 
12FC 596 NIBS DS CL9 
1324 597 UNIT DS CL40 
00 1325 598 ANDY DC XL1°00* 
599 ¢¢#*#e"ee¢PRINT HEADING ROUTINE ONLY ONCE PER LOADteesaeeees 
34 08 133B 600 ONCE sf HERE+3,X*08! 
3C 07 121E 601 MVI = ONLY+1,X°078 
cO 87 O21A 602 B PRINT 
C1 1332 603 pc XL1'c1°* 
3, 1333 604 Dc XL1*3a* 
1376 1335 605 pc AL2 (OPUS) 
A001 1337 606 Dc XL2'a0018 
CO 87 1338 607 HERE 8B HERE 
4OCSDSDSDED94ODS 1345 608 pc CL10* EBRGR KO. * 
D64B 608 
02HAR70 O7APR70 O6MAY70 0150170 O1MAR71 PROG ID OA01-4 
571512 571516 571513 571524 571573 PAGE 5 
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IBM MAINTENANCE DIAGROSTIC PROGRAS 


ao1i48 
ERR LOC 


1346 
1345 
1356 
135E 
1366 
136E 
1376 
1377 
137¥F 
1387 
41389 
1381 
13B2 
13BA 
13C2 


13C4& 
13c8 
13CE 
13D2 
13D6 
13DCc 
13E0 
i3E3 
1357 


13EB 
T3EF 
13F5 
13F9 
13FD 
1403 
1407 
140D 
1441 
1815 
1816 
1418 
147A 
1420 
1424 
1428 
182C 
1430 
1434 
1438 
1438 
143F 
1443 
TaaT 
TRaB 
14aayp 
14854 
1456 
1458 
145c 
1463 
1469 
TU6F 
1475 
T47B 
1482 
1487 
148C 
188E 
1492 
1494 


DETE 
EC WO. 


FILE CONTROL UNIT 


OBJECT CODE 


FLT SECTION 1 


ADDR STEHT 


SOURCE STATESERT 


PART BO. 
PAGE 


| $4129614 


Sa 


SOD4E2ZCTRODSDE4NB 1376 609 OPUS bc CL49t BSG BO. BE SI220S CTRL FLD DFCR ODFDR naTa* 
8OC2Z40CS4ON0R0E2 €09 
EICIEZEXE2K4O08040 609 
C3E3D9D340C6D3C4 609 
4¥O040CUCEC3DS&040 609 
C4&C6C4D94U0CHCIE3 609 
c1 609 
SO4OCSE7TD7ICSC3E3 1388 610 pc C1L18* EXPECTED 8 
CS5C44 08040400080 676 
4040 610 

13B0 611 VIPER ovDS CL4ao 
40 13B1 612 BLANK pC CLi® 8 
DSD6SOC2D94BNOD6 13C3 613 SCAN pc CL18*#O BR. ON SCAN HIT* 
DS80E2C3C 1D5480C8 613 
CSE3 613 

614 ¢eeexeseseROUTINES 4 SELECT HEAD 0 OR 1 steeseerscescosseoseses 
34 08 13EA 615 Boss St SASK+43,X*°08° STORE RETOUR 
Oc 03 1FES 144A 616 avc ARNE+3(4&) , BASK SET UP FOR HD 1 
CO 87 13DC 617 8 sass e 
3% 08 13EA 618 BASS ST MASK*3,x°08* STORE RETURE 
OC 03 1FE4 1846 619 HVC ARNE+3(4), PASS SET UP POR HD 0 
31 A6 1149p 620 SASS LIo ARNE, xX*a6* 
F3 AO 00 621 sto X'00*,x*a0°® SEEK 
CO 87 13EB 622 B ANISE 
CO 87 #13E7 623 MASK B MASK 
624 *#800848¢88 SUBROUTIKE TC CHK SK BUSY *#¢8ee0eee08¢88 

34 06 1442 625 ANISE ST ANVIL+3,X* 08° STCRE RETURNS 
Oc 00 t4F4 1502 626 aVC BEIGE-2(1) ,ONE SET UP TIME OUT CTR 
30 A2 12DB 627 ATTIC SKS KNIT-2,X*A2* SENSE STATUS 0 e 13 
30 A3 12DD 628 SNS KNIT,X*A3?* SENSE STATUS 2 # 3 
OC 02 1398 1IBAE 629 mvc BS K-1(3) ,8SK3 SET UP DOBT CARE BITS 
3c 00 1BAS 630 AVI EXP, x*00* SET UP EXPECTED BITS 
Oc 06 1BA4% 1Ba5 631 BVC EXP-1(7) , EXP 
CO 87 1B52 632 B FAKE ER. TO ADJUST EXPECTED BITS 
Co) 87 O21E 633 B UNPACK BR. TO CONVERT STATUS 
03 1415 634 Dc XL1'03° 
1BA0 1417 635 pe AL 2 (EXP-5) 
1394 1419 630 pc AL2{VIPEB-28) 
OF 02 14F6 1562 637 SLC BEIGE (3) , ONE SOTRACT OSE FROS TISEOUT CTR 
CO 01 %42C 638 BNZ AEBBOR 
co 87 1219 639 B TUBN 
CO 87 AIA 6&0 3 END 
38 10 12DB 641 ARBOR TSS KNIT-2,X*10* TEST FOR SEEK BUSY 
cO 10 13F5 642 BT ATTIC LOOP IF BUSY 
38 01 12DA 643 TBN KNIT-3,xX*01* TEST FOR SEEK CHECK 
F2 90 0&8 644 JF ANVIL 
cO 87 1219 645 B TURE 
CO 87 143F 646 ANVIL 3B ANVIL 
00000000 1446 647 PASS oe XL& §*00000000 ® SEEK CTL FLD HO SOTION HD O 
00008100 QUA 648 BASK DC XL4& *00008 100 * 
TAIA 1ugc 0 =6689 GAUDY DC AL2 (ERD) 
§5c5cc5 p5cuscsc 1453 650 LANE be CL] *#*# ENDS eet 
ATA 1455 651 SAND pc AL2 (END) 
1458 1457 652 SA@ bec AL2 (CAKE-3) 
000001DF 145B 653 CAKE DC XL4*Q00001DF* 
FOFTFOFOFOPOFO 1462 654 TRUCK oDC XL7 * FOF1FO FO FGFO FO 
F2 FOFOFOFOFO 1468 655 TRICK pc XL6' F2FOFGFOFOF 0® 
F3FOFOFOFOFO 1846E 656 THICK pbc XL6 *F3POFOFOFOFO? 
F4& FOFOFOFOFO 1474 657 THAT pc XL6° FUFOFOFOFOFO® 
PSFOFOFOFOFO TU7A 46658 THES pc XL6 'FSFOFOFO FOFO® 
FOFOFOFOFOPOFO 1481 659 CRUX Dc CL7* 0000000" 
FOFOFOFOFO 1486 660 FLUX c CL5 *00000* 
FOFOFOFIFO 148B 661 TER Lc CL51 000108 
A300 148D 662 LAP oc ZL2 *A3008* 
00005403 1491 663 SOAP pc XL4*60005403* 
PFFF 1493 664 CORK pe XL2 'FPFF®* 
0000 71495 665 CORD pc XL 2*G0G0° 

000% 666 XR1 EQu 4 
O2MAR70 OTAPE70 OGHAY7G O13UL70 O1HBE?1 PROG ID Ca01-4 
571512 571516 571543 5775248 57 7ST3. PAGE SA 
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a0is 
ERR Loc 


1696 
TH9A 
149C 
14SE 
T4A3 
T4A4g 
14,a8 
1480 
18Ba 
1486 
14888 
TOBA 
T&BC 
TUBE 
18C0 
148C2 
18cu 
14cB 
14c9 
14CB 
14cD 
14CF 
14D3 
TAD’ 
14D5 
T4aDd7 
14&D9 
14DA 
TUDE 
THEO 
14E8 
THEA 
T4EC 
T4EE 
14FO0 
VuF2 
14P4 
T4F7 
VaFa 
TaFE 
14FF 
1500 
1503 
1506 
1509 
150D 
150F 
1512 
1514 
1516 
1518 
151k 
1S51B 
15tc 
151D 
151F 
1521 
15 26 
1528 
1529 
152A 
152D 
152Y 
1530 
1533 
1536 
1539 
153c 


DATE 
EC NO. 


FILE CONTROL UNIT FLI SECTION 1 


OBJECT CODE ADDR 
00000005 14899 
TEEO THOB 
1PE1 149D 
DICSCE4SOF 1 THA 2 
00 14a3 
00000000 TAT 
000100001818C2c2 14AaP 
OOFFO401 1483 
A101 14B5 
A100 14B7 
A102 18B9 
A103 18BB 
A200 SBD 
A201 14BF 
4301 14C1 
A302 14&C3 
00000000 TNC? 
03 14c8 
0000 T4CA 
0000 T4acc 
4000 1aCE 
‘00000000 T8D2 - 
00 T4HD3 
$5 14D4 
0900 T4D6 
0000 Tabs 
00 14D9 
TVaDD 
0600 T4&DF 
39500000000000000 1459 
0000 
0000 14EB 
0000 T&ED 
0000 T4EF 
0000 WaFI 
9000 T48F3 
000600 14F6 
007000 14P9 
00000000 T4FD 
00 T4FE 
00 14FF 
0600001 1502 
000002 1505 
000004 1508 
10100000 50C 
0003 ISOE 
S114 
0000 1513 
0000 1515 
0000 1517 
0000 1519 
00 TS1A 
00 151B 
00 151¢ 
6000 I51E 
4000 1520 
0000000000 1525 
1528 4527 
40 1528 
02 1529 
525866 1S2c 
2410 I52E 
22 1527 
1A0005 1532 
3A4C218 1535 
1A0E01 1538 
IAFFO1 1538 
120005 I5S3E 
O28AR70 CTAPR7O 
571512 571516 


alt ee He AG GE Sender ea pe 


PART NO. 51296114 
PAGE 6 

STBT SOURCE STATENENT 

667 ABYSS DC XL 4*00000005* 

668 BESS DC AL2 (BARR) ADDRESS OF DATA FIELD 
669 ANNE pc AL 2 (ARNE) ADDRESS OF CONTROL FLD 
670 PALMS DC CLS*REF 1° 

671 SAY DC X1L7*°008 

672 bc XL4& *90000000° 

673 SMART DC XL8 00010000 1818CzCc2* 

67& COPE pc XL4*OOFFOR01' READ DATA 2 CTL FLD 
675 MAY bc XL2°A1018 

676 HOR bc XL2°A100* 

677 OPERA DC XL2'2102* 

678 PINE pc X1L2*A103* 

673 RAT pc XL 2* 42008 

680 SET DC XL2‘a201* 

681 TAP Dc XL2*a307* 

682 WIP Dc X32 *A302* 

683 HOPE pc XL4*00000000° CTL FLD WR ID BD ID 
684 ROPE DC XL1 ‘03! CTL FLD WR DATA RD DIAG 
685 WAD Dc XL2*0000! 

686 WED Dc X1L2 ‘0000 

687 AkID bc XL 2* 40008 

6@8 CAREA DC XL4 *00000000°* 

689 CCHTR DC XL 1°00" 

690 FTYS oe XL1°55" 

691 ANY pc XL2*0000* DFCR PARA 

692 ENY Dc XL2*0000" DCFDR PARA 

633 FAY DC XL1*008 PARA WKG AREA 

694 DS CL4 

635 GAY be XL2* 0006! PARA POINTER 

696 ART pC XL10*00000000000000000000" 

636 

697 ABNER DC XL2*0000* 

698 ELLA BC XL2"00008 

69S BELL pe XL2*00008 

700 BaN bc XiL2* 0000" 

701 FLUID DC XL2*00008 

702 BEIGE DC XL3*000000° 

703 TAN DC XL3 007000! 

708 CANT bc XL4* 600000008 

765 BSIND DC XL1*00¢ 

706 ERIN bec XL17* 008 

787 ONE Dc X13 *000001' 

708 TYO Dc XL3*000002* 

709 FOUR pc X13 "000004" 

710 TONY DC XL 4* 101000008 

731 THREE DC XL2 £0003 

712 DS CL3 

713 BROAD Dc X1L2 #00008 

71& TOAD Dc XL2* 00008 

715 BYWAR DC XL2 500008 

716 ALTAR DC XL2*00008 

717 ANNA pc X1L1*00° 

718 ANO Dc XL 1* 008 

713 POND pc XL1*00! 

720 CLK1 pe XL2* 60008 

721 FETE pc X12 *4000* 

F722 ALES pc XL5* 0000000000 

723 MAX be AL2 (MORN) 

728 MORN be XL1*40! 

725 bc XL1*0O2! 2 osc 

726 bc XL3*5255E66° RESET 

T27 bec XL2*2A10! SEI BUSY NO ERROR 

728 pc XL1°22¢ INITIALIZE SET TO 8 
723 pc XL3*1A000B"* 11 BYTES 0 

730 pc X1L3 *3AC218° GOOD AM 

73t BC XL3*° 1A0EO1* SYNC CHAR 

732 BC XL3 *1AFFO1* IST BYTE ID FF 

733 pec XL3* 1A0005* 2 BYTE 0 ID 3 BYTE CC DATA CHK 
OGHAYTO 0130170 O1MAR71 PROG ID OA01-4& 
5774513 $71524 571573 PAGE 6 
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SP ee a ee 


ole 
ole 
ole 
ole 
cle 
ols 
ole 
oe 
ole 
ale 
Ole 
O16 
cle 
Clo 
clo 
| 6 
Gio 
O16 
CO 
°o 6G 
a. 
C. 5c 
6: 4 
o/0 
clo 
°° 
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A01& 
ERR LOC 


153F 
1544 
1544 
1549 
154C 
1S4uF 
1552 
1555 
1558 
155B 
155E 
1561 
15648 
1567 
156A 
156D 
1570 
1573 
1576 
1579 
157C 
157F 
1582 
1585 
1588 
158B 
158E 
1591 
1594 
1597 
159A 
159D 
1580 
15A3 
15 a6 
15a9 
15ac 
1SAE 
15B1 
15B4 
15B7 
15BA 
1SBC 
15BF 
715c0 
15C2 
15¢c4 
15c5 
15c6 
15¢c9 
15CB 
15cc 
15CF 
15D2 
15D5 
15D7 
ISDA 
15DD 
15E2 
15E5 
1558 
15EB 
15EE 
YSF1 
15F4 
1SF7 
1SFA 
15FD 


DATE 
EC NO. 


9e@eeoeeeedeeee7ed?ee?20 @ @.- 


OBJECT CODE 


2a11 
TAQOOE 
02 FF000000 
3A 8218 
146002 
3A4218 
1A0002 
3aC018 
130002 
3AC210 
720092 
3AC208 
Tk0002 
3AE218 
130002 
3AD218 
440002 
3ACA18 
1A0002 
3A8C628 
129002 
3kC0318 
130002 
3AC298 
120002 
3AC258 
TA0002 
3AC238 
120002 
3AC21IC 
1A0002 
3AC21Aa 
1R0002 
3AC219 
140002 
3AC218 
2410 
1A0E01 
1AQ003 
TAFFO3 
1AQ00A 
2400 
7180001 
GA 
OAAD 
15C4 
&O0 

02 
525566 
2410 
22 
1A000B 
34C218 
TA0EO1 
2A 71 
1AFFO1 
TA0006 
%E0A000000 
TAQOOE 
$AC218 
TAGEO! 
780004 
TAFFO1 
1A 0401 
tA0001 
TAFBO1 
TA F601 
2410 


02MAP 70 
571572 


PILE CONTROL UNIT FLT SECTION 1 


ADDR STMT SOURCE STATENERT 


1540 
1543 
1548 
1548 
154UE 
1551 
15548 
1557 
15528 
iSSD 
1560 
1563 
1566 
1569 
156C 
156F 
1572 
1575 
1578 
15783 
IS57E 
15814 
1584 
1587 
158A 
i58D 
1590 
1893 
1596 
1599 
159¢ 
159F 
1SA2 
15a5 
15A8 
15AB 
15akD 
15B0 
15B3 
15B6 
1559 
15BB 
1SBE 
1SBF 
18C1 
153 
15C4& 
15¢5 
158 
1SCA 
15CB 
J5CE 
15D1 
15D4 
15D6 
15D9 
15DC 
15E1 
15E4 
T5E7 
ISEA 
I5ED 
15F0 
15F3 
15F6 
iSF9 
1SFC 
15FE 


QTAPR70O 


73% 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
7&5 
746 
F4a7 
748 
749 
750 
751 
752 
753 
758 
755 


756° 


757 
758 
759 
760 
761 
762 
763 
76u 
765 
766 
767 
768 
763 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
765 
786 
787 
788 
789 
790 
791 
792 
733 
794 
795 
796 
797 
798 
789 
800 
801 


PEN 
SHED 


O6MAY70 
571513 


pc ZL2* 2A77* 
Dc XL3* TAOQO0E® 
pc XL5*O2FFO00000* 
pc XL3°3a8218 * 
DC XL 3* 1A0002° 
Dc XL3°3A4218° 
DC XL3*1A0002° 
pc XL 3*3aco018° 
bc XL3*71a0002* 
pe XL3* 34C 270°? 
Dc XL3 *120002¢ 
pc XL 3* 3aC208° 
BC XL3* 1000028 
Dc XL3*°3AB218* 
pc XL 3* 120002* 
Dc XL3*3AD218° 
Dc XL 3* 120002* 
pc XL3"*3ACA1B° 
pc XL3* 1400028 
DC XL3*3aC623° 
DC XL3* 140002" 
eal XL3*3aC318* 
vc XL3 *1a0002° 
DC XL 3* 3ac298° 
pc XL3*1Aa0002¢ 
pc XL3*3AC258" 
pc XL3*120C02* 
Dc XL 3* 3aC238° 
pc XL3*1A0002¢ 
pc XL3*3aC21C? 
pc XL 3* 129002! 
DC XL3*3AC21~a° 
Dc XL3* 10002 
Dc XL3*3aC219° 
DC XL3* 1A0002* 
Dc XL3*3AC218* 
eS XL2* 2A170° 
DC XL3*1AQEO1* 
pc XL3* 7A0003* 
DC XL3*1AFFO3* 
pe XL3* 1A000a* 
pc XL2*2a008 
DC XL 3* 1A0001* 
DC XL1*438 
pe AL 2 (RAPT) 
pc AL2 (SHED) 
DC XL1*40# 
DC XL 1°02? 
DC XL3*525E66° 
pc XL2* 22108 
pe XL1#22° 
DC XL3* 1AC00B* 
DC XL3*3ac2198° 
DC XL3" 1A0E01° 
DC XL2*2A117°* 
pc XL3* 1AFFO1® 
pc XL3*1a0006" 
DC XLS*4EOA000000° 
Dc XL3*1AQ00E* 
DC XL3* 3ac218° 
pc XL3"1A0E01* 
pc XL3* 140001° 
pe XL3"VAFFO1* 
DC XL3* 1004018 
pc XL3"1A0007° 
pc XL 3* 1AFBO1* 
Dc XL3*1AF601° 
DC XL2* 2a 10° 
01350170 O1HAR71 
571524 571573 


PART WO. $129611 
PAGE 6: 


SEI BUSY ERROR 
1@ BYTES 0 


ADR BAEK 
2 BITES 0 
ADR BARK ASG BIT 1 
2 BYTES 0 
ADE HABK ASG 
2 EYTES 0 
ADE HARK ASG AB BIT 2 
2 BYTES 0 

ADR BARK SSG AB BIT 3 
2 EYTES 0 

ADR BARK EXTRA 
2 BYTES 0 

ADR MARK EXTRA 
2 BYTZS 0 

ADR BARK EXTRA 
2 BYTES O 

ADR HARK EXTEA 
2 EYTES 0 

ADA BARK EXTRA 
2 BYTES 0 

ADR HARK EXTRA 
2 EYTES O 

ADR EARK EXTRA 
2 BYTES O 

A EH EXTRA AB IT & 

2 BYTES O = 

RDR HARK EXTEA AB BIT 

2 BYTES 0 

BDREARK BISSIEG A # BIT 
2 BYTES 0 

ADESERK HISSING AB BIT 
2 BYTES 0 

GOOD AA 

SEIT BUSY KO ERROR 

SYBC CHAR 

ID S//1// 

ID cc 

POST ID 

SET HOT BUSY HO ERROR 


ASG BIT 0 


BIT 6 


BIT 2 
BIT 3 
BIT 4& 
BIT 5 
BIT 7 
A& BIT 


AB BIT 


ERANCH TO REXT ROUTINE 


2 osc 

RESET 

SET BUSY WO ERROR 
IEITIALIZE SET TO 8 
11 BYTES 0 

GOOD 4AM 

SYNC CHAR 

SET BUSY AND ERROR 
1ST BYTE ID FF 

6 BYTES O 

TEST STATUS 

14 BYTES O 

GOOD AS 

SYNC CHAR 

FLAG 

CYLINDER 

SECTOR 

CC CHAR 

CC CHAR 

ECA 

SET BUSY HO ERROR 


PkOG ID OA01-5& 
PAGE 6k 


a a nO ee 


(2 


vr, 


Nat 


3 


F sais 
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IBM MAINTEWANCZ DIAGHOSTIC PROGRAN 


A014 
ERR LOC 


1S FF 
1602 
1605 
1608 
1608 
160D 
160E 
16 10 
1611 
1614 
16 16 
1617 
16 TA 
161D 
1620 
4623 
7625 
1628 
16 2B 
162E 
1630 
. 1633 
1636 
1639 
16 3C 
163F 
1642 
7645 
1648 
1645 
164E 
1651 
1654 
1657 
165A 
165D 
1666 
1663 
1666 
1669 
166A 
166C 
166F 
1672 
1675 
1678 
1678 
167E 
1680 
1683 
16848 
1686 
1688 
1689 
168A 
168D 
16 8F 
1690 
1693 
1696 
1639 
169C 
169F 
16R2 
16A4 
1647 
1GAA 
1G6AaD 


DATE 
EC KO. 


FILE CONTROL UNIT FLT SECTION 1 


OBJECT CODE 


1A000E 
WAODEOT 
TAFF3F 
16FF 
TAEFG1 
06 
1FiF 
26 
1R00CO0 
16EF 
26 
TAFFO1 
VAEFO1 
1A0001 
120014 
E010 


TACOOA 


3AC218 
1R80E01 
8410 
TA000A 
3AC218 
1A0E01 
1A0001 
JAFFO1 
1A2801 
720001 
TAD701 
TAFSO1 
JAOOCE 
TAOAO1 
120601 
TA8EO1 
TRHEO 
VA2EO1 
IA1E01 
TROFO1 
1A0EO1 
1R0008 
06 
1EEB 
TAQEO1 
TAOOFS 
TAFFO1 
JAF101 
1AFCO1 
TA000E 
2400 
1A0001 
aA 
OAF?7 
1688 
40 

02 
525866 
2410 
22 
TAOOOB 
3AC218 
1A0EO1 
1A0003 
IAFFO3 
140005 
4010 
140000 
146029 
3aC218 
TR0EO1 


OZ2MAR7TO 
577512 


ADDR 


1601 
1604 
1607 
1609 
160C 
160D 
160F 
1610 
1613 
1615 
1616 
1619 
161C 
161F 
1622 
1624 
162 

1628 
162D 
162F 
1632 
1635 
1638 
1638 
163E 
1641 
1644 
1647 
168A 
164D 
1650 
1653 
1656 
1659 
165C 
165F 
1662 
1665 
1668 
1669 
186B 
166E 
1671 
1674 
1677 
167A 
167D 
167F 
1682 
1683 
1685 
1687 
1688 
1689 
168C 
168E 
168F 
1692 
1695 
1698 
1695 
169E 
16A1 
7643 
1626 
1629 
16AC 
16AF 


OVAPR7O 


STMT SOURCE STATESERT 


802 
803 
804 
805 
806 
807 
808 
809 
810 
611 
812 
813 
814 
815 
816 
817 
878 
819 
820 
821 
€22 
823 
824 
825 
826 
827 
828 
8239 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
B45 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 


ROT 
RUNT 


OGHAY79 
571573 


Dc 


01JUL70 
571524 


XL 3*1A000E" 
XL3* 1A0 501° 
XL3*1APF3F! 
XL2"16FF¢ 
XL3* TAEFO1! 
XL1'06¢ 

AL 2 (BARN+63) 
XL1*26° 
XL3"1A00CO0! 
XL2"16EF* 
XL1°26! 
XL3"1AFFO1! 
XL3*1AEFO1' 
XL 3* 1A0001° 
XL3*1A0014" 
XL 2*E010° 
XL3°72000a! 
XL3* 3aC218° 
XL3"1A0E01! 
X22°4410! 
XL3*1A000A' 
XL3"'3AC218! 
XL3*1A0E01* 
XL3* 100018 
XL3*1AFFO1" 
XL3*1A2801° 
XL3*"1A0001° 
XL3 *1AD701° 
XL3' 1AF501! 
XL3"1A000E* 
XL3*1A0A01" 
XL3*7A0601' 
XL3' 1ABEO1! 
XL3*1A4EO1! 
XL3'1A2E01° 
XL3*1A1E01° 
XL3"'1A0F01! 
XL3"'7A0 E01! 
XL3"1A000B" 
XL1 #06! 

AL 2 (BARN+11) 
XL3*1A0E01! 
XL3'1A00F4! 
XL3*1AFFO1! 
XL3"1AF101° 
XL3"1AFCO1! 
XL3*1A000E! 
XL2' 2,200! 
XL3*1A0001' 
XL1°Ga* 

AL2 (RAST) | 
AL2 (RUNT) — 
XL1*°40¢ 
XL1"02* 
XL3'525E66! 
XL2'2A10° 
XL1"22* 
XL3*1A000B¢ 
XL 3" 3ac218° 
XL3*1A0EO1! 
XL3' 140003! 
XL3'1AFFO3° 
XL3* 140005? 
XL2"80108 
XL 3* 1400008 
XL3*140029° 
XL3* 3ac218! 
XL3*1A0E01" 


OINAR71 
571573 


PART BO. 


$129611 
PAGE : 7 


14 BYTES 0 

SYNC CHAR 

63 DATA CHAR*S FF 
COMP DATA CHAR FF 
1 DATA EF 

COMP DFDR 


RESET DFDR 

192 BYTES 0 

COMP DATA CHAR 00 

RESET DFDR 

CC CHAR 

CC CHAR 

BCA CHAR 

14 BYTES 0 

16 WR OSC AND INDEX 

10 BYTES 0 

GOOD AB 

SYNC CHAR 

16 SEP CLK +DATA CYC IH 
10 BYTES O 

GOOD A A 

SYNC CHAR 

1 BYTE 0 

1 BYTE FF ID C BYTE 

1 BYTE 28 S 3] ) 

1 BYTE 0 CC1 

1 BYTED7 CC2 

1 BYTE FS BCA 

14 BYTES O 

TEST SYNC CHAR RECOGRITIOR 
TEST SYNC CHAR RECOGNITION 
TEST SYNC CHAR RECOGNITION 
TEST SYNC CHAR RECOGNITION 
TEST SYNC CHAR RECOGNITION 
TEST SYNC CHAR RECOGNITION 
TEST SYNC CHAR RECOGNITIOB 
TEST SYNC CHAR RECOGNITION 
11 BYTES O 

COMP DFDR 


1 OF TESTS NO ADV OF CCR RING 
244 BYTES O 

1 BYTE FF 

1 BYTE F1 

1 BYTE FC 

14 BYTES 0 

SET IND BUSY OFF ERROR OFF 

1 BYTE O 

BRANCH TO WRITE DATA 


WRITE DATA ROUTINE 
2 OSC 

RESET 

SET BUSY NO ERROR 
INITIALIZE SET TO 8 
11 BYTES O 

GOOD AS 

SYNC CHAR 

3 BYTES 0 ID 

3 EYTES FF IDCC 

5 BYTES 0 TO PREDATA 
16 osc 

256 BYTES OSC 

TO AS TINE 

GOOD A# 

SYNC CHAR 


FROG ID GADT~4 
PAGE 7 


& a 
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a014& 
ERR LOC 


16B0 
1683 
16B8 
16BA 
T6BD 
16BF 
16C2 
16C7 
16C9 
16CC 
16CD 
16CF 
16D1 
26D2 
16D3 
16 D6 
16D8 
16D9 
16DC 
16DF 
16E2 
16E4 
16E7 
16EC 
162F 
16F2 
16F7 
16FA 
16FD 
1700 
1703 
1706 
1709 
1708 
1711 
1716 
1719 
I7IC 
171F 
1721 
1723 
1728 
1728 
172C 


17 2E 
4730 
1731 
1732 
1735 
1737 
1739 
173B 
173C 
173E 
1740 
1743 
1746 
1749 
174B 
VINE 
41751 
1754 
1756 
1753 
175C 
175F 
1760 


DATE 
EC WO. 


OBJECT CODE 


120003 
4%£00000000 
2ai1 
TAFFO3 
2A11 
TAFFO4U 
4E24000000 
2Aa01 
130001 

aA 

0B15 

16D1 

40 

02 

525866 
2410 

22 

TA000B 
3AC218 
1A0E01 
2ai1 
TAFFO1 
§E£02900000 
140002 
TAFFO1 
4E020000C0 
1A0901 
TAFIO1 
TACOOE 
3aC218 
1a0E01 
1A0004 
4E02000000 
140003 
4EOA000000 
TROOOE 
3AC218 
TA0E01 
2411 

2416 

4E0A 040000 
120000 

UA 

OADS 


1730 
20 

03 
525566 
2E01 
8001 
coos 
1E 
coop 
2A10 
TAOOOA 
3AC218 
1A0E01 
4410 
1A000A 
3AC21C 
IAOEO1 
2A11 
IAFFO1 
740001 
1A0002 
OA 
IPE 


O2HAi70 
571512 


QIAPRIG 


ae ee & oto .@. Pa ©. 2 es ©. =e @ “ @ ahs © ete @ Bah sie ©. 


IBS HAINTENANCE DIAGNOSTIC PROGRAS 


“~ 
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iaee 
ao 


FILE CONTROL UNIT FLT SECTION 4 


ADDS STMT SOURCE STATEMENT 


1682 870 pc 0 s«XL3*1a0003° 
16B7 871 EBC  XL5*#EG00000C0® 
16B9 872 DC 8 «XL2 *2a71° 
16BC 873 pc XL3* 1AFFO3* 
16BE 874 pC «XL2*2a11° 
16C1 875 DC 0s«éXL3" 1AFPOS* 
16C6 876 DC —«- XLS. *4E24000000° 
16c8 877 DCs XL2*2a01° 
16CB 878 pcs XL3* 1A0001° 
16CC 879 pc 8 s«XL4 "wat 
16CE 880 pe AL2 (VASE) 
16D0 881 KOPE DC AL2(HONE) 
16D1 882 NONE DC XL1"4O® 
16D2 +883 oe XL 7°O02¢* 
16D5 884 DC —-_- XL "525 B66* 
16D7_ 885 DC = XL2" zA10? * 
16D8 886 pe 8 «xXL17*228 
16DB 887 pc XL 3' 120008 * 
16DE 888 pc XL3*3ac218* 
16E1 889 DC -—-« XL3* 1A0£01° 
16E3 890 pc 8 s«XL2*2a117° 
1656 891 pc XL3* WAFFO1® 
16EB 892 DC  XL5*4£02000000° 
16EE 893 pC 8s XL3" 1400028 
16F1i 894 pc XL3*1A7FO1* 
16F6 895 DC = XL5*4E02000000° 
16F9 896 Dc XL3*1A0001° 
16FC 897 DC —-s«sXL3* 1AF701° 
16FF 898 DC =—- XL3"° 1A000E* - 
1702 599 DC 8—« XL3 *3aC218* 
1705 900 DC —_- XL3" 1A0E01* 
1708 901 DC XL3 *720:-08° 
170D 902 DC —-« XLS" GEG_900000° 
1710 903 DC 0s XL.3* 1400038 
1715 904 DC —-« KL5 "4 BOA000000* 
1718 905 DC —- XL3* 1A000E* 
171B 906 DC —s«XL3*3aC218° 
I71E 907 DC —«- XL3* 1A0E01* 
1729 9308 Dc XL2*2A17* 
1722 909 DC —« XL2* 2416! 
1727. 910 DC —«- XLS *G@EOa040000° 
172A (911 DC —-_—« XL" 120000" 
1728 912 DC «XL1¢G a! 
172D 913 DC AL2 (RAFT) 
914 *##*4*844¢*READ DATA DISG CLOCK STEP 
172F 915 CAT DC AL2 (TOR) 
1730 916 TOR DC  XL1*4OF 
1731 917 De XL17*03° 
1734 918 DC —«- XL3"5 25 E36" 
1736 919 DC = XL2*2E07* 
1728 920 DC —_- XL2* 80017" 
173A 921 pcs XL“2"C005* 
173B 922 DC «xXL1*1E* 
473D 923 bc XL2*coOoD* 
173F 924 DC —_- XL2*2A10° 
1742 925 DC —-—s XL3* 1a000a" 
1745 926 DC —-« XKL3" 3AC218° 
1783 927 DC —- XL3 "1A E01° 
174A 923 Dc XL2*a410* 
174D 929 bc XL3*1A000A* 
1750 930 DC —-«xXL3* ac21¢* 
1753 931 DC =—- XL3 "1AG EO7* 
1755 932 Do «XL2" 2a11* 
1758 933 BC XL3*1aFFO%* 
175B 934 BC XL 3° T200074° 
17SE 9335 bc XL3* TEOGEZ* 
1ISF 936 pe «XL 1*OR* 
1761 937 bc AL2 (AERE+ 3) 
O6HAY70 O1JUL70 O1MRR74 
571513 571528 SFISRs 


PART #0. 


3129611 
PAGE 7a 


3 EYTES O ID FORCE MISSING AB 


SET BUSY OM ERR OF 

3 BYTES FF IpDcCc 

SET BUSY ERROR O8 

& BYTES FF POST ID DEC 1 

TEST STAT MISSING AM BO REC PHD 
SET BUSY OFF ERROR O8 

1 BYts 0 


BRANCH TO WRITE ID PT 


BEAD DATA 1 PARA 

2 ose 

RESET 

SET ISD BUSY OB ERROR OFF 
INIT SET TO 8 

11 BYTES 0 

GOOD A & 

SYuc CHAR 

SET IND BUSY ERR 

7 sBYTE FF ID TREK CD CBX 

TEST STATUS 
2 BYTES O ID 
1 BYTE FF CC CHAR 1 

CC CHAR 2 
cc CBRAR 3 


1 BYTE 0 

1 EYTE F7 
14 BYTES 0 
GOOD AB 
SYKC CHAR 
4BYTES ID AXD 1 CC 

STAT TRK CORD 

3 BYTES 0 
STAT TRK CD A3SS A @ DATA CK 
18 BYTES 0 

GOOD A A 

SYEC CHAR 

SET IED KOT BUSY ERROR 

22 OSC WITH 18H DATA CE REQ 


2 BYTES 0 
ERABCH TO READ DATA 2 


PURCTION TEST 89 8tdee8tt6¢8 


READ DIAG PARA 

TESTS ABSENCE OF SET TO 8 
RESET 

TEST SENS 

1 INDEX 

5 INDEX AND OSC 

IND INITIALIZE TO BRO DEC 1 
13 IND AKD OSC TO BR 6 
SEI BUSY OM ERROR OFF 

10 BYTES 00 
GOOD AS 

1 SYNC CHAR 

16 OSC AKD INH DATA CY REQ 
10 BYTES 00 
SAD ABS 
SYHC CHAR 

SET BUSY OB ERR OF 


PHOG ID GEOtH& 
PAGE 78 
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IBM HAINTENANCE DIAGNOSTIC PROGRAN 


aAgts 
ERR LOC 


1762 
1763 
1765 
176A 
176D 
176F 
W772 
1778 
1777 
772 
V77D 
VITE 
1780 
1785 
1788 
T7848 
178D 
4790 
1792 
1793 
1795 
1798 
1792 
179D 
1740 
17A3 
T7A5 
T7A6 
T7A8& 
17Ak3 
T7AD 
V7B2 
T7B4 
17B6 
T7B9 
T7BE 
17BF 
171 
37C3 
17¢c4 
17¢5 
17C8 
T7Ch 
17¢Cc 
TICE 
17D0 
17D1 
17D3 
17D6 
17D7 
17D9 
17DC 
T7DD 
17DF 
VTEY 
V7E7 
17E8 
T7ER 
17EB 
I7EE 
17F 1 
47F3 
T7F6 
T7F38 
T7¥FD 
1800 
1801 
1803 


DATE 
EC WO. 


PILE CQNTROL UNIT FLT SECTION 4 


CRIECT CODE ADDR 
OE 3762 
1803 T7648 
Y¥EOEOOO000 1769 
3ac318 476C 
2Aa70 T76E 
TAOEO1 1771 
2A11 1773 
VAFFO1 4776 
180001 19779 
TA0u01 177C 
OE 177D 
1803 177F 
4#EOEO00000 1784 
3A8378 1787 
2410 1789 
VAOFO1 178¢ 
7AR0003 178F 
2414 4791 
OE 1792 
4803 1795 
3AC218 4797 
2A10 1799 
TAQEO1 179¢C 
TA0002 179F 
120401 17A2 
2411 17a 
OE TTAS 
1803 7A? 
TA0002 T7AA 
80071 T7AC 
4EOc000800 1751 
£003 17B3 
2401 17B5 
120001 17B8 
4E0C200000 17BD 
UR 17BE 
OB3D 17C8 
17¢3 1702 
40 17C3 
03 17C4 
52S5E66 17C7 
2410 17c9 
2E01 17CB 
8001 17CD 
£005 17CF 
TE 47D0 
400D 17D2 
720038 17D5 
OA 17D6 
TFE& 17D8 
1a0010 17DB 
OA T7DC 
TFET I7DE 
0210100016 17E3 
TAOCOO 4I7EG 
06 TVET 
TEEO I7E9 
3E 17EA 
1a9G00 47ED 
7A0000 47F0 
E016 VIF 2 
TADO04 47F5 
2800 VIF? 
O2701004FF WFC 
1a0003 Y7FF 
42 1800 
0B5B 4802 
06 1803 
O2MAR70 OTAPR70 

571512 §71516 


STHT SOURCE STATEBENT 
938 Dc XL1T°OE! 
939 Dec AL2(OBOE} 
940 pc EL5 '4 E0E0900005 
941 DC XL3" 3aC318° 
942 pc XL2 424108 
943 De XL3°1AR0E01° 
98a Dc XL2 "21175 
945 pe IL3" VAFFO1? 
946 pc XL3 *720001° 
947 pc XL3" 7A048018 
S48 Dc XL1°OE# 
949 Dc AL2 (OBCE) 
$50 Cc XL5"4&EOEON0000! 
951 pe XYL3*3A8318° 
952 pc XL2*2a108 
953 pc XL3*1A0 £01? 
954 pc XL3* 140003! 
955 DC XL2*2A11? 
956 Dc XL1*°OE? 
957 pc AL2 (OBOE) 
958 pc XL3*3AC218! 
959 Dc XL2'2A108 
560 pc XL3"1A0E01° 
961 Dc XL3* 140002! 
962 pc XL3*17A0401! 
963 Dc XL2*2a11! 
968 c XL1°O0E* 
965 DC AL 2 (OBOE) 
966 pc XL3"1A0002! 
967 pe XL2"8001° 
$68 DC XL 5*4ENCO00800! 
36S pec XL2*E003' 
370 DC XL2'2a018 
971 pe XL3*140001° 
972 DC XL5"*4E0C2000008 
973 Dc XLi'gat 
974 Dc AL2 (SOFT) 
975 TROT DC AL2 (TREK) 
976 TREX DC XL7*40! 
977 DC XL 1°03" 
978 pc XL3 *525E66° 
979 DC XL2'*2A10! 
380 DC XL2*2E01! 
981 DC XL2*8001! 
982 DC XLZ2"E005# 
$83 DC XL 1! 1E*. 
988 pe XL2"*4O00D! 
985 Dc XL3* 120038! 
986 pc XL1°OaA? 
987 DC AL 2 (ARNE#*3) 
988 DC XL3* 120010" 
989 DC XL1"OA? 
390 DC AL 2 (ARNE) 
391 pc XL5 '0216 1000 16° 
992 pe XL3* 140000! 
993 DC XL1°06! 
994 pc AL 2 (BARN) 
995 DC XL1*3E° 
396: pC XL3*140000! 
997 Dc XL 3*71A00008 
$98 pc XL2*E0108 
339 DC XL3*1A00088 
1000 bc XL2*2A00° 
1001 DC IL5°02701004FF* 
1002 DC XL3 #1400035 
1003 ac XLU°uqe 
1008 Dc AL2 (FILET) 
1005 OBOE DC XL1° 06? 
O6MAY70 01350170 018aR71 
571513 571528 571573 


cee ee ee 


PART NG. §$129671 
PAGE & 

GO TO ALT PARA FOR 

DIAG IDCC TO POST DATA 

TEST STATUS 

BAD AB 

SET BUSY ON ERROR OFF 

SET BUSY ON ERR OF 

ONE BYTE FF 

1 BYTE 00 

1 BYTE 04 

GO TO ALT PARA FOR 

DIAG IDCC TO POST DATA 

TEST STAUUS 

EAI AS 

SET BUSY ON ERR OFF 

SYNC CHAR 

3 BYTES 00 ID 

SET BUSY ON ERR OW 

GO TO ALT PARA FOR 

TIaG IDCC TO POST DATA 

GOOD ABS 

SET BUSY NO ERR 

SYNC CHAR 

2 BYTES 00 

1 BYTE 04% 

SET BUSY ON ERR ON 

GO TO ALT PARA 

DIAG IDCC TO POST DATA 

IWO BYTES 0 

3 INDEX AND OSC 

SEI BUSY OFF ERROR OB 

7 EYTE 00 

RESET 

SET BUSY, NO ERROR 

TEST SENSE PROBES 

BRANCH TO HEXT ROUTINE 
PROG ID OA0T-4 
PAGE 8 
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ERR LOC 


) 


1808 
4806 
1807 
1809 
180C 
180F 
4812 
1815 
1818 
181B 
481E 
181F 
1821 
1822 
1823 
1825 
1827 
1828 
182D 
4830 
1832 
1835 
1838 
183B 
183E 
1841 
& 1844 
i 1846 

1847 

1848 
1849 

18uC 
G 184E 
2 184F 

1852 

4853 
& 1854 

1856 

1859 
3 485C 
185F 
1862 
1865 
1866 
1868 
1869 
186A 
186C 
186F 
1872 
1875 
1878 
1878 
187C 
187E 
187F 
1680 
1882 
4885 
1886 
1887 
1889 
1882 
188C 
188F 
4892 
1893 
1895 


¢? 


) 


O 


w 


Q O88 @ OO 9 © 


Q 


DATE 
EC WO. 


IBN HAINTEBARCE 


OBJECT CODE 


FEEO 
OA 
TPER 
FAFFOS 
1A04801 
TA F601 
1a000C 
1A0E01 
120000 
TA0074 
OB 
TPE 
12 

3A 
cz18 
2A 10 
TA0EO 4 
1200902 
1A5891 
2aTi 
TAFFOW 
TAABO1 
TAFCO2 
71200170 
TAOEO1 
130000 
1609 
12 

40 

02 
525866 
2:A10 
22 
120008 
42 

TA 
0E01 
TA0OO2 
1A 54904 
TAPFO1 
TAABO 
VAFCO1 


TAFDO1 
1A0GOE 
06 
1EEO 
12 


028..276 
571512 


ADDR 


7805 
F806 
1808 
180B 
18CE 
1811 
18348 
1817 
iBiA 
18 4D 
T61E 
7820 
1824 
1822 
7824 
7826 
1829 
¥82C 
T82F 
1831 
1834 
1837 
T83A 
183D 
1840 
1843 
1845 
1846 
1847 
1848 
T84B 
e4b 
TB4E 
1851 
1852 
1853 
1855 
1858 
1858 
185E 
1861 
18648 
7865 
1867 
1868 
1869 
186B 
786E 
1871 


1878, 


1877 
TB7A 
1678 
487D 
1B7E 
i87F 
7887 
1888 
1885 
1886 
1868 
1889 
1868 
1682 
1891 
1892 
7894 
1895 


O1APR7O0 


DIAGNOSTIC PEOGRAS 


FILE CONTROL OWRIT FLT SECTICH 4 


STHT SOORCE STATENENT 


1006 

1067 

1008 

1909 

1010 

10171 

1012 

1013 

1074 

1015 
1016 
1017 
1018 
1019 
1020 

1021 

1022 
1023 
1024 

7025 
1026 
1027 
1028 
1029 
1030 
1037 

1032 
1033 
1034 
1035 
1036 
1037 
1638 
1039 
1040 
1081 
1042 
1043 
1044 
1085 
1046 
1047 
1048 
1049 
1950 
1051 
1052 
1053 
1054 
1055 
10656 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
3065 
1066 
1067 
1068 
7106S 
1070 
1071 
1072 
1073 


FLO 


ISP 


URE 


ALICE 


PORY 


FOLKS 


O6NAY70 
571513 


pc AL 2 (BARB) 
DC XL1°OR* 

DC AL 2 (ARNE*3) 
pc XL3* 1aFPFOT® 
pc XL3°1a0401° 
DC XL3°1AF60%° 
pc XL3*1Aa000C* 
pc XL3* 1A0E01° 
Dc XL3*1Aa0000° 
pc XL 3° 1A0074° 
Dc XL1°Oa? 

pc AL2 (AR HE) 
pc XL7°72° 

pc XLi*3a° 

pc XL2°C218! 
DC XL2*2a10° 
pc XL3*1A0EO 1° 
DC XL3*1A0002* 
Dc XL3 °1a5401° 
cc XL2*2a11* 
DC XL3*1AFFO1* 
pC XL 3° 1AAB01* 
dc XL3*1APCO2* 
Dc XL3*1a0010° 
pc XL3*1A0E01* 
bc XL3*1A0000* 
oc XL2°1600* 
pc XL1#12° 

pe XL1°40? 

pc XL7*028 

Dc XL3*525E66° 
pC =. XL2*2A10* 

DC XL7*228 

DC ©XL3*1A000B* 
pCO «XLW*°128 

pc XLi* 1a? 

a XL2*OEO1* 
pc XL 3* 1300028 
pc XL3*1A5401# 
DC XL3"1APFO1* 
DC XL3 *1AABO1* 
pe XL 3* 1AFCO1* 
pc XL1"'Oa! 
rec AL 2 (ARBE: 3) 
DC - XL1#128 
Te XL1°1a° 
pc AL2*OEO1* 
DC XL3 *1A20002° 
DC XL3*1A5801° 
DC XL3*1AFFOV® 
pc XL3*1aa7018 
DC XL3 *1AFCO1* 
pe XL17°Oa* 

DC AL2 (ARHE*+3) 

pC XL1°12¢ 

Dc XL7°1A* 

pc XL2*0010! 

DC XL3* 1A0E07" 

DC XL3212° 

ne KL? 4a 

DC XL2'FFO1! 

DC 2L7°06 

Dc 2RL2(BARH4#256} 

DC XL3'1AFDO1! 

BC XL3* 1A000E* 

DC XL1°06* 

pe AL 2 (BARR) 

pc XL3°12! 
01JUL70 01MAR71 
571524 571573 


ew tae HT ae ee 


PART BO. 5129611 
PAGE 83 


COSY DFCE 


cc i 
cc 2 
cc 3 
42 BYTES 06 
1 BITE O£ 
256 EYTES 00 
20 BYTES 00 
COBP DFCB 
cone 
REIORN TO B&JOR PARES 
ALT PARA FOR AH THEU DATA 
GOOD AS 
EUSY ON ERROR OFF 
SYBC CHAR 
2 BYTES 0O ID 
1 BYTE 5S& 
SET BUSY AHD ERRCE O8 
1 BYTE FF 
1 BYTE AB 
2 EYTES FC 
16 EYTES 00 
SYKC CHAR 
256 BYTES 00 
COMP DaTa 
RETUEN TO H&JOB PARA 
BLITPARA FOR IBIT SET TO 8 #/O SES 


RESET 

SEIT BUSY EO ERROR 
SET TO 8 INITIALIZE 
71 BYTES 00 

RETURN TO SAJOR PRKRA 
ALT PARA FOR ODD ADDEESS 
SYUC CHAR 

2 BYTES 00 

1 BYTE 5& 

1 BYTE FF 

1 BITE AB 

1 BYTE FC 

COsP DFCR 


BETUEN TO SAJOR PARA 
ALT PARA FOR EVES ALDR 
SYuC CHAR 

2 EXYTES 00 ID 

1 BYTE 58 

1 BYTE FF 

1 BYTE a7 

i BYTE FC 

COMP DFCE 


RETURN TO HAJOER PARA 

ALZ PARA FOR POST ID AND PRE DaTA 
16 BYTES 00 

SYNC CHAR 

BETGRE TO HaJOR PBRS 

ALT PARA FOR DATA CC 243 , POST DAT 
1 BYTE FF 

CORP DFDR 


1 BYTE FD CC3 
44 BYTES 00 POST DATA 
COMP DFDE 


RETORE TO H&JOR PREA 


PROG XID 


0201-8 
PAGE 8A 





inate 
» 


ww 


ae aig en 


: . # wet 
- ne Vaal ar Sat ment! te amet we anaemia ne Rem ene oo a ee 


IBM MAINTENANCE DIAGNOSTIC PROGRAS 


aois 
ERR LOC 


1896 
1896 
1899 
189A 
189C 
189E 
18A1 
18A3 
18A5 
18A6 
18A8 
18AB 
18ac 
16AE 
18B1 
18B2 
18B4 
18B5 
18B7 
18B9 
T8BA 
18BC 
18BF 
18C2 
18C5 
18C8 
18CB 
18CE 
18D1 
18D4 
18D7 
18D9 
18DB 
1EDE 
18E1 
18E2 
18E4 
T8E6 
18E9 
18EB 
T8ED 
18EF 
18F% 
18F3 
18F6 
18F9 
18FC 
18FF 
1902 
7905 
1907 
190A 
190D 
1910 
1913 
1915 
194A 
19 1D 
IDE 
1920 
1922 
1923 
1925 
1928 
1929 
1928 
192C 
192E 


DATE 
EC NO. 


OBJECT CODE 


1898 
FO 

07 
2E01 
2A10 
JAFFO1 
8001 
E005 
1E 
coop 
140020 
OE 
1822 
7A0025 
OE 
1822 
4A 
12c4 
18B9 
OE 
7847 
3AC218 
TAOEO1 
TAFCO1 
180301 
1A5801 
TAFCO1 
145301 
13 F401 
TAOOTYS 
E000 
2a 
180020 
3AC218 
OE 
4853 
2410 
4200171 
4008 
2E01 
8002 
2E00 
4006 
1A0000 
1A0014 
3AC218 
TA0E01 
¥A0002 
TA5401 
2471 
TAFFO1 
1AAB01 
1AFCO1 
120004 
2A01 
8E04000000 
1A0001 
QA 
0BC3 
1922 
OE 
1847 
3AC218 
OE 
71853 
OE 
TS7F 
1281201 


O2KARTO 
577572 


CTAPRT 
571576 


FILE CONTROL UNIT FLT SECTION 1 


tat Bote ne Ake et abe + ney Bae eras 


ADDR STST SOURCE STATEMENT 


1897 
1898 
1899 
1898 
189D 
1840 
1BA2 
T8A4 
18A5 
18A7 
IBAA 
18AB 
T8AD 
18B0 
18B14 
1853 
18B4 
18B6 
18B8 
18B9 
18 BB 
18BE 
18C1 
18C4 
18C7 
18CA 
t8CD 
18D0 
18D3 
48 D6 
18D8 
18DA 
18DD 
18=0 
18E1 
18E3 
18E5 
18E8 
18 EA 
T8EC 
18EE 
18F0 
18F2 
18F5 
18F8 
18FB 
18FE 
1901 
1904 
1906 
1909 
190C 
190F 
1912 
1914 
1919 
191C 
191D 
19 1F 
1921 
1922 
1924 
1927 
1928 
192A 
1925 
192D 
1830 


o 


1074 BLOB 
1075 BLOB1 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
7085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1704 
4105 
11706 
1107 
1108 
1109 
1110 
1171 
1112 
1113 
1174 
1115 
1116 
1117 
1118 
4119 
1126 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
17134 
1135 
1736 
1137 
7138 
1139 
TT40 
17141 


BLOT 
BLOT! 


BLAB 
ELAB1 


O6HAY70 
577513 


DC AL2(BLOB1) 
pc XL1* 50? 
DC XL1°07° 
Dc XL2*2E01* 
DC XL2* 210° 
DC XL3*7AFFO1! 
DC XL2*8001! 
DC XL2*E905* 
DC XL1°1E* 
Dc XL2*COOD* 
bc XL3*1A0020! 
Dc XL1°OE! 
Dc AL2 (FLO) 
pC XL3* 140025" 
pc XL1°0E? 
DC AL2 (FLO) 
DC XL1*GaA? 
pc AL2 (GOUT) 
pc AL2{BLOT1) 
DC XL1'OE* 
pc AL2 (IMP) 
Dc XL3*3aC218! 
DC XL3"1A0E01* 
Dc XL3"1AFCO1* 
Dc XL3*1A0301° 
Dc XL3*14A5801° 
DC XL3"1AFCO1* 
DC XL3"12a5501! 
pc XL3*1AF401° 
pc XL3* 1000148 
DC XL2*E000# 
pc KL2"2A11° 
pc XL3 "1400208 
ac XL3*3aC218! 
pc XL1'OE?* 
pc AL 2 (URR) 
DC =XL2*2A10+ 
pc XL3*1a00118 
pc XL2*8008" 
Dec XL2"2E01" 
Dc XL2'4002! 
Dc XL2*2E00* 
Dc XL2* 48006! 
Dc XL3"1A0000° 
pc XL3* 1a0014! 
Dc XL3*'3aC218! 
DC XL3"1A0F01! 
DC X13 *120002° 
pc XL3* 145401! 
DC XL2"2A11* 
Dc XL3"1AFFO1! 
Dc XL3"1AABO1° 
DC XL3* 1AFCO1® 
pc XL3 10004" 
DC XL2*2a01! 
Dc XL5 '4E08000000! 
pc XL3*1A0001° 
DC XL1"4at 
DC AL2 (SOLAR) 
pc AL2(BLAB1) 
DC XL1°0E! 
DC AL2 (IMP) 
DC XL3*3aC218¢ 
pc XLISOE* 
pc AL2 (URN) 
DC EL1° OE? 
Dc AL2 (PONY) 
DC XL3*4A72078 
O1JUL7O CIMAR?1 
577524 571573 


ee EAR ee et RR tee : 


PART HO. 


57296171 
PAGE 3 


7 OSC INDEX AND SEP CLK 
TEST NOT BIT RING O 

SEIT BUSY ON ERR OFF 

1 BYTE FF 

1 INDEX 

5 INDEX AND OSC AND SEP CLK 
INDEX INITIALIZE 

13 IND AND OSC TO BR 6 

32 BYTES 00 

GO TO ALT PARA FOR 


37 BYTES 00 
GO TO ALT PARA FOR 


GO TO NEXT ROUTINE 


GO TO ALT PARA FOR 


GOOD AS 

SYNC CHAR 
1 BYTE FC 
1 BYTE 03 
1 BYTE 53 
1 BYTE FC 
1 BYTE 5 B 


20 BYTES 00 

256 INDEX OSC SEP CLK 
SET BUSY AND ERROR OB 
32 BYTES 00 

GOOD A 

GO TO ALT PARA FOR 


SEIT BUSY NO ERROR 
17 BYTES 00 
8 OSC 
TEST SENSE PROBES 
2 osc 
TEST SENSE PROBES 
6 OSC 
256 BYTES 00 
20 BYTES 00 
GOOD AS 
SYNC CHAR 
2 BYTES 00 ID 
1 BYTE 54 
“SET BUSY AND ERROR OW 
1 BYTE FF 
1 BYTE AB 
1 BYTE FC 
4 BYTES 00 
SEI BUSY OFF ERR ON 
TEST STATNO REC FND 
1 BYTE 00 
GO TO NEXT ROUTINE 


GO TO ALT ROUTINE 


GOOD AA 
GO TO ALT PREA FOR 


SO TO ALT PARRA FOR 
1 BYTE 12 


PROG ID QAGT-4 
PAGE 3 


cee ree 
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IBH HAINTENANRCE DIAGROSTIC PROGRAS 


A014 
ERR Loc 


1931 
1938 
1937 
1938 
193A 
193C 
193F 
1940 
1942 
1945 
1986 
1948 
1949 
1948 
I94E 
1951 
19548 
1955 
1957 
195¢ 
195E 
1960 
1963 
1964 
1966 
1968 
1969 
196B 
196E 
196F 
3971 
1972 
1974 
1977 
197A 
197D 
197E 
1980 
1982 
1985 
1986 
1988 
198B 
198C 
19BE 
198F 
1994 
1994 
1997 
199A 
1998 
199D 
19A2 
19a4 
19A6 
19Aa9 
19AA 
19aC 
19AE 
19AF 
19B1 
19BYu 
19B5 
1SB6 
1968 
1339 
1SBB 
ISBE 


™! SOR 
QALE 


EC RG. 


FILE CONTROL UNIT FLT SECTION 1 


OBJECT CODE 


1AO0OFF 
TAEDO?1 
OE 
1886 
7A00 
100004 
06 
1EEO 
3AC218 


TAF901 
OE 
1886 
4£Z00000000 
7A01 
2A00 
WAFFO1 
QA 
OBE 
1968 
OE 
1847 
3aC218 
OE 
1853 
OE 
187F 
1A0601 
IA00FF 
1AFo91 
oe 
1886 
7A00 
TA0004 
06 
1EEO 
3AC218 


4£00000000 
7A01 
2400 
TAFFO1 
GA 
OBFF 
19AE 
OE 
1847 
3AC218 
26 

DE 
1853 


ADDR 


1933 
1936 
1937 
1939 
1938 
193E 
193F 
1941 
1944 
1945 
1947 
1948 
194A 
194D 
1950 
1953 
1954 
1956 
1958 
195D 
195FP 
1962 
1963 
1965 
1967 
1968 
196A 
196D 
196E 
1970 
1971 
1973 
1976 
1979 
197C 
197D 
197F 
1981 
1984 
1985 
13987 
198A 
198B 
198D 
198E 
1990 
1993 
1996 
1999 
199A 
199C 
79A1 
19A3 
1945 
1SA8 
19 B89 
19AB 
19AD 
ISAE 
19B0 
19B3 
19B4 
1985 
19B7 
1938 
13BA 
ISBD 
19Cg 


STMT SOURCE 


1142 
71483 
1144 
11405 
1186 
11487 
1188 
1149 
7150 
1151 
1152 
1153 
11548 
1155 
1156 
1157 
1158 
1159 
71160 
17161 
1162 
1163 
1168 
1165 
1166 
1167 
1168 
1169 
1170 
F471 
172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1781 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1795 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
4206 


BRAN 
BRAN1 


BIRD 
BIRD1 


Be eh ke ee ee tt Bh ey Ta Bees ray : wee 


we Bae ee 


sad RI Be me 


STATEREMT 
oc XL3°IVsA00FF* 
DC XL 3° 1AEDO1® 
pc XL1°OE? 
pc AL2 (FOLKS) 
pe XL2*7aA00* 
DC XL3*7a0008° 
pc XL 1°06 
pc AL2 (BARB) 
Dc XL 3* 3ac218°* 
pc XL1°OE* 

DC AL 2 (ALICE) 
pc XL1I*OE* 

pc AL2 (POBY) 
Dc XL3*1A0601° 
DC XL3*1A00FF* 
BC 1L3* 1AF9018 
DC XL1°0E* 

pc AL2 (FOLKS) 
pc XL5*8E09000000° 
pc XL2*7a01* 
DC XL2*2A00° 
DC XL3°1AFFO1* 
pc XL 1° 4a? 

pc AL2 (SOUSD) 
DC AL2 (BRANT) 
pc XL1°OE? 

pc AL2 (IMP) 

DC XL 3*3ac218* 
pc XL1"9E* 

DC Al 2 (UEM) 

Dc XLI*OE* 

DC AL2 (PORY) 
DC XL 3" 120601° 
DC XL3* 1A00PF° 
pc XL3* 1aF901° 
DC XL1*OE* 

2 gC ALZ (FOLKS) 
Dc IL2"*7a00" 
DC XL3*1a0008* 
DC XL 1"06* 

Dc AL2 (BABB) 
DC XL3* 3aC218° 
DC XL1°Oi* 

Dc AL2 (ALICE) 
DC XL1"OE* 

pc AL2 (PORY) 
DC XL3* 1817201" 
DC YL? *7A00FF* 
pc XL3* 1KEDO1* 
pc XL1*OE® 

rc AL 2 (FOLKS) 
Dec XL5*&E00000000" 
DC XL2*7aQ%* 
DC XL2* 2003 
pc XL3"1APF£01* 
DC XL1*aat 

DC AL2 (CLA) 
DC AL2 (BIRD4) 
Dc XL1°OE* 

DC ALZ (I BP) 

DC XL 3" 3aC218° 
Dc ¥L1°268 

BC XL 7*OE* 

DC AL2 {UBER} 

pc XL1°O¥? 

pc AL2(POHY) 
be EL3*TR7101# 


DC XL 3° 1RGOPF®* 
GPTIIL7TS CLEBE? 1 
577324 STISFS 


PART NO. 5129611 
PaGE 94 


255 BU 
1 BYTZ ED 
GO TO ALT ROUTINE 


TEST WOT SCAR 
& BYTES 00 
COBP DFDR 


FOUND 


GOOD AB 
GO TO ALT PARA FOR 


GO TO ALT ROUTINE 


1 BYTE 06 

255 BYTES 00 

1 BYTE F9 

GO TO ALT PABA FOR 


TEST STATUS 

TEST SCAN FOUED 
BUSY OFF ERROR CrFr 
1 EYTE FF 

GO TO HEXT ROUTIRE 


GO TO ALT RCUTIBE 


GOOD AS 
GO TO ALT PARA POR 
GO TO ALT PARA FOR 
1 BYTE 06 
255 BU 


1 BYTE F9 
GO TO ALT ROUTINE 


TEST EOT SCAE FOURD 
4 EYTES 00 
COMP DFDR 


GOOD AS 
GO TO ALT PARA FOR 
GO TO ALT ROUTINE 


1 BYTE 12 

255 BYTES 00 

1 BYTE ED 

GO TO ALT PARA FOR 


TEST STATCS 

TEST SCAN FOUND 
BUSY OFF ERROR OFF 
1 BYTE FF 

GO TO NEXT ROUTINE 


GO TO ALT ROUTIBE 
GOOD AS 

BESET DFDR 

GO TQ ALT PARA FOR 

GO TO ALT PARA FOS 


1 BYTE 47 
255 BB 


Oe tee ete sar das TB Tim eae a a a a nae ee te ae 
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“EBM MAINTENANCE DIAGNOSTIC PROGRAH 


“R018 = FILE CONTROL ONIT FLT SECTION 1 


ERR LOC 


19C1 
19C4 
19C5 
19C7 
19C9 
19CE 
19D0 
19D3 
19D4 
19D6 
19D8 
19D9 
19DA 
19DB 
19DD 
I9EO 
19E2 
19 E4 
19E6 
T9E8 
19EB 
IS9EE 


‘19FO 


19F3 
19F6 
19F9 
19FB 
19FE 
1401 
1A03 
106 
1409 
TAOB 
1A0E 
1810 
VA12 
1A14 
1A17 
1218 
1A1A 
IAVE 
TAIP 
1A23 


VaA25 
IA29 
TA2D 
1A31 
1435 
TA39 
1A3D 
TA4S1 
TA45 
TAKS 
TAaD 
1A51 
TASS 
JA58 
TASC 
1Aa60 
1A64 
1A68 
1A6B 
TAGP 
1A73 
1477 
1A7B 
lEkTP 


DATE 
EC NO. 


OBJECT CODE ADDR 
TAEEO1 19¢3 
OF 19¢4 
1886 1906 
7a01 19C8 
4£00800000 19CD 
2400 19CF 
JAFFO1 19D2 
ua 19D3 
0c1D 19D5 
19D8 19D7 
40 19D8 
02 19D9 
22 19DA 
2210 19DC 
1AFFO3 19DF 
40048 1951 
2E01 19E3 
802C_ 19E5 
202 19E7 
100008 19EA 
3AC218 19ED 
2210 19EF 
TA0E01 19P2 
120003 19F5 
1AFFOU 19F8 
6410 19FA 
1AFFOF 19FD 
1A0E01 1A00 
2400 1A02 
TAOCEO 1205 
iAFF11 1208 
2a00 TAOA 
1AFFO1 1A 0D 
8008 1A0F 
0001 1A11 
8001 1A13 
TAFFO1 1A16 
Ha 1417 
0c31 1A19 
cO 87 021A 

15 MATE 
CO 87 0222 

A001 1A24 
30 A2 12DB 

30 43 -12DD 

30 B2 1B21 

38 20 OAOE 

CO 710 1A9B 

3c 01 1B21 

38 40 1320 

CO 90 12EA 

3¢ 03 1821 

38 01 OA0C 

CO 10 1AEA 

38 02 OAC 

F2 10 23 

3c 07 1821 

38 08 12DB 

CO 10 1AEA 

38 01 12Dc 

F2 10 20 

3¢ 15 1B21 

3D C2 0200 

cO 81 1AEA 

CO 87 1BOB 

3¢ 0S 1B21 

38 08 12DB 

028AR70 O7APRT7O 
571512 571516 


STuT 


1210 
1271 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 


1232. 


1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
12484 
1242 
1283 
1244 
1245 
1246 
12487 
1248 
1289 
1250 
1251 
1252 
1253 


SOURCE STATEMENT 
Dec XL3* 1AEEO1* 
pc KL1°OQE? 
pc AL2 (FOLKS) 
pc XL2"*7a01# 
DC XL5*4E£008000008 
DC Xz 2* 2a008 
DC XL3*1AFFO1* 
pc XL1* 4a? 
DC AL2 (BRAND) 
HAND DC AL2 (HAXDS) 
HANDS DC XL1*90! 
DC XL1*02° 
DC XL1*22! 
pc XL2*2A10° 
pc XL3" 1AFFO3° 
pc XL2 *a004* 
Dc XL2* 2E01° 
pc XL2"402C* 
DC XL2*2E02! 
cc XL3* 100004 
Dc XL3 "3AC218" 
pc XL2*2A10* 
pC XL3 *1A0E01* 
pc XL3*1A0003" 
pc XL3 *1AFFO4* 
DC XL2"6410¢ 
Dc XL3 *1AFFOF* 
pc XL3* 1A0E01" 
DC XL2*2400! 
DC XL3" 1A00E0! 
DC XL3 *1AFF11° 
DC XL2*2A00! 
Dc XL3"1AFFO1! 
DC XL2* 8008! 
DC XL2*0001° 
pc XE 2¢80018 
DC XL3"1APFFO1' 
DC XL1* gat 
DC AL2 (YIRG) 
EXD B PRINT 
DC XL17#15° 
B HALT 
Dc XL2*Aa0018 
* CHECK UDT WITH SENSE STATUS FOR 


1254 GOOUT SNS KNIT-2,x*a2? 
1255 SNS  KWIT,X*A3* 
1256 SNS  FAR,X'B2?* 
1257 TBN UNB-1,X'20! 
1258 BT TST2 

1259 MVI FAR,X*O1* 
1260 TBN  FAR~1,xX*40! 
1261 BF SCREAM 

1262 MVI FAR,X*03* 
1263 TBN UNA,X*01* 
1268 BT SCREARS 

1265 VICY TBN  UNA,X"02° 
1266 JT VICKY 

1267 MVI FAR,X#O78 
1268 TBN KNIT-2,xX*O8? 
1269 Br SCREAK 

1270 DON TBH KNIT-1,X°01? 
1271 JT JERRY 

1272 NVI FAR,X*°15! 
1273 CLI SYSMOD,X'C2* 
1274 BE SCREAM 

1275 B ZCO 

1276 VICKY MMVI  FAR,x*05# 
1277 TBN KNIT-2,x"°08" 
O6HAY70 01J0L70 01HAR71 
571513 571524 571573 


PART HO. 5129612 
PAGE 10 


1 BYTE EF 
GO TO ALT ROUTINE 
TEST SCAN FOUND 

TEST STATUS EQUAL HY4 
BOSY OFF ERROR OFF 

1 BYTE FF 

GO TO NEXT ROUTINE 


READ VERIFY ROUTINE 
2 osc 
INIT SET TO 8 CHK 
SET BUSY ON ERROR OFF 
3 BYTES FF 
§ osc 

TEST noT CC 17 
84 osc 
TEST CC 17 AND BIT RING 9 
& BYTES 00 

GOOD Aa 
BUSY ON ERROR OFF 
SYNC CHAR 


IS BYTE 

SYNC CHAR 

256 SEP CLK AND IDC 
224 BYTES 00 

17 BYTES FF 

BUSY OFF ERROR OFF 
1 BYTE FF 

INDEX 

NO INDEX 

INDEX 

1 BYTE FF 

GO TO NEXT ROUTIRE 


PROPER CONFIGURATION 

SENSE STATUS 0 + 1 DRIVE 1 RES 
SERSE STATUS 2 + 3 DRIVE 1 RES 
SENSE STATUS 0 + 1 DRIVE 2 RES 


SEE IF B DEFINED IN DDT 

BR. IF YES 

SEE IF 3 READY 

BR. IF YES 

SEE IF HOD III DEFINED 

BR. IF YES 

SEE IF 190 CYL DEFINED UDT 

BR. IF YES 

SEE IF 100 CYL EN SHS 

BR. IF YES 

SEE IF MOD B OH IB SES 

BR. IF YES 

SEE IF HOD B DEFINED 

BR. IF YES 

SEE IF 100 CYL I8 SES 
PROG ID OA0T-4& 
PAGE 10 
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A074 
ERR LOC 


1A83 
1A87 
1A8B 
1A 8F 
1A93 
1497 
1A9B 
1A9F 
1AA3 
1AA7 
1AAB 
1AAF 
1AB3 
1AB7 
1ABB 
TABF 
1AC3 
TACT 
1ACA 
1ACE 
iAD2 
TAD6 
lADA 
1ADE 
1AE2 
1AE6 
IAEA 
1AEE 
1AEF 
1AFI 
1AF3 
1A¥7 
IAF9 
TAFB 
TAFD 
1301 
1B02 
1B03 
1805 
1B09 
1BOB 
1BOF 
1B12 
1B16 
1B18 
1B1Cc 
IBIE 
1B26 
1B22 
1B2A 
1832 
1B3A 
1B42 
IBSA 


8 


1B5S2 
1B56 
1B5A 
1BE0 
1B64 
1BS7 
1BEB 
TB6E 
1B72 
1P78 


Q @ 


Gd 


DATE 
EC NO. 


oe eo 9 


OBJECT CODE 


co 90 
co 87 
3C 16 
3D C2 
co 81 
co 87 
3c 09 
38 40 
co 10 
3c 10 
39 03 
co 90 
3¢ 12 
38 98 
co 10 
30 BA 1B21 
38 01 OAOF 
F2 10 10 
3C 14 1821 
38 80 1820 
CO 10 TAEA 
CO 87 1A64 
3C 13 1821 
38 40 1820 
CO 90 1AEA 
CO 87 1A64 
CO 87 O21E 
01 
1B21 
1BS1 
cO 87 
ci18 
1B39 
AUEA 
co 87 
03 

38 
1851 
co 87 
AOEA 
31 86 1B17 © 

F3 AO GO 

cO 87 0216 

1B78 

00000000 

0B39 

OAD1 

0000 
EGC4EZYOC4DECSE2 
SODSD6E340DAC 1E3 
C3C84 0E2C5SDSE2C5 
E2C5C540D7C 1¢- 7C5 
HOFSFSFOSOCEC3IES& 
HODUC IDTE2Z60E 7E7 


IAEA 
TA64 
1B 21 
02090 
1BOB 
1AEA 
1B21 
1320 
IAEA 
1B21 
Oa 0c 
TAEA 
1B21 
12DB 
IAEA 


O21A 


O21A 


0222 


34 08 
3c G4 
Oc 03 iB9D 
38 80 1395 
F2 90 O08 

38 80 IB9A 
F2 90 O48 

3A 80 4BA2 
OF 03 1599 
OF 03 1B9D 


1BS4 
TBAF 
¥2DD 


1B9S 
IB9D 


O2MAR70 
571592 


OTRPR7 
5771516 


TAEE 
1AFO 
iAF2 


VAF8 
APA 
TAFC 


1301 
TBO2 
TBO4 


TBOA 


1B17 
1B 1B 
1B1D 
IBF 
1B214 
1839 


1B51 


0 


IBS HAINTENARCE DIAGHOSTIC PROGRAS 


FILE CONTROL UNIT FLT SECTION 1 


ADDR STMT SOURCE STATEMENT 


5129611 
Oa 


PART 8O. 
PAGE 


BR. IPF NOT 

SEE IP HOD 8S DEFINED 

BR. IF YES 

SEE IF DRIVE 2 READY RES 
BR. IF KOT 

SEE IF ABY FEATURES DEFINED FOR A 
ER. IF ABBY 

SEE IF 100 CYL IB SgS 

ER. IF YES 

SENSE 0 ¢ 1 DRIVE 2 FIXED 
SEE IF SOD KIX DEFINED 

BR. I? YES 

SEE DRIVE 2 FIXED READY 
BR. IP KOT 

SEE IF DRIVE 2 FIXED READY 


ER. 


IF YES 


CL24*UBT DOES NOT BATCH SENSE* 


CL23*SZE PAGE 550 FCU MAPS-XzZ* 


SREEKSE CH THK ESSE SE SES HEKKS SS AST ISEKS SL SEKLHKSSKS SSKSSKSLS SAAS SESLESTSESSLSOKSESRSS 
* ROUTINE TO INCLUDE I CONT CARE BITS EITH EXPECTED BITS 
SESKETHTEKKESHEKSEAEL GSS $OKESCSS RSS SSE TLE RES SEKKS SET SSS LAS SSE OSHS ESS SD 
SAVE RETORE aLDRESS 

ZERO BIT COUNTER 


1278 BF SCREAB 
1279 B DON 
1280 JERRY VI PAR,X'16* 
1281 CLI SYSHOD,X*C2°* 
1282 BE zoo 
1283 B SCREAR 
1284 TST2 MMVI PAR,X*09* 
1285 TBN FAR-1,X'a0* 
1286 BT SCREAM 
1287 MVI FAR,X*10°* 
1288 TBF vUNA,X'03? 
1289 BF SCROAS 
1290 MVI FAP,X*12¢ 
1291 TBH KNIT-2,X*°08° 
1292 BT SCREAB 
1293 SNS FAR,X*BA‘ 
1294 TBN OUNB,X'O1* 
1295 Ry DICK 
1296 NVI PAR,x¢14° 
1297 TBR PAR-1,x°80° 
1298 BT SCREAB 
1299 B DOE 
1300 DICK sVI FAR,X*13° 
1301 TBN FAR-1,X'8O* 
1302 BF SCREAB 
1303 3 DOR 
1304 SCREAS B UNPACK 
1305 DC XL1*01° 
1306 Dc AL 2 (FAR) 
1307 DC AL2(ACID) 
1308 B PRIBT 
1309 DC XL2°C118* 
1310 Dc AL2 (UDTASG) 
1311 DC XL 2" AQEA® 
1312 B PRINT 
1313 DC XL1903* 
1318 DC XL1°16° 
1315 DC AL2 {ACID) 
1316 B HALT 
1317 DC XL2*a0Ea® 
1318 ZOO LIG  AZEROS,X*A6* 
13149 SIO x*00*,X*A0® 
1320 B LINK 
1321 AZEROS DC AL 2(ZEROS— 3) 
1322 ZEROS pc XL4& *00000000" 
1323 SATE 0c AL2 (SOFT-8)} 
1324 SAT pc AL2(RAFT—&) 
1325 FAR DC XL2*0060* 
1326 UDTHSG DC 
1326 
1326 
1327 ACID pc 
1327 
1327 

) 1328 SYSHOD FOU x* 2008 
1329 
1330 
1331 
9332 FAKE sf CRUDE+3,Z°08? 
1332 HVE CKCTR,X'O7* 
4334 HVC aCTL¢&} ,KBIT 
4335 FOOT TBH ESK-3,X°80* 
1336 JF ADD 
4337 TBH aCTI-3,2°89° 
1338 JF ADD 
1339 SBN EXP-3,%°80* 
1380 ADD ALC =- BSK {8} - HSK 
1381 ALC = ACTL (4) , ACTL 
C6HAY70 0130L70 0184R71 
571513 571524 571573 


TEST FOR DOT 


BR. 


CaRE Sit 
IF EORZ 


ZEST FOR ACTUAL Bit 


BR. 


IF BOKE 


ADD BIT TO EXPECTED FIELD 
SHIFT ALI FIELDS 


0a01-a8 
10a 


PROG ID 
PAGE 


O 


Ff 


£3 


‘4 
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ree RSTATERAICE. PIReECS TSS PROGRAN 


"4018 
ERR LOC 


“BIE 
“9384 
458A 
1BSE 
1B92 
1B96 
1BOA 
1BS9E 


4BA6 
14BA9 
IBAC 
IBAF 
1BB0 
1BB2 
1BB4 
1BBB 
1BBC 
1BCO 
1BC4 
1BC8 
iBCC 
4BDO 
iBD4& 
1BD8 
1BDC 
TBEO 
1BE4 
4IBESB 
1BEC 
1BFO 
1BF4 
1BE8 
IBFE 
1€02 
1c05 
1c09 
1COD 
1c11 
1015 
1019 
1CiD 
1021 
1€25 
1029 
1C2D 
1031 
1033 
1035 
“4037 
1C3B 
4C3D 
1041 
1049 
1C51 
1052 
1056 
1C5A 
1C5E 
1062 
1066 
1C6A 
1C6E 
1C72 
1076 
IC7A 
1C7E 
182 


DATE 
EC NO. 


OBJECT CODE ALDR 
OE 07 1BAS 18A5 
O£ 09 IBAPF 1502 
3D 21 BAF 

cO 81 1B8E 

cO 87 1860 
00000000 
00000000 
0000000060000000 


1B99 
1B9D 
1BAS 
0002 
004873 1BA8 
AFEF7F 1BAB 
FEEFFF 1BAE 
00 1BAF 
0200 1BB1 
FFFF 1BB3 
C2 01 
34 01 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10, 
38 04 
co 10 
CO 87 
C2 02 
3C 4B 
cO 87 
36 02 
OF 00 1E4KE 
CO 01 1BFO 
F3 Al 01 
31 A3 1E65 
31 A3 1E66 
31 A3 1E65 
c0s00000 
C1 A2 1C2D 
38 10 1C9D 
cO 10 1B0B 
38 20 OAOE 
cO 10 1¢52 
CO 87 1BOB 
CO 87 021A 
c511 
1C51 
A033 
cO 87 
A033 
cO 87 1¢2D 
C3C540D4DECHC5YO 1C514 
‘DSD6E340D9C5E2C5 

E3 

3A 10 
C2 01 
34 061 
3A 10 
3A 10 
3a 10 
3a 10 
3a 10 
32 10 
3A 10 
C2 02 
34 02 
co 87 


OASC 
IBDF 
CAC 
1CBB 
ICBF 
1D OF 
1D46 
1D6D 
1D69 
1c9D 
0a OC 
1BE8 
1019 
1DB8 
1EGE 
1C 86 
1505 
1502 


1c1a 


1032. 
1034 
- 136 
0222 
1C3C 


1c SD 
OAOP 
IBDF 
1cac 
1CBB 
CBF 
1DOF 
ID 4&6 
1D6D 
1D69 
OAOF 
IBDF 
1BpCc 


O1APR70 
571516 


O2MAR70 
571512 


STHT 
1382 


1343 


1344 
1345 
13486 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
13817 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1394 
1394 
1395 
1396 
1397 
1398 
1399 
1800 
1401 
1402 
4403 
1404 
1405 
1806 
1407 


. FILE CONTROL UNIT FLT SECTION 1 


SOURCE STATESENT 


CRUDE 
BSK 
ACTL 
EXP 
XR2 
MSK1 
MSK2 
MSK3 
CKCTR 
RTN2 


LATE 


AJAX 


AGAIN 


Fuz 


EDDY 
WHAT 


CENOD 


HUNG 


TOOT 


O6NAY70 
571513 


EXP (8) ,EXP 


PART 
‘PAGE 


ALC . 
ALC CKCTR(1),ONE ADD 1 TO BIT COURTER 
cLry CKCTR,X*27! SEE IF ALL BITS TESTED 
BE CRUDE , * SUB-ROUTINE EXIT 
B FOOT 
DC XL4&* 00000000* 
pc XL4 400000000 * 
pc XL8*0000000000000000" 

EQU) 2 
pc XL 3*004873* NORMAL STATUS I DONT CARE BITS 
pc XL3 *AFEF7F* USED ON INITIAL SENSE ONLY 
Dc XL3°FEEFFF* USED ON SEEK BOSY HANG UP ONLY 
Dc XL1°00° 
pc XL 2*0200! ROUTINE RUMBER 
DC XL2'FFFF* LAST ROUTINE 
LA UNA, XB1 
St LATE+3,XR1 
SBF UPNOW+1,X°10* 
SBF JOE+1,X*10* 
SBF BILL+1, X*10* 
SBF TED+¢1,X*10* 
SBF TON+1,Xx*10! 
SBF JOHN+1,x*170° 
SBF TIMOCUT+1,xX°108 
SBF FIRE+#1,X*10? SET UP FOR DRIVE 1 
TBN UNA, X*O4u? SEE IF HIGH SPEED DEFINED 
BT AJAX 
B WHAT 
LA MAT RIX-3 ,XR2 INITIALIZE TEST VALUE POINTER 
VI COUNT, X*4aB* INITIALIZE TEST COURT 
B IOHAN 
A TWO,XR2 UPDATE VALUE POIRTER 
SLC COUNT(1) ,ONE 
BRZ AGAIN 
SIo X'01*,x*a1? 
LIo INDEX, X*A3!* INDEX 
LIO INDEX+1,X*A3!* NO INDEX 
LIO INDEX,X'A3! INDEX 
pc XL4 *C0800000 * 
TIO CEMOD, BUSY TEST FOR BUSY 
TBN FIRE+1,X*10# SEE IF DRIVE 2 TESTED 
BT zoo 
TBN UNB-1,X'20!* SEE IF DRIVE 2 DEFINED 
BT TOOT 
B ZOO 
B PRINT -PRINT HANG MSG 
pc XL2 '€511° 
pc AL 2 (HUNG) 
pc XL2*a033* 
B HALT 
DC XL 2#*A033! **€% 33 
B CEMOD 
Dc CLi17'CE NODE NOT RESE‘* 
SBN FIRE+1,X*10* SET UP FOR DRIVE 2 
LA UNB, XR1 
Sst LATE+3,XB1 
SBN UPNOK+1,X* 10¢ 
SBN JOE+1,X*106? 
SBN BILL+1,X*10* 
SBN TED+4¢1,X*10? 
SBN TON+1,X*10? 
SBN JOHN+1,X*"170# 
SBN TIMOUT+1,x°708 
LA UNB, XR2 
ST LATE+3 , 182 
B LATE 
013U0L70 01MAR71 PROG ID 
571524 571573 PAGE 
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A014 


*Ceeoeeeeeeeeeeece se. 


1086 
1CSA 
1C8F 
1¢c94 
1098 
1c9¢ 
1C9F 
1CAa3 
1CA7 
1CAB 
1CAF 
1CB3 
1CB6 
1CBA 
ICBE 
1CC2 
1CC6 
1Cc7 
1cc9 
1CCB 
1CCF 
1CD3 
1CD6 
1CDA 
1CDE 
1CE2 
ICES 
1CE6 
1CE8 
1ICEC 
1CEE 
1CFO 
1CFu 
1CE6 
ICPA 
ICFE 
1D02 
1D08 
IDOE 
1D12 
1D16 
IDIA 
IDIE 
ID22 
1D26 
1D2A 
1D2E 
1D32 
1D36 
1D39 
1D3D 
1D41 
1D45 
1Dp4ag 
ID&D 
1D50 
1D54 
IDSA 
1DSE 
1D62 
1D68 
1D6C 
1D70 
1D74 
1D78 


DATE 
EC WO. 


ERR LOC OBJECT CODE 


IBS MAINTENANCE DIAGNOSTIC PROGRAA 


FILE CONTROL UNIT FLT SECTION 1 


@ 


SOURCE STATEMENT 


ADDR STHT 
1808 © 
1409 
1410 @ 
34 08 1D95 1411 IOHAB 
2C 00 ID9D 00 1412 
2c 00 1251 01 1413 
31 A3 1DBe8 1014 
31 A6 1D9FP 1415 
F3 a0 00 1416 FIRE 
3D 03 1D9D 1417 
CO 8& 1CA8 1418 
cO 87 1D2E 1819 
30 A2 1D97 1420 UPNOW 
38 40 1D97 1421 
F2 10 4a 7422 
3C F2 1DB5 1823 OUTIT 
30 A2 1D97 1428 JOE 
36 A3 1D99 1425 BILL 
CO 87 O21£ 1426 
O48 1CC6 1427 
1D99 1cc8 1428 
1E63 ICCA 1429 
3C BO -I1CE6 1830 
38 10 1C9D 1431 
F2 10 08 1832 
3C AO 1CE6 1433 
3C F1 1DB5 1¥34 
cO 87 O21A 1835 TELL 
C116 1CE3 1436 
1D385 ICES 1837 
0066 1CE7 1438 FLAG 
CO 87 O2TA 1439 HORE 
050F ICED 1440 
1£63 ICEF 1441 
cO &7 0222 T1842 STOP 
A066 ICF5 1843 
cO 87 1CFO 1444 
31 A3 1DB7 1445 STEPIT 
31 A3 1DB8 1846 
OF 00 1D9D 1502 14487 
OF 00 1251 1502 1448 
30 A2 1D97 1449 TED 
CO 81 1D22 1450 
38 40 1D97 1451 
cO 10 1CFA 14852 
cO 87 1CB6 1453 
39 40 1D97 1454 DOWN 
cO 10 1D2E 1455 
CO 87 1CB6 1456 
30 A3 1D99 1457 ENDOUT 
38 0&8 1D98 1858 
F2 90 04 1459 
cO 87 1CB6 1460 
31 A3 1DB7 1461 DAVE 
37 A3 1DB8 1462 
30 A2 1D97 1463 TON 
38 40 1D97 1464 
F2 90 04 1465 
CO 87 1CB6 1966 
OF 00 1D9D 1502 1467 CIFEND 
3D 00 1D9D 1468 
cO 01 1D2E 1469 
Oc 01 1253 1E50 1470 
30 A2 1D97 1471 TIMOUT 
30 A3 1D99 1472 JOHN 
38 40 1D97 1473 
co 90 1D7Cc 1474 
cO 87 1CB6 1875 
028 R70 OTAPR70 O6HAY70 
571512 $71516 571513 


wth 
Se 


St IRET¢3, ABR 
MVC =—- CFLD1) 0 (,XB-) 
BYC DROP(1),1(,X 82) 
LIO MODE¢1,X°A3* 
LIO CADR,X*A6® 
SIO x*00*,x*a0* 
CLI CFLD,X*03* 
BH UPHOY 

B EWDOUT 

SNS  BYTEO1,B01 
TBR BYTEC1,2%°80° 
JT STEPIT 

MVI ERRNSG,C*2° 
SKS  BYTEO1,B01 
SWS  BYTE23,B23 

B UNPACK 

DC XL. 17°08" 

pc AL2 (BYTE23) 
DC AL2 (S8SG) 
MYI  FLAG-1,2°BO* 
TBR PIRE*1,X*°10° 
IT TELL 

MVI FLAG-1,X"~A0* 
NVI ERRESG,C'1°* 
B PRIMT 

DC XL 2°C1168 

pc AL2 (ERBESG) 
DC XL2*0066* 

B PRIBT 

pc XL2*050F* 

pc AL 2(SBSG) 

B HALT 

Bc XL2¢* a066° 

B STOP 

LIO #ODE,X*Aa3* 
LIO  HODE¢1,xX*a2* 
SLC CFLD(i),ONE 
SLC DROP{(1) ONE 
SNS  BYTEO1,BO1 
BZ DouN 

TBM BYTEO1,X°&0* 
BT STEPIT 

B OUTIT 

TBF BYTEO1,x*40* 
BT ERDCUT 

B OUTIT 

SRS  BYTE23,823 
TB BYTE23-17,X*O8* 
JF DAVE 

B OUTIT 

LIO MODE,X*~A3* 
LIO #ODE*#1,x°A3?* 
SNS  BYTEOQ1,501 
TBN BYTEO1,xZ*40* 
JF CIFEND 

B OUTIT 

SLC CFLD(1) ,ORE 
CLI CFLD,x*00° 
BRE ENDOUT 

MVC SETTLE(2) ,TINE 
SNS  BYTEO1,5B01 
SNS  BYTE23,B23 
TBR BYTEO?,2°90< 
BF TSTBSY 

B OUTIT 
0130L70 018aR71 
571524 571573 


PART KO. 
PAGE 


31296171 
Via 


seeeeeeseesel/O HANCLER SUBROUTIN Eteeesesesesssse 


SAVE RETORE aALOBESS — 
SET UP SEEK CousT 

SET UP DROP COURT 
PLACE IN CE NODE 

LOAD DFCR 

SEEK 

CHECK SEEK CouNT 

BR. IF GREATER THAN 3 


TEST HI SPEED LISE 
JUBP IF OW 


TEST FOR DRIVE 2 


ee ERROR 66 


IEHIBIT CPU REQ - TRACK CBOSSING 
TEST HI SPEED LINE 


TEST HI SPEED LIBRE 


ZEST HEAD SETTLING 
INHIBIT CPU REQ - TRK CROSSING 
SEST HIGH SPEED LIBE 


SEE IF SEEK ENDED 
SET UP HEAD SETTLING DELAY 


0a01-8 
VA 


PROG ID 
PAGE 


g3 


ey 


ee 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS 


Tad sy to, : uh 


PART EO. 5129611 
PAGE 12 
A014 FILE CONTROL UNIT FLT SECTION 1 
ERR LOC OBJECT CODE ADD. STHT SOURCE STATEMENT 
1D?7C 38 10 1D97 1476 TSTBSY TBN BYTEO1,X¢10° TEST SEEK BUSY 
1D80 CO 90 1D92 14877 BF IRET 
1D84 OF 01 1£53 1502 1978 SLC SETTLE(2),ONE DECRIWENT DELAY COUNTER 
1D8A CO 01 1D68 1479 BNZ TIMOUT 
1D8E CO 87 1CB6 1480 B OUTIT 
1D92 CO 87 1D92 7481 IRET 8B IRET RETORN 
1482 * KESSEEHESEEKKEOCU AT ES FE HE SKKECESE 
0010 1483 IAR EQU = X* 708 
0008 1484 ARR EQU x*OB? 
0CO% 1485 PSR FOU = X# OWE 
0200 1486 SRT EQU x*z008 
0202 1487 SMOD EQU  x*202" 
0204 1488 CPU ECU x*204" 
0208 1489 SBYTEO EQU x*208* 
0209 1490 SBYTE1 EQU  x*209° 
0212 1491 TEST EQU X*212° 
0232 1492 UTAR EQU  x*'232" 
O1F1 1493 RUNTAB EQU) X*1F1* 
OOA4 1494 DFDR EQU  X*a4? 
OOA6 1495 DFCR QU X*aAé6! 
OCA2 1496 BUSY EQU  X*A2! 
OOAD 1497 EREGR EQU X*A0* 
VEQR KEEKHEEKGKEEEREKE ES 
OOA2 1499 BOI EQU sX*a2? 
00A3 1500 B23 EQU) xX*a3* 
1D96 0000 1D97 1501 BYTEO1 DC XL2*00008 
1D98 0000 1D99 1502 BYTE23 DC XL2'0000" 
1D9A 00000000 1D9D 1503 CFLD nC XL4* 00000000! 
IDQE 1D9A 1D9F 1504 CADR DC AL2 (CFLD-3) 
1DAO C8C940E2D7C5C5C4 1DB5 1505 ERRMSG DC CL22*HI SPEED ERROR DRIVE X* 
1DAB® 4YOCSDIDSDEDS4OCY 1505 
1DBO DSCSESCS4OE7 1505 
IDB6 0400 1DB7 1506 MODE Cc XL2*04008 
1DE8 00000300 1DBB 1507 MATRIX DC XL4 000003008 
IDBC 0402050207040804 1DD1 1508 pc XL 22' 040205020704 0804 04060306 ODO80E08 150A 110A130C? 
1DCH CACKOBOGODNB0E0S 1508 
TDCC 100R110A730C 1508 
1DD2 140C160E170E1910 1DE7 1509 pc XL22*140C160E170E19 10 1410 1012 1D121F 14201822 1623 16° 
1DDA 1A101C121D121F14 1509 
WWE2 201422162316 1509 
1IDE8 251826182AK1C2B1C 1DFD 1510 pc XL 22" 2518261 2A 1C2B 1C 2F 203020342435 24 39 28 3A 283E2C* 
IDFO 2F20930203424352u 1510 
IDF8 39283A283E2C 1510 
IDFE 3F2C 433044304834 1£13 1511 pc XL22'3F2C433044 30483449 344038 4£38523C533C57405840° 
1E06 49354D384E38523C 1511 
TEOE 533¢57405840 1511 
TE1% 5C445D4461486248 1E29 1512 Dc XL22' 5C445D6.461486248664C 674C 685060507458 7558 7D60" 
1E1C 664C674C6B506C50 1512 
1E24 745875587 D60 1512 
1E2A TE60866887688F70 1E3F 1513 pc XL22 7260866 887688F 709070 9878997841802 80AAS8AB88? 
1E32 907098789978 A180 1513 
1E3A A28Q0AA8SAB88 1513 
1ESO B390B490BCIS8BD9IS TE&D 1514 DC XL14'B390B49CBC 98BD 98CS5AQC6A0CCAGS 
1E4B CSAOC6AOCCA6 1514 
1E4E 00 1TE4E 1515 COUNT DC XL1* 008 
1EUF 0187 1E50 1516 TIME DC XL2*0187° 26.15008 mS 
1£51 00 1E51 1517 DROP DC XL 100% 
1E52 0000 1253 1518 SETTLE DC XL2 "09000" 
1E54 4OE2ZE3C1E3ESE240 1263 1519 SMSG DC CL16" STATUS XXXXXXXx! 
1ESC EVEVEVETEVEVETE7 1519 
1E6% 8000 1E65 1520 INDEX DC XL 2*8000* 
1EEO 1521 ORG X*1EEO! 
1EEO 00 1EEO 1522 BARN DC XL1°00° DATA FIELD 
1EE1 1IFEO 1523 DS CL256 
1FE1 00 1FE1 1524 ARNE DC XL1°00% CONTROL FIELD 
1FE2 IFE4 1525 DS CL3 
IFES 0001DC01 1FE8 1526 LION DC XL4*0001DC01° 
0222 1527 HALT EQU  x*222! 
DATE O2MART7O 01APR70 O6MAY70 0130L70 O1MAR71 PROG ID OA01-4 
EC NO. 571512 571516 571513 571524 571573 PAGE 12 
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IBM SAINTEWANCE DIAGROSTIC PROGRAN 


FILE CONTROL UNIT FLT SECTION 1 


a014& 
SYMBOL T LEN VALUE DEZFN REFERENCES 
ABNER A 002 14EB 0697 0883* 0093* 
ABYSS A 0048 1899 0667 6077 o088 
ACID A 028 1851 1327 1307 1315 
ACKEID a 004 11C5 0519 0221 
act A 0048 10E4 0450 O84a6 
ACTL A 004 IBID 1348 1334* 1337 
ALD A 006 1372 1340 1336 1338 
ADYV1 A 008 ODF3 0244 O8G2 a09 
ALV2 A 008 ODEF 0243 02329 0311 
ADV3 A 0046 ODEB O22 028% 0290 
ADVGa A 004 ODE? 0241 
ADVS A 0048 ODE3 0240 O27& 6280 
AGAIN 2 004 BFO 1372 4375 
AJAX A 004 1BE8 1370 1368 
ALICE A 001 1869 14051 7152 1185 
ALMS A 005 1525 0722 0023 GO24a* 
OTCS* O7154 
ALTAR A 002 1519 0716 0303* 6307 
AMILE A 006 ODC1 0233 O84 
AMP A 00% 1112 0863 o02¢c8 , 
ANDES A001 12D6 0589 OS88* 05494 
ANDY A 007 1325 0598 0233* 0237* 
ARISE A 004 13EB 0625 0622 
ANNA A 001 <IS1A O717 O253* 0256 
ANKE A 002 149D 0669 O08t6 0162 
AKO A 001 1518 0718 O465* 0467 
ANT A OC 8 10D3 O4RAd 0354 0356 
ANTE A 0C& 110A 06460 0207 
ANVIL A O0O&8 183F 0646 0625* 06488 
ANY A 002 1436 0691 
ARBECR A 0048 742C 6641 0638 
ARID A 002 1&CE 0687 O&66 
ARNE A 004 FEI 17528 0082* €056* 
0273 GO460* 
1059 
ARR c 001 0068 1484 TAtt 
ART A010 1459 0696 0350 6352 
O511* 
ATTIC A OCH ‘13FS 0627 0882 
AVA BR 004 OEE 0268 0258 
AXE A 004 1T0EC 0452 Oaa8 
AZEROS A 002 1817 1321 $378 
BAS A 002 14F1 0700 
BANA A 004 OEFE79 0282 6133 
BARN A 001 #TEEO 14522 g0S8* 0039 
0842 0994 
BASK A 004 484A 0648 O616 
BASS A 004 13D2 0618 0055 
BAT A 008 OFO 0453 oags 
BDPARM A 029 ODCO 0231 0226 
BEAT A 008 1134 0472 O4FI* QRT2 
BEIGE A 003 14F6 0792 O2&7* O206 
BELL A 002 14EF 0699 0393* 0396 
BESS A 002 189B 0668 0071? 0163 
BETH A 004 OES6 ©6270 0255 
BILL A 00% CBE 1425 1367% 74800¢ 
BIRD A002 19AD 11929 0123 
BIRD? A 001 19AE 14200 TI99 
BLAB Rk 002 1921 1133 OFT 
BLaBT 2 001 1922 11348 4133 
BLANK A 001 13831 0612 0019 0178 
BLOB A 902 41897 1074 0092 
BLOB1 A 001 1898 1075 tO7& 
BLOT BR 002 18B8 1092 061465 
BLOT? A 001 1889 1093 1092 
BOSS A 008 130% 0615 6076 
DATE 024aR70 OTAPR70 O6HAT70 
~EC NO. 571512 57 1516 571813 
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0095* 0135 0169 O4880* 0450 
1381 13418 

0415 0418 04617 0490 0494 
0317 0421 O428 O838 0469 
02948 0300 0336 0458 

oaso 0486 

0987* 0088* 0054* 0063* 00694 
0721* 0179* 0561 

0319* 0331* 0548 

0268* 0270* 

0620 

06456 

0059* 0066* 0077* 0080* 0088* 
0550 0615* 0619* 0669 0937 
O835* 0436* 0437* 0438* 0439* 
0099* 0100* 0101 0102 0102* 
1006 1068 1072 1149 1182 
0626* 0637* 

0403 
0380 0817 

0130L70 O1BAR71 

571528 571573 
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0075* 0083* 0089* 0090* 0103 


9097* 0708* 01174* 0120* 0126¢ 

0987 0390 1008 1017 1089 

O442 O485 O447 0455 0455*% 

0310 0381* 0555 0668 0808 
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ao14 FILE CONTROL UNIT FLT SECTION 1 
CROSS-REFPERESCE 
SYMBOL T LEN VALUE DEFNH REFERENCES 
BRACT A 006 OF38 0337 0329 
BRAD aA 009 12F3 0595 0016 0543% 05846 0595* 0568° 0569¢ 
BRAN A 002 1967 1166 0117 
BRAND A 006 OC1D 0126 1218 
BRANT A001 1968 14167 1166 
BROAD A 002 1513 0713 0282¢ 0283 
BRUSH A 008 OC6A 0146 0143 
BRUTE A 006 OF8SF 0359 0385 
BSIND A 001 ‘1&FE 0705 
BOG A 008 1212 0539 0571 
BURN A006 12Cc8 O5&& 0560 
BUSY C 001 OOA2 1896 1381 
BWANA A 0OU OFDS 0377 0345 
BYTEO? A 002 1D97 1501 1420 1421 1424% 1849¢ 1451 1858 1463¢ 1468 
BYTE23 A 002 1D99 1502 7825* 1828 1857% 14858 1872¢ 
B01 C 001 OO0OA2 1499 1420 718428 1849 1863 1471 
B23 Cc 001 OO0A3 1500 1425 1857 1872 
CADR A 002 1ID9F 1504 1815 
CAKE A004 1858 0653 0652 
CANT A 0048 ‘48FD 0704 
CAPE A 006 OECF 0310 0197. 
CAREA A 004% 14D2 0688 0320*% 0323* 0324 0328 0337 0337% 0338 0377 
CART A 004% OE1B 0255 0269 
CAT A 002 172F 0915 0074 
CCRTR A 001 18D3 0689 
CENOB A 004 1C2D 1387 1381 1393 
CFLD A 0048 1D9D 1503 1412* 1877 1897 1467¢ 1868 15048 
CHERI A 008 OE98S 0292 0194 
CIFEND A006 1D5% 1467 1465 
CKCTR AOO1 1IBAF 1354 1333* 1343 13648 
CLKSTP A 001 OA00 0002 
CLR1 A 002 151E 0720 0321* 0326* 0353 
CNUS A 001 OAO3 0006 
COPE A 004 1483 06748 60059 
coxzp A 002 1895 0665 0137 01481 0520 
CORN A002 1493 0664 6519 0521 
COUNT A O0O1 1TESE 1515 1371* 1374% 
CPU c 00171 02048 1488 
CRISE A008 OFE1 0380 0378 
CRUDE A O0O&% IBBE 1345 1332* 1345 
CRUSH A OO& OC5SB O141 0139 
CRUST A O04 OC&8B 0137 01345 
CRUX A 007 18814 0659 0359* 0S84 
DANTE A O08 OEOF 0252 0330 0367 
DART A 004 OE1F 0256 6260 0263 0271 Oa820* 
DAVE A 0048 1D3D 1461 1459 on 
DELTA A 006 OB63 0088 0086 : 
DFCR C 001 OO0A6 1495 
DFDR C 001 OOAG 1894 
DICK A 00& ADA 1300 1295 
DLYSW A 008 ODC7 0234 0168* 0238 
DON A 00S 1A64 1270 1279 1299 1303 
DOUGH A O00’ OBB5 0095 
DOWN A008 1D22 1458 1450 
DROP A 001 14E51 1517 1413% 14408% 
DUN A 008 O0c8& 0157 0151 
EDDY A 004 1C15 1381 
ELAN A008 10BF 0440 0456 0513 
ELF A 0048 120B 0537 0570 
ELLA A 002 14ED 0698 0235* 0236 0441* 0452% O8548 
END A 00S ATA 1289 0020* 0041 0087 0131 6975 ONs3 0581* 0640 
ENDOOT A 004 <4ID2E 1457 1419 1455 1469 
ENGC A 006 OEFO1 0248 0249 
ENY A 002 14D8 0692 
FON A 008 10CF O4KG 0166* 0457% 05128 
EPOUT A 00% OFCH 0371 
DATE 024..R70 O1APR70 O6HAY70 O1IUL7G OQTHAR7 1 
EC wO. 571512 571516 571513 5771528 $71573 
i 
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a PART NO. 5129611 IBM MAINTENANCE DIAGNOSTIC PROGRANS . PART HO. 5129611 
IBM MAINTENANCE DIAGNOSTIC PROGRAB fre oe oO e pice Th: o 
A014 FILE CONTROL UNIT FLT SECTION 1 © 6 A014 PILE CONTROL UNIT FLT SECTION 1 S 
CROSS-REFER EXCE CROSS-~ REFERENCE 
i om 
SYMBCL T LEN VALUE DEFS REFERENCES ©. G s symBoL 7 LEN VALUE DEFN REFERENCES ~ 
| 
ERGO A006 ODFB 0247 0235 o | Q oe a7 ot 0552* 0627% 0628 0681 0683 1258 1255 1268 1270 0 
ERIN aA 001 18FF 0706 
ERRESG A022 DBS 1505 1823* 14348 1437 Lacy a pee Oree Soe 0369 0379 0383 0389 0391 
ERROR C 001 OOAO 1497 LANE A as 
ETTA & 003 OCDS 0176 0044* O053* 0062* 0067* 0073* 0081* 0091* 0104* 0110 0116% 0122% 0127% ©O1;G cap A 002 48D eee Sack iagpe:-<eoee 4809 ° 
0171 LATE A004 1BDC * 
EXP A008 ‘BAS 1349 0032* 0034 0034* 0038 0362* 0364 0373 0398* O40S* 0412 0824* 0427 0° LINK C001 0216 1528 1320 5 
OS31 0876* 0479 0483 0630* 0631 0631* 0635 1339*% 1342 1342* G LINT A 008 ne oS 0220 
FACT A 00& OFB7 0302 0195 LION aA 008% PE 
PAKE A OO& 1852 1332 0035 0363 0400 0407 0426 0878 0632 ole MASK A 0048 13E7 0623 0615* 0618* 0623 pe 
FANCY A 006 ODCB 0235 0250 MASS aA 00% 13DC 0620 0617 - 
PAR A 002 1B2% 1325 1256* 1259% 1260 1262* 1267# 1272* 1276% 1280 1284 1285 1287* 1290* MAT A 008 10DA 0847 0451 
1293* 1296* 1297 1300* 1302 1306 ole BATRIX A 00% 1DBB 1507 1370 C: 
FAULT A 006 OCC3 0172 0170 . Se | MAX A 002 1527 0723 0045 
FAY A 001 14D9 0693 0177* 6180 0182 0188 0187 0233 0235 0273 0277 0283 0287 0293 MAY A 002 14B5 0675 0084 
0297 0304 0210 0314 0319 0320 0420 042% 0435 0836 0837 0438 06 MINT A 004 141A3 0508 0218 e 
0465 6871 0476 0527 0530 . MODE aA 002 %DB7 1506 1474 1845 1686 1861 1862 
FEE A 008 OCc7C 0152 0147 : MOPE A 008 %74C7 0683 0082 
FETE 2&2 002 1520 0721 0322* 9327* 0340* 0342* 0344 °° MORE A se ices as Ses eo 
FILET A 008% OBSB 0086 0022* O579* 1004 MORN A 00% . 
FIRE. A003 1C9C 1416 1366* 1382 1395 1431 ESK A 00% 1399 1347 0032* 0361* 0399* 04067 0425* 0477% 0629 1335 1380 13480¢ 
FIRS A O06 OASB 0031 0027 0029 C8 MSK1 A 003 1BA8 1351 0477 es 
FLAG A002 1CE7 1838 1430* 4833+ a MSK2 A 003 BAB 1352 0032 
FLAT 2 006 1041 0435 0206 MSK3. OA 3 1a 0629 
FLIT A 008 1288 0572 0540 NEON A 43 
FLO A 001 1822 1019 1086 1089 Cc, eo NIBS a 009 12FC 0596 0537* 0539* 0561* 0562* 0563*% OSEuS 
FLUID 2& 002 14F3 0701 NOLA A O0C6 OBFF 0120 1198 
PLUX 2&2 GOS 1486 0660 NONE A 0017 16D1 0882 0881 Oe 
FLY A G04 1280 0571 0538 © .@ wore a 002 16D0 0881 0052 
FOES aA O00& OFSE 0346 0165* 0334* 0508+ KOR A 002 14B7 0676 0053 0062 
FOLKS A 001 1886 1065 1185 1159 1178 1192 1212 are NUT A 008 12D5 Of88 - 
FOOD A 004 1074 04823 6203 OBOE A 001 1803 1005 0939 09489 0957 9965 s 
FOOT 8&8 00% 1860 1335 1346 OGLE A 006 120A 0536 0562 0568 0565 0566 0567 
FOR kh 00% 1E1 0527 0524* 0525 0526* ONCE A 00& 1326 0600 05482 
FOUR a 003 1508 0709 O © one A 003 15¢€2 0707 0237 0240 0281 0242 0283 02838 0288 0323 0331 0358 0839 0967 
FRESH A 008 O0C97 0160 0150 6155 0516 0626 0637 1343 1378 14887 1888 1867 1878 
FROG A 00% OF66 0348 08ag ONLY aA 008 121D 0582 0021* 0146 0601¢ co 
FRUIT A 004% OF8B 0358 ©. G opera a 002 1439 0677 0073 C091 
FTYS AOO1 ‘14D& 0690 OPINE A 002 12EA 0594 C546* 0547 0547* 0555* 0558 
FUZ A 003 1C02 1376 OPUS A 049 1376 0609 0605 a“ 
GALA A OO% OFFS 06386 0346 0348 0496* 0499% G | O ope A 008 OEFF6 0321 O&88* 0489* 0492* 0493*« 0502¢ 05065* ve 
GAS kh 004 OFB8 0368 0357* 0368 0384* ORGY A 00% 1102 04857 04843 
GAUDY A 002 144C 0649 0031 colo OUTIT A 00% iCB6 1423 1453. 1856 1460 19866 14675 14€0 os 
GAY A002 14DP 0695 PALMS A095 14a2 0670 - 
GHAT A GO4 OC98 0161 0089 ©8057 0064 0070 0078 O084% 0094 0106 0112 0118 0128 0129 | PANDA A005 OCD8 0177 0245 0305 0308 
GOoUT A O04 1225 1254 0015 0230 PART A 006 OEFO 0320 0332 a 
GOUT aA OOK 12C8% 0583 09371* G051* 0072* 0161* 0172* 0583 1091 Git PASS A 00% 1446 0687 0126 0619 “ 
GRAIN 2 004% 10C3 0841 PEFR aA 00% OD90 0223 0183 0185 0208 0205 
HALT C001 0222 1527 0157 0228 1251 1316 13917 1842 PEN A 002 15¢3 0779 0061 = 
HAND & 002 19D7 1219 0128 i G CG perr 2 008 OF4A 0267 C252* 0257 0267 5 
BANDS A CO1 19D8 13220 1219 PINE A 002 148BB 0678 0127 
HERE A 004 1338 0607 0600* 0607 G G PINT A 006 0283 0042 0030 os 
HUNG A017 1C51 1398 1389 POND a 001 151C 0716 “i 
IAR C 007 0010 14883 PONY A001 187F 1061 1780 1154 1173 1187 1207 
ISP kh 001 1847 1038 1094 1135 1168 1201 oO .°0 POOR A 004 11DS 0524 0222 ” 
INDEX A 002 1£65 1526 1377 1378 1379 POUT A 00& 1203 0582 05412 a 
TOHAN A 004 1C86 1411 1372 PRINT C 001 021A 0586 0148 0152 0223 0572 0576 0580 0602 1289 1308 1312 1387 1435 
IRET A 008 1D92 18814 1411* 4477 1881 1439 ee 
JERRY A 00% 1A8B 1280 1271 © G prop 2 006 OES5E 0273 0192 ° 
JOE A 004 CBA 1824 1360* 1399¢ PSR Cc 001 0008 1485 
JOEN A004 $#1D6C 1472 1364* 7403% c Q RACE A 008 OF&WE 0342 0339 “ 
KAT A 003 12E8 0593 0554* RACY & 008 OF13 0328 0325 % 
KELP aA 004 OFD1 0376 0370* 0376 RAFT 2&2 006 OADS 0C59 0913 1324 
Suri Saogne- sabe ean, becee GO. > ‘gies “noe 0ie? cnc, oaee & 
KNIT A097 12DD 0590 0025* 0026 0028 0360* 0364 0357% 0401 O0404* 0408 0423* 0427 Ou74U* RAT A 002 14BD 0679 0067 01048 
e ¢$ ° 
DATE O2MAR7O OTAPR7O OGRRY70 01J30UL70 O71#4R71 PROG ID OA01~4 DATE 02..AR70 O1APR7O O6SAY70 0130L70 OTBAR71 PROG ID aad 
EC NO. 571512 571516 571513 571524 571573 PAGE 14 °° EC NO. 571512 571516 571513 571524 571573 PAGE 9 
* 
o 8s 
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IBM MAINTENANCE DIAGNOSTIC PROGEAR | PART HO. 5129614 3° 
PAGE 15 o|6 
| Be 14 FILE CONTROL UNIT FLT SECTION 1 Z3 
A01% FILE CONTROL UNIT FLT SECTION 1 ole * a 
ROSS- REFEREUCE 
CROSS-REFEREWCE CROSS- REFER : 
oo; S VALUE DEPN REFERENCES A 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN 
TON A 008 1D85 1463 1363* 1402 6 
RINK A 008 OF1A 0330 0164* 0333% 0366 O16: oer, Pee ae ee ee 
ROPE aA 001 18C8 068% 0056 0066 Soe, Ree eee eee aeeee 
HOT... (eee: eee eee 6 (eee TRACT A 006 OFEA 0319 0198 0509 0517 6 
BIER Tey oaa stele ions ©} @ racy a 008 OF52 0343 0381 
BUS 1 ee RAO Ode, 2008s TREK £001 17C3 0376 0975 
RINE 22 Doe wee! laos. (O18 TRICK A006 1868 0655 0063 0103 
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IBS SAINTESASCE DIAGNOSTIC PROGRAS PART 86. 5129613 | IBS MAINTENANCE DIAGKHOSTIC PROGRAB PABT BO. 5129643 
PAGE 1 cic. PAGE iB o 
. BOW FILE CONTROL UNIT FLT SECTION 2 G (BO 13 FILE COSTROL UNIT FLY SECTIOR 2 
© eos 
EBR LCC OBJECT COLE ADDR STMT SOURCE STATEREBT ERR LCC CBJECT CODE ADDR STHT SOUSCE STATERERT 
Oa0co 2 CLKSIP START 2560 ee cC OBIE 35 01 1584 79 L SAT, XR1 . é 
3 DECK 4& GB22 CO 87 OB7B 71 B GNAT 
0800 £013 Ca01 & bc XL2°B013* PROGRAM ID OB26 CG 87 OB2ZE 72 VIRG B TRUST 
0a02 O00 Oad2 5 BC XL1°00* FLAGS gS oC OB2a CO 87 32EC 73 B GoouUT ; woe 
0a03 00 OA03 6 CuOn ac XL7'O5* CURRENT BCUTINE HR 74 veeseee ROUTINE TO TERMINATE AN CPERATION*S OS se sncecesgeoses 
Oao04 0660 Oa05 7 Dc X12*°0000° RESERVED OB2E 3&8 GB OBSC 75 TRUST ST TRYST4*3,X* 08? STORE RETURB 
@a06 OAaTD 03807 8 RT1ADR DC AL2 (RTB1) ADDR FIRST RTR € Cc} OB32 C1 A2 OB3D 76 TIC CRUST, X*A2* SEST POR BUSY £ 
Oa08 Oa0Y 9 DS CL2 0B36 31 A3 13C1 77 LI RBNER,X*aA3* 
OAOA A05000 oaoc 70 doc XL3"a0H000' ODT PRISARY SPINDLE OB3A F3 Al 01 78 SIO XO", xeare 
GAOD BO01000 OAOF 11 oe XL3°BO1000* GDT SECOND SPANDLE € CG OB3D 37 a3 1357 739 CRUST LIO CORD,xX*A3° WOT INDEX = 7 
OA10 OF Oats 12 ETN pc XL7*O1* | 0B&1 31 A3 OBSE 80 p & <e) YORE,X*A3* FORCE THDEX I8 CE BODE 
OA11 80 OA1T1 13 pe XL1° 86" : O&85 Ct A2 OB&D ai TIO CRUSH, X*A2* SEST FOR EUSY 
ORAZ W3FC Oa13 - 14 pc AL2 (RTH2) € oc OBs3s CO 87 OBS9 82 B TRYST 
OA14 3C 87 118F 15 AVI ONLY*1,xX*97* ' CRaD 31 A3 1357 83 CRUSE LIG CORD,X*°A3* BOT INDEX 
OA18 OC 03 13FB 1324 16 five ALSS (8), TROCK | OBS? 31 43 OBSE 84 L110 YORE, X*A3* PORCE INDEX I8 CE ODE 
OATE 37 AS 335D 17 LIO BESS, X*A&* €ié SESS Ci A2 ObSF 85 Tio BRUSG, X"A2° S2SP FOR EUSY 
OA22 31 86 135F 1B 110 ANNE,X*A6* 0B59 CG 87 9OB59 86 TRYST 8B TRYST RETURB 
OA26 30 A2 1257 19 SNS KNIT~-2,X%* A2* SES 03 OBSD 8000 CBSE 87 YORE pc X1L2* 8000" 
OA2A 39 50 1256 20 TBF KNIT-3,x%°50° ¢ es OBSF CO 87 O2ta 88 BRUSH 8B PRINT me 
OA2E CO 90 OAIE 21 EF FIRS : 0863 C6 OB63 89 pc xXL1°c6* 
QA32 38 10 1257 22 TBR KNIT~2,X°10° SEEK BUSY GB6N 08 OB64 99 DC XL1° 908° 
9A36 CO 10 OA3ZE 23 BT FIRS é ££: OB6S OB7A GB66 91 eT oa A1L2 (PRESB) + 
OA3a CO 87 OAN2 24 B ALOE | ' OB67 A003 C868 92 Lc X1L2°a003¢* 
OA3E CO 87 118A 25 FIRS B TURE. ' OB69 cO 87 0222 93 BROKE B HALT 
OAY2 CO 87 1445 26 ALOE B ACT Co OBED ac03 OBGE 94 DC —_- XL" 4003" + 
QOA46 OC 03 1704 139D 27 ALCFT MYC ARNE+3 (4) ,MOPE SET UP FOR RD ID SHORT TEST ; OB6F CO 87 0332 95 B TRUST+4 : 
OASC 3C FO 13F7 : 28 MUI ALSS-& ,X"FO®* RESET OB73 YODICSCERBYOFIFO OBTA 96 FRESF be CL8* REF. 10° 
0A50 Oc G1 OBAS 1388 29 BYC ETTA¢2 (2} , NAY RE&D ID SIO o | Cc OBJE 37 AG 135F 37 GNAT Lio ANNE,Z*A6° SET UP DFICR G 
Oa5E€ 35 01 1786 30 L TAX, XR1 | OS7F 373 AS 135D SB LIO BESS, Z*ag* SET GE DFDR 
GASA 3C 87 11D0 31 avI STAR¢1,X*87* TURN CN PRINT MODIFY SHITCA * ; CB&3 3C 87 CDA3 39 AVI RINK+1,xX°67* RESET TEST FOR BUSY ERR S#& 
QASE OC C6 1343 1324 32 FVC CRUX (7) , TRUCK MOVE ETN NOBELTR 1 a a 0B87 3c OF ODE? 160 AVi FOES¢1,x*07°* RESET S8 ae 
Oa6S CO 87 OB7B 33 B GNAT OBSP 3c OF 106A 10% avi EON¢1, x°O7* SEY PB SHS SW OFF 
OaGe 35 O01 1718 34 GAB L HARE, XREI1 i eee OBSF 3c OF ODE3 102 avi ZORECG, X*07* RESET DATA FLD SB 
OaA6C OC 01 OBAS 1388 35 ave ETTA¢2 (2) , BAY READ ID SI0 C : G OB23 3c 07 GCS93 103 BVI DLYS#+1,1°078 SET DELAY SW OFF 
OA72 OC C6 1343 1328 36 “AVC CRUX (7). TRICK MOVE RIN NUMBER 2 i 0597 31 A3 13C1 104 LIo ABNER, X*°a3* FORCE CE BODE 
@a78 cO 87 OB7B @ 37 B GHAT, -s- gies : OBSB Ci A2 OBA2 305 T10 FAULT, %* a2* 
Zz YOATC CO 87-42a7 38 STAGE B BASS oe, Cc °C OB9F F2 87 04 106 3 ETTA i 
4 -" GABO OC 03 1IFO4 1379 39 fYvC ARNE+3 (4) , STAID READ DAT CTL FLD : OPa2 cO 87 116A 107 FAULT 5B TURE ‘ 
OAB6 35 G1 1819 . a0 L STYLE, XR1 READ DATA PARA OBA6 ¥3 00 O00 108 FITA sIo X°GO*.x*00* START 3/0 IS SET UP BEFORE EXECUTION 
GABA OC 01 OBAS 138Dy 41 BYC ETTA+2 (2) ,NOR READ DATA SIO € & OBAS 3C O& 1383 O48 109 PANDA RYC FAY+4 (5) .4{,%R1) MOVE PARA TO WORK AREA fy 
0a90 Oc 06 1383 1330°-. _ 42 NVC CROX(7) , THICK BCVE TN SUMBER 3 OBAE 06 13 13FB 1348D 410 AZ ALNS (3), TEN (2) ADD OBE TC MSG CETE 
Oa96 CO 87 OB7E “83 B GNAT OBBS 38 02 73a” 711 TBR FAY,x*Q02¢* 
Oaga OC O03 IFON 1375 84 STCEKE NVC ABNE+3 (4) , STILE MOVE WR DATA CTL FLD CLK STP € G GEES CO $O oCc&C 112 fF A#ILE GO TG LIO ROUTIBE 
OARO 3C OO TEFF 5 avi BABN*+255,x%°00* OnBC 38 O1 23aF 413 IBS FAY,xX*01? IS THIS A BBD PARE 
OABS OC FE 1EFE 1EFF 46 MVC BARN+2S4 (255) , sARB*255 ©Bco F2 10 98 Ta oT PEER 
OAAA 35 OF 1958 87 L LOG ,iR7 WER DATA PARA Zz CS OBC3 3D 72 13AF 115 cLi FAY,X°7A® Sn 
OARE CC G7 OBA8 1393 8B EVc ETTA42 (2) , RAT WR DATA SIO OBC? F2 8& 91 116 J# EEER 
GABS OC O06 1383 1336 &9 BVC CROX(7) THAT SOVE RTE SUNBER 8 OBCA OC 01 OBD? GBDR 117 AVS STAND*3(2) , STALL BESET BRANCH ADDRESS TO ORIG VALUE 
GAEA CO 87 OB7B 50 E GHAT & G OBLO OF 07 OBDO 13aP 4118 aLc STAND4+3 (2), FAY ADD PARA TO BRANCH TO ADDR aor) 
OABE OC 03 1F04 1382 51 BASH BYC ARNE+3 (4) , TONY SET UP CTT FLD SR ID CLK STP OED6 cO 87 OBDD 119 STABD 38 STABLE 
Oac& OC O6 1343 133C 52 NYC CROX(7) , THES BCVE ROUTINE 5 OBDA CBDD OBDB 12C STALL DC AL2 (STALE) 
OscaA OC OF OBASB 1395 53. uvc ETTA42 (2) ,SET © ¢ OBDC CoO0 O8DD 121 STALE occ X12*CGO008 
QADC 35 04% 1603 5& L BRAD, XE1 OBDE OBDE 122 DS cLi 
OAD& CO 87 OBTJE 55 B GNAT OBDE CO 87 ODOA 4123 5B PROD CONF CTL FLD 
OADB OC OF 1FOU 1316 56 ORB NVC ARNE+3 (4), PASS @8 DATA CHSAFE ROUTIBE c CS OBE3 CO 87 ODIC 124 3 BANA CCHP DFDR is 
OaDE OC O01 OFI1t OFSO 57 MYC MALL+¢5 (2) HALL RESET START ADOR OBE? CG 6&7 0D32 125 E CRERI COMP DFCR 
GAER 3c O00 EFF 56 BVI BARN¢255,xX"00°* OBEE CO 87 OD4Ss 126 B FACT GO TC ALT PARA 
OAE8B OC FE YEFE 1EFF 59 NVC BARH+254 (255) , BABN¢255 G .€¢ OBEF CO 87 OD58 127 B TACT RTM TO SAJOH PABA ae) 
OAEE 3C 117 1500 60 MVI BARN ,X*11¢* ‘ OBF3 CO .87 CD60 128 8 CAPE CORF DATA CHAR 
GAPZ 3C O07 11D0 61 BVI STAR+1,X*O7* RESET PRINT MODIFY SB OBF7 CO 87 OD72 129 B THACT DATA CHAR ROUTIRE 
OAF6 OC 03 13FRB 1324 62 MVC ALES (4) , TROCK 2 C G OEFE CO 87 OEIE 130 5 WORK INDEX INITIALIZE g 
OAFC 3C FO 13F7 63 BVI ALBS~-4&,X°F9* SET UP ROUTINE SUMBER OBFF CO 87 OEA6 131 B SHARK SET 8 INITIALIZE 
OB00 Oc 01 OBAB 1393 64% VC ETTA+2 (2), RAT WR PATA SIO 0c03 CO 87 ODECE 132 8 SALT RESfT DFDS 
OBOE 35 61 153F 65 L DUE,AR1 SET UP FARA ADDRESS CS Cc 9C07 CO 87 OED6 133 B S&ixt COMP BUSY aRD ERROR x 
OBOA CO 87 OB7B 66 8 GRAT OcOR CO 87 OEEO 134 B FOOD TEST SENES PROBES 
- OBOE OC 03 IF04 13E2 67 RASH ave ARNE+*3 (&) , TORY SET UP CTL FLD OCOF CO 87 OEFA 135 B STOOP TEST HALY WITH SDELAY OB 
OB1& 3C 00 1500 68 AVI BARN, X*00* RESET DATE FLD oS Cc 0c13 CO 87 OFD3 136 B SEEP TEST HALT WITH DELAY OFF 3 
0B18 Oc 01 OBAB 1395 69 BYC ETTA¢2 (2) ,SET WRITE XD SIO 0C17 CO 87 1033 137 B FLAT A-H BOOTIE f 
e :.9 GO 
DATE O2NART70O OVAPR7O O6MAY70 0130170 aes PROG ID 0B01-3 DATE G2BAR70 O1APR70 O6mAY70 01J0L70 PROG ID 0B01-3 
BC RO. 571512 571516 571513 571528 - % PaGE 1 i EC KO. 571572 571516 $71513 $71528 PAGE Ta 
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IES MAINTERBANCE DIAGROSTIC CROGRAR . PART NO. §129613 | IBR MAIBNZTESANCE DIAGBOSTIC PROGRAS = 4 iz * PART #0. 5129613 . ; 2 
: ; ; : PAGE 2 ' @ G : : : PAGE ; 2a &, 
B013 FILE CORTROL UNIT FLT SECTIOB 2 | ¢ eS BO13 FILE CONTROL UNIT FLT SECTION 2 e 
eS & Ree 
ERR LOC OBJECT CCDE ADDR STST SOURCE STATESEST ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 
OCiE CO 87 10~a4 138 B ABTE. SET § TO. &: CG 0D26 CO 81 OCB6 203 BE aDv3 24 
OCiF CO 87 OC6RB i 439 B LISP Op2a cO 87 118A 208 .B TURN 
0c23 CO 87 16~AC 140 B SHOP 256 WER OSC TIMES CRT OD2E CO 87 OCBE6 205 8B ADV3 
0C27 CO 87 10Cc4 141 B WHELK BR TO NE@ ROUTINE CG “3 206 *##4¢¢ SUBROUTINE TO COBP DFCB Seeeoeses 
O0C2B CO 87 10CE 142 EB STaT STATOS ROUTINE ; OD32 30 A6 13EB 207 CHERI SWS TOAD. X*A6* CHECK DFCR 
OC2= cO 87 10F0 143 B VARY SET WR OSC BIT ON SER DATA ROUTINE OD36 OD 01 13E8 1381 208 cLC TOAD (2) , Faye¢2 Z 
0c33 CO 87? 10FC 144 B WARY SET WR OSC BIT OFF SER DATA ROUTINE : c Cc: Op3C CO 81 OCBE 209 BE ADY3 BRANCH TO ADD 3 TO PTR aie ® 
0C37 CO 87 1108 145 B BIRE SET SENSE BY BIT Op4u0 CO 87 118~ 210 B TURG : 
9C3B CO 87 113110 146 E TINE SET SENSE BY BYTE Opus CO 87 OCBE 211 B aDy3 
OCc3¥F cO 87 1118 187 B @IRE SET SEP CLX OFF SER DATA ROUTINE GQ GS 212 #¢#%¢e SUBROUTINE TO GO TO ALT PARA SSOSCCSOR 
0c&’3 CG 87 1120 148 B WIRY SET SEP CLK ON SER DATA ROUTINE Opes 36 01 13E8 213 FACT A THREE, XB1 aad a 
ocu? cO 87 1128 189 B SINT SERIALIZE DATA CHAR WITH SENSE ODsC 38 61 W3EP 214 3T ALTAR, XR1 7 
Oc4B CO 87 1130 . 150 B SINE : C = Ops0 35 01 1351 215 L PAY¢<,XR1 : S 
OCUF CO B87 11T3E 151 B LINT SERIALIZE DATA CHAR SENSE AND COP Op54 CO 87 OBAS 216 B PANDA 
0C53 CO 87 T1HA 152 E ACRID 217 “#8ee¢ SUBROUTINE TO RTWB TO MAJOR PARA 46880008 
OcS57 CO 87 115a 153 B POOR _ GO TO SCAN FRD TOUTINE . Cc G 0D58 35 0% 13EF 218 TACT L ALTAR, XB1 te = 
OCSB CO 87 O2TA 188 PEER E PRIET ODSC CO 87 OBAD 219 3 ' PANDA : ; 
OCSF c6 OCSF 155 pc ILi*c6* . - 220 ##¢%*¢ SUBROUTINE TO COBPARE DATA CBAR 99698G85% “ 
oc60 ID 0c60 156 re IL1*299 c on 0D60 OD OC 1E00 1380 221 CAPE CLC BARK (1), FAY?! CCRP DATA CHAR . * CS oan 
Oc61 OC8B 0c62 157 bc AL2 (BDPARBS) 0D66 CO 81 OCBA 222 BE ADV2 BRANCH TO ADD 2 TO PTE 
0cC63 AOCF Oc6e 158 BC XL2* AOCF* OD6A CO 87 118a 223 B SCORN. 
o0c65 cO 87 0222 159 B BALT : / CS «. ODGE CO 87 OCBA 2248 B aADV2 * 
OCc69 AOCF Cc6A 160 pc XL2*aOcF® : 225 *#¢%%e SUBROUTINE TO DATA CHAR O92 48668845 
0C6B CO 87 12EC 161 LIME B Goour Op72 Cc 00 1298 1331 226 TRACT aVvC ARDY (1), FaY+2 
OC6F DILSLE6CTD9CIDERO OCS8B 162 BDPARM DC CL29* PROGRAM ERROR - BAD PARASATER® € co Op78 Oc 00 13A8 13p0 227 PART AVC CAREA(1) , FAY?1 re 
O0C77 CSP9D9D6D9406040 162 OD7E 3c 68 13F3 228 CRE BVI CLK1I~7,X*68% RDSET CLOCK LIO BYTE 
OC7F C2cCiIC8SOLIC IDSC 162 GpD82 3c 4& 13275 ; 229 BVI FETE~1,xX*a4? RESET DATA L110 BYTE 
OC87 L&CTE3CSDS 162 €: as Op86é OC 02 13A7 13D9 230 ayvc CAREA-1(3) ,CHE*1 oe 
163 ##*ee80e82 SUB ROUTINE ITO CCNTRCL FY BIT Seessesese Op&c 38 O8 13A6 231 STOBE TEN CAREA-2, X*08* IS TaZIS BIT RING 1 
ocsc oc 06 2298 1380 1648 AMILE HYC ANDY (1), FAY¢1 SET PARA CST IB PARA, CHTR ' ODSO F2 90 OB 232 JF RACY 
OcS2 CO 87 GCCE 165 DLYSK 8B ERGO DELAY S¥ITCH Cc | C: OD93 3B 0&8 13F3 233 SBF CLKI-1,X%° 08? RESET INH CATA CYCLE REQ ae 
0c96 OC 006 132 i3AF 166 FANCY #svC ELLA-1(1) , FAY MOVE PARA CizR TO CE LIO { OD97 32 O&8 13F5 2348 SEF FETE-1,2%°04° RESET INH DATA CYCLE REQ 
oc9Cc 31 &£3 13C3 167 LIOo ELLA,X*A3°* CE Lio us | OD9E 38 61 13a5 235 RACY TBN CAREA~-3,xX*O1* Is THIS BIT BING 6 
OcAO OF 00 1298 13D8 168 SLC ANDY {1} , ONE SUBT ONE FROM PARA CST  =.- a \ Cc: ODSF F2 90 IE 236 JF BRACT = 
OcA6 CO 01 6C92 4169 BENZ DLYSH CORTINUE ONRTIL O ODA2 CO 87 OCDA 237 RINK B DANTE 
OCAA CO 87 OCBA 170 B ADv2 a | Gpa6é CF 00 1298 13D8 238 SLC ANDY (1), OBE 
OCAE 36 01 13D8~ 171 ADVS a ONE, XR1 oo : go j G Opac co 01 ODT7s8 239 BNZ PART oy 
OCB2 36 01 13D8 . 472 aDVa A ONE, XR1 “ee OpBO 3c 87 ODA3 240 RVI RINK¢1,X°87* 
OCB6 36 01 13D8 173 ADV3 A ONE, X81 | ODBY 3C 07 ODE? 241 BVI FPOES¢1,x°07* RESET SHS PROBES SB 
OCBA 36 01 13De" 174 ADV2 a ONE,XB1 ¢ @ G@DBe 3C G7 ODE3 242 avI ZONE*1,X*07* RESET DATA FLD S# 9 
OCBE 36 ovv13De 175 abDvVi a ONE, XR1 | Spec cO 87 OCcB6 243 B ADV3 , 
OcC2 CO 87 OBA9 See ; 176 B PANDA GO GET NEXT PARA OpcoO OF O03 13A8 13A8 244 BRACT ALC CAREA(4) ,CAREA SHIFT BITS 
177 @808¢886¢8¢ SUBROUTINE FOR DELAY *4£499489990240849239089 € { € ODc6 38 07 13a7 245 TBS CAREA~-1,X°07* : & 
Occ6 OC O62 13cC 13CF 178 ERGG svc BEIGE (3), TAN DELAY COUNTER ! OpcaA cO 90 ODDS 2456 BF RACE 
Occc OF O02 33CC 13D8 179 ENGO SLC BEIGE (3) ,ONE ; ODCE 3A 08 13F5 287 SBR FETE-1,X%*08* 
OcD2 cO 01 GCCcC 180 BRZ ENGO € ¢€ GDD2 cO 87 ODDA 1 288 B TRACY & 
OcDé CO 87 CCc96 181 B FANCY : OPD6 3B O08 13F5 249 RACE SBF FETE~1,X°08* , 
182 ¢#*e¢¢ SUBROUTINE TO COMP BUSY AND EXROR Ft S3SeEes r ODDA 371 AZ 13F4 250 TRACY Lr0 CLK1,X*A3* CE LIC CLCCK 
OCDA 34 08 OCFS 183 DANTE ST PGRT+3,X'O8* @ e€ ODDE 31 a3 13F6 2571 L110 FETE, X*a3'* CE LIO DATA on $ 
OCDE 3C 00 13F0 184 AVI ANRA,X*0O0? ‘ : ODE2 cO 87 OE62 252 ZONE B BRANA DATA FLD CHAR 
OCE? C1 AO OCFA ; 185 T1O AVA,X*AQ?* COMP BUSY AND EBROR ODE6 CO 87 OFS8E6 253 FCES B SALA SWIICH TO ALLOW PROBE SEKSE 
OCE6 Ci A2 OD02 186 CARY T1i0 BETH, X*aA2* TEST BUSY € @ ODEA cO 87 ODSC 2548 LACY 5 STONE & 
OCEA 3D 00 13F0 ‘ : 187 DART cLI ANNA,X*00* ODEE 38 80 O0F87 255 FROG TEN GALA@1,X* 80° SNS AT BIT RATE 
OcCEE CO 81 OCF6 188 BE PGRT ; ODF2 F2 10 12 256 JT SNAG 
OCF2 CO 87 148A 189 B TURN dr c ODFS 38 20 1358 257 TBR ART-7,X* 20° 4 
OCF6 CO 87 OCFE 190 PGRT B PSRET ODF9 F2 10 13 258 jt S#8OG 
OCFA 3B 01 143F0 191 AVA SBN ANNA, xX*0O1° SET ISD FOR ERROR ODFC 38 20 1339 259 TBR ART-6,X* 20° 
OCFE CO 87 OCE6 192 B CART C. - a QEOO F2 10 OC 260 JT Ss80G ‘ 3 
Op02 3A 10 13F0 193 BETH SBN ANNA, X*10° SET IND FOR BUSY . _ ©0£03 CO 8&7 106D. 261 B aut 
* ODOG CO B7 OCEA 1948 8 DaRT O£D7 CO 87 OEOF 262 SWAG 8 SNOG 
195 *eer¢8 SUBROUTINE TC COMPARE CTL FLD BO SSS4EKEE Ce: € O£EOB CO 867 106D 263 2 ART oO 
ODOA OD 03 1FO4 1383 196 PROD cLe ARNES3 (4) , PAY*4 CGHP CONTKOL FIELD OEOF 34 08 CES! 268 SHOG. ST GAS*3,%*08* STORE RETURN 
O0p1G CO 81 OCAE 197 EE ALVS 0E13 36 07 13D8 265 FRUIT A ONE, XB1 
Onp14 CO 87 118A 198 B TURN c3 G O£17 06 31 1343 1348D 266 BRUTE AZ CRUX (5) » TEN (2) ADD 1 TO cTR a 
Opi8 CO 87 OCAE 199 B ADVS y OQEID 30 a3 13C9 267 SNS FLUID, X*a3* SHS PROBES 
200 *##*es% SUBROUTINE TO COSPARE DFDR eteseceee . O£21 38 80 13Cc9 268 SBF FLUID, x* 80° SET BIT 0 OFP 
ODiC 30 A& 43E9 201 BANA SNS BROAD,X*a’* SENSE DFDR Cc o OE25 3D 02 OAO3 269 CLI Cyuom,x*02°* CG 
OD20 OD 01 13E£9 1321 202 CLC BROAD (2) , FAY*2 COMPARE TO PARA : OE29 CO 01 OE3D 270 BNE DIX 
i 
6:93 O 
DATE O28aR70 O1VAPR70 O6NAxY70 01J30L70 PROG ID 0301-3 ' DATE OZBAR70 O1APR70 O6NAY7C 0130470 . PROG ID OB0N1-3 
EC KO. 5715342 571516 §71513 $71526 ev PAGE 2 ‘ EC WOW 571512 571516 571513 571524 PAGE 2a 
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IBM MAINTENANCE DIAGHCSTIC PROGRAA PART WO. 5129613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129613 
. PAGE 3 c = PAGE 3a 
BO13. FILE CCMTROL UNIT FLT SECTION 2 8013 FILE CONTROL UNIT FLT SECTION 2 
ERR LCC CBJECT CODE ADDR STMT SOURCE STATEMERT EBR LOC CBJECT CODE ADDR S1MT SOURCE STATEMENT 
O£2D 3B 10 13C9 271 SBF  FLUID,X*10® OF1E OFZO OF1F 339 pc AL2 (BALL) 
0£31 38 02 13¢8 272 IBN  FLUID-~1,x%°02° OF20 CO 87 021A 340 3 PRINT 
0£35 CO 90 CE3D 273 BF DIX OF24 06 OF24 341 D XL1" 06° 
0£39 3A 10 13C9 274 SBR FLUID,xX*10* . OF25 Oc OF25 342 DC XL3'0C* 
OF3D 4D OO 02 13C9 275 Dix CLC 2(1,XR1),FLOID OF 26 1022 OF27 343 DC AL2 (PANT) 
OEG2 CO C1 OFS6 276 BNE YELP OF28 CO 87 0222 384 B HALT 
OE&6 3C G7 ODA3 277 MVI «- RINK*1,x°07* c OF2C AOFO OF2D 345 DC XL2*AOFO* 
GEUA CO 87 OCDA 278 B DANTE OF2E CO 87 1023 3&6 B WAIL 
OFGE CO 67 OEUE 279 GAS B GAS OF32 CO 6&7 OCBE 347 B ADYV1 
0£52 CO 87 ODEA 280 B LACY OF36 GECI60E6F3D2F26E OF43 348 BALL DC CL14*, B~W3K2, R~-W3R2? 
0£56 348 08 CE61 281 YELP ST KELP+3,X*08* OF3E C16CE6F3D9F2 348 
OESA CO B7 1182 282 B TORN OF44 6BCIGOE6F3D9F26B OFS1 349 pc CL14*,A-83R2,Aa-W3S2° 
OFSE CO 87 OESE 283 KELP 8 KELP ; OFSC CIE0EGF3E2F2 349 
OE62 38 O8 13A6 28% BRANA ‘BN  CAREA-2,X*08* IS THIS BUT RING 0 OF52 €BCI60E6F3D9F26 OFSF 350 pc CL14*, A-W3K2,8~63S2* 
OEE6 CO 10 OEGE 285 ET CRIME OFSA C160E6F3E2F2 350 
OES& CO 87 CDEA 286 B LAcY OF60 4OUCKONO4ONONOND OF6D 351 DC CLis* ’ 
OEGE 31 AS 135D 287 CRIFE LIO0 BESS,X*As* RESET DFDB OF628 4O4CuUOuOLORC 351 
0E72 3€ 11 1£00 288 MVI- BARN, X*21° OF6E GBCIGOF6F3D2F26B GF7B 352 pc CL14*,A-W3K2,A-B3L2° 
CE76 CO 87 OETE 289 B RUBE OF7€ C1EQE6F3D3F2 352 
OE7VA CO 87 ODEA 290 B LACY OFTC 2O404C4CLOSO"O4O OF89 353 pc CLi4u¢ : 
OE7E 34 08 0E51 291 RUBE ST GAS+3,x* 08 STORE RETURS OF84 4CACKO4OUOND 353 
0£S2 CO 87 0EI7 292 B BRUTE OFSA 4O4OUCKONONCKCHO OF9T 354 pc CLi4e ’ 
O£86 CO B7 CE96 293 GALA B SKOG OF9Z 4O&04O4DNCRO 358 
OEBA 38 O08 1326 294 TEN CAREAR-2,X"08* IS THIS BUT RING O OF98 OFK3 OF9S 355 HALL pC AY.2¢WALL) 
OE&E CO 10 CEOF 295 ET SHOG OFSA SOCSCE4OC3DGEYIS OFC2 356 BC CL41" IF COUNT 1S CTHER THAN 10 REPLACE A-¥332* 
0E92 CO 87 ODEA 296 3 LACY OFA2 E34CC9E2ZNOD6E3CB 356 
0ES6 CO 87 OEOF 297 SKOG B S#CG OFAA C5D980E3C8C1D540 356 
OESA CO 87 CDEA 298 B LACY OFBZ F1FO40D9CSD7D3iC1 356 
299 ##8e88 SUBROUTINE TO INITIALIZE INDEX se oeseees OFEA C3C540C160E6F 301 356 
DEQE 3¢ CO 13C4 300 WORK MMVI BELL~1,X‘CO# OFC2 F2 356 
GEA2 CO 87 OEAA 301 B YORK . : OFC3 4O4O4O4O4O4OKCKO OFDO 357 BALL dC CL1Gt ‘ 
302 **#*#4e0 SUBRCUTINE TO INITIALIZE SET TO 8 eeaneesess OFCE sCuC’O4D4OND 357 
OEA6 3C 40 13cu 303 SEARK Vi BELL-1,x*40* OFD? j00E OFDZ 358 FRIX DC XL2*O00E* 
OFAA 30 A3 13C7 304 YORK SNS BAM,X*A3* CHECK PROEES : : 359 #eeee¢ SUPRCUTINE TO TEST HALT WITH DFLAY OFF ee eeeeses 
GEAE 38 02 13C7 305 TEN BAM,X*02° BIT RING 0 OFD3 3C 07 0c93 360 SEEF EVI DLYSW+1,x*O7! SET DELAY SW OFF 
OEB2 CO 10 GCBE 306 ET ADV1 OFD? CG 87 1023 361 B NAIL 
OFH6 31 A3 13C5 307 LIO. BELL,X*a3* WRITE OSC 2 OFDB CO 87 021A 362 P PRINT 
CEBA 39 A3 13C7 308 SKS BAM, X* a3! OFDF 06 OFDF - 363 DC XL1°06" 
OEBE 38 02 13C7 309 TBN BAS,X*O2* OFEC cc OFEO 364 DC XL1*°0C® 
OEC2 CL 10 CCBE 310 BT ADV? 2 g OFE1 1022 OFE2 365 DC AL2 (PANT) 
OEC6 CO 87 T18R 311 B TORN OFE3 CO 87 0222 : 366 B HALT 
GECA CO 87 OCBE 312 E ADVI OFE? AQEO OFE8 367 Dc XL2*AOFO® 
313 *#eeee SUBROUTINE TO RESET DFDR serecsess - 2 OFE9 CO 37 1023 368 B NAIL 
OECE 31 Aw 135D 314 SALT LIO  BESS,xK'aue RESET F DFDR OFER CO 87 OCBE 369 B ADVI 
OZL2 CO 87 OCBE 375 EB ADV1 OFFY SOC2IDG6EUDSE34O0D7 1022 370 PANT Le CLEO0* CCUNT PULSES ON CE PROBE-SHCULD BE 10-PRESS START* 
316 #088 CHANGE BUSY OR ERROR ROUTINE a z OFF9 EUL3E2ZCSE2RODEDS 370 
OELD6 CC 00 OCEE 13E0 317 SAIKT BVC  DART+#1(1) ,FAY#1 1001 40C3CS¥OD7D9DEC2 . 370 
OEDC CO 87 OCBA 318 E ADV2 1009 CSE0E2ZCEDEESD3CK 370 
319 #*#e82 SUBROUTINE TO TEST SENSE PROBES seeeeeses ‘ 5 10112 SOC2ZCS5S4&CFIFO60D7 _-370 
OEEO 30 a3 13¢9 3279 FOOD SNS  FLUID,X*A3* SENSE PROEES Oi CSCSEZEZ40E2E3C1 370 
OFE4 3B FB 13C9 321 SBF FLUID,X*F8* 1021 DIE3 / 370 
CEE8 %D 00 13C9 13B0 322 CLC FLUID(1),FAY+1 s 3 1023 38 O08 103A 371 NAIL ST TACK+3,X*08* . 
OfEE c0 81 OCBA 323 BE ADV2 1027 OC 02 13CC 13CF 372 MVC _BEIGE(3),TAN 
OFF2 CO 87 118A 328 B TURE OZ" -F O02 13CC 1378 373 SPIKE SLC BEIGE(3),ORE 
OEF6 CO 67 OCBA 325 B ADV2 : = 1633 co C1 102D 374 BNZ SPIKE ie 
326 **#¢es SUBROUTINE TO TEST HALT WITH DELAY 28 eeseeeees 1037 CO 87 1037 375 TACK PB TACK 
OEFA 3C @7 0C93 327 STOOP eVI DLYSW+1,X*87* SET DELAY SW OB 376 #98¢¢8 SUBROUTINE TO SET UP A-™% CHAB FlSKSEESE 
OEFE CO 87 1023 328 E NAIL : t 103B CC 00 13BF 1380 377 FLAT MVC ART(1),FAY*? * AB CHAR BOUTINE 
OFO2 CO 87 C21Rz 329 B PRINT 1041 OC 00 133BE 1380 378 PVC ART-1(1) ,FAY#1 
OFO6 41 OF06 330 pc XL1¢g1¢ 1047 CC 00 13BD 1311 379 MYC  ART-2(1) ,FAY+2 
OFO7 26 OFO? 331 rc XL1*26° c @ TO“E CC OO 13BC 1381 380 MVC ART~3(1),PAY¥+2 
OFO8 1016 OFO9 332 DC AL2 (PANT-12) 1053 OC 04 13BB 13DA 381 BVC ART-4%(5) ,OKE+2 
OF CA AOF9 OFOB 333 DC XL2* AOFO? 1059 3C 24 13C0 382 ELAN HVYI ABNER-1,X'24¢ CLOCK EYTE RESET 
OFOc Oc OD GFDO OFS3 334 MALL MVC BALL(14) ,WALL - € 1050 3C 04% 13C2 383 GRAIN RVI  ELLA-1,x°04" DATA BYTE RESET 
OF12 OE 01 OF 11 OFD2 335 ALC = SALL¢5 (2) ,FRTN ADD 14 TO MOVE FROM ADDRESS 1067 38 01 13B7 384 IBN  ART-8,X°O1* 
OF1€ CO 87 021A 336 B PRINT 1065 CO 10 109C 385 BT ORGY 
OFIC 01 OFIC 337 pc XL1°018 ¢ @ 1069 CO 8? CDEE 386 EOk B FROG : Sy 
OF 1p 37 OF1D 338 pc XL1°37# 1060 38 80 135C 387 ANT TBN ARI-3,%°80? TORN ON AM BIT 
DATE O028AE70 01APR70 O6May70 01J0L70 PROG ID 0B01-3 DATE O2FARTC O1APR70 O6RAY70 0130L70 '  -pROG ID 0B01-3 
EC NG. 571512 571516 571513 571524 PAGE 3 EC WO. 571512 571516 571513 571524 ; PAGE 3a 
& Cc , 
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IER MAIKTENANCE DIAGNOSTIC PROGRAR 


BC 13 


4108 
470C 


171G 
1178 


1178 
Wic 


1120 
1124 


4128 
412Cc 


1330 
17136 
TI3A 


VIZE 
1142 
1146 


114A 
TIVE 


DATE 
Ec No. 


202020808 8@890080082080 


FILE CCBTRCOL UNIT FLT SECTION 2 


CRJECT COLE 


F2 
38 
F2 
F2 
3a 
co 
3a 
31 
31 
OE 
co 
3c 
co 


3c 
co 


uc 
31 
oF 
co 
co 


co 


31 
31 


07 
&7 


20 
87 


20 
87 


87 
87 


09 
87 
87 


87 
01 
87 


A& 
Au 


oa 

13BE 
OB 

oc 

13c0 
i074 
132 
13C1 
33c3 
138F 
1059 
406A 
OCB6 


TFOS 
OCBE 


13FO 
V3A4 
13Fi 
10B2 
OCBA 


10CD 
WC 


13a9 
13k2 
i3A0 
T3A1 
T3A1 
OCAE 
TIBA 
OCAE 


OD7F 
oDs3 
CCBE 


OD7JF 
cba3 
OCBE 


OEB? 
OCBE 


OE87 
OcBE 


OD7F 
OCBE 


CD7F 
OCBE 


ODE? 
OD72 


13BF 
106A 
1089 


ODE3 
13D8 
oD72 


1355 
1357 


O2%AR70 


571512 


13BF 


1390 


73D8 


1351 


V3B2 


1371 


i 


O1TAPR70 
571516 


AUDDE STST 


388 
389 
396 
391 
392 
393 
394 
395 
356 
397 
398 
399 
400 
401 
&O2 
803 
404 
405 
406 
807 
408 
809 
410 


SOURCE STATESENT 


at ACT 
MAT TBN aRt—-1,X* 80? TURN CNH DATA BIT 
aT AXE 
J BAT 
ACT SBN ABNER-1,X*10* SET AP BIT OX 
E “aT 
AXE SBN ELLA-7,¥*°08* SET DATA BIT OF 
BAT LIC ABNER, X*a23? CE LIG POR CLOCK TIHE 
110 ELLA,xX*A3? CE LIC FCR DATA TIEE 
ALC ART (10), ART SHIFT £1TS 
B ELAN 
ORGY "YI  EON+7,x*?O7" SET SW OPF FOR SENSE ER 
B ADV3 
seeee% SUBROUTINE TO SET 8 TO O eeovesees 
ANTE $MVI  ARBNE+3,x*00* SET N BYTE TO 0 
2 ADV? 
##385% SUBROUTINE TO FORCE 256 X PARA CNT OSC 899b9n0ds 
SHGP NVC AKXO~1(1),FAY*? MCVE COUNT TO CCURTER 
SEPAL 2110 ARID,X*A3* CE LIO wR OSC 
SLC ANC(2),ONE SUBT ORE 
BEZ SEPAL CONT TILL 3 ZERC 
E Apv2 GET NET PARA 
q?*9* SUBROUTINE TO BRANCH TO NEE ROUTINE oesereses 


PART NO. 


PAGE 


5129673 
& 


817 WhELK MVC BEAT#3(2),FAY+2 
412 BEAT 8B BEAT 
413 Seeaeeeeee SUBRGUTINE TO CHK STATUS  *™s9e¢en9 
814 STAT SNS  WAD,X*A2* SENSE BYTES Y AND 1 
445 SNS  WED,X*A3* SENSE BYTES 2 AND 3 
4816 SBF WAD,X'48* SET DON'T CARE BITS CFF 
447 SBF  WED-1,%°73! SET DCN” CARE BITS OFF 
418 CLC WED~1(3),FAY+3 COMP STATUS TO PARA 
819 BE ADVS 
420 E TURN 
4214 B ADVS 
422 *92¢889SET WR OSC BIT ON SERIAL DATA ROUTINESsececseeees sss 
423 VARY SEN ORE+¢1,x*408* SETSET OSC BIT O8 
824 SBR ORE+5,x?G0! SET OSC BIT OF o 
825 B ADVI 
426 ##4e488SET BR OSC BIT OFF SERIAL DATA ROUTINES@ esseeseeoeszess 
&27 WARY SBF ORE+1,X*SO? SET OSt: BIT OFF < 
828 SBF OE+5,X*40* 
429 B ADV1 
§30 £44483 SET SENSE BY BIT St Sts ous 46 FFF OSES SS TES 7 
431 WISE BVI GALA+1,X*87° SET SENSE TO BIT RATE 
432 E ADv1 
433 S€F*SSRE SET SENSE BY BYTES SHO 9F6 S86 5 SE SUES SCE 7 
434 TINE VI GALA+1,X°07" SET SENSE TO EYTE RATE 
435 B ADV1 
436 ¢o%*eeeSET SEP CLK OFF SERIAL DATA BOUTIBE *90eeestensceesess ¢ 
437 WIRE SBF ORE*1,2%°20° SET SEE CLK BIT OFF 
438 B ADVI ‘ 
439 *e¥8a8¢S5F7 SEP CLK ON SERIAL DATA ROUTINE S#eseeceevaverse c 
840 WIRY SBN ORE*1,X°20° SET SEE CLK BIT ON 
441 3 ADVI 
442 ¥9eeSeaSERTALIZE DATA CHAR WITH SENS@#eteaeessoaysogeeres ce 
443 MINT BVI FOES*#1,xX°87° SET SW FOB SNS PROBPEX 
auy B TRACT 
yas eee eee AM CHAR WITH SENSE SLSVSSCHSSISVASS ee 
446 SIXE MVC ART(10),SPART 
447 mVI- ECN#1,X°87* SET Sé FOR SNS PROBES 
448 B ELAN a 
449 SeeeeeeeSFRIALIZE DATA CHAR WITH SENSE AND RESET DFDRO##ss90ss8809 
450 LINT VI ZONE¢1,x*87° 
451 A ONE, XR1 C 
452 B TRACT 
453 BQ*seeSeT EST CE LIO ROUTINES #8460888 888446 
454 ACRID LIO CORN, X*as* Cc 
455 LIO CORD, X*AG* 
O6MAY70 01J305L70 TROG ID 0301-3 
571513 571528 PAGE 4 
gS 
c 
rc. 
¢ 


wy 


O 


& 
‘Se 


IE#® MAINTENANCE DIAGNOSTIC PROGRAM 


8013 
ERE LCC 


11952 
1756 


1454 
T15E 
1162 
¥16E 
VI6A 
V16E 
1772 


1176 
117C 
3780 
V1E3 
1187 
TISA 
T1BE 
1192 
7198 
TI9E 
VIA2 
ViaB 
VIAC 
17180 
T3B4 
TTEB 
1178¢ 
11c0 
11C6& 
11ca 
1icR 
11Cyv 
lic 
11D3 
1159 
i1DF 
11E3 
TIES 
TIEF 
11F5S 
VIFR 
11FF 
1203 
1207 
1268 
1209 
1268 
120F 
1233 
1297 
T2VE 
T27G 
t242 
W2it 
1220 
1224 
1226 
122A 
T2Z2E 
1236 
1236 
1240 
12468 


24E 
41252 


CATE 
Ec NO. 


FILE CONTROL UNIT FLT SECTIOR 2 


CBJECT CODE ADDR STMT SOURCE STATERENT 
34 Au 1355 456 LIO CORN,X*AS? 
CG 87 OCCBE 457 3 ADVI 
458 *#*ee2e"4ROUTINE TO CHECK SCAN 
3¢ 01 1167 459 POCR HYI FOR+3,x°01? 
C1 AS 1166 860 TIO FOR,X'RS? 
3B 01 1167 464 SBF FOR+1,%°03" 
3D 00 1380 462 FOR CLI FAY+i,x°O0? 
cO 84 OcBA 463 BE aDV2 
CO 87 11BA 464 E TUBN 
CO 87 OCBA 865 B ADV2 
466 t4¢5e9244% PRINT SUBROUTINE 

8OD540D54040 417B 467 OGLE cbc L677 NW ft 
3c £8 1271 468 ELF RVI NIBS+2,xX*E8* 
F2 87 7C 865 J FLY 
3C E8 1273 470 BUG MYI  NIBS+4,X*ES8" 
F2 87 79 473 3 FLIT 
3¢ GO 1266 u72 TURK AVI OPINE,xX*00° 
CO 87 14F7 473 ONLY B CNCE 
Oc 15 7265 1266 a74 MVC OFINE-1(22),OPINE 
Oc CO 1252 1298 475 MVC ANDES (1) ,ANDY 
34 67 1251 876 ST ANDES—7,XR1 
OC 03 125E iFO4 477 NEON NVC KITE(4),ARNE+3 
30 a2 1257 478 SNS _KNIT~2,X"a2?* 
39 A3 1259 u7¢ SNS  KNIT,X'A3* 
3B SA 1257 4B0 SBF KNII-2,X*4a! 
3 ge? 1258 481 SBF KNIT-1,xX"07! 
:@ 5 1261 482 SNS KIT, X*A6* 
30 Aw 1264 $83 SNS KAT, X'aA4at 
0c 00 1266 1£00 684 NVC OPINE{1) ,BARN 
CO 87 C21E 485 3 UNPACK 
18 T1CA 486 Dc XL1'488 
1266 t1CC | «687 pc AL2(OPINE) 
1267 11CE 488 pc AL2 (UNIT) 
CO &7 122E 489 STAR £ BUEN 
OC 03 126D 73Fa 490 HVC NIBS-2{8%),ALBS-1 
OC 05 1275 1178 4917 SLEB HVC WNIBS+#6{6),CGLE 
3c 46 1269 492 NVI NIBS—-6,xX°8O8 
OC 0% 1295 1175 493 SVC UNIT—2(2) ,OGLE 
OC 01 128F 1178 494 HVC UGNIT-~&(2),OGLE 
Oc 07 1289 1175 895 MYC UNIT-14(2),CGLE 
OC 61 127F 1173 4S6 MYC UNIT-2%(2},GG1E 
Ci a2 117C 497 TIC ELF,X*A2* 
Ct AO 1183 498 FLY TIO BUG,X?20° 
CO 87 O21A 499 FLIT 2 PRINT 
01 1207 500 pc XL1°0178 
2F 1208 507 pc XLi92F* 
1297 120A 502 Dc AL2 (UNIT) 
2D F9 13F7 503 CLI ALES-4,X°FQ! 
CO 04 1218 504 BRE PALL 
CO 87 O218 505 B PRINT 
06 1217 506 re XL1° 06° 
16 1218 507 Dc XL1°76? 
124D 121A 568 BC AL2{(CALL) 
CO 87 O21A 509 PALL B PRINT 
1S 121F 510 pc XL1275* 
cO 87? C222 511 3 HALT 
aoc1 1225 512 DC XL2* a001* 
COQ 87 OB2E 513 B TRUST 
CO 87 12EC 514 B GCOUT 
Oc O05 126F 1342 515 BURN MVC NIES (6) ,CRUI~1 
cO &? 11D9 S1€é B SLAB 
KOL9CSD7D3C1C3C5 128D 517 CALL vc CL22¢ 
4 CC 160E6F 3D 1F26B 517 
C160E6F3D2F2 517 

O21A 518 PRIKT EQU  X*21A* 

O021E 519 UNPACK EQU  X*21E! 

1251 520 NOT DS CLa 
00 1252 527 ANDES DC XL1°00° 
O2MAR70 C1APR70 O6mMAY70 0130L70 
571512 571516 571513 571528 


PART NO. 
PAGE 


FOUND 4#44¢449% 049536588 


FRERMAKEKSESROKKKEKSTE 


MOVE ¥ TO PRINT 
MOVE ¥ TO PRINT 


CLEAR UBRPACK AREA 


STORE MSG COUNTR IN PR AREA 


SENSE 07 

SENSE 23 

SET DONT CARE BITS CFF 
SET DONT CARE BiTS OFF 
SENSE DFCE 

SNSE DFDE 


MOVE BSG NUMBER TP PR 


MOVE BLANK TO PR 


5129673 
SA 


NCVF BLANKS RETWEEN FLDS TO PR } 
MOVE BLANKS BETWFEN FLDS TO PR , : 
BOVE BLANKS BETWEEN FLDS TO PR 
MOVE ELANKS BETWEEN FPLUDS TO PR 


TEST FOR EUSY 
TEST FOR ERROR 


REPLACE A-B3J2,A-¥83K2* 


PROG ID 
PAGE 


0801-3 
SA 
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IBS MAINTENAHSCE DIAGKOSTIC PROGRAS 


BQ13 


E£Re LCC 


1253 


Y2SA 
125F 
$262 
1285 
1267 
1276 
F296 


42593 
129 
4283 
T2487 
Y2RE 
‘3284 
$2BS 
4268 
SABC 


tee 
42C8% 
$202 
F2C5 
§2b8 
1208 
2200 
V20D 
V2DE 
T2EC 
4222 
226 
S2E€ 
EZEC 
T2FO 
VE? 
$2P 9 
I2F9 
42FB 
T2¥E 
41309 
1308 
@ 230% 
23723 
$334 
73723 
333c 
anuk 
t22% 
W32k 
| $337 
$237 
2332 
Z Ieee 
S3a5. 
7552 
8540 
$344 
435% 


4358 
33S¢ 
SESE 
13606 
3365 
3366 
T3GA 
4372 
3376 


DATE 
EC BC. 


FILE CONTROL UNIT FLT SECTION“ 2 


OBJECT CODE ADDR 
7259 
1255 
1263 
1264 
1266 
126F 
3297 

06 41298 

34 OS 42BF 

OC 03 YFOS 13148 

co 87 t234 

38 06 12Z5F 

OC 03 IFOR 1316 

34 46 41357 

¥3 ao GO 

co 87 1200 

co 8? 428C 

3% 88 3342 

GC 00 T3CK 43D8 

30 AZ W389 

OF GZ 23CC WSDE 

cG 6% 4307 

Co QF Gata 

cé T2bCc 

cB 2D 

#36 Pan 

ROCZ 4227 

cC 87 0222 

Ante 42ZE7 

cG 87 SAZE 

34°36 Y2FA 

F3 aQ 0 

eG 87 G22% 

£O5G {278 

32FB t2Fa 

£OCGCSCG V2FE 

BOLOCSCSU BR OFSPS 7506 

38 70 34d 

£9 3G 42c3 

CG &7 130F 

Cacooacs T2336 

8ocaeetos TERR 

DF 2373 

W346 * 4395 

FSOFISCESFOEOFO 324 

FIFGFLP OP CHO 3328 

FIFOFSEOPOPG $336 

FOROF CF OPOFG 2336 

BStCFCFOPOFS %33C 

FOPOP OL OF GFOFO $38 

SQRORCEGES 3386 

FOROPO? FG V35D 

A269 they 

ChCasas3 9353. 

Se Fe 133% 

occa F394 
G6e% 

CGOCOSGAS 7358 

VEOO 43SB 

UF Cs V3SP 

EICSCGaGFY 4368 

O96 2368 

€0coocos V369 

COCIGCOOWIAC2CZ 1374 

COCOSSaS $375 

GOCOSEDe 1378 

GC2RnAR7S OTAERTO 

572332 571316 


PRRT NO. 


5429643 
PAGE 5 


STST SOORCE STATESEST 
522 KWIT BS cLy 
523 KITE CS CLs 
52% KIT DS cL3 
525 KAT DS cL3 
526 OPIRE DS cL2 
S27 BIBS DS cue 
528 OEIT HS CL4o 
529 axpy ne KLE 00! 
S36 SStSEetSsHROOTIBES TO SELECT BERD G& OR 4 SPOKE SHE SE HEH SSR OSHS ES 
53t BOSS st HASK#3,3°O8¢ STORE RETURE 
532 HVC «= ARNE+3 (4) ,BASK SET UP POR HD 4% 
533 B MASS 
538 BASS ST HASKe3, 4° 08° STORE BETORB 
535 HVC «=: ARNE+3 (4) , PASS SET UP FOR HD OS 
536 MASS LYIG ABBE,X'A6? 
537 SIG E£*00*,K*RO® S¥Ex 
538 2 ANISE 
539 SASK 2. SASK 
54Q veesseeces SUBROUTINE TO CHK SK BUSY *FesoseeeHnreee 
507 ANISE ST AHVEZL¢3,%1 08? STORE RETORE 
502 BSC BEIGE-2¢1) , ONE SiT UP TIHE OUT CTE 
542 ATTIC SHS 6kD,XtA2" SENSE BYTES G@ 2 
Sag SLC #BEIGE{3} ,O¥E SUTRACT OWE FROM TIBEOOT CTR 
SRS B¥Z ARBOR 
5&6 2 PRINT 
BQF BC ULB°cee 
528 DC KLV?08¢ 
545 nC AL2 {FIRE} 
$50 rc KL2° ADG2* 
557 FiIRY 8 HALT 
552 aC 4L2*2G02° 
553 8 RUST 
$55 GuoST Lic AZEROS,X*26° 
555 SIC -%#OO", KF age 
556 EB Loan 
$57 BC ZL2¢g¢ - 
55° AZEROS De ALZ {ZEROS~ 2 
353 ZERCS iC ELH *GS3G00005" 
S$9 PIPE oC CLB*° REF. 36° ; 
Se} BABCR TBE ean, Rige CHECK SYEK BUSY 
382 Er ATTIC LOG IPF BESY 
S24 ASUIL B BREYLE 
568 PASS BC ELS? QOdGSBONr SEEN €7L FLD BO 20TIOE AB S 
S65 BaSk pe zLusooapetai® - 
566 - ELG‘DE* CtL FLO FOR SE CHE 
567 Shu be AL? (BASK~2) 
$68 TRUCK DC ALP OSOTIPSPOFOPORS* 
569 IRIGK oC ALGOtPIESEorosarse 
539 THICK BC BLG*PIPOFORGFOES? 
S39 THAT sc RLG* PEPORGT OE OR OF 
S72 TEER OC RLGOFSFOPORSEGES# 
&73 CRUR BE CL?699090a0° 
S78 FLO De CL3*S09G095 
575 TES Be cL9*00019¢ 
576 Lae Be ¥i2tezag* 
577 soae° DE 729°O990S693" 
578 CoRR DC RLZ°FPPES 
S79 CORD BC uLa2ecooe 
$80 ERY foot 
S81 ABYSS BC Le gonGoagse 
S82 SESS oC AL2 {BARS} AUDBESS OF DATS BSZLS 
583 BREE BC AL2 CARRE} ADORESS OF CORTROL FLO 
$86 FALES NC CLO°HEP Ve 
585 SRY DC BLY°O9? 
52 pc B16 ° O60G0060° 
S87 SRARY DC ZLB? 00070006 18 teczc2* 
$88 STILE PC XLS*OICESHOSE BR DATA CIL PLE 
S89 STAID DBC XL.8 *00005802 * Ct. 72D 
0628170 01353270 pros ID OBoI- 3 
574513 573529 PGR 5 
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SBE BAINTERANCE DIAGHOSTIC PROGRAR PART EG. $129613 2 
PAGE Sa a3 
BG43 FILE CONTROL OWIT PLT SECTIO“ 2 
ERR LCC CBJECT CODE ADDE STBT SOURCE STATEMENT 
YSIR QOOFPSLC?A 1375 590 COPE Be XL9°OCOFFORS1* _ READ DATR 2 CTL FLD 
YZ7IE COGOSCES 9301 S97 BEGAL it XLS? 90900680? RECAL CTRL FLD , 
TIS2 37" 9383 S92 LEGaL ac AL2 (REGAL~ 3} ADDRESS GE RECAL CTRL FLD 
230s GOUSC1aS $387 $92 LORG pec ZL&egoeaoisoar SEEK C7aL FLD 
F3SE 338K 1389 5594 GONG Be AL2 7LONG-3) ADDR OF SEEK CTL PLD 
V3SR AIST 438B SES NAY be SL2°R1G7° 
V38C £100 f28n 596 NOR PC SL2*a1aGt 
F38E KIC2Z 935% $397 OPERA BC RL2°ate2? 
239G £463 433% SOB FIBE 5c RL2°a1O3¢ 
7392 k200 7293 S39 KAT BC ZL2° az? 
9398 £204 7235 600 S72T be ELZ*a2ut 
1396 A3DS 4339 664 TAP oc ZL2° R308 
4398 2302 4399 682 €3F BC XEL2*a3g2s 
$3GR OHCHHASH T24D 663 HOPE pe RL4°O0000000C8 CTL FLD HE ID RD IB 
V3SE G3 $39Z 606 ROFE SC ZL7°O3* CTL FLD BA DATS RD DIAG 
Y3EF S305 $3aG 605 BAD oc R¥L2* 00008 : 
Y3at GOOG $3822 G06 BED se XL2¢O6004 
$2a3 ZOOS Viah 607 BRIL- Be 232°86090* . . 
Y3ZA% CCTECOOS 4328 608 CRREA BC RLE* GOGOGoCA® ix 
1389 OF 138% 699 CCHIR BC 2L4°O04 
38s $5 $3an €90 FIIS BC ¥LE°SS* 
§sa2E OSES VFAC GTI ABT Le ZL2°OGG9* SPCR FRRA 
$480 OGEG TIAL GIS ENF oc £L2°G0056° OPDR BARA 
T3RF OG F3AP GIT PAY oc TET OGS PARA WKG ASES * 
$329 $323 @ Yh &S CLY a 2 
22ne GSEd $33% 645 GAT cc ¥L2°G090° PARRA POTETZE 
PIBE CSOSCCEACOOGHIBSGS TIF BT ART BC XL16*O0900C00000000C250HG000* 
VSR? CSCS $78 
V3cf CHa 4309 @®9F SE22R fC RLZ*909G* 
¥SC2 GECH 32 BB ELLA BC ZL2°O006* 
t3ce C929 *3¢e5 639 BELL be RL2° 000GF 
tere COGS $37 826 BAR BC RL2°GG00? 
$3c8 gos6 $309 €27 FLUID DOC RL2°960G" 
Pee GOO0ID G30 $632 BEIGE sf ZLZ*OCOGHG* 
$3scGh CVIOG 9308 &223 Tab ec ¥L3°O7 36662 
YASS SGEGaGvo $3b3 G24 CART ac XL8? HG6OO0HH0* 
$3B4 66 tie 62> BSISB oc - 2LIt50° 
Gan EE ‘Y3pS 826 ERIE oC xL.7°36% 
Tape CCBACH 308 &27 CEE Bc ZL2* 0900S 4° 
$359 GOU008 S3bi €28 Teo BE $L3° 0000025 2 : 
<ane COCKde 23DE 829 FOUR BC EL3* 989098 
PELE 8970006E PIES S46 FORE oc XL&* 10 F0S8GS® 
8E3 £662 43E% S399 THREE Se XL2*8UG3° 
32% THETF $22 RS CL? 
4328 €695 $223 G33 BRCaAD Fe EL2* 00502 7 
VIEA GEse 43458 638 TCAC Be 322°00C0*% ae 
$320 CHGS V3ED G25 ETKAG EC Zi2¢ooss® 
Was AO0D S3EP 836 RETR OC BL2°Oo000" — oy 
3aPB 09 43FQ2 @37 Baka bc AL4°9O6s : a 
t2F4 OE 44F% $38 ABO Sc £L43*66* 
V2F2 OG T3F2 G39 Poors oc ZXL7°a0" = 
F323 6296 tkP& 800 CLR bc ELZ*GI3?* & 
33r% 666 437% 648% FETE o¢ EL2°RGagr 
PBR aOG900I6S5 FT3FR G&Z RLS Sc ELS *COOG0G635000? : a 
68} PeOLSSOETOBR PLACEMEN? FOR UNSAFE ROUTINES #eRes anos soses sy = 
$208 G88 SBYTE2 ECE Kt2Oa5 : 
37E Oc V3FC 685 RTKE be ZLU°G2° Bm 
23FS ae ¥3¥D S46 dc 379830? ce 
SREE FFEP A3PF 647 be RL2°* Per?! 
$200 CO 87 Bats 8B b PRI at rf 
YeOu Bs $602 68S sc MLItsie ee 
wos GCS $acS €503 nc XLISOTe 
ECS 31488 tac? 653% ae AL2 (GULP) 
7uO8 BOFC 7609 652 . Dc XL2*°*a0?C? S 
1sOa cO BF G2ik 653 GASBNA & ERINT 
tune C1 TROE 658 BC AZLI°Oi" is 
WhCE 8 180PF 655 Be XLi*7B* ae 
VSi9 3uEP 7&7% 656 bc AL2 (8SGO00T) 
a 
DATE C2HAR7O QVAPRIC O6SATTO 07190270 PROG ID oro Nee 
BO NO. S73592Z $715%76 §71513 577528 PAGE ie 
ao 
o 
a 
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IBS MAINTERANCE DIAGNOSTIC PROCERAA 


i 
| 
PABT HG. 5129613 i IBB MAINTESANCE DIAGNOSTIC PROGRAA PART HO. 5129673 
PAGE 6 c PAGE 68 
BOi3 PILE CONTROL UNIT FLT SECTION 2 8072 FILE CONTROL URIT FLY SECTION 2 
ERR LOC OBJECT CODE AUDR STHT SOURCE STATEMER? ERB LCC CBGECT CODE BEDR STAT SOURCE STATEMERT 
1442 CO 87 O27A 657 B PRIN? z 152b SO40CECECIDIAGaO 7iG 
1416 GOP 4917 658 Re ML2¢°O10F® T5953 CucecaDsudcucids3 740 
1478 TeDE 7419 659 bc AL2 (COUT 4) ; 1S3b C1 748 
TQgR co &? OZ43 £60 B PRINT € F414 SRHOSSCAPP TUT ERDE SESS 24 VES EHES HAZE HAS 
VUtE O1CF TU1P 6614 DC KL2°010F¢ IS3SE 15406 153P 742 DUE oc AL2 (RENT) 
1820 %0E? 142% 662 BC AL2 (cOUVT|} T54H0 &O 1540 P93 RESY ce £LIP HO? BRITE DATA BASAFE ROUTINE 
1422 CO 87 S242 : 663 5 PRIST € 7$42 02 1S&4 744 Be KLT°O2¢ 2 osc 
1626 SYOF 1427 66u pe NL2¢*O10F8 75%2 £25264 s5ua 795 oc XL 2°525266° RESET 
W288 VArs 1629 665 pe BL2 (COUT 3) W5uS Zaire 586 746 pc XL2' Zao? SET EUSY RO ERROR 
1422 CO BP GIR 646 2 PRINT 7: e $57 22 1587 347 ac aL7°22? INAXTIALIZE SET TO 8 
WW2E Otic 142" 667 bc KL2*OttC8 1545 4ACOOB T5468 F418 be ZE3° 1a000nS 17 BYTES 6 
18305 14c3 1931 66a ve AL2 (COUTHS WSHE 3AC218 45aD FI pec AL3*3aC278° GOR af 
1432 CO a9 O21A 669 B PRUET co SRE FACEO4 $556 Fz re XL3* FAOEO 1 SYNC CHAR 
1436 6508 1837 876 oc XL2° 05038 1551 1a0003 9553 424 pe XL3*4A0063' 3 BYTES © ID 
W438 4022 3439 G74 pc AL2 (PART) 155% WAFPOR $556 722 Rc ZL3°1AFFO35 3 BYTES FE Ipce 
183a CO 8Y 9222 672 E BAL? i ; 4557 WaCEGS 7559 723 pc XL3* 420G05¢ 5 BYTES G TO PREDATA 
143E AOFC 183P 673 pe XL2* arc?! VSER 5a 455R 7246 pc EL3¢Sae SES SEXSE BY BIT 
T4489 CO 87 fans 2% B ORB 1558 6A60G70T33379929 1565 725 Be KLGT*GACOC1G439343931393137% 7 BYTE 
FROM 4O 1444 675 GDLE pe cCLis 2 ; . 7563 333437 F25 
676 Suteaeese PRONE PLACEMENT MESSA&SE ONCE FEE LOADS 4sse4eaa8 1S66 Ta0089 35n8 F26 dC ZL3*7h0000? 256 BYTES 
Wag 30 GF OAu2 677 ACT? NPE ARLOE+7,x°a78 SHUT OFF ONE TYEE SwITCH 4565 taC09C 4568 227 be XL3° 1A000C8 12 RITES 
7449 CO 87 CATA 673 % PRIST a ISSO BROQOUFIS3711973 1876 Fee oe ZLGTPGACCOISIZIDTETIVTIDIG® «9 9 BYTE 
TkOD ALTIB FaBE 679 po WL2°8t4Be . 4534 v¥4994 728 
Wear wer t450 680 pe AL2¢NSGOUT} 1°97 SE 1S77 729 pc ELVSSE* SEG SENSE BY RITE 
TUS4 BGFS W852 68 pe ML2*aore? : . IS7E TAOGOB WT 736 be XL3¢ ta0005° 14 HETES 
W853 CG BP SPA 5B2 Ez PRINT iS7E 2206 $372 734 pc 4L2°2a0G5 SET LHRICATCR WOT EUSY HO ERRGR 
TUS? COE 18528 683 z XL2°Otore IS7D 4a2064 T9P 732 pO -:«CORES 9 CA0GGT? J BYTE @ 
$859 19¢F THEA ASS ac 2L« (EOUT 1} ; 5 1880 4a 1665 732 oc MLD 9g ¢ SG TQ HEAT SOUT IRE 
1453 CO 87 OZR 635 3 ERIET J5OSY Ceses 357  F2x = AL2 {8858} 
Vase Cor 1460 636 BC UL2° Core 4583 eS 1696 934 Sat ee AL2 (507) 
§664 Taan 1662 637 ne ALZ(BOUTI} S2% 86 1645 736 Sox 2c KLYesie WEITE XD USAFE ROUTIBE 
14632 CO 87 GDB &E 8 PRINT 1556 4° Thee F737 ee MLiote 4 IKDEE 
1667 CSog 1455 Sag D RLI°9S 088 37587 225560 TAGS 736 ac RE3¢S25E66° RESET 
THES WOZe THGR &EG ne AL2 (PANT) "SGA ZA 1588 733 DC ML2°24490° SEY SUSY, HO ERBOR 
166E CO 87 0232 694 g HALT 1$8¢ coas t58D FRE De RLZfCONS* & INEEX and osc 
V4G? gore 2470 «G92 os FLQ¢aoree P5SE YE S$3E 753 BE ELG¢¢zs INL YHITIALIZE TO BRO DES 3 
THFT CO AT GHaS E53 2 ALCE? a 1588 Sa SBF Tae £ Ler See SET SERSE BY BIT 
YAPS BODFUSCICBICHLOD) WSF 694 BAcaUT aC CL27° PLACE JFISPERS OW FEU BOARD? : 1390 GaCOGTGISIRISISS TE9R Fay og RLUVSAGSE IG VATSISTSIIWBIS2® | BYTE SENSE BY BET 
TRIE EXLELTCSHGE 2 HOR6 54 . ; IS 3737353 FRR 
1685 DSHOCSCBRVwOCIHS B38 € : 4592 GOGs W650 THK ne ELZ'eG08° 4 One 
4430 Cipacy G4 pF 552 420926 459F 745s c XL26 4000269 38 PETES» TG BR 2 BEC $ an 
TS9C SODSPAZD4P OF S40E3 TH8E $85 Bouse ot CLtS* 82803 70 X2G524* aR TIRE T5AaG 8G06 TERY FG be ALZ*GECH? 6 OSG TO BRS BEC o aK 
THSE LESCOZEZCTFUR2 95 e x *Sa2 32 7532 7a? ee "NLG? 32? VEST SALT WITH DELAY TEST FE Orr 
TAGF UGDOPZDePOFUeOkS 1eAD £96 BODY?D De CLUS’ B2NGS TS K2U°O* Ch DECODER 7 _ 1543 48O0E tSha Fee pe ZL2tH9GE? 18 CSC IG BRS DES B EN 
VGAT USUOLIEREGP IEC 65S S5R* 36 4545 789 ac BL T° 36? TEST BALT 
WARE wOD7TRSCICRCEaCCS Thee $97 CoUTS Be CL2&* PLACE CZ NST PEORE GE J2Eng* z TSAR FAGCES 15RR FSC be R13? TAG00S' @ EYTES osc 
WEBS ClHOLe SAE IAODIDS 699 . WSae 4ooC SAB PEt oc SEZORGEC? 12 CSE TC BRZ TEC + AS 
TEBE BEC2ZCS4ODELSROBI 597 453 32 4a8 752 no BLT?326 TEST WALZ WITH DELAY TEST 7 as 
Y4CR FZCNE ORS OF - 353c BOGR SEO FS3 5c BL2°aease 44 OSC TO BS? DEC O 48 a 
VGCR SONOP SOAP OR SEER t64DR 698 couTi oe ELTS* R203 TO G2RCS* RAD GATE fe THAE 32 7582 756 pe RLU 325 TESY HALT WITH EELAY TESY 2 &S 
T&D LOND EZ APoRs $96 ISEF S415 TSBO TES EC KL2°sutCs JE OSC AND FDC TC BET DEC © PRE ID 
349 SODOP2ZNSFOFGUOES NEP €99 cours ac CLIS? RERQE TS S257" ERITH Gage = me 45E% 32 {SEt F756 dC LLG sz TFST MALY @ITH DEALY TEST SBC CHAE 
VOET EGUCDIFZDIP tee ass <5H2 ance TELE FSF be BLZ* GOOE! 74 GSC Te wAC SFo 2 TE 
TORS SODOPIDIF IPOLGES W6FA FOO CONT Be CLIS* REPUG TO JZG44% ERASE GET t5E8 Se WSER TSS be Red? bHe TEST HALT 
W4FC REQUDTELCTEIES 766 o 7 15B5 «0Se t5e4 748 Bc RL2*SES Se $@ O50 TO BBG DEC G pce 
: 307 Seesesest PRINT HEADING RODTESE SKLY GECE PES LORgceus dense . 7 1Sse7? 22 4887 Foo Be EUG 32? PEST HALT BITE DELAY 
W4F) 34 OH 4566 YO" ONCE st HERES3, xt O08? 4588 &¢98 T5B4 764 DC RE2tsouge 13 OSC TO BRI OF DEC G PUST as 
SFB 3C OF t1s7 708 AVI OWLYs4, 3° OR5 = co ISE4 36 SBA 762 gC LIFE" TEST HALT 
TUFF CO BP O24a you 3 FRINT : S5RE NOE 15Bo «783 nC RLZ*GaGr® SE05C ARE IDC TO BRT DRC 2 eOSF ID 
$563 014 9503 765 be ML decye 45BD 4662 TEBE 764 oC ELZ°S002° 2 OSC TS BRE BEC 3 Pos? is 
+308 39 1504 FS6 pe RLVE 30? 2 C ISB CZtGisedis 4303 765 > MLS SO2IGIGaNE® CORP CTL FLD = 
250° 4535 2506 707 BC KL2 (CPUS) . “ F5C8 BE iste 766 BC RLV 3B? SET B TO OD 
7507 3001 1508 708 BC EL2° A048 iScS tacooc $5C7 767 Bc £L3"7agho0e" 1Z BYTES G TO BRY DEC 1 EFEDATE 
1509 cO e8F 1565 76¢ B HERE tSCR stoc 153 769 oc EL2¢450C? j2 O5C TC BR G DEC O PRE DATA - 
W500 BODREQC7TSODSDEYD 1S52D Fig ec CLAS’ BSG NO. REDS DATA? ISCh 32 7SCR 769 Be EL7°932? TESY HALT B DELAY CHK S CHAE ARD PF 
ISIE BOC2ZNOCSKONBAOEZ FG 35C5 4OCE tSec (770 pc L2°4GoE? 48 OSC %O BE 7 EEC O PRE DATA 
TS4D ESCVUESECEZSLOROSD FTG i5CB 36 SCD 774 oc XL4°26° TEST HALT 
1525 C3E3DSCI4OCED3CH 7436 J5CE tAOOFD W8Do «(772 Bc EL3°1RO02D¢ 253 BYTES DATA TO BR? DEC3 DATE 
3 c c. a 
DATE OZHAR7O O1APR7O OGKAY70 0 135179 PROG Ib OBOI-3 “DATE C2mag70 O1RPR7O OS82R¥70 01302170 PROG iD 6807-3 
EC NO, 5715142 571546 571543 571524 PRGE & EC BO. 571512 571516 5771573 574523 Pact 6A : 
. G 7 : 
G = @ 
- CO CG i 
G ~ 
c e398 } 
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EBS SAIETERANCE DIAGNOSTIC PROGRAK 


BO1S 9 FELE CONTROL UNIT FLT SECTION 2 


ERR LOC OBJECT CODE 


PART &O. 


5129613 
PAGE ? 


ADDR STHT SOURCE STATESENT 


15D7 26 4Sp1 (773 bc XL 1°26 * RESET DPDR 

15D2 120005 1Spa 778 pc XL3*1A0005° 5 BYTES 0 TO BRT DECT DATA CC 

15DS SOGR 15D6 «775 pc XL2* 4002" 10 OSC T/ BRA DECO DATA CC 

15B7 32 15D7 (776 pe XL1°32¢ TEST HALT W DEL CHK DATA CC AND FF 

35D8 400A 15D9 (777 bc XL2°206at 10 OSC TO BR O DEC 14% POST DATA 

ISDA 36 ISDA (778 pe XL1°36° TEST HALT 

15DB SOOA 1Spc 46779 pe XL2°'800at 10 OSC TO ER 6 PEC 14 POST DATA 

15DD 1406039 wSDF 780 pc XL3* 140039! 57 BYTES TO BR 6 DEC 1 PREDATA 

ISEO 100000 15E2 781 pe XL3*1AG000* 256 BYTES TO BR 6 DEC 1 DATA 

1SE3 1 001E 15ES 782 pe XL3"TAOO1E* 30 BYTES 0 CHK B CARRY 

1526 8001 15E7 783 bc XL2*8001'* INDEX 

15E8 CO0% 15E9 7648 Bc XL2*COOG* & OSC ARD INDEX 

T5SEA SA I5EA 785 pc XL1*Sa* SET SENSE BY BIT 

T5EE 6A00013322111111 15F5 786 oc XL11*640001331 1221274119111111" 1 SYTE 

1SP3 7111111 786 

ISFE SE 15F6 787 re XL1°SE* SET SENSE BY BYTE 

15F2 120003 15F9 788 pe XL3* 180003" 3 BYTES TO BR 7 DEC 23 

ISFsA 24800 15FB 789 be XL2°2A00° SET BUSY ERR PARA 

SFC 120001 1SFE 790 pc XL3*17A0001* 1 BYTE 0 

ISFF a 15FF 791 pc XLi*@at GO TO NEXT ROUTIRE 

1600 0826 1601 792 bc AL2 (VIRG) 

793 ** WRITE ID CLOCK STEP FUNCTION TEST WITH PROBES PARA 

1602 1604 1603 794 BRAD pe AL2 (CRAG) 

16048 4&0 1604 795 CRAG nc XL171° 40" 

1605 03 1605 796 oc XL1*03° TESTS ABSENCE OF SET TO 8 

1606 S2SE66 1608 797 bc XL3* 52 5E66° RESET 

1609 2410 160A 798 Bc XL2* 2A10* SET BUSY CN ERROR OFF 

160B 2501 160c 799 Bc XL2'2E01°* 

160D 8001 160E£ 800 pc XL2° 8001" 1 INDEX 

160F C005 1610 801 bc XL2°CO05* 5 INDEX AND OSC 

1611 12 1611 802 pc XLI‘1E* IBD INITIALIZE TO BRO DEC 2 

1612 COOD 1613 803 Dc XL2°coOD* 

1674 640008 111111312117 1620 804 be XL13*6A000A4111711117191914194 18 

T69C 99919991911 804 

7627 6A00307711111171 1634 805 pc XL20*6A00301312121191191919921919199111991311151° 

W625 194999919991191171 805 

1631 71313151 805 

1635 5151515151515151 1648 806 pc X120°515151515 1515 1815151515 15 151515 151515179" 

163D $151515151515181 806 

168& £1515179 806 

1649 5915153511113111 1653 807 pc 1L123* 5915153511113 111111511°* 

1651 111511 807 

1654 Sa 1654 808 Bc XL7°5a’* SET SENSE BY BIT 

1655 6460021133313131 1667 809 pe XL19* 64000 21133313 13131313031139121101791911* 

165D 31321303113111110 809 

1£65 111111 809 

1668 SE 1668 810 pe XL1°5Sz* SET SENSE BY BYTE 

166S 600006 1111111111 1671 811 pc JL9* 640006 1911431913191418 

1671 11 811 

1672 Oa 1672 812 Dc XL1°Oa* COMP DFCR 

1673 1FO1 1674 813 pe AL2 (ARNE) 

1675 0210100016 1679 874 DC XL5*0210100016" COMP CTL FLD 

1672 3E 167a «9815 pc XL1°3E* SET uN TO 0 

167B 60000411113115 1681 816 bc XL7*6A000411113115" 

1682 7200FE15 1€85 817 pc XLO*7200FE1S°* 

1686 06 1686 818 Dc XL1°06° COMP DPDR 

1687 1£00 1688 819 Be AL2 (BARN) COBP DFDR 

168S 6400143511193911 169F 820 pc XL23*6A40014351119392111211919149111817919929991991913311° 

16920 49991991991199111 820 

1699 11171111313111 820 

168.0 6400195151515151 1683 621 Dc XL20* 6400195151515 1515151515 15 15 1515 1515151518 

1688 $151515151515751 821 

76B0 £1515151 821 

16BY £54151517959151535 16BB 822 pc XL8°51515179591515 35* 

16BC 6000 1317113111141 16D1 823 pe XL22 £6400 13 119139911915113121991999911919191913115* 

VCR 15113411911191111 823 

wcc 1111119131715 823 

16D2 06 16D2 824 pc XL1° 06° COMP DFDE 
DATE O28AR70 OTAPRT7O O6maY/0 0 130170 FROG ID 0801-3 
Ec WO. 571512 571516 571513 $71524 PAGE 7 
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IBS MAINTERANCE DEAGNOSTIC PROGRAB 


BO 13. FILE CONTROL UNIT FLT SECTION 2 


ERR LCC CBJECT CODE 


16D3 1E00 16D& 825 
46DS F2COFE1S 18D8 826 
16D9 64001935111939171 16£C 827 
16E1 9997979999111111 827 
OES 411391111 827 
WED 1131917119111111 16F8 828 
16F5 8001 16F6 829 
16F7 SECOCOU800 16PB 830 
16FC E010 16FD 831 
16FE 640008 13131313 1704 832 
1705 &#FC0000000 1709 833 
170a 2400 170B 838 
3170C 64000101 170F 835 
1710 4a 1710 836 
1711 OB26 1712 «0837 
1713 «1715 1714 838 BARB 
1715 OF 1715 839 FARA 
1716 19C9 1717) «840 
1718 S2S5E66 171A B41 
171E 60000141 171E 842 
171F OF 171F 843 
1720 19EC 1721 Bue 
1722 5a 1722 64S 
1723 6A0£010101010101 172D 846 
172B 010101 896 
V72E GAFFO1V1913111111 1738 847 
1736 111111 847 
1739 52 1739 8468 
173A 2402 173B 6849 
173C 76 173c 850 
173D 2E07 173E 851 
173F 2023 17890 86852 
1741 60000114 1744) «6853 
1748 SA 1745 6854 
17486 GAFFO11817151111 1750 855 
VINE 711119171 655 
1751 SE 1751 856 
1752 64000130 1755 857 
1756 6AF70111 1759 858 
1754 5a 175A 6859 
T75B 6AFFO011112101070 1765 860 
1763 101010 860 
1766 OA 1766 861 
1767 IFO1 1768 862 
1769 O2FF000000 176D 863 
176E SE T76E 864 
176F 6AFFOA1011111010 177B 865 
1777 1111163011 865 
177¢ 2a00 177D 866 
177E 6AFFO101 1781 867 
1782 WA 1782 868 
1783 OA7C 1784 869 
1785 1787 178€ 870 TAX 
1787 76 1787 871 TAXES 
1788 4001 1789 872 
178A S2S5E66 178C 386873 
178D 2E01 178E 878 
178¥ 8001 1790 «875 
1791 22 1791 876 
1792 2410 1793 877 
1794 52 1793 «6878 
1795 5A 1795 879 
1796 66 1796 B80 
1797 G6AFFO11111111111 17A1 681 
V79F 111213 881 
17A2 62 17A2 882 
17A3 GAFFO11111111141 %7aD 883 
T7AB 1721113 883 
DATE O2BAR70 O1APR70 O6SAY70 
EC NO. 571512 571516 571513 
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0130170 
571528 


PART 80. 


5129613 
PAGE 7a 


ALDR STAT SOURCE STATESERT 


AL2 (BARB) 
RL4*7200FE1S* 
XL20° 6490039357 11939129999299997999999999999998 


DFDR LOCATION 


XLS 11319999991999.1198 
XL2°8001* 
X15"8E00000800* 
X1L2°*E010* 
XL7*6A4000813131313° 
115°&8E60000000* 
X1L2°2a008 
XL8°6A0001017° 
XL1°@a* 

AL2 (VI BG) 

AL2 (FARR) 

XL1*°Oz® 

AL2 (IDLE) 
XL3°S25E66" 
XLS*6A000181° 
XLI°OE® 


1 INDEX 


SET BUSY OFF ERROR OF? 


GO TO ALT PARA FOR IRIZ SET TO & 
RESET 

BRANCH TO ALT ROUTINE FOR AX 

AL2 (AFT) ADDE CF AB PARA 

XL1°Sa? SET SENSE BY BIT 
XL71"6AO0EC 10 10 10 10 1010 10101° 


XL17°6AFEOT11193199 1971999998 


XL1°SE* SET SEXSE BY BYTE 
XL2*29802* 2 SEP CLK SITE IDC 
XL1°76° CE LIO FF 00 ABD FF 
XL2*2E07°* 

XL2*2006°* 6 SEP CLK 
XL4*6a000714° 

xL7°Sa° SET SENSE BY BIT 
XLU1V°GAPFOUIGI7IST 11119191198 

XL1*SE* SET SEBSE BY BYTE 
4112°€4000130° 

XLG*6AF701191° ; 
xL1°5a° SET SENSE BY BIT 
XL11°6A7F0111722101016101010* 

ZL1°Oa* 

AL2 (ARNE) 

XL5* O2FF000000° COMP S CTL FI5 
XL1°*5£° SET SEBSE BY BYTE 


XL13 *6AFFOA1011121170101111103C11* 


XL2*2400° SET NOT BUSY KO ERROR 
XL4*6AFFO101* 

XL1°sa* BRAKCH TO HEW ROUTIBE 
AL2 (STAGE) 

AL2(TRXES) 

1L1° 768 CE LIO FF 00 ABD FF 
XL2*&001° 1 osc 

XL3*52SE66" RESET 

X12°2E01* TEST SENSE PROBES 
X1L2*6004" 1 osc 

1L17* 228 InIt SET 70 8 
4L2*°2a10* SET BUSY CH EBR OFF 
XL1*°S2¢ SEI WRT OSC BIT OB 
XL1*Sae SET SENSE BY BIT 
XL1°66° S2T SEP CLK OF 


XL141 *OAPFOV191912171999117938 


111°62° SET SEP CLK OFF 
XL11°GAFFO 21131993 191219973" 
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IE MAINTENANCE DIAGNOSTIC PROGRAS PART WO. 5129613 i IBB MAINTERANCE DIAGKCSTIC PROGRAB PABT #0. 5129673 
PAGE 8 G3 ¢ PAGE 8a 
BO13. FILE CONTROL ONIT FLT SECTION 2 5 2 BO13 FILE CONTROL UNIT FLT SECTION 2 2 
> + t an 
ERR LOC CBJECT CODE ADDR STBT SOURCE STATEBERT EBR LOC OBJECT CODE ADDR STHT SOURCE STATESEAT 
ITAE 66 T7~aE 884 pe XL1°66! SET SEP CLK ON Cc c 1680 64020101 1883 9483 pc ILU*6AR0EO101" 9 
V7AF 6A00021111111111 17C1 885 DC XL19*6A00027111911117197111131111901010101012° 1884 64000111 1887 944 pc XL& "600001118 
17B7 1111132111101010 285 1888 7200C015 183B 945 pe XL&*7200C015* 
17BF 101012 885 c 3 188C 1600 188D 946 pc AL2*°16008 COBF DATA 2 
17¢2 56 17C2 886 pc XL1*56# SET WET OSC BIT OFF 188E 96 188E 9487 DC IL1*06" 
17¢3 52 173 887 Dc XIL1*52¢ SET WRT OSC BIT OF 188F 1E01 1890 948 DC AL2 (BARKR+¢1) S 
17C4 SE 17c4 «888 pc XL1°SE* SET SENSE SY BYTE € im 1891 6a0E0115 1894 949 DC ILG*6A0E01135* 2 
17¢C5 6AC00411103110 17CB 889 pc XL7*6A0008 17103110? 1895 720F3C15 1898 950 DC 1L46°720P 3C15* 
17CC 76 17cc «896 pc XL1°768 CE LI0 FF 00 AND FF 1699 6A0F0135 189C 951 DC XL4*6A0F0135* 
17CD SA 17cD «8891 pc XL1°5a° SET SENSE BY BIT € i 1890 6AFFO115 18A0 952 pc 1LG*6APFO115* 
VICE 6GA0F014081414141 17D8 892 DC XL11"6A0F01804 1416 1814151818 18A1 6AF00115 1BaAN 953 Dc XLU"G6AFOOT1S* 
17D6 414181 892 1845 6A0E0130 1848 954 pc XL4*6A0E0130° 
17D9 56 17D9 «893 pc XL1*56° SET WET OSC BIT OFF a ‘is TEAS 60000110 18aC (955 cc XL4*6A000110° 
17DA SE 17DA «894 Dc XL1°SE* SET SENSE BY BITE 18AD 6A000F1010101010 18BE 956 DC XL18*6A000F 101010101010 10101010 1010 10 3070" 
17DE 6400028141 17DF 895 DC XL5*6200024141¢ 18B5 1010101010101010 956 
17EOQ 5A 17E0 896 pc XLI*Sas SET SENSE BY BIT C: c 18BD 3010 956 . 
17E1 6200014081614141 17EB 897 DC XL17°620001808 1416 1418101814" 18BF 6400028040 18C3 957 DC IL5*6A00028080° 
V7ES 814181 897 18C4 SA 18c& 958 DC XL1°Sat 
V7EC 52 17EC 898 pc XL1*52° SET WRT OSC BIT O% Cc 3 18C5 6£00004050525151 18D7 959 DC XL19*6£00008050525 1515 15 151515 1535151515151 = 
ITED 62 17ED 899 pc XL1*62° SET SEP CLK OFF 18CD £151515151535151 959 
ITEE 6300018181414141 17F8 906 Dc XL11°60000 18151414 1414141418 18DS 515151 959 
17F6 414181 900 Cc io 18D8 SE 18D8 960 Dc XL1"SE* 3 
17F9 8001 17FA 901 pc XL2*8001° INDEX 18D9 OF 18D9 961 DC XLISOE® GO TO AL FOR SYSC CEAR 
17FB COO1 17FC 902 pc XL2'0001° BO INDEX IBDA 1A02 18DB 962 CC AL2 (SUMP) 
17FD 8001 17FE 903 pc XL2*8001° 1 INDEX c a 18DC 600021535 18E0 963 DC XL5*6A00021535° 3 
17FF 2,01 1800 908 DC XL2"2a01°* SET NOT BUSY AND ERROR 18E1 645C0119 18EG 964 pc XL4*6A5C0119# 
1801 424000000 1805 9065 pc XL5"4E24000000° TEST STATUS 18ES 6AFFO111 18E8 965 DC XLG"6APFO111° = 
1806 SE 1806 906 DC XL1°SE* SET SENSE BY BYTE e cm 18E9 60830130 18EC 966 cc XIL4*6AA30130" oa 
1807 64000101 180A 907 pe XL4*6A000101* 18ED 6AFB0111 18F0 967 Dc XL&*6AFBO111* 
180B 66 180B 908 pc XL1°66" SEP SEP CLK O8 18P1 6A00101010101010 1903 968 DC XL19* 6A0020 101010101010 10181030100 101010101° . 
180C 4A 180C 909 pe XLI¢4at BRANCH TO NEB ROUTIRE C: is 18F9 1010181030100101 $68 
180D OA68 480E 910 Dc AL2 (GAB) 1901 10101 968 
180F 1811 1810 911 STYLE DC AL2 (STATE) ADDR CF READ F DATA PARA 1908 OZ 1908 969 DC XL1°OE* GO TO ALT PARA 2-09 OF DA&TA ABD CC 
1811 28 1811 912 STATE DC XL1I°2A8 SET BUSY CN EER OFF ce C 1905 1A42 1906 970 EC A1L2(DORY) 
1812 10 1812 913 Bc XL1°108 BUSY NO ERROR 1907 OF 1907 971 pe ALINOE* GO TO ALT FOR POST DATA 
1813 S2SE66 1815 918 pc X1L3*525566* RESET 1968 1060 1909 972 DC AL2 (PLUS) - 
1816 OF 1816 915 DC XL1*OEt GO TO ALT PARA FOR IKIT SET TO 8 Cc (2 190A 6050021141 190E 973 pc XL5*6aE0021141° = 
1817 19¢9 1818 916 DC AL2 (IDLE) 190F 8001 1910 974 pc IL2*8001* 1 IBDEX 
1819 6200024141 181D 917 pc XL5*6A00024181! 1911 E008 1912 975 DC XL2* E5008" 
181E OF IBIE 918 DC XLI°OEt GO TO ALT FO AS € ic 1913 6000143111111111 1929 976 DC XL2Z3*GAOOTEF1V1TV1TAVATTTIT ATADATVATTAAWIVDITIIIIG III S 
181F 19EC 1820 919 pc AL2 (AFT) 191B 101999999199171991 976 
1821 OF 1821 920 pc XL1"OE* GO TO ALT FOR S¥NC CHAR 1923 13491131118184 976 
182z 4002 1823 921 pc AL2(SUEP) £ G 4924 OE 192A 977 pc XL1°CE $0 TO ALT FO ~aS > 
1824 OE 182% 922 rc XL1°OE* GO TO ALT PARA 192B 195C 192c 978 DC AL2 (AFT) 
1825 1410 1826 923 DC AL2 (STARE) FOR ID 192D OE 192D 979 pc XL1°OE* GO TO ALT FOR SYEC CHAB 
1827 OA 1827 928 pe XL1"Oa* COMP DFCR £ 3 192E 1A02 1S2F 980 DC AL2(SUBP) 2 
1828 1F08 1829 925 pc AL2 (ARNE+*3) DFCR LOCATION 193C€ 6AC0021535 1934 981 DC XL5* 6200021535" 
1824 &E00000000 182E 926 pc XL5*4E00000000° TEST STATUS 1935 6a08C2111 1938 982 pc XL8*6A8001118 
182F 6400101010101010 1881 927 Dc XL19*6A0010 101010 101010101810301041414141418 g C 1939 6AFFO111 193c 983 Dc XLO*6APFO111° g 
1837 101014 1030104141 927 163D 6A7F0131 1940 984 DC XL4*6A7F0131° 
183F 414141 927 1941 6AFEO111 1948 985 pc XLG*6AFEO111# 
1842 OA 1842 928 pc XL1 Oa’ COMP DFCR & Q 1945 OE 1945 986 cc XL1°0E? GO TO ALT PARA FOR POST ID g 
1843 1F01 18448 929 pe AL2 (ARNE) ; 1946 1427 1947 987 DC AL2 (PORT) 
1845 6400024141 1849 930 Dc 1L5'6A00024141° 1988 CE 2948 988 Dc XL1°OEe GO TO ALT PakA 2-0G O8 DATA agsD CC 
184A SA 184A 931 pc XL1*5a° SENSE BY BIT S gS 1949 4A62 194a 989 pc AL2(DORY) @ 
184B 6£00008151535151 185D 932 Dc XL19*6E0000815 1535 151515151515 1535 151515151! 194B OE 194B 990 DC XL1°OE? GC TO ALT FOR POST DATA 
1853 5151515151535151 932 194C 1A60 194D 991 Dc AL2 (PLUM) 
185B 515151 932 G Cc 198E 2A00 194PF 992 pc XL2'2A00° SET ROT BUSY BO ERSCR 3 
185E SE 18S5SE 933 pc XL1*5E¢ SENSE BY BITE 1950 64000101 1953 993 DC XL4*64000101" 
185F 6A0E0105 1862 9348 Dc XLU*6A0E0105* 1954 GA 1954 994 Dc XL1I*8A¢ BRAKCK TO NEW ROUTIBE 
1863 6800021535 1867 935 pc XL5 "6000021535" QO a 1955 CAQ9A 1956 995 DC AL2 (STORB) 3 
1868 6a580119 186B 936 Dc XL8*6A580119" 1957 1959 1958 996 LOG pc AL2 (LUG) ADDR CF WE DATA PARA 
186C 6AFFO111 186F 937 pce XL4*6AFFO111¢ 1959 OF 195S 997 LUG pc XL1°O0E? GO TO ALT PAZA FOR I8IT SET TC 8 
1870 6070130 1873 938 DC XL6 "644701308 Oo Q 195A 19¢9 195B 998 DC AL2 (IDLE) 3 
1874 6AFCO111 1877 939 pc XLU*6AFCO111!# 195C 525E66 195E 999 DC XL3"525E66* RESET 
1878 OE 1878 940 DC XL1°OE* GO TO ALT PARA FOR POST ID 195F 6AC0CO24N141 1963 1000 Dc XL5*60000281918 
1879 1427 187a «941 DC AL2 (PORT) CG 3 19648 O£ 1964 1001 pc XL1°OE* GO TO ALT FO AB > 
187B 6400020101 187F 982 pc XL5*6400020101° 1965 195C 1966 1002 Dc AL2 (AFT) 
¢} e 9 
DATE 02mAR70 O1APR70 O6SAY70 0130170 PROG ID 0B01-3 DATE O2maR70 01APR70 O6NAY70 0430170 PROG ID OB01-3 
EC NO. 571512 571516 571513 571524 PAGE 8 EC HO. 571512 571516 571513 571524 PAGE ea 
°° .=.3¢ Cc : 
o @ 2 
Cc oOo © 
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c¢ 9a 8 
oe 6 S 
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BIENAWCE DIAGNOSTIC PROGRAM 5929613 
; PAGE 9 
3BO130- FALE CONTROL UNIT FLT SECTIOB 2 
ERR LOC OBIECT CODE ADDR STET SOURCE STATENERT 
1967 OE 1987 1003 DC KL1°O8? GC TO AL FOR S¥8C CHAR 
1968 7BOZ 4969 1064 DC AL2(SUMP) 
19&2 OE 1964 1005 pc XLTOEe GO TO ALT PARA 
IOSB 1R1G 496C 1006 pc AL2 (STARE) FOR iD 
196D 4BC50000C0 49717 1007 DC XL5* 85000000008 TEST STATOS 
i972 Oa 1972 1008 BC XLI OR? Ccoue DFCR 
3973 1F06 1974 1609 “BC AL2 (ARRE* 3} DFCR LOCATEOK 
1975 6A COCE 10741932670 1985 7040 pc XLt7 *GOACOOEITIS103C107919999 94999999134" 
TOPE 414.919999999999104 1016 
-49a5 31 1010 
“$986 OA 1986 1071 pe RLI* Ga? COMP CFCR 
1987 4701 1988 1012 nc AL2 (ARBE} BPCR LOCATION 
1989 52 1989 1642 zc xL1°Sae _ SET SENSE BY BIT 
3988 6A00093517157719 1996 107% BC XE19°62600 13517751111 791S158 
4992 197919 101% 
2995 68 600195371512121 199F 7015 Dc ALIWEACONIISAZIST ASTVIVIAGE 
199p 494792 °C 1015 . , 
wean SE 19AG 1016 DC XLI*Sze¢ SET SERSE BY BYTE 
4SA% T200FDI5 T9a@ 1017 cc XL4"7200FD15* 
9905 1674 1926 1018. pc XL2° 1611¢ COMP DATR 
9927 06 1987 1019 Bc XL7*06° CONE DFDR 
19A8 7261 1929 1020 BC AL2(BaRH+1) 
VAR GAFF733531113916 iSBF 1021 ac XLZ2* OAFP 1335121113 41011104 710 4 1101110301721101033" 
F9B2 1710111094109110 1021 
49BA 1021111901031 1021 
33CO 2A00 1901 1022 pc XL2°2a00° SET NOT BUSY BO ERGOR 
19C2 GAFFO104 19C5 1023 Dc XL4* 6AFFO101° 
19C6 aa 19C6 ‘202% Pc XLituat BRANCH TO BREW ROUTINE 
19C7 OABE 19C8 1025 ac AL2 (HaS hk) : 5 
19C9 46 19C9 1026 IDiz DC XL1'40° ALT PARA FOR INIT SET TO 8 
19CA 02 I9CA 1027 LC EL1#02¢ 2 osc 
19Cz 22 ‘ 19CE 1028 Dc XLi¢229 SET TO 8 I81IT 
w9CC 2A1C 19CB 1025 pe XL2*22108 SET BUSY CH ZEB OFF 
_19CE SA 1S9CE 1936 Dc xL1°Sa* SET SNS BY BIT 
T9CF 6000914217171111 19D9 1031 Dc XL12°6A000 919119991713212738 
19D? 191273 103% . 
_19BA Sz 19DA 1032 pc XL1' SE? SET SENSE BY BYTE 
19DE GAFFO6 12174010174 19E3 1033 BC XL9* OAPPOG 717120101131? 
19E3 31 1033 % 
. 7924 gooD 19E5 1034 ‘pe X1L2* ROOD" 
I9E6 6AGCO2N040 19EA 1035 DC XL5* 6000024080" 
19EB 120 19EB 1036 peo kLV"926 RETURN TG MAJOR PARA 
49EC 5a 19EC 1037 AFT DO oMLA*SaS SET SENSE BY BIT - 
19ED 6600008715 1535151 19FF 1038 DC =—«- KL99*6 £00003 75 15 35 151515151515 1535151515154? 
49FS £181515151535151 1038 - 
19FD 515151 1038 
TAOO SE 4A00 1035 DC XL1°SE¢ SET SEBSE BY BYTR 
1Aa01 12 1A0% 1040 pe XL4* 12° RETURN TO SAIOR PARA 
1A02 SA 1802 1081 SUBP DC XLI*Sae ALT PARA FOR SYBC CHAR 
1803 6A0E01C5050501071 1A0D 1042 pC XL1717°680£010505050 1010101019 
TAOE 010101 . 1982 
1AOE SE 1A0E 1083 DC XL1° Sze SZT SENSE 8Y¥ BYTR 
AOF 12 AQF 1084 pc x11°128 RETURB TC MAJOS PARA 
1A10 SE 7A10 1045 STARE DC XL1°5z° SET SENSE BY BYTE 
7411 6400021535 1Aa15 1046 pe XL5°6A00021535° 
1A%6 €A5G0119 -7A19 1087 pc X16°64549017199 
1A1A GAEFOT11 AID 1063 DC 219 "6APF0121° 
TATE 6AAB0130 1421 1039 pc XL4& "640086130" 
1aZ2 6AFCO111 -  4A25 1050 pc XLS *6APCO1147! ; 
WA2E 12 1826 1051 pe XL1°128 RETURN TO SAJOS PARB 
1A27 SA 41827 1052 PORT DC XL2°5a° SET SENSE ay BIT 
4A2@ 6AFPFO11012101010 1432 1053 pc 1L141°6AFFO110121010101610108 
1A30 101010 1053 
1433 SE 1433 1058 Dc ML12*5zE¢ SET SESE BY BYTE 
143% 648000A1017101110 1466 1055 pc XL73*62000R1011101 110111981 13011° 
JA3C 1918113011 1055 
Vau1 12 1A81 1056 oc ALI*12¢ RETURS TO ShJOB PARA 
1A42 SE JA42 1057 DORY DC. XL1*Sze ALT PARA FOR DATA FLD 
DATE O2mAH70 01APR70 O68AY70 01301L70 PROG ID 0307-3 
EC NC. 571512 571516 571513 574528 PAGE 9 
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err rer nner RE =: oe MetEERE eete  n ee 


£ |< 
we te 
o | o 
i 8013 
perk os 
& s i 5 
ERR LSC 
ee Ae VAU3 
4 7448 
| TAC 
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: 1a53 
7as93 
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j tA77 
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DATE 
EC 5O. 
G 
= ‘ Oo 
i 
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©) e 
to Cc 
CG 


IBS BAINTESXARCE DIAGNOSTIC PROGRAM 


FILE CORTROL GRIT FLT SECTION 2 


OBGECT CODE ADDR 
6260020101 {AUT 
6ADEDTON TASB 
68000113 TAaP 
7200FD 15 1a53 
6260623515 7052 
GAFFO3 153919 qASE 
42 VASF 
Sz 1269 
GAFFOEZI070171170 71477 
10 1114 1010173710 
30 
1Z VR72 
30 1E00 
3FOC 
co 1F0? 
1FO4 
C22A 
u222 
#F?F 
O2MAR70  01A8PR70 
571512 571516 


STINT SOURCE STATEMENT 


2658 
4059 
1066 
406% 
1062 
1063 
1068 
2965 
1966 
7066 
1066 
1067 
1068 
2069 BARN 
1079 
3071 
1072 
1073 
107% 
1075 


PLON 


ARBRE 


LOAD 
BALT 


OGBAY70 
$71513 


Bc 
BC 
Bc 
pec 
BC 
BC 
be 
be 


XL5°68CO0020107* 
X3.8* 64GE07018 

ZL 4° 620001758 

XLS *7200FD15! 
XL5*6590023575¢ 
EL6 °GAFPO3G53117° 
XL79 32? 

MLUtSee 


dC ¥L77 (6 APFCE 1019111310 10491 279010999 710308 


’ BC 


ORG 
dc 


OS 


bc 
Ds 
E¢cu 
EQU 
ERD 


0130170 
571528 


Be te oe ee 


XLG¢42? 
X* TEOO* 
aL 7 506t 
CL256 
XL14* 00" 
CL3 
Z*O22za¢ 


B*222° 


ee a ere ee ek Ge peg eS 


PART HO. 5729643 
PAGE 98 " 
RETURN TO N&IGR PARA 
ELT PARK FOR FCST LATA 
BRETOEB TO MAICK F2EA 
DATA FIELC 
CORTBOL FIELD 
3 
+ 
om 
om 
‘’ 
a 
2 
PROG ID 9801-3 
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328 MAINTZRABCE DIAGNOSTIC PROGRAB 


BO%3 


SVEBOL 


APSER 
AZYSS 
&CRTD 
KOT 
Act 
aL? 


SCVSZ 
ADWS 
& Dye 
aEYS 
APG 
BERS 
BLCE 
ALOFT 
&LtAR 
ABTS S 
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9 pc XL7°00* SECTICH PLAGS 
10 pc XL1°O18 CURRENT ROUTIBE NUMBER 
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43 bc AL2 (*-*) ADDRESS OF ERROR RE 
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15 pc XL3*BO1000° 
16 
a7 = OPERATING INSTRUCTIONS 
18 
19 1. SET SWITCH 1E TO BYPASS RUNNING ON DISK DRIVE 1 * 
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23 
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25 SVI SETSW,X°FF® SET SETUP SWITCH 
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69 8ZZ SIO¢1,0(,XB2) SET FOR CURRENT SPISDLE 
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651 
652 
653 
6548 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 


RTNACI 


* 


RTNULG 


RTNALA 


RTNULD 


CYDDST 


CV DTNO 


CYDARV 


290CT71 


STATEMENT 


JE. RTRICI 

R RECALB 

BVI RTNERR,X°FF* 
-ALC TBLSAV(2), FOUR 
ALC PRSLST(2) ,ONE 
B RT NSB 

ALL SEEKS DONE, 

LA _SRTBLG, X81 

ST PRELST,XR1 

LA - RISTBL, ¥R2 

ST TBLSAV,XR2 

CLY RTRERR,O 

BE LI NK 

PRINT 

pc XLIS11t 

B PRINT 

pc XL t*c1! 

pc ILi'16? 

pc AL 2 (SUMPRT) 

pc XL2*a002* 

“VI THISER,O 

L PRALST,XR1 

CLI 0 (,X%R1),X*FP* 
JNE RTN4LD 

B PRINT 

pe XYL1'16* 

B HALT 

Dc XL2*AR002° 

B LINK 

avC CVDDST (2) - PRNLST 
3 cvD 

pc AL2 (*-*) 

pc AL2(SEKSUM) 

L TBLSAV,XR2 

LA 2{, 282) ,-XR1 

ST CVDTNO, XR1 

R cvD 

DC AL2 (*-*) 

pc AL2 (SEKSUN-15) 
MYC SEKSUM~-19 (7) , FORWD 
TBN 1(,XR2) ,X*O1! 
JT #49 

SVC SEKSUM-19 (7) ,REV 
B PRINT 

pc XL1°118 

B PRINT 

pc XL1°017° 

pc IL1°31° 

Dc AL2 (SEKSOM) 

L PRMLST, XBR1 

cLe 0(1,XR1),3(,XF2) 
JE RTN&LB 
-LA 3(,XR2) -XR1 

ST CYDARY,XR1 

MVC SEEKAT (3) » THREEOQ 
CLI 3(eX82),X*PE* 
JE PRT ARV 

B CVD 

pc AL2 (*-*) 

pc AL2(SEEKAT) 
ISNOV71 19MAR72 
571605 571591 


571601 


PART yo. _ §T29628 


PAGE 7 


JUNP IF CORRECT . ~ 
TO RECALIBRATE SUBROUTISE 
SET THE ROUTINE ERBOR SWITCH 


STEP TABLE POINTER 
STEP PARAMETER LIST POLST BB 
DO NEXT SEER 


NOW CHECK RESULTS 


SET POINTER TG BEGINING 
OF SEEK TO TABLE 
SET POINTER To BEGINNING 


TEST FOR NO PREVIOUS ERRORS 
BRANCH IF THERE WERE NONE 
TO SPACE ONLY 


TO PRINT SUSMARY 
PLAGS 

LE&XGTB 
MESSAGE ADDRESS 


RESET ERROR S#ITCH 
LOAD PARAMETER POINTER 
CHECK FOR FINISHED 
JONP IF NOT FINISHED 
TO SPACE ONLY 

SPACE SIX LINES 

TO DCP ERROR HALT 

HALT ID 

ROUTINE EXIT 

PUT ADDRESS OF SOURCE IN CONVERT 
TO CONVERT DESTINATION 
SOURCE ADDRESS 
DESTINATION 


LOAD POINTER TO HISTORY TABLE 

LOAD XR1 AS POINTER TO NO. OP TRACKS 
STORE THIS ADDR. IN CONVERT 

TC CONVERT NO. OF TRACKS TO CROSS 
SOURCE ADDRESS 

DESTINATION 


SET *FORWARD® IN HBESSAGE 
TEST FOR THE PORWARD BIT OW 
JUNP IF Of 
NOT ON, SET 


*REVEESE* IN SESSAGE 


TO SPACE ONLY 


TO PRINT SEEK SUNMARY 
FLAGS 

LENGT# 

MESSAGE ADDRESS 


LOAD ¥R1 AS POINTER TO DESIRED ADDR. 
COMPARE DESIRED AND ACTUAL SEEK AD. 
JUMP IP EQUAL 

LOAD ADDRESS OF "ARRIVED 2T* 

STORE IN CONVERT LINKAGE 


TEST FOR ANY ADDRESS #HE&D 
JUsr TF NONE READ 

TO CONVERT "ARRIVED AT* 
SOURCE 

DESTINATION 


ADDRESS 


PEOG ID 


0A03-6 
P&iGE 7 


TBA BATHT FRANCE pinceertse PROGRAS 


al36 


ERR LOC 


1366 
A3G6A 
1368 
336C 
136E 


1372 
4375 
41378 
137D 
1381 
1385 
1389 
138D 
1390 
1393 
1398 
139¢ 
V3a9 


T3A3 
13A7 


T3AA 
TIAF 
TAF 
1380 


I3R2 
1388 
14BE 


13€2 
13C6 
V3CA 
13CP 


12D4 
13D8 


13DB 
13IDF 
1320 
13F1 
13E3 


1327 
13EB 


13FE 
13F1 
13F4 


13F8 


13FC 
13FD 
13F* 
V3FF 
1800 
1491 
1402 
1403 
14048 


1405 


DATE 
FC RO. 


sEPR FONCTION TEST - 


OBIFCT CODE 


CO 87 O21A. 


02 
13 


yacc 


3c 


BD 
F2 
2c 
3c 
c2 
co 
35 


‘BY 


F2 
23 
3€ 
c2 
F? 


3B 
P2 


FF 


ec 
81 
co 
01 
01 
87, 
02 


a2 
01 
37 


87 


1950 
00 
1c5¢ 


ZEB 
IEF2 


ADDR 


136A 
136B 
- 136d 


00 


13C2.. 


1u8P- 


01 
1c5C 
1328 
1PA2 
1P 


1450 
08 


O21A 


WAP 


- VaA2C 


IPE 
13FR 
1F83 
13D5 
IFFS 


1c5C 
oc 


O21A 


1450 


13N5 
OA 


01 


13CA 


C000 


cccoocoo 


T3ZKHARFTO 


571512 


01 


V3AZ 
J3AF 
1381 


1426 
T1E6 


co 
00 


130P 
13E0 
13E2 


13FC 
13FD 
i3PE 
V3FP 
1400 
1401 
1402 
1403 
14048 


1405 
1408 


OMAR? 
571572 


STST 


693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 


705° 


706 
707 
708 
709 
710 
714 
712 
713 
714 
FAS 
716 
77 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
780 
741 
792 
743 
7448 
745 
746 
737 
7as 
7a9 
750 
751 
752 
753 
754 
755 
756 
757 
758 
159 
760 


SOURCE 


PRTARY. 


RTNSLB 


RTNULC 


RTNBLE 


RTNSLP 


SNSPRT 


RTNS MB 


RTNSTB 


RTNYSB 


RTNYEX 


SKTBL4& 


HISTBL 


290CT71 
571601 


STATENENT 

8 PRINT 

pc XL1'O2* 

‘DC IL 1° 19° 

pc AL2 (SEEKAT) 

avi THISER, X* PP* 
CLI 0(,XR2) ,0 

JE RTNaLC 

vc STATUS~1(1) .-0(, X82) 
mvI RTRYSB+1,01 
LA STATRD,XR1 

B SRSPRT . 

L TBLSAY, XR2 

TBF 1(,XR2),xX*80° 
JT RTBSLE. 

4ZZ STATUS—1,1(,XR2) 
BVI RTN4USB41,X°8 0! 
LA STATBZ, X51 

3 SNSPRT 

CLI THISER,X'FF* 
JE RTINULE 

a PRINT 

DC XL1¢O1* 

oc IL1*8* 

dC AL2 (HOERR) 

ALC TBLSAV (2} , FOUR 
ALC PRALST (2) -ONE 
B RTNG@LA 

ST RING EX43, ARK 
LA STMASK ,XR2Z 

aYC RTNYTB+1(1),0(,XR2) 
avc STATPR (18) ,0 (,X&1) 
T3N STATUS-1,*-* 
JF RINGSB 

B PRINT 

pc XL1°O7* 

pc IL1*18¢ 

pc AL2 (STATER) 
aVI THISER,X'FF* 
CLI RTRUTB+1,7%-* 
JE RTINSEX 

LA 1{, XR 2} ,.XR2 

LA 18 (,XR1} ,-XK1 

8 RTNASB 

3 e~-% 

pc IL1*09# 

Dc ILV*1i* 

Dc ILT#172¢ 

pc IL1°343°* 

pc IL@¢128 

pc IL1*1278 

pc IL17*og9* 

oc IL1*00* 

pc XILt°FF* 

Fou * 

pc XILe "Os 
1SNOV71 TOK aRIZ 
571605 571591 


: é Pee. ne 
? & : : ; . : é 





TO PRINT ‘ARRIVED AT? 


‘FLAGS 


LENGTH 
#ESSAGE ADDRESS — 
SET ERROB FLAG 


CHECK POR STATUS ERRORS IN BYTE 0 | 
JUBP IF HO ERRORS 

PUT SENSE BITS IN TEST BITE: 
SET LIMIT BITS 

LOAD XR1 AS BHESSAGE POIRSTER 
TO DECODE BYTE 0. 

LOAD TABLE POINTER 

TEST BIT IN BYTE 2 

JUMP IP ALL OFF 

PUT SENSE BITS IN TEST BYTE” 
SET LIMIT BITS. - 

LOAD XH1 AS BESSAGE POINTER 
TO DECODE BYTE 2 


TEST FOR ANY PREVIOUS ERZORS 
JUMP EF YES 


TO PRIST NO ERROR) 


STEP TABLE POINTER ‘ 
STEP PARASETER LIST POINTER 


SAVE EXIT ADDRESS 

LOAD XR2 AS TEST HASK POINTER 
SET MASK BIT Ih TEST BITS INST. 
SET MESSAGE In PRINT FIELD- 


TEST CURBENT BIT FOR OM , A la 


BYPASS PRINT IF OFF 


SET ERROR SWITCH 


TEST FOR FINSHED 
JUNP IF FINSHED 


STEP BIT POINTER 
STEP MESSAGE POINTER 
TO TEST THE NEXT BIT 


EXIT 


PROG ID 0a03-6 
PAGE 7A 





4036 
‘ERR LOC 


7409 
| 18CD 
1471 
1915 
1419 
141D 
1821 


1927 
142F 
1437 
14 3F 
1046 
144F 
1959 
1851 
1459 
1461 
1469 
1471 
1876 
TUTE. 
1482 
148A 
1492 
149A 
1UA2 
148A 
1480 
1488 
15BR 
14c2 
TaCA 
T4CD 
44D5 
1uDD 
18E2 
14EA 
T4FC 
14F7 
1uFE 


DATE 
EC NO. 


1425. 


SEEK PUNCTICN 


‘OBJECT CODE 


cocooorn 
occncgoo 
CCcocnoo 
occocoo0 
occa0co0o 
CCCCO00D 
cCCeocoon | 


oco4 
E2C5SCSD2N0ETETET 
EVETETETGCETETET 
uO P3DICIC3D2E26B 
NOE IDEMOFIETET 
N5N64 0CSD9D9 DDI 
0000 

00 
C5DSDIDOD IE 240D6 
C3C3FUDIDICSCHLO 
CIC6EICSDIOC UDG 
CODSCT“OCINODICS 
cicuuocycs 

WIC TEIUOCIESDIUB 
WORVETE? 

CSD 9DIDEDIE2UN DO 
C3C 7ESDIDIC EC44D 
F6CRC9DICSHOE2C5S 
C5I2C9DSC740C 3E8 
DIUB4OETETET 
F2C5C5D2C5C 4403 
DO49C3 FB DIY BYOET 
ETET 

CIDIDICI FSCS Cu 
C1IEINOC3EBD34R40 
ETE7 FT 
EBOCHCODICSYCE 2CS 
CSE2ZCIDSCTYOETET 
PTETEVETET 
HOCED9Db DULOC3ESB 
D3SBUCEVETE7 
CODODIESCIDICY 
COLPSUODICSES4S 
UCUOLOUDYIEINO 


TIMAPTO 
571512 


TEST 
ADDR 


140Cc 
1410 
WATsE 
1418 
WIC 
1420 
1424 
0020 
TH26 
1445 


wap 
14 UP 
1450 
1475 


1481 


V4A7 


1889 
VeCC 
Tun 
14EF 
TPS 


14 PD 
1504 


OUMART1 
571573 


“TBM MAINTENANCE DIAGNOSTIC PROGRAR 


STMT SOURCE STATEMENT 
761 pc XLa'QO8 
762 pe xLa*o* 
‘763 pc xXL4 *oO# 
764 pc XLu* oe 
765 pc XLUtO# 
766 pc XL4tOt 
767 DC XL4¥ tot . 
768 TBLYLG EQU *- HISTBL LENGTH OP HISTORY 
769 POUR dC TL2,¢ut 
ae SEKSUM DC CL31"*SEEK XXXXXXX XXX TRACKS, TO Xxx* 
770 
770 
170 
771 NOERR DC CL8*NO ERROR® 
772 TBLSAY DC XL2¢0O* 
773 THISER DC XL1'ot ‘ 
a DC CL37*ERRORS CCCURRED APTER DOING A READ 
774 
778 
774 
775 RDIDER DC CLi2Z® AT CYL. Xxx? 
775 : 
ae EPRORYD DC CL38" ERRORS OCCURRED WHILE SEEKING CYL. 
776 
776 
776 
776 
777 SEEKTO DC CLIB‘SEPKED TO CYL. XXX? 
777 
777 
778 SEEKAT DC CLIS* ARRIVED AT CYL. XXX* 
778 
778 
779 SEEKDR DC CL21*WHILE SEEKING XXXYXXIXt 
779 
779 
78C OLDADR DC CL14* PROM CYL. xXxXx* 
780 
781 FORWD DC CL7' FORWARD? 
782 REV pc CL7°*IN REV. * 
783 SVNBLK DC CL?° ' 
290CT71 15NOV71 ISMERT2 
571601 571605 571591 


PART NO. 


PAGE 


TABLE 


Ip* 


XxXx* 


PROG ID 
PAGE 


5129624 


8 


8 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


A036 


ERR LOC 


1505 
1506 
1507 
1509 
150D 


1511 
S15 


1519 
151D 
ISTE 
1522 
1925 
1529 
TS2A 
1525 
152D 
1S2F 
1533 


1535 
1598 
1S3P 
1543 
was 
1547 
1548 
154C¢ 
54D 
1540P 
1553 


1557 
155R 
1595C 
1S5D 
1S5P 
1563 


1565 
1560 
156P 
1573 
1575 


1577 
1578 
1S7C 
157D 
1S7F 
1583 


1587 
1588 
158C 
158d 
1S8F 
1593 


1895 
15939 
1S93D 


1S9E 
WSR2 


DATE 
FC NO. 


SEEK FUNCTICN TEST 
OBJECT CODE ADDR 
05 1505 
00 1506 
16B1. 1508 
38 08 OAOC 
cO 10 0216 
3D 00 0818 
CO 81 OAI0 
co 87 1c07 
03 151D 
39 04 IC5C 
P2 10 10 
CO 87 O21A 
C6 1529 
21 152A 
1661 152 
A090 152° 
CO 87 0222 
A090 1534 
Oc 01 1C&3 CD61 
3c 99 126C 
CO 87 1F9C 
1C42 1544 
WHAT 1546 
CO 87 ICR? 
ao 154R 
00 154c 
1c61 T54F 
CC 87 1565 
CO 87 1245 
CO 87 021A 
06 1558 
26 155¢ 
TUAT 1552 
CO 87 9222 
A"09 1564 
3C 04 1Cb2 
OC 02 1639 9N61 
CO 87 1P8C 
1C62 1574 
1UA7 1576 
ce 87 107? 
co 157B 
co 157¢ 
1cé1 ISTE 
co 67 1595 
CO 87 1EuS 
CO 87 C214 
ot 158R 
26 158C 
TWAT 1582 
CO &7 0272 
A009 1594 
c2 01 1779 
CO 87 1¢07 
03 159D 
38 04 ICSC 
PZ 10 IC 
TIPARTO OIARTI 
571512 571573 


852 


SOURCE STATEMENT 


* 


RT NS 


RTNSA 


RTNSB 


290CT71 
571601 


MVC 
“VI 


MVI 


TBN 
JT 


TS NOVT1 
571605 


PART HO. 
PAGE 8h 


ROUTINE NO. O05, MEASURE READ SETTLING TIRE 


XL1°05* 
XL1¢00* 
AL2 (RT N6) 
UNA, X*OU® 
LINK 


seTsa,0 
SETDSK 


SENSE 
XL1°03¢ 
STATUS-1,1°948 
RTNOA 

PRINT 
XL1°C6? 
IL1°33° 

AL 2 (HEADP1) 
XL2*A090° 
HALT - 
XL2*A0908 


WRTDFC#2(2) , ZERO 
SNSID,09 

CVD 

AL2 (WRT DFC#1) 
AL2 (ERRGRS) 
STRTIO 

XL1*O* 

XL1*0° 

AL2 (WPT DFC) 
RTNSB 

PRTSNS 


PRINT 
XL1*06° 
IL1* 38° 

AL2 (ERROR) 
HALT 
XL2*A009* 


WRT DFC#+1,1 
HDTIME (3) ,ZERC 
cvpD 

AL2 (WRT DFC#1) 
AL2 (ERBOR9) 


STRTIO 
XL1°0° 

XL1 soe 

AL2 (WRT DPC) 
RTNSC 
PRTSNS 


PRINT 

XL1° O06" 
IL1'38* 

AL 2 (ERRORS) 
HALT 
XL2*2009° 


6000,kR1 
SENSE 
XLV°O3* 


STATUS-1,K'C4? 
RTNOD 


ISMART2 
57159 % 


ROUTINE NOUANBER 

ROOTINE FLAGS 

ADDRESS OF NEXT ROUTINE 
TEST FOR HIGH SPEED 
BYPASS ROUTINE IF DEFINED 


HAVE PARAMETERS BEEN ENTERED? 
BRANCH IF 8O , 


SENSE DEVICE STATOS oe 
BYTES 2 & 3. 


- TEST HEAD SETTL™HG BIT POR OFP 


JUMP IF OFF . . 
TO PRINT READ SETTLING BIT ON 
FLAGS — 

LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 

TO DCP HALT 

HALT 1D 


SET TO SEEK TO ZERO 
INSERT ID IN PRINT 

TO CONVERT CYLINDER NUMBER 
ADDRESS OF SOURCE 
ADDRESS OF DESTINATIGS 
TO SEEK TO 0 

FPUNCTICR CODE, [(CONTROL) 
CONTROL CODE, (SEEK) 
CONTROL FIELD ADDRESS 
GOOD RETUBH 

ERROR O8 SIO 


TO PRINT ERROR 


- FLAGS 


LENGTH 
MESSAGE ADDRESS 
TO DCP ERROR HALT 
HALT ID 


SET TO SEEK TO CYLINDER 1 
ZERO THE TIME AREA 

TO CONVERT CYLINDER NO. 
ADDRESS OP SOURCE 

ADDRESS OF DESTINATION 


TO SEEK TO 3 

FUNCTION CODE, (COXTROL) 
CONTROL CODE, (SEEK) 
CONTROL FIELD ADDRESS 
GOOD RETURN 

ERROR OWN SIO 


TO PRINT ERROR 
FLAGS 

i ENGTH 

MESSAGE ADDRESS 
TO DCP ERROR HALT 
HALT ID 


TO SENSE STATUS 

BYfES 2 AND 3 

TEST THE HEAD SETTLING BIT 
JUMP WHEN IT COMES OF 


PRCOE ID 0A03-6 
PAGE BR 


5129628 





eoececceccccecce 


IBA SAINTENANCE DIAGNOSTIC PROGRAR 


ad36 


ERR LOC 


1S5a5 
1549 
1SAD 
15Bt 
45B2 
1583 
1535 
1587 
15BR 
15BD 


15C4 


3$c7 
15¢8 


wscc 
15p0 


1SD4u 
ISDA 
ISDD 


1520 
1SFt 


SEA 
ISFO 
TSF6 
isi¢ 

ISFF 
TE0s 
1603 
160F 
4615 
1619 
1642 
T6148 
161 


“461F 
1623 


1625 


1629 
162E 
1631 
1634 
1639 
TESA 
163E 
TERT 
1649 
1651. 
1ESS 
1661 
1€€2 
TEER 
1672 
1672 
1682 
T6ER 
169C 
1693 
TERO 
T6R3 


CATE 
EC WO. 


SEEK FUNCTION 


OBIFCT CODE 


36 Q1 I7E2 
cO 84 1999 
cO 87 O2TA 
c6 i 

26 
1687 
4091 
©o 87 
A091 
co 87 


0222 
02716 
1639 


GE 02 16 30 


co 87 
03 


1C07 


38 OH 
co 16 


1¢5¢ 
15C1 


0D 02 1639 
P2 84 03 
F2 87 OA 


1633 


op 02 
co 82 


1639 
0216 


1636 


0c 02 
04 40 163D 
OF 02 1640 
F2 87 OA 
06 04 163D 
CO 87 15F6 
OC 01 16A2 
0c 01 169F 
cO €7 021A 
C6 

29 

16F0 

A004 


4640 1639 
TPET 


T1E6 
162D 


163¢ 
163A 


co 87 
AOO0d 


0222 


cG 87 0216 


FOFOFOFOF1 
00005D 

COEBDCG 

OO6ERC 

co0000 

CCOGCO0OR 

cooceo 
CECECICUUOE2ZC5SE? 
F3r 3Ic9OPSC74#OL 2C§ 
DSEZCS4OCZCIE3NO 
CILIECCIESBEZYOES 
D? 

CECECIUW ROE IC HE 
E203¢ 915074 OF2C5 
DE EZCS40C 2C SEIKO 
LSCE ESCSLSMOCIDG 
LUCSEZNYOEUD? 
COCECICUUOEZCE F3 
EILIC SNSC TUOP% 8 
DUCSKOCIEZUOEVET 
QBEVE? 
SYLUCID3IDICSEOCEZ 


TIMARTC 
571512 


TEST 


ADDR 


35B1 
15B2 
1584 
1SR6 


SBC 


15CB 


1619 
TE123 
TE1C 
ITE 


1624 


162D 
1630 
1633 
1636 
1633 
163D 
1EK0 
16671 


16E7 


1642 


1€£0 


OIMART1 
571573 





REG1,IB1 
RTNSC+S 

PRI WT 

XL ¥*°C6t 
IL1*38¢ 

AL 2 (HEADF2) 
XL2*a09 15 
HALT 
XL2°A091° 
LIBR 


ADTI#E (3) ,TIBTOR 


SENSE 
RL1° O38 


STATUS-7,%°O4* 
RTRSD 


HDTIME (3) , LOWKOR 
RINSE 
TIMERR 


HOTIRME (3) ,HIGKON 
LINK 


HEXTIN (3) ,HOTINE 
DECTI# (5) , UNITS (1) 
HEXTIN (3) ONE 

RT NSF 
DECTIN(£} , DE RONE (5) 
TIMLOP 
REDPET (2), DLCTIA-1 


® 


HEDFRI-3(2} , DECTIN-3 
PRIN 

XL1°CC# 

IL7Tea ye 

AI? (EETHFD) 

XLZ*AgQMs 


HALT 
XL2°a0cus 


LI BK 


CLS*COCC 16 
IL3*93! 
IL3*27ec0* 
IL 3" 223068 
XL3'O* 
IL4*Ot 
XL2°c*¢ 


- PART BO.  $129626 
PAGE 3 


. 


DECRESENT DELAY COUNTER 
LOOP BACK ‘ 


MESSAGE ADDRESS 
BESSAGE ID 

TO DCP ERROR RALT 
HaLT 1D 

ROUTINE EXIT 


ADD TO TINE CONSTANT 


TO SENSE STATUS 
BYTES 2 AND 3 


TEST THE HEAD SETTLING BIT 
LOGP TILL IT GOES OFF 


IS CORPUTED TIME GREATER THAN MIB? 
BRANCH IF YES 
TO ERROR IF NO 


IS COMPUTED TIMP LESS THAR SAX? 
2¥F YES, EXIT ROUTINE 


SET HEY COUNT VALUE 
ZERO THE DECIMAL TINE ARBA 
DECREREKT TEE HEX CouNT 


STEF THE DECIMAL COUT? 
LOOP 
SET TIME 18 SESSAGE 


TO PRINT HEAD SETTLING TIAE 
FLAGS 

1 ENGTE 

MFSSAGE APDERESS 

MESSAGE 1D 


TC DCP EREROE HA&aLtT 
HALT 1° 


ROUTINE EXIT 


CL33*ERAD SETTLING SEYSE BIY ALWAYS UF* 


CL3IG*KEAD SETTLING SENSE BIT FEYPE CORES or? 


CLZ7°ELFD SETILIVG FIKE IS XJ.Xx* 


CLUQ* HKILLI-“SFCGHNLS* 


IS EART2 


STMT SOURCE STATESENT 
853 
85a & 
855 8H 
856 B 
857 pc 
858 oc 
859 Dc 
860 pc 
861 B 
862 pc 
863 B 
B64u 
865 RTW5D ALC 
866 
867 B 
868 DC 
869 
B70 TEN 
a7i BT 
872 
873 cLe 
874 JB 
875 J 
876 
877 RTNSE CLC 
878 BL 
879 - 

880 TIMERR SVC 

881 ZAZ 

882 TIMLOP SLC 

883 JL 

88a AZ 

885 B 

886 RTNSF MYC 

887 “VC 

868 B 

889 pc 

890 pc 

891 pe 

892 pc 

893 

894 B 

895 bc 

896 

897 B 

898 

899 DFMONE DC 

900 TIMNKOS DC 

901 LOWKGN pC 

902 HIGKON DC 

903 HDTINE pC 

904 DECTIN DC 

905 HEXTIR DC 

90€ HLEDEF1 pc 

90€ 

906 

906 

906 

907 EEADP? DC 

$07 

907 

907 

$07 

90% HEDFET DC 

908 

908 

908 

$09 PRTFEDL pC 
290CT71 1SNOV71 

571601 571605 


5715914 


PROG ID 0403-6 
PAGE -) 


5) 


ORE ees ee os : CLs : . , . : : . eo . 
Saas S -. = - ne ~ a : . afar eee 


10M MATRTERANCE DIAGHOSTIC PROGTAK 


AG36 
16AR 


1681 
1682 
1653 
T6B5 
1689 


1680 
16C% 
- 168 
16C8 
16CB 
16CE 
1694 
16D4 
1608 


%6DB 


TEDF 
16E3 
16Ea 
TEES 


I6E7 
16EB 


16EP 


16F3 
16F7 
T6FA 


16FE 
702 
1706 
170C 
1718 
1718 
W115 
W714 
1718 


T7IA 
TIVE 


1726 


1723 
T72A 
TIQE 


172F 
1333 


1733 
736 


17: 3L 
17k? 
1746 
T7TUA 
74D 


Late 


SEEK FUNCTION“ 


SOP eral SS ers Se) asp sty 


” 


om ee 


BOUTIBS NO. 06, TEST OP THE SEEK CHECK TIBSEOUT COONTER © 


425T 
FRE -LOC OBJECT CODE | ADDR STAT SOURCE STAT EREKT 
CSC3DED5SCEE2 909 
: 3 910 © 
911 
06 16B1 912 RTNGE DC XL1°O65 
00 1682 913 pc XL 1°05° 
Cr 16B8 914 pc AL2 (RT RT) 
3D 00 “0818 945 CLI SETSW,0 
cO 81 0at6 916 BE SETDSK 
917 
3D F2 0BS0 918 CLI SPNSSG,C'2* 
F2 61 15 919 JE PHT PAS 
C2 G1 90232 920 La UTAB,ZE1 
7D 20 00 921 RTN6F CLIO OU(, XR1),X?BO* 
F2 81 OD 922 JE RTREE 
78 410 01 923 TBN 1(, 481), %*108 
n2 01 C3 924 La 3(_2%K1) ,XB1 
co 90 16C8 925 BF RTH OF 
F2 87 10 926 3 RT NOD 
927 * 
928 
929 
C1 RO I7RA 930 RTN68 TIO RINGEA,X* BO! 
931 © 
932. 
CO 87 U21A 933 PRTPAS 8 PRINY 
06 16£3 934 pc XL1*06t 
25 16FQ 935 DC IL1*378 
1749 16E6 936 Dc AL2 (PIPAS6) 
937 
CO 87 0216 938 B LI RE 
co 87 1¢21 935 RTN6D RB RECAL® 
940 
3c 50 1779 941 NVI ARDI,3Y*50¢ 
942 
37 AG 1774 943 LIO = =6GUNG,Y*A6* 
F2-A0 00 949 S10 0,23*a0' 
C1 AO 1722 945 SACK TIO SPER, 2:08 
946 
321 22°177R 947 LIO) =LONCt1,x*a3* 
34.23 1776 948 LTO) =—s LONG -2,, X a3 
CF CO 1779 118€ 949 SLC ENDY(1},C0NE 
CC O01 16FR 950 BNZ S&C 
CC 87 O21A 951 B PRINY 
C6 ; 1718 952 pc x1 1°c6" 
07 1715 953 pc J11°078 
1729 1717 $54 DC BL 2 (RIWGPY} 
A092 1719 «(955 DC XL2*aG9z? 
956 
cc 87 0222 95? B HALT 
A092 171P 958 aC xL2*a0Gz¢ 
959 
P2 87 14 966 R TRUST 
961 
CRCTDIF OF SEZ 1729 962 RTN6M1 DC CLOT@ Ray S2¢ 
cG 87 1063 963 SEER B SENSE 
02 T72F (9€8 bc Y1ts89." 
965 
7£ Te ICSD S66 TPN STETOS,YICE 
CC VC TILA 967 51 SEL: 
SbF 
3% BY WIA S€9 FRIST Le CORE 28s 
F341 C1 97¢ SIC ROL LTE 
971 
31 a3 1778 972 LIO =©COEP,X*33¢ 
3% A 1776 973 LIQ =6YOKF,3*23' 
C1 R2 1745 974 T1G) «CRUSE, 2°Aaz6 
FZ &7 1F 975 J RINGE 
31 23 1778 976 CRUSE LYO CORE,Y* E34 
VIMAETC QUmeP54 290CT71 ISKOVTT ISFLE VE 
S71£12 571573 571601 571605 $7 1591 


FC KO. 


onowgae 


en tht er 
, 


ROUTINE RUBBER 
ROUTINE PLaGS 
ADDRESS OF NEX1 
HAVE PARAMPTERS 
BRANCH IF NO 


ROUIIEF 


IS THIS RORNING 
JUMP IF YES 

LOAD POINTER TC 
TEST POR a DISK 


UDT TABLE 





BEEK EKTERPR? 


OR DIS® 2 2? 





see 


51296278 
ga 


I 





DRIVE 2 ETH 


JURF TO THE TIC I}! TREAR 1S OF 


TEST FOR LAST ENTRY 
INCREMENT TABLE POINTER 
BRINCH BACK TF OT DONE 


NO DISK DRIVE 2 EWTELES FousD, 


SO RUN TEST 


RUN THIS RCUTINE CHLY WHER DISK 2 


IS NOT READY 


TO PRIKT ROUTINE EAS BEES BYPASSED 


BESSAGE ALDRESS 


ROUTINE Exit 
TO RECALIERATE 


SET FOR TRA“F XINC. 
SET TO SEEK FORSAERD 


5S FEK 
BRANCH GN SEER EREOB 


‘TURP OX THE INDEY B39 


TORN OFF THE JADE FIY 
DECKESENT COUNTER | 
ERANCK WKIIE B02 LEXG 
TO PRINT ERROR 

PLAGS 

LENGTA 

RESSAGFE &DDKESS 
MESSAGE 1D 


TC DCP ELROB 8i1T 
RALT ID 


TC SENSE 
ELTES C € 1 


TEST FOE SEER &USY 
LOGP T1LI SLER LUSTY Drors 


RLaC 10 


TO KOUTISZE EXIT 


PROG Ib 
FaGE 


SUBROUTINE 


PULSES 


-Gacj-€ 
$2 











IBM MAINTERARCE DIAGNOSTIC PROGRAZ 


‘4036 


CL37*ROOTINE 6 BYPASSED WHILE DISK 2 IS On® 


SFEK FONCTION. TEST 
FRR LOC OBJECT CODE ADDR STMT SOURTE STATESENT. 
1754 37 A3 1776 aes 977 Lio YORE, X*a3® 
1755 €1 A2 2175¢ 978 TIC BROSH, X*A2* 
1753 F2 87 10 - 979 d RT ROE 
175C CO 87 O2TA 980 BRUSH B PRINT 
1760 C6 3760 #981 oc XL1*Ce? 
1761 07 1761 982 pc IL?V°o7* 
- 99682 17848 91763 98} DC AL2 (RT HSB) 
1768 1093 1765 984. pc XL2°*aGS3? 
1766 CO B87 0272 386 B HALT 
“376A A093 1768 987 pc XL 2*a093° 
ae 288 
-. . ‘$96€ £3 At O01 989 RTNGE ST X'OUS, x*a** 
S$ 76F CO 87 0216 990. B. LINK 
oe 9773 «1770 7778 991 GONG BC. AL2 {LONG} 
“4975 8ct00 1776 .982 YORE be ¥L2*8006° 
3777 «9000 | 1778 993 coRD pc XL2*oG0at 
; - 994 
41779 60 1779 995 ANDY. DEC XLi*06 
" £73 €0009180 77D 996 LONG pe XLS * 000001 8G? 
TITE C8CIDIEIOP IF 3 178% 997 RTN6RZ DC CLO7'HALT 93° 
1785 DODEESE3CIDSC520 1709 998 BYPAS6 DC 
VFBD FOUNCIEBDIC IEZE2 998 
1795 CSCUUDESBCRCED3CS 998 
179D GOCECYE2D2U0FP 240 938 
17A5 COEZGODEDS 398 
WIAA 30 R2 5D - 999 RTNGA SRS STATUS ,I*B2* 
7000 *® 
Q7AE 38 49 ICSC 1001 TRN STATUS-1,X°80! 
17B2 CO 10 1658 1002 3T RTRED 
17B6 3C FF W7CP 1003 “VI RFIPLI,Y' PP? 
V7BA 31 BG T7CA 1004 LIO RPLADR,1' BG! 
17BE F3 BO 09D 1005 sio UO, X'BOF 
1701 C1 BO I7AA 1006 TIO RT NOA,X* BO? 
77CS CO 87 16DP 1007 B PREPAS 
7008 
17C9 17CB V7CA 1009 RPLADR DC AL2 (RFI ELD-3} 
17CB COCOCOFF IF7CE 1010 RFIELD oC XL&* GOGOUCFF® 
10171 
V7CF 07 VICF 3012 RTNT pc XLP*O7? 
17DO 00 17D0 1013 pc XLG°o08 
17D1 17DF I7pD2 1074 pc AL2 (ETNA) 
1015 
17D3 3c CO O8ia 1016 aVI SETSW,0 
17D7 3C CO 0817 1077 BYI SEPUDT,0 
1T7DB CO 87 O00CO 1018 8 G 
LATE A3ZHARTO OVWART1 290CT71 15SNOV71 15M RR72 
EC NO. 5717512 571573 571601 5771605 571531 


PART NO. 
PESE 


TO ROUTINE EXIT 
TO PRIST ERROR 
FLAGS 

LERGTH 

RESSAGE ADDRESS 
BALT ID 


TO SCF ERROR HALT 
HALT ID 


TO SENSE DEVICE STATES 


GET BYTES 0 AND 1 


3128625 
30 


TEST FOR INTERVENTION BEQUIRED 


BRANCH iF GN, RUE TEST 


SET POR RECALIBRATE 


LO2D FOR RECALIBRETE 


BRECRELIBRATE 


DISK DRIVE Z IS NOT READY, 
DISK DRIVE 2 IS READY, 


RCOTIRE wWUNBER 
ROUTINE FLAGS 


ADDRESS OF KEXT ROUTIEE 


SET ENTRY SWITCH TO ZEEC 
ZERO THE SKIP UDI FLAG 


RESTART PROGRAR 


PROG ID 
PAGE 


TEST 87 
BYP&SS TEST 


OA03-6 
16 


4 
| 
{ 
| 
| 
| 
| 
i 






SFEK FONCTION TEST 


JSS WAENTERANCE DIAGROSTIC PROGRAS: 


R036 
ERR LOC OBGFCT CODE ALDER STST SOURCE 
.1020 «© 
1027 
W022 = 
. 4023 
T7DF O08 T7DF 1025 BTNS 
47EG 80 TIED 1025 
W7E1 PRPF 1782 1026 NEGI 
1027 
I7E3 3D ©O OBIA 1028 
V7FF CO 81 DAO 1029 
WEB 3C C7 TA5SD 1030 
I7EP 3C CC? TAGE 1031 
17P3 3C C7 IWATP 1032 
17°97 3D F1 OB50 40 33 
FB P2 81 OC 1038 
WIFE 3C C&O TASD 1035 
1802 3C CH IA6F 1036 
1806 3C CoO TA7P 1037 
160K CO 87 O2Z1A 1038 PNTINS 
IB0E 02 1BUE 1039 
IQ0F 12 OF 1040 
1816 1050 1871 7081 
1812 CO 87 O21~a 1042 
1B16 01 B16 10483 
1817 171 1617 1044 
1818 1A614 1879 10485 
181A CO 87 O2ZIA 1046 
BIE Of W8IE 1047 
IBiF 71 IRTP 1048 
1820 2072 18274 10489 
1822 CO 87 OZTA 1050 
1826 06 1826 7051 
1827 17 7827 1052 
9828 1A83 4829 1053 
187a CO 87 9222 1054 
182F AOFC 4B2P 7055 
1056 
7870 3c 01 IDBS 1057 
783% 3C 00 TDBG 1958 
1B3IH C2 O01 WAIA 1059 RTNTOR 
183C 34 CT TAZC 1066 
18869 35 07 1k2C 1061 DYAG6 
1BuU4 7D FF O09 1062 
18687 CO £1 1998 1063 
184A 3c CO 1A32 1068 
18SGF TC OO 1028 CO 7065 
7858 UD 00 CO IDRE 1066 
4859 F2 01 02 1067 
785C 3C FPR 1232 1068 
1669 
1860 CO 87 ICR? 1070 
18648 OO 71868 1071 
1865S 00 1€65 1072 
1866 1A27 18667 1073 
18648 CO 87 186C 1074 
186C CO 87 18706 “1075 
1870 CO 8&7 1ICcC7 1076 
1874 03 1874 1077 
1875 3D FPF 1a32 1073 
1879 CO £1 1979 1079 
187) 39 60 1CS5D 1080 
1881 P2 90 1B 1081 
1884 3C 80 TE6C 1082 
1888 CO 87 1E45 1083 
188C CO 87 O21A 1084 
1890 Cé 1890 1085 
1891 30 1891 1086 
1692 1AB3 1893 1087 
DATE TIMARTO OMART1 290CT71 
FC KO. 571512 571573 571601 


TS PEN FE 





371531 








$129628 


PART BO. 
PAGE TOR 
STATENERT 
ROUTINES TO TEST THE *GO’ AND *TRACK CROSSISG LISES* * 
ROUTINE PREFACE * 
pc XL1°08° ROUTINE NUABER 
DC XL1°80° ROUTINE FLAGS 
pc XL2°Frrre LAST ROUTINE FLAG 
CLI SFETSH,0 HAVE PARABETERS SEEN ENTERED? 
BE SET DSK . BRANCH IP XO 
NVI JUNP1-4,C*G? SET FOR DISK DRIVE 1 
SVI J08P2-4,C'G* ° f° cafe 
SV¥V¥ JUBP3-4,C°G! La DAES tee 
CLI SPHNaMSG,C*1* TEST FOR RUNNING ON DISK DRIVE 1 
5 PRTINS , a 
NVI JUSP1-8,C'F® SET POR DISK DRIVE 2 
SVT = JUSP2-4,C*F* 
AVI JUNP3-5,C°F* 6 
B PRINT TO PRINT IESTRUCTICRS 
1 XL1*02¢ 
DC IL1* 30° 
DC AL2 (OPI NST} 
B PRINT 
DC XL1°O918 
pc IL 19178 
oc AL2 (JUMP) 
3 PRINT 
pc XL1°07¢ 
pc IL1°%7# 
pc AL2 (JUNP2} 
8 PRINT 
pe XL1*06* 
Dc IL4*17" 
pc ALZ{JURP35 
B HALT 
oc ¥L2°ROFC* 
AVI ¥FRSTPS,01 SET TO ELISINATE A RECAL. 
S¥I oo LASTAD,O SET TO IXDICATE kT CYLINDER O 
LA SKTBL,1R1 SET XR1 TO POINT TO 
ST PRELST, XB1 BEGINWING OF PARAMETER LIST. 
L PRELST,2K1 LOAD CURRENT PARABETER ADDRESS 
CLI O(,ER1),X*FF* CHECK FOR LAST OBE 
BE DIAEXT BRANCH IF DONE 
NVI HOTSH,O ZERO SOTXON SHITCH - 
MVC DIADPC41(1},0(,.XR1) HOVE NEXT PARAMETER LIST TO CTL 
CLC O(1,XR1),LASTAD COMPARE NEW SEEK ADDR. OLD ADDER 
JNE +7 JOMP IF ROT THE SASE 
AVI NOTS#,X*PF® SEEK ADDR.THE SANE, SET S#ITCE 
B STRTIO TO SEEK . Fe Ee gee 
pc XL1*0° FUNCTION CODB, (COETROL) eta Se 
pc XL1°O° COBTROL CODE, (SEEK) . 
DC AL 2 (DIADFC) COETROL FIELD ADDRESS 
B *eU , 7 
5 +44 
B SENSE SENSE BYTES 
pc XL7#038 25 3 
CLI SOTSU,X* FF CHECK FOB A NO MOTION SEEK = 
BE NOSOT BRANCH IF THIS WAS A KO SOTION 
TBF STATUS, K*60* TEST FOR *GO* KNOT UP 
JP DIAGS JUNP IF UP 
AVI SNSID,X*60* 
B PETSNS 
B PRINT - TO PRINT GO NOT UP 
pc XL7*C6* FLAGS 
DC IL1* G8 LENGTH 
DC AL2 (NOGO} MESSAGE ADDRESS 
15NOV71 TOMARTZ PEOG ID 0a 03-¢ 
571605 PAGE 10a 





IBM MAINTENANCE DIAGNOSTIC PROGRAA 


$129628 


PART HO. 5129628 IBA MAINTENANCE DIAGNOSTIC PROGRAA PART HO. 


SOURCE STATENENT 


A036 SFEK FONCTION TEST 
ERR LOC OBJECT CODE ADDR STST 
1898 A080 1895 1088 
1896 CO 87 0222 1089 
1594 A080 189B 1090 
189C F2 87 F9 1091 
1092 
189F 0C 01 1A2E 1830 1093 DIAGS 
109% 
18a5 CO 87 1007 1095 DIAGA 
189 03 1839 1096 
18AA 38 02 1C5C 1097 
18AE P2 10 4P 1098 
1099 
18B1 OF 01 1A2E 1126 1100 
18B7 CO 8&4 18A5 1101 
1102 
18BB 39 60 1C5D 1103 
1RBF P2 90 18 11048 
18C2 3c 84 TE6C 1105 
16C6 CO 87 1E45 1106 
18CR CO 87 021A 1107 
18CE C6 18CE 1108 
18CP 32 18CP 1109 
18D0 1B9B 18D1 1110 
18D2 A084 18p3 1111 
18DU CO 87 0222 1112 
18D8 a0s4s 18D9 1113 
18DA F2 87 BB 1118 
1115 
18DD 3C 85 1B6C 1116 DIAG 
18F1 CO 87 1E85 1117 
18E5 CO 87 021A 1118 
18F9 C1 18E9 1119 
1BEAR 2F 18EA 1120 
1BEB 1BCA 18EC 1121 
18ED A085 1BEE 1122 
18EF CO 87 021A 1123 
18F3 06 18P3 1124 
16Fa 15 18P8 1125 
18F5 1881 18F6 1126 
18F7 CO 87 0222 1127 
18FB A085 18FC 1128 
18FD P2 87 98 1129 
. 1130 
1900 c2 01 19C¢8 11317 DIAGB 
1908 CO 87 1C07 1132 
1908 03 1908 1133 
1909 38 02 1C5C 1134 
190D F2 10 2c 1135 
1136 
1910 OF 00 1A31 1186 1137 
1916 F2 81 3F 1138 
1139 
1919 39 60 1C5D 1140 
191D CO 90 189F 1941 
1182 
1921 3c @2 1£6C 1143 
1925 CO 87 1285 1148 
1929 CO 87 024A 1145 
-192D C6 192p 1146 
1928 49 192E 1147 
192F 1B1E 1930 1148 
1931 a082 1932 1189 
1933 CO 87 0222 1150 
1937 A082 1938 1751 
1939 F2 87 5C 1152 
1153 
193C 36 01 17£2 1154 TKTIANE 
1940 CO 8% 1904 1155 
DATE 13MARTO O1MAR71 290cT71 
EC NO. 571512 


571573 


571601 


bc 
B 
boc 
J 


mvc 


LA 
bc 
TBR 
JT 


SLC 
JZ 


TBF 
BF 


aVI 


1580V71 
571605 


XL2* a080* 
HALT 

XL2 *a080* 
DIAEXT 


TINCTR(2) ,TIMEST 


SENSE 

XIL1°03° 
STATUS-1,X*02* 
DIAGB 


TIACTR (2, ,ONE 
DIAGA 


STATUS, X*60? 
DI AGS 
SNSID, X*84* 
PRTSRS 
PRINT 
XL1°C6¢ 

IL 1*62° 

AL2 (GODROP) 
XL2*a08a¢ 
HALT 

XL2* A084? 
DIAEXT 


SNSID,X*85* 
PRTSNS 
PRINT 
XL7°C1°* 
IL1¢a7e 

AL2 (NOTKCB) 
XL2*a085* 
PRIVT 
XL1°06* 
IL1*217° 

AL2 (SEEKDR) 
HALT 
XL2*a085s* 
DIAEXT 


6600, XR1 
SENSE 

KRL1*° 93° 
STATUS-1,X%*02° 
TKTIAE 


TKCTR (1) ,ONE 
DIAG2 


STATUS,X*60* 
DIAGS 


SNSTD,Z*82* 
PRTSHS 
PRINT 
XL1°C6¢ 

IL 1* 73° 

AL2 (GOERLY) 
XL2*a0S2°* 
HALT 

XL2* a082* 
DIAEXT 


NEG1, XR1 
DIAGB+N 


ISHAR72 
971591 


PaGE 41 


SET UP TIMEOUT COUNTER 


TEST FOR TRACK CROSSING 
JUMP IP ON 


SUBTRACT ONE FROM TIANEOUT CTR. 


TEST FOR *GO* 
OUNP IF UP 


NOT UP 


TO PRINT GO HAS DROPPED 
PLaGS i 
LENGTH i 
MESSAGE ADDRESS 


HALT ID 


TO PRINT NO TK. 
FLAGS 

LENGTH 

MESSAGE ADDRESS - 


CROSSING PULSE 


LOAD DELAY VALUE IB xR1 


TEST FOR TRACK CROSSING 
JUSP IP TRACK CROSSING UP 


SUBTRACT ONE FROM TRACK COUNTER 
JUSP WHEN IT IS ZERO 


TEST FOR *GO* NOT UP 
BRANCH IP IT IS STILL UP 


PRINT GO HAS DROPPED EARLY 
PLAGS 

LENGTS 

BESSAGE ADDRESS 


HALT ID 


DECRESENT DELAY VALUE 
BRANCH BACK TO SENSE IF HOT TISED 


PROG ID 0A03-6 
PAGE V1 


ey 


A036 
ERR LOC 


1944 
1988 
19589 
198A 
194C 
I9UE 
4952 
1958 


1957 
195R 
195E 
1962 
1966 
196A 
196A 
196C 
196E 
1970 
197% 
13976 


1979 
197D 
1980 
1984 
1988 
3198C 
198D 
19RE 
1990 
1992 
1996 
1998 
199C 


T9A0 
T9AG 
1948 
19A9 
T9AA 
T9AC 
19B0 
1988 


19B5- 


1989 


19BC 
79C0 
19¢1 
19C2 
19¢8 
19C6 
T9CA 


19¢c¢ 
19D0 
19 D6 
19DA 
19DD 
1921 
19B3 


1985 
19E9 
19EA 
19ER 
19ED 


FATE 
EC NO. 


SEEK FONCTION TEST 


OBJECT CODE ADDR 
cO 87 O24A 

co 1988 
1c 7949 
1006 1948 
AOSP 194D 
CO 87 0222 

AOSP 1953 
P2 87 5&1 

39 60 1C5D 

P2 10 82 

3c 83 1"86C 

CO 87 1TE45 

CO 8&7 O21A 

c6 196A 
3F 196B 
1B5D 196D 
A083 196P 
cO 87 0222 

aode3 1975 
F2 67 IP 

39 60 1c5D 

P2 10 20 

3C 81 T1E6C 

CO 87. TEa5 

CO 87 O21A 

C6 198C 
2 198D 
TADS 198P 
A081 1991 
cO 87 0222 

aos 1997 
co 8&7? 1¢21 

CO 87 1838 

3C OF 1£6C 

ce €7 %IcB2 

01 1948 
01 19a9 
1c65 1948 
cO 8&7 1973 

co 87 1C07 

03 198% 
38 92 Ic5C 

F2 90 10 

CO 87 O21TA 

c6é 19C0 
29 19C1 
1BEA 19C3 
A08Cc 19¢5 
cO 87 0222 

agsc 19¢8 
CO 87 1£45 

OC O02 1481 1C€60 

3D FF 1C66 

F2 81 16 

cO 87 1F8C 

1C66 : 19E2 
1481 I9ES 
CO 87 O21A 

06 19E9 
31 19EA 
1481 19EC 
cO 87 0222 

T3M ARTO OTHART1 
. 5791512 571573 


STMT SOURCE STATEMENT 

1156 B PRINT 

1157 DC XL1°C6? 
1158 DC IL1*°28° 
1159 DC AL2 (TKUP) 
1160 pc XL2°a0@PF® 
1161 B HALT 

1162 pc XL2*a08PF* 
1163 J DIAEXT 

1168 

1165 DIAG2 TBP STATUS,X*60* 
1166 IT DIAG? 

1167 MVI SNSID,X°#3* 
1168 8 PRTSHS 
1169 8B PRINT 

1170 pc XL1°Co? 
1171 DC IL1*63° 
1172 DC AL2 (GOUP) 
1173 DC XL2*°a083° 
1174 B HALT 

1175 DC IL2*a083° 
1176 J DIAEXT 

1177 

1178 NOMOT TBP STATUS,X°60° 
1179 JT DIAG? 

1180 VI SNSID,x°e81° 
1184 8B PRTSES 

1182 B PRIST 

1183 DC XL1*c6e 
1188 pc IL7°3@° 
1185 pc AL2(GOUPA) 
1186 DC XL2*a081° 
1187 B AALT 

1188 pc XL2°A081° 
1789 DYAEXYT B RECALB 

1190 B RTWI9A 

1194 

1192 DIAG? VI SNSID,xX*°OPR® 
1193 8 STRTIO 

1194 DC XL1¢078 
1195 DC XL1°01° 
1196 pc AL2 (RDDPC) 
1197 B DIAGS 

1198 B SEMSE 

1199 DC XL1°03° 
1200 TBN STATUS-1,x°02* 
1201 IP DIAGTA 

1202 

1203 B PRINT 

1.208 Dc IL1*C6* 
1205 pc IL 1° 32° 
1206 pc AL2 (DETEUT) 
1207 Dc XL2* a08c* 
1205 B HALT 

1209 pc XL2° acec® 
1210 

1211 DIAG7A B PRTSES 

1212 SVC RDIDER(3) ,» TEREEQ 
1213 CLI RDDPCe1,X"FF* 
1214 JE DIAGS 

1215 8 cYD 

1216 Dc AL2 (RDDFC¢ 1) 
1217 Dc AL2 (RDIDER) 
1218 

1219 B PRINT 

1220 pe XL7°06° 
1221 DC IL1* 99° 
1222 DC AL2 (RDIDER) 
1223 B HALT 
2900771 15NOV71 35NAR72 
571601 571605 571591 


PAGE TA 


TO PRINT TRACK XING UP SOLID 
FLAGS 

LENGTS 

BESSAGE ADDRESS 

MESSAGE ID 

TO DCP ERROR HALT 

AALT ID 


TEST FOR *GO* 
JOSP IF NOT UP 


NOT UP 


TO PRINT GO AAS 
PLAGS 
LENGTA 
MESSAGE ADDRESS 


HOT DROPPED 


HALT ID 


TEST POR GO HOT OP 
JUEP IP NOT UP 


{0 PRINT GO UP WITH &O BOTIOR SBEK 


FLAGS 
LENGTA 
BESSAGE ADDRESS 


HALT ID ; 
TO RECALIERATE SUBROUTINE 


INSERT ID IB PRINT 

TO I/O SUBROUTINE 
PUNCTION CODE (RBAD) 
CONTROL CODE (ID) 
CONTROL PIELD ADDRESS 
GOOD RETURE 

TO SENSE DEVICE STATUS 


TEST POR TRACK CROSSING STILL OUP 
JOSP IP Orr 


TO PRIST ACCESS WOT DETERTED 
FLAGS 

LENGTH 

BESSAGE ADDRESS 

BESSAGE ID 

TC DCP ERROR HALT 

HALT ID 


ERROR RETURN 

PUT 272 IN ADDRESS READ 
CBECK FOR ANY DATA TRAUSPER 
JuaP IP #O 

TO CONVERT ADDRESS JUST READ 
SOURCE 

DESTINATION 


TO PRINT 38D LINE 
FLAGS 

LENGTE 

SESSAGE ADDRESS 
TO DCP HALT 


PROG ID 
PAGE 


3-6 
tta 





18H MAINTENANCE DIAGROSTIC PROGRAM 


A036 
ERR Loc 
19F1 


19P3 
19F7 
 19FC 
19PF 
1003 
1206 
1A0C 
1010 
1A 16 


JAVA 
TA1B 
TAIC 
TAD 
IAIE 
TAP 
TA20 
TA21 
TA22 
TA23 
TA28 
TA25 
TA26 


tA27 
TA2B 
TA2D 
\A2F 
TA31 
1A32 


TA33 
VA3B 
TA43 
TAB 
1a51 
1A59 
1061 
TA62 
_ TAGA 
1A72 
YAT73 
VA7B 
1083 
TA84 
7a6C 
TASB 
TA9C 
TAA 
TAAC 
TABS 
TABC 
TaACU 
tace 
TADS 
TADG 
TADE 
TAEG 
VALE 
- PAPI 
(.. TAPS 
1801 
1B09 
E11 
1819 


LATE 
Ec NO. 


2 a 
i 


SEEK FUNCTION TEST 


OBJECT CODE ADDR 
AOOP 19F2 
35 01 TaA2C 
wD 00 C66 00 
F2 81 «11 
39 03 1¢c65 
v2 90 OA 
oc 00 1C62 1328 
co 37 1C69 
OF 01 TA2C 1186 
co €7 1880 
TATA 
01 VATA 
GO TA1B 
02 TAIC 
20 14 1D 
09 VAIE 
090 IAP 
10 4A20 
10 a21 
00 TA22 
20 _ VA23 
00 TA24 
a0 wa25 
PP TA26 
VA27 
Occoo000 VA2A 
0000 TIC 
oo0co VAZE 
OOFP 1330 
00 TA31 
00 WA32 
C3IDEDSDSCSC3E380 1450 
E3C8C580C6D6D3D3 
DGEE6CIDSCTSIOD IER 
DU DICSDIE2ZNO 
E6F3D9F2D4FP OrP&a0 1161 
G6CKOEGPICTF2ZDIFO 
F2 
EOFIDIPZDGFOP38O 1072 
GO4OEGF3CTF2DIPO 
F6 
E€F3D9SF2D7F IFOS0 1383 
608 0E6 F3C7F2C7 FO 
F4 
C7DE4OD3ICIDSC5S4O 1AB3 
CHULECSE2N0DSDEF 3 
&¥OCIDEDECSS ORS DT 
S80D6D5 40C 180R2C5 
CSD240 F6ECIEICBRO 
DUEDEESCS DSC SDSE 3 
C7DOLZOD3CIDSCS4O 1AD5 
COF2UOEUD74OCEDE 
DIHOCT“ODSDe4ODs 
DOEIC IDODS40E 205 
e502 
C7DESOD3ICINSCS8O 1aFO 
CECIE2Z4OCUDIDED? 
D7C5C&4 OC 2C SC ED6 
D9C54a0 
DICSCICSCIESCINS ITE 
C74 0C3D6D9 D9C5C3 
E3I8ODSDE4BSODECS 
SO0E3D9C1C3D280C3 
DIDGEZE2C9DSC780 
D7 EUDIE2ZCSE2 
TIMARTO OWARTI 
571512 571573 


ST#T 


12248 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1238 
1235 
1236 
1237 
1238 
1239 
1280 
1281 
1282 
1243 
1284 
1285 
1286 
1247 
1248 
12489 
1250 
1251 
1252 
1253 
1258 
1255 
1256 
1257 
1258 
1258 
1258 
1258 
1259 
1259 
1259 
1260 
1260 
1260 
1261 
1261 
1261 
1262 
1262 
1262 
1262 
1262 
1262 
1263 
1263 
1263 
1263 
1263 
1268 
1268 
1268 
126% 
1265 
1265 
1265 
1265 
1265 
1265 


SOURCE STATENENT 


DIAGS 


DIAGS 


SKTBL 


DIADFC 


PRALST 
TIACTR 
TIKEST 
TKCTR 
sOTSa 


OPINST 


JUANP1 


JUSP2 


JUSP3 


NOGO 


GOUPA 


GOERLY 


290CTT71 
571601 


PART HO. 
PAGE 


5129628 
12 


DC XL2*A00F* HALT ID 

L PRALST, XR1 LOAD ADDRESS OF CURRENT SEEK 

CLC RDDPC#1(1) ,0 (, X81) COBPARE ID READ & EXPECTED ID 

JE = PYAG9 JUSP IF THEY ARE EQUAL 

TBP RDDPC,X'03* TEST FLAG BITS 

JP DIAG9 JUMP IP EITHER ARE ON. 

NVC WRTDPC*1(1),DIADFC+1 SET ADDRESS FOR PRINT ROUTINE 

8 SEEKER TO PRINT SEEK ERROR 

ALC = PRALST(2) ,ONE STEP PARARETER POINTER 

B DIAG 

zou ot 

DCs KL1":09° TREK 1 

pe XL1°00* TRK 0 

DC —saXL1#02° TRK 2 

DC XL1°00° TEK 0 

pC ——saXL1#099 TERK 9 

pc XL1*00° TRK O 

DC —_«» KL7* 10° TRK 10 

pc XL1°10° TEK 10 

pC —s-XL1* 008 TRK 00 

pc XL1°20° TEK 20 

DC ——saXE%17°008 TRK 00 

DC XL1°4Q8 TERK 80 

DC O—saXL1° FFe 

zou. oe 

DCs ELGPO8 : 
DC XL2°0° 

DCs EL2¢08 

DC XL2 ‘Pre . 
DC —saEL 1°08 

DC XL1°0° . : 
DC CL30°CONNECT THE POLLOGING JUMPERS®* 

DC =—«-« CL17*°W3R2H08 - 3G2902° 

DC =—«-—sCL17"°' W3R2803 - W3G2506° 

DC —«-« CL17*W3R2P10 - B3G2G08" | . 
DC CL48*GO LINZ DOES NOT COME UP OW A SEEK SITH BOVEBENT® 

DC  CL34*GO LINE IS UP POR A NO MOTION SEEK® 

DC © CL27*°GO LIWE HAS DROPPED BEFORE * 

DC CLSG*RECEIVING CORRECT NO. OF TRACK CROSSING PULSES® 
1SHOV71”  15HAR72 PROG ID 0003-6 
571605 571591 PAGE 12. = - 
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IBA MAINTENANCE DIAGNCSTIC PROGRAS 


A036 
ERR LOC 


1p1P 
1827 
1B2P 
1B37 
1B3F 
TEQ7 
BaP 
1857 
1BSE 
1B66 
1B6E 
1B76 
1879 
1881 
1B89 
1891 
1B99 
1B9C 
1BAS 
1BaAC 
1BBG 
1PBC 
1BCc4a 
1BCB 
1BD3 
1BDB 
1BE3 
1BEB 
1BP3 
1BFB 
1€03 


1C07 
1c08 
1coP 
1013 
1€19 
1cib 


1€21 
1025 
1¢€29 
1C2D 
1C 30 
1€348 
1¢€38 
IC 3¢ 
1C3D 
1C3E 
Tca0 
1Ccua 
1C48 
1cac 
Ic ap 
1CaP 


1¢50 
1c58 


1C56 
IC5A 


1¢5¢ 
ICSE 


DATE 
EC NO. 


SEEK 


OBJECT CODE 


PUNCTION 


C7D64OD3ICIDSC540 
CUC9ICHRODSD6EI4O 
C4UD9D6 D7NOCIC6E3 
C5D 94 0C 3DhD9D9C5 
C3IEZE34OD5D64 BY ODS 
C64O0E3DIC IC 3D240 
C3D9D6 E2P2C9DSCT 
KODTEGD3E2C 5E2 
C7D640D3C9D5C540 
C&C TE280C UD SDED7 
CICSC&adCc2CScb D6 
psc540 

DICSC 3C5SCIESCILS 
C780C 1D5E 8802309 
CIC ID2GOC 3D9DGE2 
E2C9DSC 74OD7F aD 3 
E2CSE2 
C7D648 OD 3C TE 3C 3C 8B 
4OES D780 5080D5D6 
BOEID9ICIC ID2H0C3 
DIDEEZEZCIDSC78O 
D7ESD3E2C5E280D9 
C5C3C9C5 ESCSCH 
CIC IC ICSE2E2N0N7 
D6E2ZC SE3CIDSDSCS 
C4u0C 2C£Z3E6CSCS 
DSS OE3DSCIC3ID2ZE2 
E3DIC IC 3D2480C 3D9 
D6E2E2C9 DSC740D3. 
CIDSCSKOESDIUOE? 
D6D3C9C8& 


38 
36 
34 
08 
30 
co 


08 
08 
08 
03 
00 
87 


tc18 
T1E6 
1€20 
ICTA 
ICSD 
0000 


0000 


34 
3c 
38 
F2 
3c 
3c 
co 
06 
01 
1C61 
co 87 
co 87 
co 87 
06 

24 
OCE8 


08 
co 
ca 


1¢59 
IDEBB 
020A 


08 
OE 
87 


IDBR 
TE6C 
1CB2 


1056 
TESS 
O2TA 


co 87 
AOOE 


0222 


co 87 coco 
0000 

0000 
6P6F6P 


138AR70 
571512 


OTMART 
5715873 


TEST 
ADDR 


IBSE 


1B5D 


1B78 


1B9B 


IBCA 


TREA 


1€06 


1c 3C 
1C3D 
1C3F 


icac 
Icap 
1caF 


1¢55 


1C5B 
1c5D 
1¢c60 


1 


5129628. 





PART 50. 
PAGE V2R oe 

STMT SOURCE STATEMENT 

1266 pc CL4&Y8*GO LINE DID NOT DROP APTER CORRECT BO. OF TRACK * 

1266 

1266 

1266 

1266 

1266 

1267 GOP pc CLIS*CROSSING PULSES® 

1267 

1268 pc CL27*GO LINE SAS DROPPED BEFORE * 

1268 

1268 

1268 

1269 GODROP DC CL35*RECEIVING ANY TRACK CROSSIBG PULSES * 

1269 

1269 

1269 

1269 

1270 WOTKCR DC CLY7*GO LATCH UP & NO TRACK CROSSING PULSES RECIEVED* 

1270 

1270 

1270 

1270 

1270 

1271 DETRNT DC CL32*aCCESS POSITIONED BETWEEN TRACKS® 

1271 

1271 

1271 

1272 TKUP pc CL28*TRACK CROSSING LINE UP SOLID® 

1272 

1272 

1272 

1273 SENSE 1/0 ROUTINE 

1278 SENSE ST SNSHOV¢5, ABR SAVE ADDRESS RECALL REGISTER 

1275 A ONE, ARR ADD ONE TO BYPASS PARABSETER 

1276 ST SNSEXT¢3, ARB STORE EXIT ADDRESS 

1277 SNSHOV an SNS¢1, 8-8 BOVE I8 FUNCTION CODE 

1278 SNS sus STATUS,O PERFORS SEBSE 

1279 SNSEXT B s-t ExIt 

1280 

1281 

1282 © SUBROUTINE TO DO A RECALIBRATE 

1283 

1284 RECALB ST RECALX¢ 3, ABR SAVE RETURN ADDRESS 

1285 AVI DISKTP,0 SET TO USE HEAD 0 

1286 TBN SECTSW,X*O8* TEST SSB 15 

1287 oP e477 JuaP IPF OPP 

1288 AVI DISKTP, X°08* SET TO USE HEAD 2 

1289 AVI SNSID, X*OE® INSERT ID IN PRINT 

1290 B STRTIO TO I/0 SUBROUTINE 

1291 pC XL7*00? FONCTION CODE, (CONTROL) 

1292 pc XL1°01° CONTROL CODE, (RECALIBRATE) 

1293 pc AL2 (@8T DPC) CONTROL FIELD ADDRESS 

1298 B RECALYX GOOD RETURS 

1295 B PRTSHS TC DECODE ERROR 

1296 B PRIUT TO PRINT 3RD LINE 

1297 pc XL1°06* FLAGS 

12986 pc IL1°36° LENGTH 

1299 pe AL 2 (RECALE) MESSAGE ADDRESS 

1300 

1301 B AALT TO DCP HALT 

1302 pc XL2*A00E® HALT ID 

1303 

1308 RECALX B e-8 ExIr 

1305 

1306 SETXR2 DC XL2*0° 

1307 STATUS DC XL2° 0° 

1308 THREEQ DC CL3*?77* 

7309 

290CT71 1S NOV71 ISHART2 PROG ID 0803-6 

571601 571605 571593 PAGE 12a 
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IAA MAINTENANCE DIAGNOSTIC PROGRAS 


a036 


ERP LOC OBJECT CODE 


1C61 
1C62 
1€63 
1C6u 
1€65 
1C66 
iC67 
1c6é8B 


C63 


IC6D 
1C73 


1CTV7 


IC7A 
ICTE 
3080 


1CB2 
1C86 
1C88 


1C8A 
TCBE 
IC SF 
1¢990 
1cC92 


ic94 
ICS8 
1¢99 
COR 


1¢9C 
ICad 
ICA4 
ICA 2 


TCA 
1CAB 


TCAA 


SEFK PONCTION TEST 


00 
00 
00 
00 
00 
00 
co 
00 


34 


oc 
3D 


F2 


co 


68 


02 
FF 


81 


87 


1C66 
tacc 


co 


87 


1C62 
14B9 


co 
ci 
12 


87 


1489 
AOOA 


co 
01 
13 


87 


t4acCe 


co 
06 
23 


87 


TaEP 


co 


87 


AOQOA 


co 


87 


CAE CO 87 


DATE 
EC WO. 


1CB1 


WCC 
1C66 


08 
TP8C 


1P6C 


O21A 
O21A 
O2Z7A 
6222 


1021 


0060 


T3MAR70 
$71512 


ADDR 


1C61 
1C62 
1C63 
ic64 
1€65 
1C66 
1C67 
1C68 


1c60 


IC 7F 
1€81 


87 
1c89 


ICBE 
1C8F 
91 
1093 


1C98 
1€99 
ic9B 


Ttca0 
ical 
TAR 


1Ccad 


OIMART1 
571573 


STMT SOURCE STATESERT 


571605 


1310 WRTDPC DC XL1°008 

1374 pc XL 7°00 

1312 pc xL7*00¢ 

1313 pc XL17°00° 

1316 RDDFC DC IL 100° 

1315 DC XL1*G0° 

1316 pc XL 1°00 

1317 pc XL7*008 

1318 

1219 # ROUTINE TO PRINT SEEK 
1320 

1321 SEEKER ST SKEREX¢3, ARR 
1322 

1323 SVC SEBKAT (3),THREEQ 
1328 CLI RDDFC+1,X*FF® 
1325 * 

1326 JE SEKERA 

1327 

1328 8 cvD 

1329 pc AL2 (RDDFC+1) 
1330 pc AL2 (SEEKAT) 
1331 

1332 SEKERA B cvD 

1333 DC AL2 (WRT DFC#1) 
1334 pc AL2 (SEEKTO) 
1335 

1336 B PRINT 

1337 pc XL1°C1¢ 

1338 pc IL1*18° 

1339 DC AL2 (SEBKTO) 
1340 pc XL2*a00a* 
1341 

9342 B PRINT 

1343 pc XL1°O18 

13489 DC IL1¢198 

1345 pc AL2 (SEEKAT) 
1346 

1387 B PRIBT 

1348 DC XL1°06* 

1349 Dc XL 17° 359 

1350 DC AL2 (OLDADR} 
135% 

1352 B HALT 

1353 DC XL2°a00a" 
1358 

1355 B RECALB 

1356 

1357 SKEREX B +3 

290CT71 15KOV71 1SHART2 
571601 571591 


PART UO. 5129624 
PAGE 13 


PLAG BYTE 
CYLISDER NUMBER 
HEAD AND SECTOR 
HUBBER OF SECTORS 
PFLAG 

CYLIEDER HUMBER 
HEAD AND SECTCR 
RUBBER OF SECTORS TO PROCESS 


TO PROCESS 


ERROR HESSAGES 
SAVE EXIT ADDRESS 


SET SEEK AT RESSAGE TO ?7? 
DETERMINE IF ANY DATA BAS TRANS. 
BY THE READ ID COBBAED 

JUSP IP HO 


TO CONVERT 
ADDRESS OF 
ADDRESS OF 


CYL. WO TO DECIMAL 
SOURCE 
DESTIBATION 


TO CONVERT 
ADDRESS OF? 
ADDRESS OF 


CYL. NO. 
SOURCE 
DESTINATION 


TO DECIBAL 


TO PRINT EZRROR 

FLAGS 

LENGTH 

MESSAGE ADDRESS 
HESSAGE IDESTIFICATION 


TO PRINT 3ED LIBE 
PLAGS 

LeuGTH 

MESSAGE ADDRESS 


TO PRINT STH LINE 
PLAGS 

LENGTH 

MESSAGE ADDRESS 


TG DCP ERROR HALT 
HALT ID 


IO RECALI BRATE 


EXIT 


- PROG ID 0a03-6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


A036 


ERR Loc 


ICR2 
1CBA 
ICRA 


ICBE : 


1CC2 
1CC6& 
1CCB 
icDO 
iCD5 
tcpD9 
ICDD 
ICE 
ICEY 
1CF8 
1CEB 
ICEE 
ICF2 
ICF6 
1CF9 
ICFD 
1301 
1DOa 
1D0S9 


1pBoc 
1D10 
1D13 


1D16 
1D79 
pic 
1D20 
ID2s 
p29 
1D25 
1D32 
DY 
IDIA 
1D3D 
1pat 
TDHs 
Da? 
1DUB 
DSP 


1D53 
1D57 
1D59 


1D5B 
3560 
1963 
DES 
3069 
TD6F 
ID74 
ID7A 


ID7D 
1D80 
7D85 
1D88 
1D91 


DATE 
EC WO. 


SEEK FUNCTION 


OSJECT CODE 


PT O06 


IDBD 03 


IDC? 93 


IDB? 03 


071 1DB6 
F2 81 31 

P2 88 17 

BR 01 02 

1DBG DBO 
“4DES 01 
WET 14PD 
F2 87 23 


BA 07 02 

DBS 01 
OF 00 1DBS 1DR6 
OC 06 1421 18F6 
F2 87 OC 


T3MART7O 
571572 


OMAR? 
§71573 


TEST 


ADDR 


1D58 
TDSA 


1 


PART 
PAGE 


uo. 51296246 


13a 





STHT SOURCE STATEMENT 

1359 * START I/0 SUBROUTINE 

1360 

1361 STRTIO ST SETXR2, ARB SAVE ADDRESS RECALL REGISTER. 

1362 L SET XR2,XR2 LOAD XR2 WITH VALUE PROB ARB. 

1363 AVI RECAL,O RESET SWITCH 

7364 NVI SAVS#,00 ZERO SWITCH 

$365 VI RDDPC+?,X°PRF® SET READ ID AREA TO *PP® 

1366 “NN STO#1,0(,XR2) SET PUSCTION CODE 

1367 NVC SI0#2(1),1(,X82) SET CONTROL CODE IB SIG 

1368 AVC DFCR(2),3(,XR2) SET DATA ADDRESS POR DPCR 

1369 LDPCR LIO  DPCR,X*A6S LOAD COHTROL REGISTER 

1370 SBF $10¢1,x°08 SET POR REBROVABLE DISK 

1371 TBF DISKTP,xX*08° TEST POR RUN ON REMOVABLE DISK 
1372 st CKSEER SUMP IP YES 

1373 SBN SI10¢1,x*08* SET POR FIXED DISK 

1379 CKSEEK CLI 0(,XR2).00 TEST POR SEEK 

1375 JE SET ADR IF YES, GO SET ADDRESS 

1376 RSTIDX SVI  INDXPL,O PRESET INDEX FOUXD BIT 

1377 LA 6600,X81 LOAD BUSY LOOP COURTER 

1378 SIO SIO x*00%,x*AQO* START 1/0 OPERATIOS 

1379 WAIT TIO BUSY,xX*~A2* BRANCH IP BUSY 

1380 CLI SAVSW,X‘PRF® IS SWITCH OB? 

1381 INE TSTERR IP BO, SKIP RESTORE 

1382 SVC =. 3(1, XR2) , DFC3S¥ RESTORE B BYTE 

1383 SBP 2(,XR2),01 TURN OFF THE POR/ REY BIT 

1384 

1385 LDXR2 L SETXR2,XR2 RESTORE PARAMETER POINTER - 
1386 TSTEPR TIO 8(,XR2),X*A0* BRANCH IP ERROR 

1387 B & (,XR2) EXIT 

1388 

1389 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 

1390 DIRECTION (FORWARD OR REVERSE), TO SEEK 

1391 

1392 SRTADR CLI 1(,XR2),01 IS THIS A RECALIBRATE? 

1393 JNE SETRCL IF "0, BYPASS SWITCE RESET 

139% NVI RECAL,X*FF* SET SWITCH TO INDICATE A BBCAL. 
1395 AVI PRSTPS,O RESET RECALIBRATE S®ITCR ae 
1396 SETRCL MVC  XR2WK(2),3(,XB2) SAVE ADDR. OF CTL. FLD. ADDR. 

1397 L XR2WK,XR2 LOAD X82 WITH CONTEOL FLD. ADDR. } 
1398 HVC DPC3S¥(1) 43 (,XR2) SAVE 8 BYTE IK COBTROL FIELD 

1359 NVI SAVSW,X°PP® SET SAVES SWITCR 

1400 CLI PRSTPS,00 IS TEIS PIRST PASS 

1601 JNE SETADA SKIP RECALIBRATE IPF #O 

1802 NVI PRSTPS,01 SET PIRST PASS SBITCA 

1403 SBP 2(,XR2) .01 SET PUD/REV BIT TO REV. 

14048 MVI 3, %B2),.255 SET MAXIBHUA TRACK CROSSING 

3505 VI LASTAD,00 SET OLD ADDE TO 0 

1406 NVI SCRCR,255 SET NUSBER OP TRACKS CROSSED 

1407 B RSTIDE BRABCH TO I/0 

1808 

1409 SETADA B cyD TO CONVERT OLD SEEK ADDRESS 

1470 pc AL2 (LAST AD) SOURCE ADDRESS* 

1914 DC AL2 (OLDADR) DESTIBATION ADDRESS 

1812 

1813 CLC 14(1,XxR22),LASTAD COMPARE PRESENT ADDR. WITH HEB OBE ‘ 
1414 JE NOSEEK ECUAL, SEEK IS NOT SECTSSARY 

1815 38 PUDSEK NEW ADDR. HIGHER, DO PORVARD SEEK 
1916 SBP 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REV. 
1817 AVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKABRZA 

1818 SLC SCRCH{(1),1{, XR2) SUBTRACT NEW ADDR. PROM LAST ADDR. 
1419 HVC SEEKDR(7),REV PUT REVERSE IM SEEK DIRECTION ASG. 
1320 J SETADB PROCEED 

1821 

1422 PWDSEK SBN 2{,XR2},01 SET BIT OM FOR PORWARD SE3K 

1423 NVC SCRCH(1),1(,XB2) PLACE SEW ADDR. IN WORKABEA 

1428 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROS NEW ADDR. 
1425 NVC  SEEKDR(7) ,FORWD PUT PORWARD IN SEEK DIRECTION ASG. 
1426 J SETADB PROCEED 

290CT71 15NOV71 1SHAR72 PROG ID 0a03-6 
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PAGE 14 PAGE WGA 
2036 SEEK FUNCTION TEST A036 SEEK PUNCTION “EST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT PRR LOC OBJECT COLE ADDR STMT SOURCE STATESENT 
1427 4480 ¢ SUBROUTINE TO PRINT THE CONTESTS OF DEVICE STATOS e 
1D94 BC 00 03 1428 ROSEEK SVX  3(,XR2),0 SET NO. OF TKS. CROSSED TO ZERO. 1484 
ID9T OC 06 14EB1 1508 1829 NVC SEEKDR(7),SVNBLK TESS 3&8 08 1EC3 1882 PRTSNS ST PRTEXT¢3,ARR SAVE ADDRESS RECALL BEGISTER 
1D9D F2 87 OF 1930 3 ADREXT TO EXIT VE89 CO &7 1007 7883 B SEBSE TO PERFORA SENSE 
1431 TE4aD 02 TEGD 1484 pc AL 1(STATO1) GET DEVICE STATUS BYTES © € 1. 
1DAO 8C 00 03 1DBa 1432 SETADB SVC 3(1,XR2),SCRCH PLACE IN NO. OF TRACKS CROSS2ZD 1885 
IDAS 2C 00 1431 03 1433 HVC = TKCTR(1) ,3(, ZR2) SAVE NUMBER OF TRACKS TO CROSS TPF CO 87 0218 1486 3 UNPACK TO ORPACK STATUS BYTES 
IDAR 2C CO IDB6 01 7434 MYC LASTAD{1),1(,XR2) SAVE REW ADDRESS 1E52 02 1252 44a? pc XL7°02? 
tDAP CO 87 ICFE 41435 ADREXT 8B RSTIDX EXIT 1253 1C5D VES& 74888 DC AL2 (STATUS) 
1DB3 0000 IDB4Y 7436 SCRCR pC XL2*OO* 1E55 EDC 1F56 THR9 Bc AL2(HEXSTA-8) 
IDBS OG 1DB5 1437 FRSTPS DC XL1°008 VEST 3C 04 7E87 1490 NVI STPSNS¢1,01 SET FOR COMPLETION GF PIYEST SYTE 
1DB6 00 1DB6 1438 LASTAD DC XL7°008 TESR C2 014 YEP? 1894 LA STATUD,XRi SET ERI TO POINT TO FIEST HESSEGE 
IDB7 00 12B7 1839 DPC3SV DC XL7°008 1ESF C2? 02 iF83 1492 LA STMASK,XR2 SET XBZ TO POIKT TO TEST #ASK 
TDBB 00 IDR8 WuG SAVSW DC ELTeoOO0? 1863 CO 87 O2Z7A 4493 B PRIT TO PRINT BEADING 
ipB9 60 1DB9 1441 RECAL nc EL7¢oe 4267 C1 1E67 1898 pc XL1°C?? PLAGS 
IDBA 0000 4DBB 1842 DISKTP rc XL2¢o8 1268 01 1F68 79995 pe IL 7° OT? LESGTEH 
1DBC 0000 IDBD 1443 DFCR oC AL2 ( 4-3} . 7E69 IEF? 1EGA 1496 pc AL2 (STAT#D) HESSAGE ADDRESS 
{DBE tDC2 IDBP 1488 DPLR bc AL2 (WORK) 126B ACCO 1F6C 1497 SNSID DC KL2°A000° BESSAGE IDEHTIPICATIO“N 
1DCO 0000 IDC 7885 XR2WK pC XLZ¢08 1498 
1DC2 1846 WORK EQU ® 1F6D 2c CO 1278 CO 1499 MOVEBT NYC TSTBT¢1(1),0 (,XB2) SET m2SK BIT IW TEST BITS LESTRUCT. 
1DC2 CO @7 1CC7 14087 BUSY 8B SEKSE 1E72 1C 11 FFA 0O 1500 MYC STATPR(18) ,C(,ER1) SET RESSAGE IB FIELD 
1DC6 03 1DC6 1488 pc XL1°O3° 7501 
1DC7F 38 08 Ic5Cc 1949 TBN STATUS-1,X*08* TEST POR IBDEX 1E77 38 CO 1¢C5C 1502 TSTBT TBN STATUS-1, %-# TEST CURRENT BIT POR O8 
1DCB F2 90 Ca 1450 oF 47 JUBP IP KOBE 1E7B F2 9C C8 1503 JP STPSNS BYPASS PRIBT IF OPP 
IDCE 3C FF 1Ru4 1451 SVI INDXPL,X'PF? SET BIT POR INDEX RECIEVED 1504 
IDD2 36 01 17F2 1852 R HEG1,XR1 1E7E CO B7 O2TA 1505 B PRINT TO PRIBT SES BITHOUT BEADIEG 
IDD6 CO a8 ICFS 1853 BR WAIT BRANCH BACK TO TIO IP NOT TIHED OUT 1BR82 01 4F82 1506 pC XL1°07? PLAGS 
IDDA 3D FF 1E44 1858 CLI INDXPL,X*PF* TEST FOR ANY INDEX BEPORE TIHEOUT 1F83 12 1E83 1507 pc IL1*198? LENGTE 
IDDE F2 81 10 1955 JE TCVD JUMP XF THERE WAS AN INDEX 1284 1F PO 1£85 1508 DC AL2 (STATPB) ADDRESS OF LAST PRIBT CHRRACTER 
1DE1 CO 87 021A 1456 B PRINT TO PRINT NO INDEX BEFORE TIAEOCUT 1509 
IDES co IDES 1457 pc XL1°C6* E TFR86 3D CO 1278 1510 STPSHS CLI TSTBT¢1, t-2 TEST FOR FISISHED 
IDE6 25 I1DE6 1458 pc IL 1° 378 1E8A P2 81 OR 7571 JE SENSA JOSP IP PISISHED WITH THIS BITE 
IDET 1635 IDEB 1459 pc AL2 (MINDEX) MESSAGE ADDRESS 1512 
IDE® A089 IDEA 1460 pc XL 2°RO8S* MESSAGE ID TEBD B2 02 01 1573 LA 1(,XB2) ,.XR2 STEP KR2 TO POIKT TO HWEXT HASK BIT 
1LEB CO 87 0222 1461 B HALT 1290 D2 01 12 1514 SENSB LA 18(,XR1) oXR1 STEP XR1 TO POIBT TO BEXT HESSAGE 
IDEF A089 IDPO 1862 DC XL2* 00898 1893 CO €7 TEED 1515 B SOVEST GO TEST WEXT SENSE BIT 
1DF1 CO 87 1PRaC 1863 TCVD 2B cyD TO CONVERT ROUTIBE BUBBER S : 1516 oS 
IDPS OA03 IDF6 1464 DC AL2 (RPPX) SOURCE 1297 3D 60 128? 1517 SENSA CLI  STPSNS#1,xX*80* TEST POR COSPLETION OF 28D BYTE 
IDF? 1883 IDPS 1865 bc AL2 (TIBOUT) DESTINATION 1E9B P2 87 4A 1518 JE PRTHEX TO EXIT IP DORE : 
DFO 3C 40 1281 1466 BVI TINOUT-2,c* * ‘ JESE 3C RO 1287 1519 VI STPSNS¢7,X'30?® SET POR CHECK OF 26D BYTE 
(DFD CO 87 O21A 1467 B PRINT TO PRINT ROUTINE HOSBER TEA2 CC 87 1C07 1520 B SENSE TO SEBSE 
1E01 C6 1P01 1868 DC XL1°C6? 1EAG 03 1EA6 7521 pc XL1°03* BYTES 2 6 3 
1E02 15 1E02 1869 pc IL7V*21¢ : 1ZA7 CO 87 O21F 1522 8 URPACK TO UBPACK STATUS BYTES 
1203 1£a3 1204 7470 pc AL2{(TINOUT) NESSAGE ADDRESS TPAR O02 TEAB 1523 DC ZL1°02° 
1£05 AOSF 1206 1471 DC XL2*AQBE* BESSAGE ID ” 1EaC 1C5D TEAD 1524 DC AL2 (STATUS) 
1£07 CO 87 0222 1472 B HALT ™ VERE FEC TEAF 1525 DC AL2 (HEXSTA) 
TEDB AOQSE 1E0C 1873 pc XL2*AOB8E* TEBO C2 02 1FP83 1526 LA STMASK , XR2 SET BIT POLESTER 
1EOD CO 87 0000 1474 B 0 1EBY CC E7 1£90 1527 8 SENSB TO PROCESS 25D BYTE 
TE11 DSDEXOCONSCHCSET 1€35 1475 BINDEX DC CL37*NG INDEX PULSES SENSED BEFORE TIREODT® ~ $528 
Y£19 GODTESDIE2CSE280 1875 1EPR CC 87 OZ1A 1529 PRTHEX B PRINT TO PRIET STATUS IB HEX 
TE21 E2CSDSE2ZCSCHHOC2 W755 VEBC 02 1EBC %530 pc XL7*°92¢ 
1E23 CSC6D6D9CS4OE3C9 1475 1FBD tp 1EBD 1531 pc IL1*29° 
1E31 DUCSDEESF3 1875 TEBE 1FEO 1FBP 1532 pc AL 2 (HEXSTA) 
1E36 4OCSDSSON9IDEESES 1243 1476 TIMOUT DC CL18® IR ROUTIHE xx? 1FCO CO 87 00CD 1532 PRTEXT B *-* SUBROUTINE EXIT 
TE3E C9ODSC5S80F7E7 1476 a 1538 
TEGu 00 1E44 1877 INDXPL DC XL1*9¢ TPC’ E2F3ICTE3FSE240C2 IED8 1535 pc CL2Z7°STATUS BYTES IW HEX, * 
QAO3 1878 RPFX EQU xX*A03* ° TECC EBEICSF2Q0C9NS480 1535 
7 TED’ C8CSE76B4U0 1535 
1ED3 COOOCCCOCCOCO000 1EEO 1536 HEXSTA DC XL8*O° 
. 1FE1 DSD640D6D7408080 IEP2 1537 STATWD DC CL18*°RO OP e 
TFEO 8OUONNKOKOCROKDYO 1537 
1EF? 8060 1537 
- 1EP3 CODEEICSDIESCSDS IF 08 1538 pc CL1I8*ENTERVENTION REQD. * 
VEPB E3CSDEDS4ODICSDS 1538 | 
1703 Cau4up 1538 | 
1P05 DUCIEZE2ZCIDSC7KO 1F16 1539 DC CL13'MISSING ADDR. AMARBK® 
1FOD CICUCUDINBEODAC? 1539 
IPF1S D9D2 1539 
DATE T3IMARTO OIMART 1 290CT71 15N0V71 WSAART2 PROG ID 0403-6 LATE 13MAR70 O1MAR71 290CT71 ~ 15 NOVT1 ISRAR72 PEOG ID 0403-6 
fC WO. 571512 571573 571601 571605 571591 PAGE 14 : EC WO. 571512 571573 571601 571605 571591 PAGE 188 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


2036, 
ERR LOC 


1F17 
WF 
427° 
1729 
1P31 
1P39 
1F3R 
1FaS 
1PUB 
IPOD 
1P55 
1F5D 
IP5P 
1767 
IPF 
1P71 
1F79 
TP81 


1F83 
1F87 
1F8R 
1P8C 
1F90 
1F94 
1F98 
1F9C 
PAO 
TPA 
TFA 
1FAE 
1FEG 
1FRA 
1 FCO 
1FC6 
1FCC 
IPCF 
1FD5 
1ED9 
1EDD 
1FDF 
TFEE 
TEES 


DATE 
Ec NO. 


SEFK FUNCTION 


OBJFCT CODE 


CSDBESCIDTDEC5DS 
E340C 3C8C SC 3D 240 
4040 
CUCTE3C140C3C8C5 
€3D2 4080804808040 
4060 | 

D5D64 ODICSC3IDE DI 
C4UOC DEE UDSCHED 
4080 fae 
E3D240C 3D 6D5C GC9 
E3C9DODS40C3C8C5 
C3D2 
E2C5CSD280C3C8C5 
C3D240904N04C80 40 
#040 
E&DSE2CIC6CS4UOUO 
BOSC404D40N0N080 
4040 


8040 20 10 
08080201 

90 , 

36 08 T1E6 

34 08. 1FAD 

36 0&8 1188 

34 08 IFB3 

34 0 1FB9 

36 O08 11E6 

34 C8 TFDC 

oc C1 1PBF GOCO 
Oc O01 *tFD2 0000 
Oc 017 IFC 3 GOOO 
oc CO 1P8B OCO0 
04 20 0000 IFE7 
CF O00 IF8B T1E6 
F2 82 OA 

06 20 0000 1IFDD 
CO 87 1FC6 

co 87 C900 

F1. 

PIF 2F SF&F SP6F 7F 8 
F9FO 


T3NARTO 


571512 571573 


TEST 


Fac 


O1MERT71 


STAT SOURCE STATESENT 


1540 

15480 

1540 

1541 

1541 

1544 

1582 

1542 

1542 

1543 

1543 

1543 

1548 

1544 

1544 

1545 STATB2 
1585 

1545 

1546 STSASK 
1947 

1548 

1589 HXBYT 
1550 CVD 
1551 

1552 

1553 

1558 

1555 

1556 

1557 FROM 
1558 TYBOT 
1559 OTORZ 
1560 PROBYT 
1561 ZROTO 
1562 DECGAN 
1563 

1564 TOBYT 
1565 

1566 TIXE 
1567 DECONE 
156€ UNITS 
1568 

1569 STATPR 
1570 

1571 #1 
1572 H2 
1573 XR1 
1574 XR2 
1575 ARK 
1576 STATO1 
1577 SWITCH 
1578 SECTS& 
1579 LINK 
1580 PRINT 
1581 UNFACK 
1582 HALT 
1583 LOAD 
1588 AFP 
1585 Ak 
1586 


290CTT1 
571601 


ADD 1 TO GET 1ST 





PAST #0. 
PAGE - 


PARASET ER 


INSERT THE FROM ADDB. 
ADD 2 28ND GET THE 2ND PARAMETER 
INSFRT TRE TO ADDR. 
INSERT THE TO 2DDR. 
ADD CNF SMOKE POR SKETURBS ADDRESS 


SET RETOKK ADDE. 


PUT BYTE 18 WORK #FREA 


ZERO THE TO AGES 


DECRER FNT THE REX BYTE 


EXIT IF PELOW 1 
INCRENSEFT THE DECES2L COUKT 


EXTt 


HALT DISPLAY 1 
HALT DISPLAY 2 


HALT CISPLAY F 
EALT DISPLAY A 


pe CLIB*EQUIPSENT CHECK °* 
DC CLIB*DATA CHECK 

pc CL18°RO RECORD FOUND °* 
Dc CLI8*TK CONDITION CHECK* 
DC CL18°SEEK CHECK s 
pc CL18*ONSAPE ° 
EQU 

Dc XL4*804020108 

DC XL&*08C40201" 

pe XL1*0C* 

A ONE, ARB 

ST FROE¢5,ABR 

A TWO,ARR 

ST TYBOT+5, ABB 

ST OTORZ+5, ARK 

A ONE, AKR 

ST TI XE¢ 3, ARR 

MVC PROBYT45(2),*-* 

MVC TOBYT+3(2) ,#-9 

SVC ZROTC?3(2),%-* 

MVC BXBYT(1),#-* 

ZAZ = * (3) J UNITS (1) 

SLC  HXBY1(1),OKNE 

JL TIXE 

AZ #-# (3) , DECONE(1) 

B DECGAK 

P *-% 

DC ciety 

DC CL10*123456789C * 

DS CL18 

BEOQU. x*03" 

FOU x*76* 

Z0u 01 

EQU 02 

200 08 

ECU = x# O28 

Zou °° «=xt208" 

EQU) = x*20R° 

ECU x*2168 

EQU x*21zA° 

FOU YX*21E* 

EQU) xX*2228 

ECU X*22—8 

FOO = x* 3ct 

EQU  X*3FS 

END BEGIN 
15 NOV71 1SMRRIT2 
571605 571591 


PROG 12 
PAGE 


5129628 
as 


0203-6 
“4S 


A036 — 


SYMBOL 


KDREIT 
ANDY 
ARR 


203 
REGIN 
BRUSR 
BUSY 
BYPAS6 
CRSEEK 
COPD 
CPUS 
cvp 
CYDARY 
CVDDST 
CVDTNO 
LECGAN 
LECONE 
DECTIN 
DELAY? 
DELAY3 
DEMONE 
DETENT 
LFCR 
DPC3SV 
DFE DR 
DIADPFC 
CIAEXT 
DIAGA 
CIAGR 
DI AG2 
PIAGG 
CIAGS 
DIAG6 
DIAG? 
DIAG7RA 
DIAGS 
BIaGQ 
DISKTP 
ERPR 
EP2ORB 
ERROR2 
ERPORS 
ERRCR6 
ERPOR7T 
FRRORY 
PORS YN 
PORWD 
FORZ RO 
FOUR 
PROBIT 
FPOR 
FRSTPS 
FSTERR 
FRDSEK 
GODROF 
GOEFLY 
GONG 
GouP 
GOUER 
HA 
RALT 


RDSESF 
HOTIBE 


DATE 
EC NC. 


sg? 


SEEK FONCTION TPST 


A 004 DAP 
A 001 1779 
c 001 0008 
A 0C1 0000 
A 904 OBA6. 
aA CO8 175C 
A COR 1NC2 
A 037 i7A9 
A 003 CEB 
A CO2 1778 
A CO& 174d 
A CO’ 1F8C 
A 002 1363 
A 002 130R 
A 002 1318 
A 006 1FC6 
A 001 1FDD 
A 908 163D 
A 006 1095 
A CO. 1083 
A 005 162D 
A 032 BEA 
A 002 1IDBD 
2 001 1DB7 
A CO?) 1DeP 
A 001 1A27 
aA 0Cu 71998 
A COU 18:15 
A 004 1900 
A COR 1957 
A 004 t8DD 
A 00€ 189F 
ROCK 1840 
A 08 1940 
A cou 19¢C 
A COX 1973 
A COE 1410 
A 002 DER 
A 0oC& 1021 
A085 11E3 
A 023 1168 
A CC? OntIc 
A 023 Ont 
ACIS 9151 
A C38 114A? 
ACCT 11178 
2 00) 148F6 
A OCU OFFS 
A GO2 1026 
Rk OOK TFB 
P OCt 1FR8 
» OO1T DRS 
A 0C& OB9F 
A 003 1D7D 
4 035 1898 
A C46 IBIE 
A CO2 1774 
2 C15 1BSD 
2 0634 42DS 
C 001 002F 
C COT 6222 
A GC1 OFF2 
RCL3) 1635 
VINFRTG 
571512 


LEN VALDE 


OCIMAFT1 
$71573 


‘IBA AAINTEWARCE BIRGKOSTEC PROCRAR 


REPERENCES 


1830 


O9NI* 09494 


0024 
1553 


1586 
0978 
1379 
0936 
1372 
0969 
0978 
0158 
0686e 
o6ss« 


‘0665 


1565 
1568 
0881 
0495 
0467 
0884 
1206 
0131 
1382 
0132 
1065 
1063 
1101 
1998 
1138 
1104 
1081 
1234 
1166 
1207 
1197 
1228 
0262 
9469 
04381 
0516 
0211 
0193 
0505 
0%60 
0a70 
0679 
0303 
6629 
15579 
15518 
0088* 
o099 
Tats 
1170 
11498 
0983 
1172 
1185 


0101 
0655 
1150 
0240 
0826 


0726 
1554 


0972° 


04593 


ORRus 


1368 
1398 


1073 
1091 


1185 


1184 
1179 
1274 


12390 
1285 


01648 
1425 


0722 


1057 


0184 
C805 
T1E1 
025% 
C865 


290CT71 
571601 


CROSS-REPERENCE. 

1279 #1275 1276 12848 
1555* 1556 
0976 

0659 0656 0690 0810 
of8t 0887 

1369 

1231 

1176 «9129 «1152)—«:1962 
1288 1371 

0455 0459 0812 0823 
1395* 1490 180zs 

C165 0187 C185 6213 
C828 08k CEL CEoK 
1178 «©1987 «©12G8 1223 

0257 02%2 

0873 0877 ose 
15NOVTI ISMEET2 
571605 5715S1 


Mth a 


132% 1361 1882 
0829 1215 1328 
1176 
Ge31 08a3 
0355 0260 0282 
OSE7 O986 1054 
3301 1352 1461 


i a : : : : a : . ; oe Sgt ard 








PART NO. 5129624 


PAGE 1Sa 
1550* 1553 15528 
1332 1409 1463 
0507 0578 0541 
7088 1492 44127 
1472 
FROG ID O04 03~4 


PAGE 5k 
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PAGE 38 _ 36 PAGE TOR3 
AO 36 SEPK PHNCTION TEST. : Bp OS vers . | AQ 36 SFEK FOUXKCTION TEST 
CROSS~REFER ERCE : CROSS-REPER ENCE 
SYMBOL T LEN VALUE DFFPN REFERENCES . SYMBOL T LEN VALUE DEFN REPPRENCES 
READPT A 033 1661 0906 0803 1277 1295 
’ AFADP2 A 038 14687 0907 9859 : : : PRTSPW A O08 OacE 0080 0027 0078 \ : 
HEDEND A 002 OFOR 0Oa11 0258* 0308 0347 RDPDFC Aa 001 1cC65 13178 0271* 0275 0282 0287 0295 0298 0489 0613 0616 0619* 0623 0624 
RHEDERE A 002 OFD? '0ut9 0359 . : : : 1996 1213 1216 1227 .1229 1328 1323 13658 . 
oe HEDER1 A 031 OF3A 0843 6327 ; RDIDER A 072 1887 0775 7212 71217 1222 
‘ HEDFRS a2 031° OFDS 08153. 0819 . ‘ : PECAL A 001 DBO 1441 13638 13944 
i REDRNEO A 006 CPNDD 0420 0313 RECALB A OO8 1C21% 1288 0148 0199 0238 04482 0531 0567 0626 0939 1189 1355 
HEDNST A OO6 OFE3 6421 RECALE A 006 OCFEB 022% 1299 
4 BEDNN2 A 006 OFEDS 0822 , ; , RECALX A 008 1€56 1304 1288% 71294 
i HEDNE2 A 006 OFEF 0423 PEMVDS A 001 OB16 0105 0035* 0064%* 0255 
 REDPRT & 027 WAZ 0908 0886* 0887 = - REV A 007 WWPD 0782 0673 1819 : 
|: HZDPTR A 002 OFE3 0365 0248* 0260 0306* 0314* 0324" 0330 PFIELD A 008 17CR 1010 1003* 1009 
.REXSTA A COB EEO 1536 889° 261525 1532 RPLADP A 002 27CA 1009 10048 
re RESTIB A OG3 61680) «OSC5 0880* 0882 : ; : RLDFCR A OO8 OBAE 0131 9073 
fe EP. € 001 003C 1588 RPPX C001 OA03 1478 © 1468 
“ HIGKON A 003 1636 C€902 C877 , RSTTDX A COS 14CFF 1376 1807 1835 
[7 HISTBL A001 1805 0759 0571 0636 0768 RTNEPP A COT OFFA 04828 0250¢ 0305* 0315 0349 U568* 0592* 0627* 0638 
AXBYT A 001 ISB 1549 47560* 1562* PTN1 A 0OT O8A2 0128 0012 ; 
: f1 c 007 0003 1571 RTNTA A OCU OBDE 0150 
‘R2 C 001 0076 1572 a ix FTNIAT A vos CCOC 0168 0156 0175 
IWDXPL A 007 TESS 1877 1376@ 14u51* 14854 PTNIA2 A 008 0C58 0198 0189 
INTERR A CON OAEE 0092 £40089 RTW1A37 A COS OC6O0 0200 02048 
JUSP1T A C17 A671 1259 1030* 1035* 1085 RTNIP A OOS OCBH& 0216 0146 0206 
J0NNP2 A017 1372 1260 1031* 1036* 1049 | PTNI9A A 008 1838 1059 119060 
JUMPS A’ 017 %TA83) 1261 1032* 1037* 1053 RTN2 A 001 OD62 6232 0126 
LASTAD A CO1 ‘IDR6 14386 1058* 1066 1405* 1470 1813 1417 1820 14348 ‘ PTN2A A O0OU OD72? 0240 
LDPCR A 008 CDS 1369 0034 | RTWZA1 A OCU ODIO O248° 0246 
LDFDR aA OOS OBB2 0132 00684 RTNZ2A2 A COCK’ ODAE 02757 0252 
LDXR2 A OOM IDOC 1385 [ PTN2B aA OC& UDBE 0260 0310 
LIWK € 007 0216 1579 9216 0316 O350 0357 O8682 ONBG C510 0584 0639 065% 90791 0863 | RTN2C A COS CDDY C271 0263* 0268 
: 0878 O897 0938 999 RTN2D A OOM ODPO 0281 0276 
LOAD C€ 001 O22A4 1583 0054 | RTW2F A OCS OCEDI 0287 0283 
LONG A 008 177D 0996 0987 0988 0991 RTN2F A 003 OFOE 0292 0288 
LOWRON A 003 1633 0901 0873 FTN2G A CO3 OF2C 0302 0285 0299 
MASKPT A OC2 OFES 0366 0243* 0278 0281 0307* 9308 RTNZ2LA A&A 006 OET2 (3248 0360 
BINDEX A O37 1635 14875 1499 RTNZ2LB A CCD OF92 90334 03304 
AOTSW A 001 32 1256 1064* 1068* 1078 RTNZ2LC A 002 OFFE 0383 0338 
AOVEBT A COS TE6D 1499 1515 i PTN2LD A 093 DEAT 0385 0337 . 
BSGETR A 002 OFF C4824 0328* 0338 0359 03624 RTN2LE A 006 OFCE 9359 0348 
NEG1 A 002 17E2 1026 0174 O4394 0854 1154 1852 RTW2LG A 008 OFSS 0312 0309 
NOERR A OO8B T4aD 0771 6720 , RTNILH A 003 O893 0336 0363 
NOGO A 048 1AB3 1262 1087 i RTRY A CO1 OFFB 0435 0234 
ROMOT A OO 1979 1178 1079 : RTN3P A COON 103P 0468. 0451 
NOREST A 036 118C 0550 0528 RTN3C A CON 1085 CE56 0475 
NOSEEK A003 3094 1828 1414 : : RTRY A 001 1128 0561 0437 
NOSKBY A 034 OccuY 0219 0180 RTNGA A OO T1FF 0569 
NOTKCR A O47 BCA 1270 1121 RTNYUP A COM 1213 0575 0631 
NOUNIT A 026 OB6A 0113 0051 FTNYBT A 008 124D C595 0584 0598 
CLDADR A 018 T8EP 0780 1350 1411 RTNUC A OO& 125A CEOO0 0593 
ONE A C03 11E6 0553 C466 0630 0723 0882 0949 1100 1137 1233 #1275 +1550 1555 1562 PTNGC?T A OOK 12AC 0629 0625 
OPINST A 030 1850 1258 1041 PTNOC2 A TOR 1293 0622 0618 
OTORZ A 006 ‘FRY 1559 15548 , PTNSEX A COS 13P8 0787 0726% 0741 
FNTINS A OOW 480A 1038 10348 PTWSLA A COSY 12E3 0649 0724 
PRINT C601 O2TA 1580 9048 0080 0088 0096 0139 0161 0177 0190 0208 0318 0325 06331 RTNYLB A 003 1372 O70C 0684 
‘ 0340 0352 0456 O47 O5C2 0513 0525 0536 0640 0643 0652 0675 : FTRGULC A O04 1389 O706 0701 - 
0677 0694 0717 O734 0800 0820 C840 0856 6888 0933 0951. 6980 FTN4SLD A OC6 13CC Cb5B 0652 
1038 1042 1046 1050 108 1107 41178 +%4123 #1185 «#+1156 1169 1182 RTNGLE A COU 13A3 0718 0708 
1203 1219 1296 1336 1382 13847 1456 14867 1893 1505 1529 RTNULF A COOH 1382 C722 0715 
PRSLST A CO2 1a2C = 1252 0570* 0575 0615 0630" 0635* 0650 0658 0682 0723 1060* 1061 1226 RTNGLG A CO& 128C 0638 0577 
- 91233 RTN&SB A COS 13CA 0728 07485 
PRTARV A CON 1366 0694 0689 a 3 . RTRYSB A COW 43E7 0740 0703* 0710%. 0732 
PRIEXT A 004 ECO 1533 14829 RTNSTB A O04 13D48 C731 0728* 0780 
PRTHED A018 ‘6B0 0609 0891 RTNS A 0C1 1505 0787 0563 
PRTHEX A COS TEBB 1529 1518 RTWSA A COG 1535 (#08 0799 
PRTPAS A GOMN T6DP 0933 0919 1007 RTNSP A 008 1565 0827 0817 
PRTSKS A 004 14E8S 1482 0095 0157 O452 0477 0818 0838 1083 1106 1137 «+1188 «+4168 11381 RTW5C A COK 1995 OQE4T7 0837 0855 
CATE 43MAR70 O1MAR71 290CT71 1SNOVT71 ISMART2 PEOG ID 0A03-6 , DATE 13MAR70 OMARTI 290CT71 I5NOV71 15SAR72 PROG ID 0A03=6.- 
FC NO. 571512 571573 571601 571605 571591 PAGE 16 EC ROW 5715172 571573 571601 571605 571591 PAGE 16a: 


yo 
eeeoeoeoeoaeaeoeaeoeseoeeoeeeaesgenedeeee eee ee eee @ @ 


“YBN AAINTEWANCE DIAGNOSTIC PROGEAS 


A036 


RTNSD 
_ RTNSZ 
RERSP 
PTNG 
RTNGA 


FTNGAT. 


RTNGB 
RTNED 
PRINCE 
RT NGF 


RTKGEAT 


RIWNGOK2 
RTN7 
RTN7A 
RTX78 
RTNIC 
RTNTD 
RTNTP 
PTHB 
SACK 
SAYVSW 
SCRCRH 
SECASG 
SECTS®H 
SEFKAT 
SEEKDR 
SEEKER 
SZEKTO 
SEER 
SEKERA 
SERASG 
SEKSON 
SELAED 
SENSA 
SENSB.- 
SENSE 


SETA 
SFTADS 
SETADB 
SETADR 
SETB 
SETBT RH 
SETDSK 
SETEXT 
SETRCL 
SPTS® 
SETXR2 
STO 
SIX 
SKESYA 
SKEREX 
SKPEXT 
SKPUDT 
SKREST 
SKTBL 
SKTBL& 
SNS 
SNSEXT 
SNSTD 


SNSHOV 
SNSPRT 
SPNDLA 
SPNDLE 


DATE 
EC wo. 


_ SYBBOL. 


Se 


2) pe te De ey De Sw fev te ee oe) oe Se Oe ee oe es ee Pee ee ee 


ee et te ee Se De Se fw ee ee Se le De OY ey fe DP tw 


=P > 


SFFK PUNCTION TEST 


LEN VALUE 
006 15¢1 
006 = 520° 
C06 1609. 
001 T6B1. 
COR TTAA 
608 O0C34u 
0048 16DB 
008%  I6EB 
003 176C. 
003 16C8 
007 9729 
007 1788 
001 17CF 
006 ° 1008 
008 1003 
008 ‘ODA 
00a 10F0° 
C08 1710 
001 I70DF 
008 1I6FA 
001 IDBB 
092 ‘IDR 
029 0838 
001 020A 
079 18CC 
021 1951 
00%  1C69 
018 14489 
004 172A 
COG IC82 
027 OCA2 
037 148s 
001 OEE6 
008 1897 
003 £90 
008 1C07 
005 O0A76 
004 1053 
0oS bao 
003 wits 
oes) (as2 
003 oOags 
004 OAI0 
008 0of12 
005 p24 
Oot (CB18 
002 %iC5B 
C03 1CF6 
C02 OFF3 
OCS OBDA 
0048 ICAE 
004 OBOE 
001 OB17 
O42 1186 
O01 ‘TATA 
001 43FC 
008 1019 
004 CID 
002 E6C 
006 1C13 
004 1%3¢c2 
0901 OBIA 
001 OB1B 
I3MARTO 
571512 


DEFN 


0865 
O77 


O8686E - 


0912 
9999 
0188 
0930 
0939 
0989 
0921 
0962 
C997 
1012 

Onuy 


0511 


0521 
0531 
osaa 
1028 
0345 
‘1840 
1836 
0111 
1578 
0778 
0779 
1321 
O777 
0963 
1332 
0218 
0770 
0368 
E17 
1518 
T1274 


0057 
1409 
1432 
1392 
0060 
0065 
0024 
0108 
1396 
0107 
1306 
1378 
0425 
0148 
1357 
C103 
0106 
0551 
1236 
0749 
1278 
1279 


1u97 


1277 
0726 
0109 
9110 


OTNAR7T1 
571573 


REPEREN CES 
0852 0871 
0874 

0883. 

0789 

0930 1006 
0172 0187 
0922 | 
0926 1002 
0975 0979 
0925 

0958 

0983 

0974 

oseo 

0512 

05248 

0535 

1018 
0959 
1368* 1380 
0396* 0397 
0083 

0245 0251 
0687* 0692 
0605 1126 
1232 

1334 1339 
0945 0967 
1326 

0142 

0661 0668 
0288 0247 
1511 

1527 

0078 0133 
0600 0602 
1520 

0039 

1801 

1620 1626 
1375 

0043 

0059 0063 
0129 0237 
00242 

1393 

0025* 0052+ 
1361* 1362 
9069* 1366% 
0307 0324 
0138 

13218 

0091 

0026 0093 
0539 

1059 

0569 0634 
0072® 1277 
1276* 
90948 0150« 
1289 
12748 

0705 0712 
0057 

0060 

290CT71 
571601 


5129628 


PART WO. 
PAGE 17 
CROSS- REFERENCE 
1399 
1806* 18778 18178 1823¢ 14288 1432 
1286 
0697 1323% 1330 1385 
1419 18258 14298 
0670* 0673* 0680 
0135 0169 0184 0200 0497 0521 0532 0585 0589 0595 
0796 0848 0867 0963 1076 1095 34132 1198 1447 1483 
044060 0566 07948 0916 1029 
0092* 0728 0236 0439 0565 0793 0915 1016* 1028 
1385 
1367* 1370% 1373 
0103* 10178 
CU86* 0876* OBCY* 1082* 1705* 1116* 11438 11678 11808 11926 
ISNOV71 15MAR72 PROG ID 0A03-6 
57 1605 571591 PAGE W7 


IBS RAINTENANCE DIAGNOSTIC PROGRAN 


/  &036 


SYMBOL 


SPRASG 
STATB2 
STATPR 
STaTas 


STATWD 


' STATO 


STMASK 
STPSHS 
STRTIO 


SUBPRT 
SVNBLK 
SWITCH 
TBLSAV 
TELALG 
TCD 
THIRPY 
THISER 
TRPER 
THREEO 
JIACTR 
TIEFPR 
TINEST 
TIMKON 
TY ALOP 
TIMOUT 
TIO 
TIXE 
TKCTR 
TKTINE 
TKUP 
TOPYT 
TPACKS 
TPROST 
ISTBT 
TSTERR 
TWO 
TYROT 
UDTPTR 
UFINDI 
UFIND2 
URA 
UNITS 
UNPACK 
UTAE 
WAIT 
wWOPK 
WRIDFC 


XR 


X¥R2 


CATE 
EC NO. 


7 LEX VALUE 
A .024 0B50 
A 078 1782 
A018 1FF9 
A 002 ‘1c5SD 
A 018 1EP2 
Cc 00T 0002 
A 001 8 1F83 
A 009 E86 
A 008 1¢82 
R016 OF1B 
A CO? 1508 
Cc 001 0208 
A C02) 1485F 
c coi 0020 
A 008 1DF1 
A 002 OPFS5 
A 001 14850 
A CO2 11EA 
A 003 1¢€60 
A C02 1A2E 
A006 I5FA 
A 002 1430 
A 003 1630 
A 006 15P6 
A 0148 1283 
a 008 1055 
A CO& 1PD9 
A COl 1A31 
A004 193¢ 
A928 1C06 
A O06 IFCR 
A 001 08619 
A COU 1737 
A COB 1897 
A 603 1D16 
A CO2 1128 
A COR TFAE 
8 002 O838a1 
A O04 OA2E 
A 004 OA2B 
aA 003 OAoC 
A910 PE? 
C 001 O21EF 
C G01 0232 
A CO&8 1CF9 
A 001 Ipc2 
A 001% 1C61 
c 001 0001 
Cc 061 oco2 
T3HARTO 
571512 


DEPN 


O1t2 
15a5 
1569 
1307 


1537 
1576 
1586 
1510 


1361 


Cai2. 


0783 
1577 
0772 
0768 
1863 
0426 
0773 
0555 


1308 


7253 
0880 


12595 


6900 
C882 
1876 
C&69 
1566 
1255 
4154 
1272 
1564 
0108 
0969 
1502 
1386 
05548 
1558 


0116. 


0033 
0032 
0014 
3568 
1581 
0717 
1379 
184u6 
1310 


1573 


OTSAR71 
571573 


“SFEK PDNCTION TES. - 


REFERENCES 


0058* 0061¢ 
0711 


0729% 0737 
0077 0137. 
0588 0591 
1080 1097 

1524 
0708 1891 
0185 0201 
0727 1492 
°49890% 1503 
0152. 0264 
1290 
- 8321 O66 
1429 
0036 0080 
0572+ 0587 
0573 0573 
1855. 
0362 : 
0649* 0698" 
0306 
0637 1212 
1093% 1100 
0875 
1093 
0865 
0885 
1465 14667 
Ou6Re 
- 1956* 1563 
U698 11376 
7135 
1159 
19584 
0076* 0079* 
6960 
14998 1510 
CO71* 0090 
1552 
1553 
C028 0032" 
0029 . 
0047 
0790 
0493 0493 
7486 1522 
0031 0920 
O070* 1453 
1448 
0151 0155 
0578* 0583 
0031* 0032 
0168% C1748 
0292 0390 
0494 0569" 
06725* 0619 
0686 07048 
0924 1059* 
1452 14918 
0034* 0057 
0288 02540 
9465 0465 
0671 (683 
0743* 13624 
1396 13978 
290CT71 
571601 


CROSS- REFERENCE | 

0087 0918 1033 

1500* 1506 

0171 0186 0188 01980 
0597 0702* 709% 0731 
1103 1936 1180 «1165 
1896 

1438 

1526 

1517 15198 

0272 0487 0871 oON86 
0605 0622 0629" 0637 
0573* 

0718 O0738¢ 

1323 

1470 

14338 

Ouyuy 

0868 1381 

0033 0053" o0Ges 

OR81 1561 

0159 02a9* 02619 0267 
0808* 0811 UB16 0827" 

0033* 0038 0082 v0u5 
0240 0241 0282 0242 
0302 0303 0312" 0336 

09570 0575* OS76 0578 
0624 0634* 0635 0650" 
0717* 0729 O78 074K 
1060 1061* 106Z 1065 
1500 1518) 1514 

0060 GO68 0069 ¢CO70 

0257* 0258 ©260* 02€1 

0571® 0572 0573 6573 

0685 0688 0700 0702 
1366 1367 1368 1374 

1398 1803 Gk 1413 
TSNOVT? SERRE V2 
571665 571591 


0203 
9798 
1178 


0580 


0663 


0233 
0830 
0046 
0243 
0345 
0587* 
0651 
O84 72 
1066 


0071 
0262 
0622" 
0706 
1382 
WW16 


0205 
0851 
1200 


6610 


0706 


OGuae 
0836 

0046 
0278 
0345% 
0588 

C664 
0854a* 
T1316 


0072 
0263 
0623 
0707 
1383 
1418 


0839) 60511 

0870 G966 

1278* 74auU9 

0813 0833 

07 22% 

0850 04a53a 

1231% 1293 

0062 0065 

0279 0281 
0366 O4b65* 
OS9T 060 
0665 0682 
0920* 0921 

1158* 1226 
0073 O089* 
O373* 0314 

0636* 0637 

0709S O727* 
1385* 1386 

WW22 1423 












PART HO. 5129628 
‘PAGE - 9748 

0523 9538 

0999* 1901 

1488 861502 

1070 «61193 ‘ 

0370* 0474 

1333 

0065* 0066 

0283 0289 

0466* 04928 

0607 0608 

0683 0685* 

0923 o924 

1227) 13778 

0249% 02076 

0327* 0328 

0663* 0668 

0728 0723 

1387 «61392 

1826 1832 

PROG ID OA03-6 

PAGE TTB 


eh ae ee ee 5 Bee wee wae TM ee ee rte ok 











gen MAINTERANCY DIAGNOSTIC PROSRAN | - = 2 , PART HO. 5129628 ‘IPM HAIQTEMANCE DIAGNOSTIC PROGRAS PART NO. 5229628 © | 
co ieee he rere i tag 2 = aa. ? PAGE... 8 a 7 PAGE wa 4 
Sige SAE og abs ou I g ; aes . a : , . : : ee oe ; ; =, is 
Ee eo ee el Neate eae , ee at A036 SFEK FUNCTICK TEST. “4 
, 8036. | SEER’ FUNCTION TEST on | oe | | 7 | a ' : 
Nm» CROSS~REFER ENCE OBJECT CARD LISTING : 
“SYMBOL T LEN VALUE DEPH © REPERERCES | eB * os wnt . 4 


| = THE CHAPACTER INDICATES A BLANK COLUMM AND THE CHARACTERS D E B INDICATE NOMERIC SHEFT. 
a | 1833 1634 1492% 1899 1513 1513* 15260 | snc 89 iin 
Mkeowx 2.002. 1DC1 1885-3396 1397 | noon 2 CL 1 THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL &9 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 


“YorE a 002 1776 0992 0973 0977 


eel ae Maen abet od OS 


T¢+-ZVBOSS ROIS 


T+-_/DiNO={IS_N  S8@PS8HCAaL(,5) $ LECLN2;{SECTAS*H OF 9K9A0360C06 =; 
e : a e ef’ ) e ° ‘ . , . : 4 
T¢->*1)N 82PS6aP DIKXSHUCNHS>( 6*P Al+/ S5_V 8B S$L2*J 1) XR5_V 5_W ORP PS_XEE+.T0) XT2)P “GECC 5ZEA0360007 = ¢ 
eaee oe oe se = J . om e ’ | 
T¢-?P1:.7 A 5S S{]& .P<BAB/ 12/6 ‘*<EE) 2aBGG *COH® ~AOHSDA1)@Z LOH* BPSOSCHE-S&BG SH -S7H *-%A0360008 ~ 
T¢-OK/:, /10/} DB ;SCOAGP. 7122 *0*BGC 3 /19EOH® -~TAISEH~ /OHEASQ Z@BG SH-B*HAH2T 10 RYRA0360009 
T+-1(AQH8SDA1}2/ Q(-DPS%&EDCAC /OH EISH<1H <ON*BHD <OH**AOHSDA1)OA <(CV GE7T2DAC /OH E10H SB 20360010 
Te¢-2ACN:-AZBG SH -ATO GE7 /10/0R* *AQH8DA1)OAR <GC/ GE72DAC /OHEITE (GH EOH*BHD EOH*® BE>H 0T@A036001) 
Te¢-3C IP KE<. UBS SSPNBEN ORXTEKT US*) 9(7°SI* PREC. US>/ BSEPNBAN OLX TS (PE9* PRE< | OS<P S&*+E PY 10360012 ‘ 
T+-3=5@PR6) FRAVC 002476) XEIDCAI>] EGMCDSEXNIGCAE(X EOSGLKGIYS4_ ADC B2;(,6D71PO_ 2H S&S KEUAO360013 | 
T+-G95:.ER<.YSON = BECNS>( 5_N O*S TI)V 6*PCO) (.0=T LKSCOG<.186_ L>E )EYCISACS1)PSIBC B:¢< 2<AaG3600148 | 
: 4 
7 ° e ° e eece @ 2° pas e o , i 
T+-SQIMCTE(XES<G 15;I 5_N O*ST1)V 9 ONCSI*®PKE+{OE<] YEO a6 A C"% ° S$QOHDHDCBGGBG B EB PZ4A036001S- 


T¢-6272@X0 ESOOE/s* 


T+-7DC?84 -a. (EH 


~232HGH3 /19E0H* 


4 EFVO-H+#C-D -, 


os ee 


#820 GFC< . )>0D 


BPKOSB9=-S<BG SH 


WES} ES>EIS*) 1¢X 


2D LB -@w( #4830 


% 7E %BGG.H Al 


-SCO Bi~ /0 


S&UCD6*XV 1CXO) |. 


GFH@ “:¢+ HBB? 


/0H* (6*BGC) Da a1 


HBOO%PG2) NU 8XP 


SB@HBCOY® s0arD 


XOH**%-DAGFP /07 


ZERG A 003 OdbT 0226 0053. 0808 0828 a. : | : : ae « 
ny 006 17CO 17561 15598 | : Bath eA ers. ees . : f ae we a 

cone ee . T#-Y:YCO. & BiH HA . & CEHBIN @™O%Q+}A.E"HE, 34 BiG2 ETB EH2( D .YLAAB:GB 30; -2T~ 62-a0360001 
. TOTAL STATESENTS FLAGGED IW THIS ASSEMBLY = — ° . | | ae , ae 
| T¢-Z5 -f.G/ PE @YD?+ DEB"HEAX6 0 FHA.I-& )HA |B EBS, /OHEA/Y.ETO BI-< §>/COG /0H D D. OQBA0I60002. | 
ad eee eee _# ° e oe e r eee. 7 7 “ ¢@- gee _ 4 
T+-DOS BlYaa&_ EY*LS Bikaa-_ 6; DBSZ DI1@.E_H A 3EAB:DY >3 B- Gj* H. *=- ¥ AB J B- 5080360003 

T+-,, KOE B~ Bra OH**AOHOZORRe - *PaHEACTEDIX /OH E J8.¢<BG /TFF _ 6] )_*HBB>S /1% 6OH* 1-920360008 


26p $-000360005 


DO-H #L%40360016 


0(&D 69QAG 360017 








age a Sone : 
Sc ceccdnionea ae in rltes.  soleette ta oe scheme 


T+-SVOON@"0 5S FE Vj7na@*R PHAAX3" ~H G.T8 GPS2-ER8"0. 2/0 (a"06" AITA@YD GtH *R"HGACWY GP~ 2D Q )BYA0360018 
T#-9--3, BCAY*C3$ a ELE<CC™X2-E69"0" =C-D+BIGDC-DeGE" 3CED+9ES.aYDDOH*® (_SHAC?.B -"P( H 834 QE*®A0360019 ~~ ; 
T+-:F “":OHDRBESB G /,AD BSY De 68 TC) /OHED*HBC3Y 4 -"1C DeU-sTOL*® BF-DF A* C2-68 < &8 KZ<A0360020 “| 
T¢-807-"10H*RP-D -~ CK EDU J6NCED )_ @.@-DPJE 4=%B A /S$ /OHEESBG SH - *BG /Q( S"1C’'~ —&8 KC-A0360023 | 
DATE V3HART7O OTBART71 290CT71 ISNOV71 2SSAaR72 ; es ‘ PROG ID OA03-6 DATE 13NAR70 OWMART1 290CT71 ISNOV71I ISMAR72 PEOG ID OA03-6 ‘ 
EFC NO. §71512 571573 571601 571605 -571591 : PAGE 8 FC WO. §71512 571573 577601 571608 5715891 PaGE 6A 
: 9 ; i 


: i 


: - E 
+ . é 


IBA HAINTENAKCE DIAGNOSTIC PROGRAR 


A036 
CL 1 THROUGH 16 


T+-PIS-SAC*D|'#B 
T+- "<2 DCPOSKNE'S 
7 +-= GSMCR 1* GDE CK 
T+-"BO* SRE*PCBEC 
T+-"* CODA EDA 
1+/ 8:39 BIT -EY 
T+/A3Y X /0HOO-G 
1+/B>/OHEASSJBAB 
T+ /CZOH*BPRO' DNF 
T+/DUISEITH BOR* 
$+ SENO*PRE<] A5SO_ 
T+/FESUCNS> ( B&P 
T+/GHEEN OSITE (P 
7+/HE 1DCF6) SHE<| 
T¢/1.62 5 JY%~=8 
1+/HFC#RGG *E+A 
T¢/. AFE<ERAAEAIO 
T+/.OFS3B /EE( 
1+/<7/0ROC DLBIY 
T¢/(20H*BP-DAEDA 
T+/+_ C2-3D% At 
Te/1Y &-MLEBA EDA 


DATE 
EC WO. 


13RAR70 
§71512 


SEFK FURCTION TEST 


CL 17 TREOUGH 32 


e@eeeacee ee 


GCz< cr- 


UBAPRO) SRE (SNE (X 


DEDA &(KEO*J 2)P 


HIU*GLEDA E<} eax 


c * 


GDA EDA EDA & * 


SOR**HEO GPA. FLO 


2 h7" 6 JGWORH 


G SH-B@BG /S /12 
-A@BG SH-A@BG /0 


*A*BGG *B+ED*P iH 


IKIDE(PCBACSTs ( 


TS) R-S_) 8%PNBEN 


O84CR1;.E84CB: DC 


eee ee ry 


FE+ {RGR dD h- 


@YFP-~G *Q-C /12 


*Pp* EDO7T /10G ZB 


GFQ (GSHNL80 11 


ML34 C™, -EBHOOR* 


SOH*5T 8 EDNS /J 
5S JY&S& "HAISH 
* COAD=TB J$208* 


MI-8APSOJ9E BEDD<K 


OWMARTI 
§71573 


290CT71 
571601 


‘OBJECT CARD LISTING 


CL 33 THROUGH 4&8 


eee s 


Te - 


£0*J 2*3 SDA EDA 
CS_XR19 1TE< | Yeax 
NICPRE<GD! (KEB>1 
y2<paincoz<Paioc 


se 


Iee3 /122 *Qe¢s 


&60- DEQ) D*F-DBD 
2 6D*R*BGDIGB 64 
8-A1*a/ 60 H*BPRO 
ED<BG /,PH/P6Y T 
“BaTEGe. £1) I Oat 
“ URXTE (POBUCRI3. 
AG (XEO@GLK *SVO;L 


CA NALS BIT -EY 
2. *Q*BGDU7 /10 
GG *B(EDRL37Fe (? 
WG& *R-C2-ET /10 
BP/G /OHEOS | F: 
18-DB( DLG*%BGG8O 
A 3GAD6<< /LCGFB 
LOTABED=9- G2DA_ 


SBA, #0-H~-20 D's 


WNOVTI 
$71605 


CL 4&9 TRROUGH 64 


“SBA EDA EDCHSUC 
WICK PRECED 1 (XFS. 
"Si on Ga hh 
12<PA IDC Z2< PA 1DC 


GBC" /19E0R*~TA 1 


* AISDIL /122 


YCRO~9 1" (-DPBAB 


PDOS- @8G SH- aB 
“/OHSY T /0HO.9E 
ZO*I 8&PNBEN O%X 
B8&CB: DCAE+¢.E5;. 
WE+.RE (LAICN 0; ( 


EOR**HLO C*,B Jj 


G THAED*'< *P<B 


2 &(: GEC HE<#B 


/1fej=-BaZ%2aI-8 


Bj HAACHAPST*"0C 


AZOC OM</LE> D 


"*8OP2-ET /t=< 


Y A’ L2 B=TB J= 


GAD~=6 8 A1*aZ 


ISHAR72 
971591 


PART HO. 


5129624 


PAGE ; ‘i 9 


CL 65 THROUGH 80 


eveeenvecw 


CO,S9(L 
DOs {8&4 4 RO) PSIRP 


DZ2*J 5) STE+. EuaP 


EDCH 19°C DE+. Earp 


SER~ /OHEASQHZ@B 
*0*BGDHN@B19Z0H* 
DDIP /10G T-AGE3 
GG *B+Q *PyHEBKB 
” BRPESPCB1;T0S*3 
T5)R-5_) 8&PESEN 
ES&PENUCC2<PCUUC 
” g>1263( S&R B_I 
a( DE.<HBE aa /J 


GG *CK AGE0a"0"* 


GG. EA J 1VOH®K-3n 
APSOJ9XBGD/1B 3} 
2 6" /OHEERZSG SH 
has FC QR</L‘OH* 
H3CBG /YBDILC} 1a 


B&Y*~j|7aA8} RAB<B 


<OR*BF-DKG"0a"tJ 


PROG ID 


CL 81 THROUGH YO 


80) U0 N3ICAD360022 


BE(Q #@8400360023 


C83 "a8a0360025 
C8an :ERA0360025 
C AD 84040360026 
G SH *KOA0360027 


3J® 6-8@A0360028 


2DAE BL 40360029 


G /Y ¥$-420360030 
“g*0 @LyYa0360031 
“og0 0C&A0360032 
$1) 8 )€8A0360033 
"4>Q 32 40360034 
1,A@ P,A0360035 
:a1* BRDA0360036 
APSO 22620360037 
a( D SR<A0360038 
-"% 1D 20360039 
BF/D *H A0360040 
KB. 4% 37040360081 


G /Y @1DAK03600482 


6{& *HZA0 300043 


0A03-6 


PAGE 19 


(T+/33 


IBA BAINTEMANCE DIAGNOSTIC PROGRAR 


A036 
CL 1 THROUGH 16 


I+/ETD* P2-6,5 -G 
DSKPEGEC 


T4/KRIDCA 12>] E6AC 


T¢#/LM1) 15%) 0=T 


a 


| T4sN41p.15*) 9=- 


T¢/NHPTS BIT -€Y 


T+, CE *Q*PGEOP 


T*/P J*BG /YFI/K 
1+ /P#C-HOFIQ0OR* 
T+/O6@YHHA- 601390 
mR) 
T+/E%&5:.EE<. TBUC 


T+/SX5_PD8-C E@a 


1¢/*S/0ROOH* *HL1 


T+¢/)}) 2<GL B4CIAEB - 


T*/30 /, FAIS DYT] 
T+ /~L2CXLIMNCD2;3. 


Tes/-¢+ %Q] - E@sB 
T+¢//TIG/ZEQH*BP-D 


T+¢/SDWCO FTR* AY 


T¢/S"-AIROH*; 3*B 


T+/T2UAS@/AISZOR® 
DATE 13MAR70 
EC WO. 571512 


k J. 


SEEK FUSCTION TEST 


CL 17 TRROUCH 32 


/iynoae og 
RQEWII=EWIE+ 3K GHC 
DSSXN ISCAE (XEO*I 
LRUCK9=—S81¢PKI83 
K9=-X9NCF6) SHE<| 


COH**AOCOAA I*8/ 
/19EOH*BP-QWER~ 
XOH*BHD I0-DP*<B 


TADXKBAATFOA NOES 


_OH*N*-CAEDHO! 0 


<TEO*) BLPTB*{ 


N1;P26HCC5_LE8UC 


* $OOFDRDC72B5C 


EE7IVIZ/) 4a: OF 


e e e 


GG *B4A *P* EE2Y 
/OHSYII3YEG /0R 
KEI 2;1 5_mO%/1 


G H-1""7& .P<B 


OBJECT CARD LISTIEG 


CL 33 THROUGH 4&8 


-C &<BOD "0 


T6*GCH>T, 4405+ 


2*3 0; ( O=TLKAaC 
8°R O=TLKSCK9=— 


Y44_-9=—K1_SRIRG 


E0H*BPSQ/EWP-U<B 


7ORSY Da JISC A 


° 


GG *C+ &*PHEGCO 


BPTUO<"HD “HGB-4 


AEZ2@0*%BG /,FHJE 


I5*) B&PNSEN OSX 


USa@TEO*) BAPTE* |] 


2-J?B GH2~$ AaYD 


PHTFTE78111) #CO 


TY 1) 8a: DAC E<P:CF 


OE76 ec 


)*+D *P< GE>Ka"1-~ 


AB/ 2112) 1<*EST3 


CL 49 THROUGH 68 


everensceceeeoovrece 


ee 


19" POE<PRE) SR. 
19=~£6) LOE;1 58f 
AG) XI9*PDE<GTE< | 
RICXHS(XEIM_ EDA 


G SH-0 OAGP< (QLO 


0¢65/08*.TA1S BH> 


AE=. /AOROH*BPXOQ 
BETUO(XBB /0< /R 
OY L /OHSY L /OR 
TEXGLORZGYSUCUSAT 
I5*) 82@XntHCI8UC 

5A AN-DCOI 0218 
P:JGWO DO=%BG /, 
TETSAY/) (@1#3<E< 
#0) 1 T&}X36) SU SAX 


+#<$QOP22¢0 <FOE:, 


GFX@*°@E EAYD<j<Q 


JEWG /ORE JDE®%B G /YEDIDCOR*BHDC @| D)_LO GSSB JY 
Y DY A66a-DDI}@ EXKBGG.H AYXOR® QS<BGFGC /10G 37 
G /,FCAD3YHC /OR SYHC2/"0< JY>FTC /10G 3-BGE322Da 
:I*BG /,F}/>SYHL ” /OHSYRL2/#%8/39 %O0H*;3*BG /,A.12 
O1NAR71 290CT71 1SNOV71 15 BAR72 
571573 571601 571605 571591 





PART ¥O. 
PAGE 


CL 65 THROUGH 80 


eeeeneeaneneoon 882286 


" 4) ERS_XSE(SCO=L 
C9(XR1*3 SETINaD 
Yue” 9=-x98TT4an 
"SDA AG OBL-DB-3 
IGR3 /1=<GFHBZaB 


/122  *Q*BGERP 
WEY;-0*BG SH-D*B 


ETUDEAQ'G=*) /R 


0@j|COa|D E& E* 


E0%J 8%PTS8*{15*) 
X1947X94CH 2) JL20C 
GD<POE:, /OHEASH 


FAI*ZYI. /OHSYI. 


P;CFPTE7SAY/) *ar* 


“NIMC6EC. T50GS8RP 


/1$~E@% CAO 


EPL3PFu831/Z"0H* 


E( DE.CHAPS1*"0C 


"PT. -JV9+0 *P=H 


1 JY>D3$ /ASV+0 


19a 


CL 81 TRROUGH 96 


a2eooene 


ROR ¥E*A0360085 


BEA 21600360086 


S828 =3900360087 


DB )B A03600488 © 


GG.8 “ %A0360049 


a 


G /Q 5#*20360051 


D:Q KHOA0360052 


S10 B,880360053 


B28 00500360054 
S1*< Q0%A0360055 


PD* 2 HA0360056 
2/16 1080360057 
E0H* 9K<A0360058 
DE*0 03HA.0360059 
s5ae csaupscunce 
BF-H #/020360061 
“-J0 @CUA0360062 


6730 = HAO 360063 


*P~H 6BQA0360068 


HYHP /OHEA/MSB8*®B G SH #,QA0360065 


PROG ID 
PAGE 


0A03-6 
198 


51296248, 


4/18 526A0360050_ 


t 
{ 
i 
4 


i 


~Q a0360008 © 


ao ae 


sven eg ote 8 


omen de ee net nine re ae 


2 


etalon samme gence eae cme tee 
wee ht EBR OSE bo 


eee ed “TRC RROD gen ggg 1 


JHA MAINTENANCE DIAGNOSTIC PROGRAR 


£036 — 


“ 


CL 1 THROUGH 16 










SEEK FUNCTION TEST 


CL 17 THRONGH 32 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


CL 49 THROUGH 64 


PART BO. |= 5129628 


PAGE = 20 


CL 65 THROUGH 80 


cL 81 THROUGH 96 





ew 


IBS AATNTENANCE DIAGHCSTIC PROGRAS 


A036 


SEEK FUSCTION TEST 


CL 1 THROUGH 16 “CL 417 THROUGH 32 


OBJECT CARD LISTIsc 


CL 33 THROUGH G8 CL &9 THROUGH 68 


PAgT "0. 
. PAGE 


CL 65 Tekouce 80 


5129628 


20, 


ee 


CL 81 THROUGH 96 


narblendedaaime it ssiaab sales ak Edin 5 oat 


ge ban tei 








‘TeastHP2/97R OX ROH**A0<B /198/, xo” Ecacwarp=+0" *P*BEF1aa-/9K0K* BG" /, PRINZ TH. "08 78£40360066 pivecnua pebeck NICEXE (3U8=.EBUC S1)PS1*3 ONPFS_X EG*}IS<PO9+( 2) 6) susaratacrs0” seas cooaczco0gs ] 
: , . | . : | 
‘te/vortenen *{-D PAXBDPFEL /ORE1/0 waa OR*B ADB] aY) ACO *PanesT2CGw3 _” /\9EOH*BFKQ" PSE --a 7.940360067 T+/2 POaaGG *B0 Re Menepsess noyak: AG?.B /=COH*BPSD AG?H- BO. Gx- GAD == 8 Al*az HONe BF-D ;K*a0360089 | 
| ; : : | oa oe 
“pee, /ONSTHI 2/10 9041) 8/ -1HD;S<B GGUP /OHEISHESES AQH*BNDSAON**H*B GFC-aCc19%0ne*5-D AGFA 59810380068 | Sujenpeeie Scin. RiSAR pmantecces) S2scauraip a a/se “Ge sconses-aesie> <b-acvaneune Joa 4 ya suecGheeoss 
eS a } i EG . | | | oe een | S f 
Re feapnenpascs * C+ BeP]HED<BG /, PRATDYH3 /OHSYH3 /19EC AH-JI-[~2 *RPMAELBGGEO*R/K AOH* 35020360069 | T+s#eG>c 70 8>} AB=LSE<.YBaPSE<X NETESG ”""cusucosea EDA "SDA EDA GRCIS: | Bim 33620360091. 4 
Mares precon none BRB }{EDE.AN GFQ AYDI+E<eR-HEB-O0 GFHENCEGGPU+ SY 8D; /1/ — BU BA. ~L<AO3S0070 T+/O31)PT2PSNE (K BECT.SCXSESXIWINC ATCLERSCHO)KKI)T 02)~81)PTECINTO] KEDA toTOMCC2ce cen ; oanssoonZ Wl 
ane 8 ca ew ces nie p7651 NIACRS_| LS>SIS*) W;LAS@P ROUCHR'I25; CUEFA “ore” scqneaso071 T+/*>EDA EDA E(P OE(XED*SRIDCPS>L NIDA &+1KECPOS*L TeaKOSMCCZ<PC>. E1)1 CBTEO*T GDA "gp 3vaae3¢0093 ‘ 
eae °. : . 7 . = 
gesBoi.gay.wax 25}C3EFA 972168_G 0'>S36—.Pa—A ODC Waa~21°CKI'R VAX NINCDSRPSE(POBSC C5_E EL-A0360072 T+/=ZEDCNS;. ASN ELA ELA EDA EDB 6B EB EB E OBAG W( —~,LOHD;-SBA=. 3( -~>LOMD; QNBA" ec D "GER0360094 a ; 
Fs jexiwensacosne AGS. B1)T 94xT20C AS>PES<PNBAMO5 (1 I5*N 2;1 9() 1S RECE 5)R 5 (ST2)5 NE+H *RHAOI60073 T+/"uGea OAG'H | -OAGa< OO GB Th gee Segoe ees J97HBB-Q-  ~7#B cons’ 0" nazew..stre' sonosaeg | 
Te/KCVEPRIOR 42x NIMCHOI 1(XOS'+ E1DCBI*S06"N 6*P C1#x¥2) PGE<{06)x BO=( 5)R.6 (SPE+) RO®< 11630360078 ; PoyeesseO ee eee eh, Oe Q ce mn! See Page dese | sim Na by, eae RO Lo : 
T4/_WUUCCE)SSERX NIWCP9(1S1;.GS0C 12) PEGCLIYDCNS>( 1(1OSHCA1>}E6RC C5_XR1#1T6(PORIC 010 0DDA0360075 GP ecawigeehedete aioe ae Fees eee nae egg te TO aayaaaeiree. iimaateckusReses | 
Tepecarmnory 0° O8>.15*) S=LL8KP S1*R UAXNINCHO;I —1(XOS*~E1DCB1*S 06*N 6*PC1*XV2)P GECD K¢HA0360076 ; | 
Bepoesi/" errantT "9*x08>.15*) S=L LOEPSI'R GaGTOay 9{) ADCESUCT6*G CHUCCE)SSERININC P9(< *HYA0360077 : tae 
_ Teprseme se (xeoar B9I*PDO#ICI;.SE (+ OBRXT2)SN19J OP TOXPESNCTE*GCUD. TE*GCRUCCE)SSBRX WIS 0: QA0360078 : 
- ge ouuarstacnsuc S5_|I1CERGA-6 BAG W(-*H -cGAY Cc “GE? /0 (-*0L0 ‘GS%8A Haz Dj - )>30 -¥ 0360079 
ep rrepstoneen— AGFG /1100H*;3*B: G /YFI 3YOH*BHD +0H® A?S62 =. ~~~~SSSS:SCCERG.D < /& 91<A0360080 
“aeabaur-paeent ABCBGGBO*R/LCOH® TAISE.X /OHEOJH M>E HOR®BF-DLEC3 /OHEASCR#@BG SH -B%  OTYA0360081 
“repanswsow ce BGER5 /18})>L0 GS-a"11WH <#*0 x 258 KOAGSUCCEO )?1"NG]*9BAG#a/ De-- P3*A0360082 
: yeostst” “eae (B A9DO-DR2Ie~ <P SG*H'"168a-D<T CGS;# ERS /1S8E  BaN*D?EDAa-DH{}a@ )>LO0 5Q8A0360093 
/58" ne. 0) 06 S /TAL )_0<a"16 816 )_sHAETOAGSO # cHanoca AG6I{a )_<BGGer s1=<Gso nees’ Laqnoscooss 
“pepe” py _7Fac DE@%A -0 CSE) _S@ ” GSGAC onesLtare T>-DB. )_ Di A6 SGSQCA/L/E}$2/02 a < *,64036025 
4/790 oneasnere 17 CGSES ATT 20 “GSQAOHe*e- ee Gan <B GG *C+ -*P)HEAC3 "GUE 0 YA0360086 
" gayect-peexeper ""19DBIDEOH*BFKQ VGTO-S*BG SH-S*B GG80H 19C1D ;6*B G /,PEISCYH@ /OH SYH8 @18A0360087 
JOE enna nnn nn nn nnn naan nnn nnn nnn nnn nnn LAST PAGE —----------------- wn a+------- --- + - 
TATE 13H0R70 OAR 290CT71 15WOV71 15 BAB72 PROG ID 0003-6 LATE 13MAR7C O1NAR71 290CT71 15 BOVT1 ISMART2 PROG ID 0403-6 
ee bie ete 571601 571605 571591 PAGE 20 FC NO. 571512 571573 571601 571605 571591 PAGE 20a 





3 
4 
i 
4 
i 
t 
{ 
: 
1 
: 


eB Tee PR ee eee ey 


wee Ne es ee ee SE a . were Sab) OAL Sie ss, Oe ae 


i 


bites es Adee oeseed ng tee ee oot 


manratetGis ad oh S Soha oY ge niatrad Aga WE wR a BEd ea owe te GR ERR Boe Ghai P Ra Tee Se 


ee hae Legace 2 SE cape nan ee et cate aM om er ae 





Gc) oO G 
PART WO. 4129626 . 
IBM MAINTENANCE DIAGNOSTIC PROGRAM ba NO. piageee G16 IBM MAINTENANCE DIAGNOSTIC PROGRANS orcs a. a 
AOE3 SEEK FUNCTION TEST G10 AOE3 SEEK FUNCTION TEST a 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERST FRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . 
cis OACY CO 87 1333 70 B SEBSE Me 
: AOE ae . OaCcB 02 Oacs 71 DC XL 1*02° ASK FOR DEVICE STATUS BYTES 0 & 1, 
5500 4 ORG x*Oa00* O0ac9 3c CB 0B27 72 NVI TRACK#,203 SET FOR FULL CAPACITY DISK > 
5 RARE REEEEERASEEEEEE ERE RE SEE DEKE EE ES ESEKERESESEEKESEREREREE ESSE SESESE SES Cc G OACD 38 08 13506 a2 7 eee ee eoue coeceaee “ 
* OAD1 F2 90 04 u 
: Su eeeese BPC n nee tar * tt OAD4Y 3C 67 0B27 75 SET103 BVI TRACK#, 103 SET POR HALF CAPACITY DISK 
‘AOE3* PROGRAM ID C1 ¢ OAD8 CO 87 O21A 76 PRTSPN B PRIST TO PRINT SECTION HEADING 
aie ae? BED ; be ti itoor OADC 01 OaDC 77 pc XL1°018 FLAGS 
ae 6d ood ; Be teiod SOReENT ee NUMBER | OADD 1D OADD 78 pc IL1'29° LENGTH 
Baa 0006 ons be te ere RESERVED Oo | oS OADE OB46 OADF 79 pc AL 2 (SECHSG) MESSAGE ADDRESS 
OA06 CBB3 0A07 12 Dc AL2 (RT N1) ADDRESS OF FIRST ROUTINE PREFIX OAEO CO 87 O21A ie = ee ns ee SPINDLE 
0a08 0000 Oe ce poe Teens erg ee ee o 9 OAES 18 OES 82 pC 8 sIL1°24# LENGTH 
ean Aci b0s OnE is nas ae rE3"s0 1000" OAE6 OBSE OAE7 = 883 Dc AL2 (S PRASG) BESSAGE ADDRESS 
nnn ova 16 m OAE8 3C 00 14&FC 84 SVI FRSTPS,O SET SWITCH FOR RECALIBRATE 
17 * 1. SET SWITCH 1E TO BYPASS RUNNING ON DISK DRIVE 1 * Co 8 OAEC C2 02 OAFO 85 LA INTERR-8,XB2 Beep ne cee or 
18 * 2. SET SWITCH 1F TO BYPASS RUNNING ON DISK DRIVE 2 * Ae 2 ets ae : oe ae ee ieg 
19 
} RROR RETURS 
Bil se Fe oats ay ne cece tree SET SETUP S¥ITCH oS OAFC 3G FF 0925 aot Gyr SKbupt.xtere SET THE SKIP UDT PLAG 
OA14 3C FF 0826 21 NVI SETSW,X iy 
v SNSID,X "88 ° PUT ID IB SENSE 
thie #2 16 39. oR Pansat june iron Te CC babe eo oF t38c sb paras fo reer For AfY THIPTAL STATUS 
CAIF 3D 00 OBAF 24 CLI  UDTPTR,O HAS POINTER BEES INITIALIZED ? 0B08 CO 87 021A ae ae ae pee INITIAL ERROR 
0A23 F2 01 08 25 INE UFIND? JUSP IF YES ae aaee o oe = oe eae raoee 
26 38 
ss 
OA26 C2 01 0232 27 LA UTAB,XR1 LOAD XR1 IF NO OBOE OBAD OngE 23 pe ay tr oreae? oreo ee ee 
OA2ZA 34 01 OBAF 28 UFIND2 ST UDTPTR,XB1 Coo 0B10 A088 B ? ee Ge cee cuca wus 
OA2E 35 01 OBAF 29 UFIND1 L UDTPTR,XR1 hee 0B12 CO 87 0222 9 7 oe iene tee 
0A32 3c 00 OB24 30 MVI RESNVDS,0O 0B16 A088 0B17 98 D aoe 
OA36 328 02 02083 31 TBN SWITCH+3,X'02! TEST SSW 1E ‘ eM ¢ 0B18 3C 00 0B26 72 BVI SETSU, 
OA3A F2 10 O06 32 JT #49 JUMP IF ON, NEVER RUN DISK .f‘ 
OA3D 7D AO 00 33 CLI 0(,XR1) ,X*A0* TEST FOR UNIT ADDRESS OF "A® OB1C 3c 00 0B25 101 SKPEXT MVI Se Pap hee oe THE SKIP UDT FL&G 
OAUO F2 81 2F 34 JE SETA JUMP IF THERE IS ONE O + 0B20 CO 87 0000 102 SETEXY B - 
OA43 38 01 0208 35 TBN SWITCH+3,X'01' TEST SSW 1F Co 103 a 
OAR7 F2 19 06 36 JT *4+9 JUMP IF ON, NEVER RUN DISK 2 C324 00 0B2& 10% RESVYDS DC XL 170° 
OAUA 7D BO 00 37 CLI 0(,XR1),X'BO! TEST FOR A UNIT ADDRESS OF *B®* ane 0B25 00 0B25 105 SKPUDT DC XL1108 
OAGD F2 81 2F 38 JE SETB JUMP IF THERE IS ONE 6 oe “1 sae - tele - a 
39 
ea0* 
OASO 78 10 01 40 TBN 1(,XR1) ,.X*10! TEST FOR LAST ENTRY eo 0B28 AO 0828 108 SPNDLA DC XL 1° : 
0a53 D2 01 03 41 LA 3(,XB1) ,XR1 STF2> POINTER TO NEXT ETRY Cr AS 0B29 BO 0B29 109 SPNDLB DC XL1°BO : 
OAS56 CO 90 OA2ZA &2 BF UFIND2 CONTINUE IF NOT THE LAST ONE OB2A C2C5C7CIDSYOE2ZCS OBY6 110 SECMSG DC CL29* BEGIN SEEK FUBCTION TEST AOE, 
OA5A CO 87 021A 43 B PRINT TO PRINT ALL UNITS TESTED G oo 0B32 CSD240C6EUDSC3E3 110 a 
OASE 06 OASE 44g pe XL1*06° FLAGS / ~ ee Seer oneeee 4 
OASF 1A OASP 45 pe IL1°26°* LENGTH 
OA60 0378 OA61 46 pc AL2 (NOUNIT) MESSAGE ADDRESS ae 0B&7 D5SD6EG4OE3ICSEZE3 OBSE 111 SPNSSG DC CL28*NOW TESTING DISK DRIVE Xx* 2 
Shee ac oF ona tee bzar “das Sacensesssesuozy 1 
OA66 OC 01 OBAF OBB2 48 MVC UDTPTR(2Z),ZERC . 
OA6C CO 87 022A 49 B LOAD NO ENTRYS LEFT eS OBSP C1D3D340E4DSCSE3 OB78 112 NOUNIT DC CL26*ALL UBITS EAVE BEEN TESTED* “ 
0A70 0040 0A71 50 Dc XL2 "40 ¢ FLAGS c “ oe Bee eee Ue 
$1 
OA72 08 0Q 1401 0B28 52 SETA MZZ LOFCR+1,SENDLA SET FOR SPINDLE A. sa 0B77 CSC4 112 ; “. 
OA78 3C F1 OBLE 53 MVI SPNMSG,C? 1"  <& OB79 C&CIE2ZD240D5D6E3 OBAY 113 Dc CLUS* DISK NOT READY OBR SOLID ERROR OS BEFORE STARTISG 
OA7C F2 87 14 54 J SETBTH PROCEED 0B81 YODSCSCIC4EBYLOFE 113 : 
OA7F 08 09 1401 9829 55 SETB MZZ LDFCR+1,SPNDLB SET FOR SPINDLE B. — OB89 DIXOE2ZD6D3C 9C 440 113 a 
OA8S 3C F2 OBS? 56 MVI SPNSSG,C*2! OO Ae 0B91 C5D9D9D6D94S0DEDS 113 
OA89 78 01 02 57 TEN 2(,iR1),X*01' TEST OPTION BIT FOR REMV. ONLY 0B99 80C2CSCE6DED SC 540 113 
OA8C F2 90 O48 58 JF SET BT H JUMP IF NOT OW are OBA? E2E3C1D9E3C9D5C7 113 a 
CABF 3C FF OB24 59 NVI EESVDS,X*FF® SET BIT TO SPECIFY REMOVABLE OBLY ke OBA 40 113 ; : 
OA93 D2 01 03 60 SETBTH LA 3(,XR1) ,XR1 SIEP UDT POINTER +3 OBAA E3C5SE2E3 OBAD 114 FSTERR DC CL4* TEST : 
OA96 34 O71 OBAF 61 ST LOTPTR, XR1 STORE FOR NEXT PASS C Oo peeR oa Ses ae np c a. - 
62 P EONS B 
OASA 08 OO 1805 1401 63 MZZ LDFDR+1,LDFCR+1 SET FOR CURRENT SPINDLE 0232 117 UTAB £QC x*°232° 
OAAO O08 OO 1817 1401 64 ZZ SIO+1,LDFCR+1 SET FOR CURRENT SPINDLE | 5 : 
OAAG6 98 00 141714 1801 65 NZZ WAIT+1,LDPCR+1 SET FOR CURRENT SPINDLE O | te 
CAAC 08 00 184B 1401 66 M2Z TSTERR+1,LDFCR+1 SET FOR CURRENT SPINDLE 
CAB2 08 00 1346 1401 67 MZZ S¥S+1,LDFCR+1 SET FOR CURRENT SPINDLE | Q ape 
OABS 08 00 188E 1403 68 MZZ RLDFCR+1,LDFCR#1 SET FOR CURRENT SPINDLE SG 
OABE 08 O00 1492 1401 59 MZZ RSIO+1,LDFCR+1 SET FOR CORRENT SPINDLE ; . 
? | ? PROG ID OaGE-3 7 
DATE 13 BARTO C6APEV0 22HAY70 O1AUG70 OIMARTi PROG ID OADE-3 DATE 13N..R270 OGAPR7O 22BAxY70 G1A0G70 OinzRR71 erce cs ; 
EC WO. 571512 £71516 571513 571531 §71573 FAGE 4 °o 6 BC NO. 5773572 $71516 571543 571531 S7t573 S 
o © Y 





_ EBM MAINTENANCE DIAGNOSTIC PROGEAS 


AOE3 


ERR LOC 


OBB3 
OBBS 
OBBS 
OBB? 
OBBB 
OBBF 
0BCc3 


OBC? 
OBCB 
OBCD 
OBCF 


OBD3 
OBD7 
OBDS8 
OBD9 
OEDB 


OEDF 
OBE3 
OBE? 
OBE8 
OBEY 
OBEB 
OBEF 


OBF1 
OBFS 


OBF9 
OBFD 
0c6i 
0Cc02 
0c03 
0c05 
oce9s 
OcOF 
0C13 
0c16 
OC1A 
ocic 


OC1E 
0C22 
0C26 
0c27 
0c28 
OC2A 
OC2E 


0c30 
0C36 
0C39 
0C3D 
oc40 
OcdsR 
Oc4uB 
Ocac 
OCuUE 
OcS4 
0c58 


ocsc 


DATE 
EC NO. 


SEEK FUNCTION TEST 


OBJECT CODE 


01 


00 


0D36 
3D 00 


co 


81 


3c 00 
3c 5c 


co 


87 


1355 
occc 
3c 09 


co 
00 
00 


87 


1354 


co 


co 
co 


87 


87 
87 


06 . 


33 


occc 


co 


87 


A009 


co 
co 


3c 
co 
01 
01 


87 
87 


OF 
87 


1358 


co 
oc 
3D 
F2 
co 


87 
02 
FF 
81 
87 


1359 
oc99 


co 
co 
06 
3E 


87 
87 


0c99 


co 


87 


AOOF 


OD 
F2 
3D 
F2 
3D 
co 
co 


00 
81 
02 
81 
01 
01 
87 


0D32 


OD 
co 
co 


00 
84 
87 


CB26 
GA10 
1355 
1356 


1703 


15583 


13AD 


03F1 


15BC 
O2TA 


0222 


12.9C 
ocus8 


1SE3 
13AD 


0C30 
oce9 
1359 
1A 

1703 


153C 
O21A4 


0222 


1359 
OF 

1358 
08 

1358 
135¢ 
129D 


1355 
0216 
0BC7 


1353 


1355 


0B27 


ADDR 


CBB3 
OBBY 
OBB6 


OBCC 
OBCE 


OBD7 
OBDS 
OBDA 


OBE? 
OBES 
OBEA 


OBFO 


0c01 
oco02 
Oco4 


0c 1B 
OCc1D 


O0C26 
OCc27 
0c29 


OC2F 


ocaD 


E3C8CS4ODTDICSES OC8D 


13 BAR70 
571512 


OG APR7O 


571516 


STMT SOURCE 
119 


120 
121 
122 
123 
124 
125 


126 BEGIN 


127 
128 
129 
136 
131 
132 
133 
138 
135 
136 
137 
138 
133 
740 
141 
182 
143 
144 
1&5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
189 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
75 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 


* 
* 
* 


BTNI 


RTNIA 


RTN1B 


RTNIC 


BTN1D 


RTNITE 


22mAY70 
577513 


STATEMENT 


ROUTINE NO. 
ONE CYLINDER 


ROUTINE PREFACE 


pc 
bc 
pc 
CLI 
BE 
NVI 
NVI 


B 
pc 
DC 
AVI 


pe 


0 120670 
571531 


XL1°01° 
XL1*00° 

AL 2 (RTN2) 
SETSW,0 

SETDSK 
WRTDFC+1,0 
WRIDFC#2,X*5C? 


CVD 

AL2 (WRTDFC#1) 
AL2 (ERRORS) 
SNSID,09 


STRTIO 
XL1°00* 
XL1*00°* 
AL2 (WRTDFC) 
RTW1B 


PRTSNS 
PRINT 

XL 1°06" 
IL1*51° 

AL 2 (ERROR 9) 
HALT 
XL2*a009° 


VERIFY 
RTN1E 


SNSID,X*OF! 
STRTIO 
XL1°018 
XL1*O18 

AL2 (RDDFC) 
RTN 1D 
RDIDER (3) , THREEC 
RDDFC4#1,X*FF* 
RTW1D 

cYD 

AL2 (RDDFC¢ 1) 
AL2 (RDIDER) 


PRTSNS 
PRINT 
XL1*06* 

IL 71*62° 

AL2 (RDIDER) 
HALT 
XL2‘AOOF® 


RDDFC+#+1(1) ,WRTDFC#1 
RTNVE 

RDDFC,X* 02! 

RTN1E 

RDDFC, X01" 

SEEKER 

STEPF 

AL2 (ONE) 
WRTIDPC+1 (1), TRACK# 
LINK 

RTNIA 


PART WO. 


5129626 
PAGE 2 


01, SEEK EACH CYL. FROM ZERO TO SMAXISUS 
AT A TIME s 


ROUTINE NOMBER 

ROUTINE FLAGS 

ADDRESS OF NEXT ROUTINE 

HAVE PARAMETERS BEEN ENTERED? 
BRANCH IF NO 

SET TO START AT CYLINDER 0, 
SET FOR SECTOR 23 


TO CONVERT CYL. NO TO DECIMAL 
ADDRESS OF SOURCE 

ADDRESS OF DESTINATION 

INSERT ID IN PRINT 


TO START I/O SUBROUTINE 
FUNCTION CODE (CONTROL) 
CONTEOL CODE (SEEK) 
CONTROL FIELD ADDRESS 
GCOD RETURN 


ERROR ON SIO 

TO PRINT ERROR 
FLAGS 

LENGTH 

MESSAGE ADDRESS 
TC DCP ERROR HALT 
HALT ID 


TO VERIFY HEAD POSITION 
GOOD RETURN FROM VERIFY OPERATION 


INSERT ID IN PRINT 

TG I/O SUBROUTINE 

FUNCTION CODE, (READ) 
CONTROL CODE, (IDENTIFIER) 
CONTROL FIELD ADDEESS 

GOOD RETURN 

PUT ??2 IN ADDRESS READ 
CHECK FOR ANY DATA TRANSFER 
JUMP IF NO 

TO CONVERT ADDRESS JUST 
SOURCE 

DESTINATION 


READ 


TO PRINT ONEXPECTED ERROR 
TO PRINT 3RD LINE 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

TO DCP HALT 

HALT ID 


COMPARE EXPECTED ID AND ID READ 
JUMP IF EQUAL 

CHECK FOR DEFECTIVE TRACK 

JUMP PAST ERROR IF YES 

CHECK FOR ALTERNATE TRACK 

TO PRINT SEEK ERROR MESSAGES 
STEP TO NEXT CYLINDER 


COMPARE NEW NUMBER WITH MAXIMUS. 
ROUTINE EXIT 
NOT DONE, SEEK NEXT CYLINDER. 


CLSO'THE PREVIOUS ERRORS OCCURRED AFTER DOING A READ ID* 


O1MAR71 
571573 


PRCG ID OadE-3 
PAGE 2 


© 


oO 


© 


Oo 9 9 O98 O89 O 


Oo 08 O 9 QO O cy. 7 


Oo 09 808 9 Oo 86 


9 O@ Oo 9 


oO 0 9 a 9 9 0 0 Oo @G @ 


QO 


eo 9 080 9 O 


Oo oO 9 


© 0 8 CG 8 4 0 4 


C: 


IBM MAINTENANCE DIAGNOSTIC PROGRAA 


A0E3 
ERR LOC 


0cé64u 
océc 
OCT74 
oc7c 
0c84 
ocsc 
OCBE 
9C96 
OCSA 
OCA2 
OCAA 
OCB2 
OCBA 
0cCc2 
OCCA 
OcCcD 
ocDS 
OCDD 
OCE3 
OCEB 
OCF3 
OCF9 
OD01 
0D09 
ODOE 
0D16 
ODIC 
0D23 
OD2A 
0D31 
0D33 
0D35 


DATE 
EC NO. 


SEEK FUNCTION 
OBJECT CODE 


C9 D6EYE2Z40C5D9D9 
D6D9E240D6C 3C 3E4& 
DIDIC5SCH4OCIC6E3 
CS5D940C4 DGC 9DSC7 
SO0C1I8OD9CSCICHUO 
coc4 
SOCTEIJYOCIESD34B 
SOE7TE7VE7 
E3IC8CS4ODTDICSES 
CILT6ESE2ZKOCSD9ODS 
D6 DIEZ4O DEC3C3ES 
DI DICSC4YOEG6C BCI 
DICSSOE2ZCSC5D2C9 
CS5C740C 3E8D34B40 
EV E7£E7 

E2C5C5D2C SC440E3 
D64OC3IE8D3CIDSCH 
CSD940E7TE7E7 
CiDIDICIESCSCHUO 
ClTE34¥OC3E8D3C9D5 
CUM BYOETETE7 
E6C8C9D3C 5S40E2C5 
C5 D2C9DSCTNOETET 
EVEVEVE7TET 
RO0C6D9DEDASOC3ZE8 
D34B4OETETE7 
C6D6D9E6CID9IC4 
C9D54 0D9C 5E54B 
BOU0KONOROLORO 
0001 

C002 

00 


138.270 
571512 


TEST 


ADDR 


0c99 


occc 


OCE2 


OcF8 


ODOD 


OD1B 


0D22 
0D29 
0D30 
0D32 
0D34 
OD35 


OGAPR70O 
571516 


STST 


186 
186 
186 
186 
186 
186 
187 
187 
188 
188 
188 
188 
188 
188 
188 
189 
189 
189 
190 
190 
190 
191 
191 
191 
192 
192 
193 
194 
195 
196 
197 
198 


SOURCE 


RDIDEB 


ERRORS 


SEEKTO 


SEEKAT 


SEEKDE 


OLDADR 


FORWD 
REV 
SVNBLK 
ONE 
THO 
TKCTR 


22mAY70 
571513 


5129626 
2a 


PART "0. 
PAGE 


STATERENT 

Dc CL12° aT CYL. xxx* 

pc CLS1°THE PREVIOUS ERRORS OCCURRED WHILE SEEKIRG CYL. XXX* 
DC CL22*SEEKED TO CYLINDER XXX* 

DC CL22*ARRIVED AT CYLIND. XXxX* 

Dc CL21°WHILE SEEKING XXXXXXX¢ 

DC CL14* FROM CYL. XXX* 

pc CL7* FORWARD? 

DC CL7°IB REV. ° 

pc cL7* ® 

Dc XL2°01* 

rc XL2*02° 

DC XL1*0! 
07AU0G70 018287 1 PROG ID OAOE-3 
571531 571S$73 PAGP 2a 


) 


() 


re oe 


GRRE che ume, oy) tm 


IBM BAINTENANCE DIAGNOSTIC PROGRAR 


AOE3 


ERR LOC 


0D 36 
0D37 
0D38 


OD3A 
OD3E 
OD4s2 
OD48 
OD4C 
0p50 
0D52 


OD54 
ODS8 
OD5c 
ODSD 
OD5E 
0D60 
OD64 


OD68 
ODE6C 
OD6D 
OD6E 
0D70 
OD74 


OD76 
OD7A 


OD7TE 
OD82 
0D85 
0D87 
O0DBB 
ODBA 
OD8E 
0D94 
0D98 
OD9B 
OD9F 
ODA1 


ODA3 
ODA7 
ODAB 
ODAC 
ODAD 
ODAF 
OLB3 


ODB5 
ODBB 
ODBE 
0DC2 
opcs 
ODCc9 
ODCD 
ODD1 
ODDS 
ODDS 
ODDB 


DATE 
EC NO. 


SEEK FUNCTION 


OBJECT CODE 


02 
00 
ODDF 


3D 00 
co 81 
oc 00 
3c 5c 
co 87 
1355 

occc 


3c 0S 
co 87 
00 

00 
1354 
co 8&7 
co 87 


co 87 
06 

33 
occc 
co 87 
A009 


co 87 
co 87 


OB 26 
0a10 
1355 
1356 
1703 


15E3 
T3AD 


OD76 
15BC 


O27A 


0222 


159¢ 
OpCcD 


15E3 
13AD 


ODBS 
oc99g 
1359 
1A 

1703 


T5RC 
O21A 


0222 


1359 
OF 
1358 


1358 
135¢ 
1355 
0216 
1257 


ODRC 


T3NARTO 
53715142 


0B27 


1353 


1355 


TEST 


ADDR 


0D36 
0D37 
0D39 


OD51 
0D53 


On5c 
OD5D 
ODSF 


oréec 
OD 6D 
OD6F 


0D75 


OD86 
OD 87 
OD89 


ODAO 
ODA2 


ODAB 
OnaACc 
CDAE 


ODB4 


ODDA 


C6APRT7O 
571516 


STST 


200 
201 
292 
203 
204 
205 
206 
207 
208 
209 
2170 
211 
212 
213 
2T& 
215 
216 
2? 
278 
219 
226 
221 
222 
223 
228 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
226 
237 
236 
239 
240 
2481 
282 
243 
288 
2a5 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
253 
266 
261 
262 
263 
264 
265 
266 





SOURCE STATEMENT 


* 
* 


x 


RTN2 


RIN2A 


RIN2ZB 


RTN2C 


BIN2D 


RIN2E 


225 RIF 
571573 


MVC 


O1AUG7O 
571534 


ROUTINE WO. 
ONE CYLINDER 


02, 


ROUTINE PREFACE 


IL1*02! 
XL 700! 
AL2 (RTN3) 


SETSH,0 

SETDSK 

WRTDFC+1(1) ,TRACK# 
WRIDFC+2,X'5C! 

CVD 

AL2 (WRT DFC+1) 

AL 2 (ERROB9) 


SNSID,X*09* 
STRTIO 

XL 1°60! 
XL1*00° 

AL 2 (WRTDFC) 
RTN2B 
PRTSNS 


PRINT 

XL 1°06* 
IL1'51# 

AL 2 (ERRORS) 
RALT 
XL2'aGO9* 


VERIFY 
RTN2E 


SNSID,X*OF* 
STRTIO 
XL1°01° 
XL1'O18 

AL 2 (RDDFC) 
RTW2D 
RDIDER (3) ,THREEQ 
RDDFC+1,X'FF* 
RT N2D 

cvD 

AL2 (RDDFC¢1) 
AL2 (RDIDER) 


PRTSNS 
PRING 
XL1"'06* 

IL 1"62¢* 
AL2(RDIDER) 
HALT 
XL2*ACOF® 


RDDFC+1(1) ,WRTDFC41 
RTH2E 
RDDFC, X'02? 
RT N2E 
RDDFC,X*01' 
SEEKER 
WRTDFC#+1,0 
LI BK 

STEPR 

AL2 (ONE) 
RTN2A 


CIHART1 
571573 


PART NO. 5129626 
PAGE 3 


SEEK EACH CYLINDER FROM MAXISUM TO ZERO 


AT A TIME * 
s 
ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 
HAVE PARAMETERS BEEN ENTERED? 
BRANCH IF NO 
SET INITIAL ADDRESS TO MAXIMUS 
SET FOR SECTOR 23 
TO CONVERT CYL. NO TO DECIMAL 
ADDRESS OF SOURCE 
ADDRESS OF DESTINATION 
INSERT ID IN PRINT 
TO I/O SUBROUTINE 
FUNCTION CODE (CONTROL) 
CONTROL CODE (SEEK) 
CONTROL FIELD ADDRESS 
GCOD RETURN 
ERROR RETURN 
TO PRINT ERROR 
FLAGS 
LENGTH 
ADDRESS OF LAST PRINT CHARACTER 
TO DCP ERROR HALT 
HALT ID 
TO VERIFY HEAD POSITION 
GOOD RETURN FROM VERIFY OPERATION 
INSERT ID IN PRINT 
TO I/O SUBROUTINE 
FUNCTION CODE, (READ) 
CONTROL CODE, (IDENTIFIER) 
CONTROL PIELD ADDRESS 
GOOD RETURN 
PUT ??? IN ADDRESS READ 
CHECK FOR ANY DATA TRANSFER 
JUBP IF HO 
TO CONVERT ADDRESS JUST READ 
SOURCE 
DESTINATION 
TO PRINT UNEXPECTED ERROR 
TO PRINT 3RD LINE 
FLAGS 
LENGTH 
MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 
CCMPARE ID READ AND EXPECTED ID 
JUMP IF EQUAL 
CHECK FOR DEFECTIVE TRACK 
JUMP PAST ERROR IF YES 
CHECK FOR ALTERNATE TRACK 
TO PRINT SEEK ERROR MESSAGES 
IS NEW ADDRESS EQUAL TO ZERO? 
ROUTINE EXIT 
REDUCE SEEK ADDRESS BY OBE 
LGOP TO WEXT SEEK 
PROG ID ChOB-3 
PAGE 3 
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G 


oO 


QO 
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ce 
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) 


=) 
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vy 


oO 


«> ey 2) oO 0) O 


(> Oy 


oO 


() 


“ot 
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IBA MAINTENANCE DIAGNOSTIC PROGRAR 


AO E3 


ERR LOC 


ODDF 
ODEO 
ODE1 


ODE3 
ODE7 
ODEB 
ODEF 
ODF3 
ODF7 
ODF9 


ODFB 


ODFF 
0E03 
OEOu 
O£0S 
0 £07 
OEOB 


OEOF 
0E13 
OET& 
OES 
0£17 
OE1B 


OED 
OE21 


OE25 
0E29 
OE2D 
OE2E 
OE2F 
0F31 
0E35 
OE3B 
OF3F 
OE&2 
OEG6 
OE&8 


OESA 
OFEUE 
OE52 
0553 
OES4 
0556 
OESA 


OES5SC 
OF62 
0565 
OF69 
OF6C 
OE70 
OE74 
OE78 
OE7A 
OE80 
OEEu 


SEEK 


OBJECT CODE 


03 
OE88 


3D 00 
co 81 
3c 00 
3c SC 
co 87 
1355 

occc 


3c 09 


co 87 
06 

oo 
1354 
co 87 
co 87 


co 87 
06 

33 
occc 
cO 87 
A009 


co 87 
cO 87 


3c OF 
co 87 


1358 


FUNCTION TEST 


0B 26 
0A10 
1355 
1356 
1703 


15E3 


13AD 


OED 
15BC 


O21A 


0222 
159C 
OE74 


1553 
13AD 


OES5SC 
ocs9 
1359 


1703 


I5BC 
O21A 


T3MA.70 


$731572 


1353 


1355 


6527 


ADDR STMT 


ODDF 
ODEO 
ODE2 


ODF8 
ODFA 


0EO3 
OEO4 
OEO6 


0E13 
OE 14 
OE16 


OEIC 


OE2D 
OE2ZE 
0£30 


OE&7 
OES 


OE52 
0253 
0E55 


OESB 


OE7S 


OSAPRTO 


571516 


268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 


SOURCE STATEMENT 


* 
* 
* 


RTR3 


RIN3A 


RTN35 


RTN3C 


RTW2D 


RTNSE 


22RE 770 
571573 


ROUTINE NWO. 03, SEEK EACH CYL. 


PART 
PAGE 


¥O. 5129626 


3a 


FROM ZERO TO SAXISOS 


TWO CYLINDERS AT A TIBEZ s 
ROUTINE PREFACE 

DC XL1*03! RCUTINE NUSBER 

DC XL1°008 ROUTIBZ FLAGS 

DC AL2 (RTR4) ALDRESS OF NEXT ROUTINE 

CLI SETSW,O BaVE PARASETERS BEEN ENTERED? 
BE SETDSK BRANCH IF HO 

BVI WRTDFC+1,0 SET TO START AT CYLINDER 0, 

BVI WRIDFC+2,x "5c? SECTOR 23 

B cvD TO CONVERT CYL. NO TO DECIMAL 
Dc AL 2 (WRTDFC#1) ADDRESS OF SOURCE 

DC AL2 (ERROR9) ALDRESS OF DESTINATION 

MVI SNSID,x*09* IWSEPT ID IR PRINT 

B STRTIO TO START I/0 SUBROUTINE 

pc XL1*00# FURCTION CODE (CUBTROL) 

Dc XL1°00? COBTEOL CODE (SEEK) 

DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 

B RTN3B GOOD RETURS 

B PRTSKS ERROR CH SIO 

B PRINT TO PRIKT ERROR 

pc XL 1"06* FLAGS 

Dc IL1*51! LENGTH 

pc AL2 (ERRORY) ADDBESS OF LAST PRINT CHARACTER 
B HALT TG DCP ERROR FALT 

Dc XL2* A009" HALT ID 

B VERIFY TO VER{FY HEAD POSITION 

B RTN3E GOOD RETURN FROM VERIFY OPERATION 
MVI  SNSID,X*OF® INSERT ID IB PRINT 

B STRTIO TO I/O SUBROUTINE 

rc XL1*01" FUNCTIONS CODE, (READ) 

Dc XL1°01? CONTROL CODE, (IDEKTIFIER) 

pc AL2 (RDDFC) CONTROL FIELD ADDRESS 

B RTH3D GOOD REIUSs 

MVC RDIDER(3),THEEEC PUT 227 IB ADDRESS READ 

CLI RDDFC+1,X*FF* CHECK FOR ANY DATA TRAEBSFER 

JE RTN3D JUMP IF WO 

B CVD TO CONVERT ADDRESS JUST READ 

Dc AL2 (RDDFC+ 1) SOURCE 

DC AL2 (RDIDER) DESTINATION 

B PRTSKS TC PRINT UNEXPECTED ERROR 

B PRINT TO PRINT 3RD LINE 

DC XL1"06* FLAGS 

pc IL 1" 62° LENGTH 

Dc AL2 (RDIDER) MESSAGE ADDRESS 

B HALT TO DCP HALT 

pc XL2 *AOOF® HALT ID 

CLC RDDFC#1(1),8RTDFC+1  #COERPARE EXPECTED ID AMD ID READ 
JE RTH3E JUSP IF EQUAL 

CLI RDDFC,x*02* CHECK FOR DEFECTIVE TRACK 

JE RIN3E JUBP PAST ERROR IP YES 

CLI apDDFCc,x*01? CHECK FOR ALTERNATE TRACK 

BNE SEEKER TO PRINT SEEK ERROR MESSAGES 

B STEPF STEP TO HEXT CYLINDEE 

pc AL2 (TEO} 

CLC WRTDFC#1(1), TRACK? COSPRRE NEW NOMBER WITH HAXIAUK. 
BE LINK ROOTINE EXIT 

8 Br RSA NOT DONE, SEEK HEET CYLINDER. 
OVAUG7O GitB2R7i PROG ID OACE-3 
571531 574593 PAGE 23 
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tw 


c> 








ISH HAINTENANCE DIAGNOSTIC PROGRAS 


AOE SEEK FUNCTION TEST 


we ee le 


Bee ee ee 


SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STAT 
336 * 
337 * 
338 
339 * 
340 
O£88 O48 OF88 341 RTNS 
0289 00 QOE89 342 
OESA OF3F OE8B 343 
344 
OE8C 3D 00 0B26 345 
OE90 CO 81 0A10 346 
OE98 OC 00 1355 0B27 347 
GCESA 3C SC 1356 348 
SESE CO 87 1703 349 RITNGA 
OEA2 1355 OEA3 350 
OEFA& OCCC OFAS 351 
OEAG 3C 09 1583 352 
OEAA CO 87 13AD 353 
OEAE 00 OEAE 354 
QEAF 00 OEAF 355 
OEBO 1354 CEB1 356 
OEB2 CO 87 OFCS8 357 
O£B6 CO 87 15BC 358 
OEBA CO 87 021A 359 
QEBE 06 OEBE 360 
OEBF 33 OEBF 361 
BO ECO OCCC OEC1 362 
GEC2 CO 87 0222 363 
OEC6 A009 OEC7T 364 
365 
OECB CO 87 159C 366 RINSB 
OECC CO 6&7 OFIF 367 
368 
GEDO 3c OF 1553 369 RTN&C 
oepa co 87 13aD 370 
COEDS 01 OEDS 371 
GED9 01 QOED9 372 
OEDA 1358 OEDB 373 
Gepc CO 87 OFOT 374 
GEEG OC 02 0C99 1353 375 
GEE6 3D FF 1359 376 
GEEA F2 81 1A 377 
QEED CO 87 1703 378 
GEF1 1359 OEF2 379 
GEF3 0C99 OEF4 380 
GEFS CO 87 15BC 381 
OZFS cO 87 O21A 382 
SOEFD 06 OEFD 383 
QEFEZ 3E OEFE 384 
OEFF CC99 OFOO 385 
OFO0T CO 87 0222 386 
OF05 AOOF OFO6 387 
388 
OFO7 OD 00 1359 1355 389 RTNGD 
OFOD F2 81 OF 390 
OF190 3D 02 1358 391 
OFS F2 81 08 392 
OF17 3D 01 1358 393 
CFIB cO 01 135C 394 
OFIF 3D 00 1355 395 RTNUE 
GF23 CO 81 0216 396 
OF27 CO 87 12E7 397 
9?P2B 0D32 OF2C 398 
OF2D 3D 00 1355 399 
OF31 CO 81 0216 400 
OF35 CO 87 1257 401 
OF39 0D32 OF3A 402 
OF38 CO 8&7 OEYE 403 
DATE 13 MART7O OG APR70 22m AY70 
fC #0. 571512 571516 571513 


CLC 


CLI 


01A0G70 
$7 1531 


ROUTINE NO. 
TWO CYLINDERS AT A 


ROUTINE PREFACE 


XL1°04! 
XL1"00? 
AL2 (BTHS) 


SETSH,0 

SETDSK 
WRTDFC+1(1), TRACK# 
WRT DFC+2,x'°SC! 
CVD 

AL2 (WRTDFC4#1) 
AL2 (ERROR) 
SNSID,X*09* 

ST RTIO 

XL1*00° 
XL1°00! 

AL2 (WRTDFC) 
RTN4B 

PRTSNS 

PRINT 

XL1 #06 ¢ 
IL1*51! 

AL2 (ERROR9) 
HALT 

XL2*A009# 


VERIFY 
RTNGE 


SNSID,X"OF? 
STRTIO 
XL7*07° 
XL1*01! 

AL2 (RDDFC) 
RTN4D 
RDIDER (3) , THREEQ 
RDDFC+1,X'FF? 
RTW&D 

CVD 

AL 2 (RDDFC+ 1) 
AL2(RDIDER) 
PRTSNS 

PRINT 

XL1°06* 

IL 1°62* 

AL2 (RDIDER) 
HALT 
XL2*AOOF* 


RDDFC+1(1} , WRTDFC+1 
RT NSE 
RDDFC,X*02°* 
RTNGE 
RDDFC,X'07° 
SEEKER 
WRTDFC+1,0 
LINK 

STEPR 

AL2 (ONE) 
WRTDFC+1,0 
LINK 

STEPR 

AL 2 (ONE) 
RTNGA 


01MABR71 
571573 


PART NO. 5129626 
PAGE 4 


O&, SEEK EACH CYLINDER FROM MAXIMUS TO ZERO 
TIME 


s 
ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 
HAVE PARAMETERS BEEN ENTERED? 
BRANCH IF NO 
SET INITIAL ADDRESS TO MAXISUS 
SET FOR SECTOR 23. 
TO CONVERT CYL. NO TO DECIMAL 
ADDRESS OF SOURCE 
ADDRESS OF DESTINATION 
INSERT ID IN PRINT 
TO I/0 SUBROUTINE 
FUNCTION CODE (CONTROL) 
CONTROL CODE (SEEK) 
CONTROL FIELD ADDRESS 
GCOD RETURN 
ERROR RETURN 
TO PRINT ERROR 
FLAGS 
LENGTH 
ADDRESS OF LAST PRINT CHARACTER 
TO DCP ERROR HALT 
HALT ID 
TO VERIFY HEAD POSITION 
GOOD RETURN FROM VERIFY OPERATION 
INSERT ID IN PRINT 
TO 1/0 SUBROUTINE 
FUNCTION CODE, (READ) 
CONTROL CODE, (IDENTIFIER) 
CONTROL FIELD ADDRESS 
GOOD RETURN 
PUT 2??? IN ADDRESS READ 
CHECK FOR ANY DATA TRANSFER 
JUMP IF NO 
TO CONVERT ADDRESS JUST READ 
SOURCE 
DESTINATION 
TO PRINT UNEXPECTED ERROR 
TO PRINT 3RD LIKE 
FLAGS 
LENGTH 
MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 
COMPARE ID READ AND EXPECTED ID 
JUMP IF EQUAL 
CHECK FOR DEFECTIVE TRACK 
JUMP PAST ERROR IF YES 
CHECK FOR ALTERNATE TRACK 
TO PRINT SEEK ERROR MESSAGES 
TEST CYLINDER ADDRESS FOR ZERO 
ROUTINE EXIT 
REDUCE SEEK ADDRESS BY ONE 
IS NEW ADDRESS EQUAL TO ZERO 
ROUTINE EXIT 
REDUCE SEEK ADDRESS BY ONE 
LOOP TO WEXT SEEK IF WO 
PROG ID OA0E-3 
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SOURCE STATESENT 


AOE3 SEEK FUNCTION TEST 
ERR LOC OBJECT CODE ADDR STT 
So 405 * 
806 * 
407 * 
° 408 
OP3F 0S OF3F 409 RTNS 
OF80 00 OF4O 410 
& OF41 OFES OF42 411 
u42 
OF43 3D 00 0526 413 
o OP47 CO 81 0A10 414 
OF4B 3C 00 1355 415 
OFUP 3c SC 1356 416 
C 417 
OF53 CO 87 1703 418 RTNSA 
OFS7 1355 OF58 419 
G OFS9 OCCC OFSA 420 
421 
OF5B 3C 09 15E3 422 
CG OPSF CO 87 13AD 423 
0F53 00 OF63 424 
GF64 00 OF64 425 
S OF6S 1354 OF66 426 
OF67 CO 87 OFT7D 427 
OF6B CO 87 15BC 428 
o OP6F CO 87 021A 429 
OF73 06 OF73 430 
OF74 33 OF74u 431 
oF75 Occc OF76 432 
OF77 CO 87 0222 833 
on OF7B A009 OF7C 434 
oS 835 
OF7D CO 87 159C 436 RTNSB 
0f81 CO 87 OFDL 437 
2 438 
OF8S 3C OF 15F3 639 RTNSC 
OF89 CG 87 13AD 44d 
S OF8D 01 OF8D 4842 
OPBE 01 OFSE 442 
OFBF 1358 OF90 443 
G OF91 CO 87 OFBC 644 
OF9S OC 02 0C99 1353 BBS 
OF9B 3D FF 1359 B46 
CG OFSF F2 81 1A au7 
OFA2 CO 87 1703 &uB 
OFA6 1359 OFA? 449 
G OFAS 0099 OFAS 450 
851 
es OFAA CO 87 158C u52 
we OFAE CO 87 O21A 453 
OFB2 06 OFB2 454 
~ OFB3 3E OFB3 455 
& OFE4 0C99 OFBS &56 
OFB6 CO 87 0222 457 
OFBA AOOF OFBB 458 
G 459 
OFBC OD 00 1359 1355 460 RTNSD 
OFC2 F2 81 OF 461 
C OFCS 3D 02 1358 462 
OFC9 F2 81 08 463 
: OFCC 3D 01 1358 uou 
C OFDO CO 01 135C 865 
OFD’ CO 87 129D 466 RTNSE 
Pe OFD8 OFE8 OFD9 467 
oO OFDA OD 00 1355 0827 u68 
GOFEO CO 84 0216 469 
OFES CO 87 OFS3 370 
471 
OFE8 09 OFE8 472 NINE 
DATE 1. HARTO O6APR70 22mAY70 
EC NO. 571512 571516 571543 


ROUTINE NO. 
NINE CYLINDERS 


ROUTINE PREFACE 


pc XL1°0S* 

pc XL1°00* 

pc L2 (RTR6) 

CLI SETS#,0 

BE SETDSK 

MVI WRTDFC+1,0 
SVI WRIDPC+2,x'5C® 
B cvD 

pc AL2(WRTDFC¢1) 
pc AL2 (ERRORS) 
AVI SNSID,X*09* 

B STRTIO 

pc XL1*"00* 

DC XL1*00° 

Dc AL2 (WRTDFC) 

B RTNSB 

B PRTSNS 

B PRINT 

pc XL1*06* 

pc IL1*51° 

DC AL 2 (ERROR) 

B HALT 

pc XL2*Aa0G9* 

B VERIFY 

B RINSE 

NVI SNSID,X*OF® 
B STRTIC 

pc XL1°01! 

pe XL1°01¢ 

pc AL2 (RDDFC) 

B RBTNSD 

NVC RDIDER(3),THKREEQ 
CLI R8DDFC+1,X*FF* 
JE RT NSD 

B cvD 

pc AL2 (RDDFC+¢ 1) 
DC AL2 (RDIDER) 

B PRTSHS 

B PRINT 

DC XL1°06¢ 

pc IL 1°62 

pc AL2 (RDIDER) 
B HALT 

pc XL2°AOOF® 
CLC RDDFC+1(1),8RTDFC+1 
JE RTNSE 

CLI RDDFC,xX*02" 
JE RT NSE 

CLI RDDFC,x*01* 
BNE SEEKER 

B STEPF 

pc AL2 (NINE) 
CLC WRTDFC+1(1), TRACK# 
BH LINK 

B RT SA 

pc IL1#9¢ 
01AUG70 O1NABR71 
571531 571573 


OS, SEEK EACH CYL. 
AT A TIBE s 


{ 
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FROM ZEBO TO MAXISUB, 


ROUTINE KUSBER 
ROUTINE FLAGS 
ACDRESS OF MEXT ROUTINE 


HAVE PARASETERS BEES 
BEANCH XP HO 

SET TO START AT CYLINDER O, 
SECTOR 23 


ENTERED? 


TO CONVEST CYL. WO TO DECIBAL 
ADDRESS OF SOURCE 
ALDRESS OF DESTINATIOR 


IBSERT ID IN PRINT 

TO IvO SUBROOTI BE 
FURCTIOR CODE (CONTROL) 
CONTROL CODE (SEEK) 
CCETROL FIELD ADDRESS 
GOOD RETUORS 

ERROR O8 SIO 

TO PRINT ERROR 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 
TO DCP ERROR HALT 

HALT ID 


TO VERIFY HEAD POSITION 
GOOD RETUEN FEROS VERIFY CFERATION 


INSERT ID IB PRIST 
TO 170 SUBROOTINE 


FONCTION CODE, (READ) 
CONTRIL CODE, (IDENTIFIER) 
CONTROL FIELD ADDRESS 


GOOD RETURN 

PUT 227 IN ADDRESS READ 
CHECK FOR ANY DATA TRASSFER 
JUNP IF NO 

TO COSVERT ADDRESS 
SOURCE 

DESTISATION 


JUST READ 


TO PRINT UNEXPECTED ERROR 
TO PRINT 3RD LISE 

FLAGS 

LENGTH 

BESSAGE ADDRESS 

TO DCP HALT 

HALT ID 


COMPARE EXPECTED ID AND ID READ 
JGHP IF EQUAL 

CHECK FOR DEFECTIVE TRACK 

JUSP PAST ERROR iF YES 

CHECK FOR ALTERNATE TRACK 

TO PRINT SEEK ERROR MESSAGES 
STEP TO NEXT CYLINDER 


COHPARE WEW NUMBER WITH MAXIAUG. 
ROUTINE EXIT 
NOT DONE, SEEK NEXT CYLINDER. 


PROG ID OAOE-3 
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IBB MAINTENANCE DIAGNOSTIC PROGRAS 


AOQE3 


ERR LOC 


OFES 
OFEA 
OFEB 
OFED 
OFF1 
OFFS 
OFFS 
OFFF 
1003 
7005 
1007 
10CB 
T00F 
1010 
1071 
10173 
1017 
10 1B 
1O1F 
10 20 
1021 
1023 
1027 


1029 
102D 


1031 
4035 
1039 
1O3A 
1038 
103D 
10481 
1047 
1048 
IO4E 
1052 
1054 
1056 
105A 
1055 
105F 
1060 
1962 
1066 


1068 
TOGE 
4071 
1075 
1078 
107C 
1080 
1084 
1088 
108C 
3090 
1092 
1098 
109C¢ 
70a0 
10a5 


BATE 
Ec wo. 


SEEK FUNCTION TEST 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
u7u * ROUTINE NO. 06, 
a75 * NINE CYLINDEBS AT 
&76 
u77 * ROUTINE PREFACE 
478 
06 OFE9 479 RTN6 DC XL1*°068 
00 OFEA 480 DC XL1*00# 
10A5 OFEC 481 pc AL2 (RTN7) 
3D 00 0B26 482 CLI SETSW,0 
CO 81 0A10 483 BE SETDSK 
Oc 00 1355 0B27 484 MVC WRTIDFC+1(1) ,TRACK# 
3c 5C 1356 885 MVI WRIDFC+2,x'5c 
CO 87 1703 286 RTN6A B cvD 
1355 1004 487 DC AL2 (WRTDFC+1) 
occc 1006 488 DC AL2 (ERRORY) 
3C 09 15E3 489 MVI  SNSID,X*09° 
CO 87 13AD 490 B STRTIO 
00 100F 491 DC X1L1°00" 
00 1010 492 ne L1*008 
1358 1012 493 pc AL2 (WRIDFC) 
‘CO 87 1029 494 B RTN6B 
cO 87 15BC 495 B PRTSNS 
CO 87 021A 496 B PRINT 
06 101F 497 DC XL1*°06" 
33 1020 498 pc IL1*°51° 
occc 1022 499 DC AL2 (ERROR9) 
CO 87 0222 500 B HALT 
A009 1028 501 pc 1L2"a009° 
502 
cO 87 159C 503 RTN6B B VERIFY 
cO 87 1080 504 B RINGE 
505 
3c OF 1553 506 RTN6C MVI  SNSID,X*OF* 
CO 87 13AD 507 B STRTIC 
01 1039 508 DC XL1°01° 
01 103A 509 DC XL1*018 
1358 103c 510 DC AL2 (RDDFC) 
cO 87 1068 511 B RT NED 
0c 02 0C99 1353 512 MVC RDIDER(3),THREEQ 
3D FF 1359 513 CLI RDDFC+1,X'FF* 
F2 81 1A 514 JE RT R6D 
CO 87 1703 515 B cvD 
1359 1053 516 DC AL2 (RDDFC+ 1) 
0c99 1055 517 pC AL2 (RDIDER) 
cO 87 15BC 518 B PRTSNS 
CO 87 021A 519 B PRINT 
06 105E 520 Dc XL1°06* 
3E 105F 521 DC IL1*62¢ 
0c99 1061 522 DC AL Z (RDIDER) 
cO 87 0222 523 B HALT 
AOOF 1067 524 DC XL2*a00F* 
525 
OD 00 1359 1355 526 RTN6D CLC RDDFC+1(1) ,WETDFC+1 
F2 81 OF 527 JE RYN6E 
3D 02 1358 528 CLI RDDFC,xX'02! 
F2 81 08 529 JE RTN6E 
3D 01 1358 530 CLI RDDFC,X‘'01* 
CO 01 135¢ 531 BNE SEEKER 
3c 09 10A4 532 RTN6GE MVI COUNTR,9 
3D 00 1355 533 RTN6F CLI WRTDFC+#1,0 
CO 81 0216 534 BE LINK 
CO 87 1257 535 B STEPR 
0D32 1091 536 DC AL2 (OBE) 
OF 00 10a4% 0D32 537 SLC COUNTER (1) ,ONE 
3D 00 10A4 538 CLI COUNTR,O 
CO 81 OFFF 539 BE RT NGA 
CO 87 1084 540 B RTNG6F 
00 10A% 541 COUNTR DC XL1°0* 
13MART7O 06APR70 22HAY70 01A0670 O1MAR71 
571512 571516 571513 571531 571573 


PART NO. 


5129626 
PAGE 5 


SEEK EACH CYLINDER FROM MAXIMUM TO ZERO 
A TIME * 


s 


ROUTINE NUMBER 

ROUTINE FLAGS 

ADDRESS OF NEXT ROUTINE 

HAVE PARAMETERS BEEN ENTERED? 
BRANCH IF NO 

SET INITIAL ADDRESS TO MAXIMUS 
SET FOR SECTOR 23 

TO CONVERT CYL. NO TO DECIMAL 
ADDRESS OF SOURCE 

AEDRESS OF DESTINATION 

INSERT ID IN PRINT 

TO I/O SUBROUTINE 

TUNCTION CODE (CONTROL) 
CONTROL CODE (SEEK) 

CONTROL FIELD ADDRESS 

GOOD RETURN 

EBROR RETURN 

TO PRINT ERROR 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 
TO DCP ERROR HALT 

HALT ID 


TO VERIFY HEAD POSITION 
GOOD RETURN FROM VERIFY OPERATION 


INSERT ID IN PRINT 

TO I/Q SUBROUTINE 

FUNCTION CODE, (READ) 
CONTROL CODE, (IDENTIFIER) 
CONTROL FIELD ADDRESS 

GOOD RETURN 

PUT 7277 IN ADDRESS READ 
CHECK FOR ANY DATA TRANSFER 
JUMP IF NO 

TO CONVERT ADDRESS JOST READ 
SOURCE 

DESTINATION 

TO PRINT UNEXPECTED ERROR 
TO PRINT 3RD LINE 

FLAGS 

LENGTH 

MESSAGE ADDRESS 


TO DCP HALT m 


HALT ID 


CCMPARE ID READ AND EXPECTED ID 
JUMP IF EQUAL 

CHECK FOR DEFECTIVE TRACK 

JUMP PAST ERROR IF YES 

CHECK FOR ALTERNATE TRACK 

TO PRINT SEEK ERROR MESSAGES 
SET STEPPING COUNTER TO NINE 

IS NEW ADDRESS EQUAL TO ZERO 
ROUTINE EXIT 

REDOCE SEEK ADDRESS BY ONE 


REDUCE STEPPING COUNTER BY ONE 
TEST STEPPING COUNTER FOR ZERO 
LOOP TO NEXT SEEK IF WO 

REDUCE SEEK ADDRESS AGAIH 
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IBM MAINTENANCE DIAGNOSTIC PROGRAMS 


AOE3 


ERE LOC 


10a5 
10A6 
10A7 


1OA9 
10AD 
1081 
1085 
10B8 


10BC 
108F 


10C2 
10C6 
10C7 
10C8 
10CA 
10CE 
10D2 
10D6 
10DA 
10DB 
10DC 


10DE 
1CE2 
10 F4 


1GE8 
10EC 
10 F1 
10F4& 


10F9 
10FD 
1OFE 
10FF 
1101 
1105 
11409 
1108 


1105 
1111 
1115 
1119 
111A 
1118 
itp 
1121 


1123 
1327 


142B 
112F 
1133 
1134 
1135 
1437 
113B 
4141 
1145 
1148 
124aCc 


DATE 
EC NO. 


SEEK FUNCTION TEST 


OBJECT CODE ADDR 


07 10a5 
00 10A6 
1771 10A8 


c2 01 
38 01 


11BC 
11BB 
11BB 
7D FF 00 

cO 81 0216 


7D EE 00 
F2 01 26 


cO 87 13AD 

00 10C6 
01 10C7 
1354 10¢9 
cO 87 
3c OF 
cO &7 15BC 

cO 87 O21TA 

06 IODA 
36 10DB 
11B9 10DD 


TI7A 
15E3 


cO 87 
AOQOE 
cc 87 


0222 
10E3 
0216 


35 01 11BB 
up 00 00 0B27 
F2 8&4 £6 

ic 00 1355 00 


CO 87 13AD 

00 10FD 
00 IOFE 
13548 1100 
co 87 
co 87 
1355 
occc 


1123 

2703 
110A 
110¢C 


3c 09 
CO &7 15BC 

CO 87 O21A 

06 1119 
32 111A 
occc Wic 
co 87 
A009 


1553 


0222 
1122 


co 87 
cO 87 


159C 
IV7A 


3C OF 15E3 
CO 87 13AD 
01 1133 
01 1134 
1356 1136 
co 87 
Oc 02 0Cc99 
3D FF 1359 
F2 81 1A 
cO 87 1703 
1359 


1162 
1353 


T714D 


13. AR70 
571512 


O6APR70 
571516 


STHT 


5483 
54a 
545 
546 
547 
548 
549 
550 
551 
$52 
$53 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
5648 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
5 82 
583 
584 
5&5 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
603 
610 


SOURCE 


* 


RTN7 


RTN7A 


RTN7B 


RIN7C 


22NAY70 
571513 


STATEMENT 
ROUTINE WO. 07, 

Dc XL1°07* 

pc XL17*00? 

DC AL2 (RO) 

LA SKTBL,XR1 

ST PRALST, IB1 

L PRSLST,XB1 
CLI 0(,XR1),X*FF? 
BE LINK 

CLI 0(,XR1),X*EE® 
JNE RTHT7B 

B STRTIO 

pc XL1*00* 

pc XL1°Q18 

Dc AL2 (WRTDFC) 

B RTRT7E 

MVI  SNSID,X*OE* 

B PRTSNS 

B PRINT 

Dc XL1*06¢ 

Dc IL 1*5u¢ 

DC AL2 (RECALE) 

B HALT 

pC XL2* AQOE® 

5) LINK 

1 PRMLST,IR1 
CLC 0(1,XR1),TRACK® 
JH RTNTE 

MVC WRITDFC#1(1),0(,XR1) 
B STRTIO 

DC XL1 "0? 

DC XL7*0* 

Dc AL2 (WRTDFC) 

B RTN7C 

B CcvD 

pc AL2 (WRTDFC*1} 
pc AL2 (ERROR) 
NVI SNSID,X*09* 

B PRTSNS 

B PRINT 

DC XL1"06* 

pc IL1*50* 

DC AL2 (ERRORS) 

B HALT 

pe XL2*A003? 

B VERIFY 

B RT NTE 

M¥Yz  SNSID,X*OF® 

B STRTIO 

DC XL1°07" 

DC XL1*O18 

DC  AL2(RDDFC) 

B RTN7D 

MVC RDIDER (3), THREEQ 
CLI RDDFC+1,X*FF* 
JE RTN7D 

B CVD 

DC AL 2 (RDDFC+# 1) 
01A0G70 O1MAR71 
571531 571573 


BIXED LONG ABD SHORT SEEKS 


; 
! 


PART WO. 5129626 
PAGE ry 


ROUTINE BUABER 
ROUTINE FLAGS 


SET XR1 TO POINT TO 
BEGINNING OF PARASETEB LIST 
LOAD PARASETER POINTER 
CHECK FOR EXD OF TABLE 
EXIT IF AT EWD OF TABLE 





CHECK FOR RECALIBRATE 
JUBP IF KO 


TC BRECAL 

FUNCTION CODE, (CONTROL) 
CONTROL CODF, (RECALIGSATE) 
CCSTROL FIELD ALDRESS 

GCOD RETURW 

INSERT ID IR PEINT 

TG GECODE ERROR 

TO PRINT RECALIBRATE ERROR 
FLAGS 

LENGTH 

BESSASE ADDRESS 


TO DCP 
HALT ID 
TO bce 


HALT 


LCAD PARAMETER POINTER 
CHECK SEEK ADDRESS WITH BAZ. 
JuseP IF IT IS THO LABGE 
INSERT WEXT SEEK ADDBESS 


TO SEEK 

FUNCTION CODE, (CONTROL) 
COBTROL CODE, (SEEK) 
CONTROL PIELD ADDRESS 
GOOD RETURN 

TO CONVEST CYL. HO. 
SOURCE 

DEST 

PUT HALT ID IN ASG. 
TO PRINT STATUS 

TO PRINT SEEK ERROR 
FLAGS 

LENGTE 


MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO VERIFY HEAD POSITIOR 
GOOD RETURN FROsS VERIFY OPERATION 


PUT HALT ID I¥ 
TO READ ID 
FUNCTION CODE, (READ) 
CONTROL CODE , (ID) 
CONTROL FIELD ADDRESS 
GOOD RETUORS 

PUT 22? I ADDRESS READ 


SSG. 


CBECK FOR ANY DATA TRANSFER 

JUBP IF NO 

TO CONVERT ADDRESS JUST READ 

SOURCE 
PROG ID OAOE-3 
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IBM BAINTENANCE DIAGNCSTIC PROGRAS PART NO. 5129626 i IBM MAINTENANCE DIAGNOSTIC PROGRAN PART WO. 5129626 _ 
: PAGE 6 OG PAGE 6A M! 
AOE3 SEEK FUNCTION TEST o i CG AOE3 SEEK FONCTION TEST on 
| ; ‘ = 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
114E 0099 114P 611 pc AL 2 (RDIDER) DESTINATION Cy c J1E2 OF 11E2 673 pc IL 1*015° 
612 11E3 BC 41E3 674 pc IL1°188° 
1150 CO 87 15BC 613 B PRTSNS TO PRINT STATUS ERROR : | VIEW 10 11E8 675 pc IL 1*°016° 
1154 CO 87 O21A 614 B PRINT TO PRINT READ ID ERROR Gi c 11E5 BB 11E5 676 pc IL1°187° 
1158 06 19758 615 BC XL1"06! FLAGS T1E6 11 11E6 677 DC IL 7*017° 
1159 3E 1159 616 Dc IL1*62° LENGTH a 11E7 BA 11E7 678 bc 1L1°186° 
1158 0C99 115B 617 pc AL 2 (RDIDER) MESSAGE ADDRESS O11 So T1E8 12 11E8 679 DC IL1°018° 
115¢ CO 87 0222 618 B HALT TO DCP HALT 11E9 B9 11E9 680 pc IL1*185° 
1160 AOOF 1161 619 Dc XL2*aOOF! HALT ID gee) sae T1EA 13 11EA 681 DC IL 1*019° 
620 C |G 11EB BB 11EB 682 pc IL1°184° 
1162 OD 00 1359 1355 621 RTN7D CLC RDDFC4+1(1) ,WETDFC+1 COMPARE ADDRESSES V1EC 14 11EC 683 pc IL 1*0z0° 
1168 F2 81 OF 622 JE RTN7E JUMP IF EQUAL 11ED B7 11ED 684 pc IL1*183° 
116B 3D 02 1358 623 CLI RDDFC,X'02! CHECK FOR DEFECTIVE TRACK GC |S 11EE 15 11EE 685 DC IL 1*021° 
1316F F2 81 08 624 JE RTNTE JUMP PAST ERROR IF YES 11EF B6 11EF 686 pc IL1*182° 
1172 3D 01 1358 625 CLI RDDFC,X*01° CHECK FOR ALTERNATE TRACK . 11P0 16 11FO 687 pc IL 1*022° 
1176 CO 01 135C 626 BNE SEEKER TO PRINT SEEK ERROR MESSAGES Gy ¢ 41F1 BS 11F1 688 DC IL1°181° 
627 11F2 17 11F2 689 pc IL 1*023# 
147A OF 01 11BB 0D32 628 RTNJE ALC PRMLST(2),ONE STEP PARAMETER POINTER : 11F3 Ba 41F3 690 DC IL71°180°* 
1180 CO 87 10R1 629 B RTNTA DO NEXT ENTRY Cc © 11F4 18 11PF4 691 pc IL 1*024! 
630 11P5 B3 11F5 692 Dc IL1°179°* 
1184 E3CBC54OD7TDICSES 41AE 631 DC CL43°THE PREVIOUS ERRORS OCCURRED AFTER DOING A ° a ie 11F6 19 11F6 693 pc IL1*025° 
118C CODGEYE2U0CSD9DI 631 Cy fe 11F7 B2 11F7 694 DC IL1*°178° 
1194 DSDSEZ4OD6C 3C 3E4 631 11F8 1A 11F8 695 pc 1L1*026° 
119C DIDICSCHYOCICEE3 631 : | me 41F9 BI 11F9 696 pc IL1°1778# 
ie weet aa |S ira as Wes S38 Be Hhastves 
| 
ae pec ecae spac ocean? 11B9 632 RECALE DC CL11*RECALIBRATE* ( e 11FC 1¢ 11FC 699 pc IL 1°028* 
B7 C1E3C 632 nd 11FD AP 11FD 700 Dc IL7*175?# 
11BA 0000 11BB 633 PRMLST DC XL2*0? VIFE 1D 11FE 701 Dc IL1*029° 
11BC 638 SKTBL EQU * 11FF AE VIFF 702 DC IL17*1748 
11BC EE 11BC 635 pc XL1°EE* GC ¢ 1200 1£ 1200 703 DC IL1*0308 
v2 ea 11BD 636 pc IL 1* 100? 1201 AD 1201 7048 pc IL1*173°8 
BE 11BE 637 pc ¥L1°99# 1202 1F 1202 705 pc IL 1*031° 
V1BF 96 11BF 638 pc IL7°150# © 6 1203 Ac 1203 706 pc IL1°172° 
qice 92 11C0 639 pc IL1*146* 4208 26 1208 707 pc IL 1#032* 
C1 EE 11C1 640 pc XL1*EE* . 1205 AB 1205 708 pc IL1°171° 
Vice . 11C2 641 pc IL1°108 GC G 1206 21 1206 709 DC IL 1*033* 
Cc 1103 682 pe IL1* 80° 1207 AA 1207 710 pc IL7*170° 
171C4 4E 11C4 683 DC IL1'78* 2 1208 22 1208 711 pce IL 1°034° 
11c5 01 11c5 644 pc IL1¢1# G 6 1209 aa 1209 712 DC IL1*169® 
11C6 02 11C6 645 DC IL1'2¢ 120A 23 120A 713 pce IL1*035° 
11¢7 c9 11C7 646 pc IL 1*2018 a 120B A8 120B 7148 pc IL1*168°8 - 
jice ce 11C8 647 pc IL1*200* Cc US 120C 28 120cC 715 Dc IL 1*036° a 
a 11C9 648 pc IE 1*10* 120D aA? 120D 716 DC 11L1°1678 
no ue 11CA 689 pc ILi*12¢ Oo. 120EF 25 12GE 717 DC IZ1*037* 
11CB 650 PC IL1*200* Pp Faas 120F a6 120F 718 DC IL1"166° 
Bs o 11CC 0651 DC IL1*001°8 1210 26 1210 719 pc IL 1*038* 
c 11CD 652 pc IL1'1998 1211 AS 1211 720 pc IL1°165° 
11CE 02 11CE 653 DC IL1'002! GO 1212 27 1212. 721 pc IL 1*039* 
oe 32 ace 654 . ove IL1*193° 1213 A’ 1213 722 pc IL1°164° 
1D0 655 pc IL1*003! 1214 28 1214 723 pc IL1*0408 
11D1 CS 11D1 656 pc IL 1* 1978 G- " 1215 A3 1215 7248 D2 IL1°163* 
11D2 07 11D2 657 pc IL1*007# 1216 29 1216 725 pc IL1*041° 
11D3 cu 11D3 658 DC IL1*196# : 1217 A2 1217 726 pc IL1°162? 
11D& 08 11D4 659 DC IL1*008° G © 1218 2A 1218 727 DC IL 7*042°® 
ie - se 660 DC IL1*195* 1219 Al 1219 728 pc IL1°1617?* 
D6 661 pc IL1*009! 121A 2B 121A 729 pc IL 1*°043¢ 
11D7 C2 11D7 662 pc IL1*1948 Cc Oo 121B AO 121B 730 pc IL1*160' 
Hs 2 vies S62 Dc IL1°010!# 121¢ 2c 121C 731 pc IL1' Ou? 
D 64 pc IL 1" 1938 es 121D 9F 121D 732 DC IL1?759°8 
11DA OB 41DA 665 pe IL1#0171°? O° @ 121E 2D 121E 733 Dc 1L1*045" 
vee a Nace 666 pc IL 1#192# 121F 9E 121F 734 DC IL1*°153° 
DC 667 pc IL1*012¢ ta 1220 2E 1220 735 DC IL 17046? 
11DD BF 11DD 668 DC IL1*1918 Cc CG 1221 9D 1221 736 pc IL1°1578 
ne es ee 669 pc IL1°013¢ 1222 2F 1222 737 DC IL1*0478 
DF 670 pc In 1! 190* 1223 9c 1223 738 DC IL1*156°* 
11E0 OF 11E0 671 pc 8 «IL1#0148 Oo 9 1224 30 1228 739 DC IL 1*048* 
VIET BD WEY 672 DC IL1* 189° 1225 9B 1225 740 pc 1L1°155* 
oO ¢ 
te cos esac oer? gerer70 01A0G70 01MAR71 PROG ID OAQE-3 DATE 13m? 270 O6APR70 22MAY70 0 1A0G70 O1NAR71 FROG ID OAOE-3 
571531 571573 PAGE G EC NO. 571512 571516 571513 571531 571573 PAGE 6a 
C | : 


GS 
| 9 ‘ 
@eeeeoeeoeoeeoaegeonoeeoeeaeeeoaesaeoadedsoee1esesngeoeedeeoeeee eee @ @ 








@. eo eo. @. @. eo @. @ ®@ 6 © @ @ & 6 & © oe & @ 


IBS MAINTENANCE DIAGNOSTIC PROGRAK 


A0E3 
ERR LOC 


1226 
1227 
1228 
1229 
122, 
122B 
122C 
t22D 
122E 
122F 
1230 
4231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
123A 
123B 
123C¢ 
123D 
123E 
123F 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
124, 
1248 
124C 
124D 
T24E 
124F 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
125A 
125B 
425¢ 
125D 
125E 
125F 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 


DATE 
EC NO. 


SEEK FUNCTION 
OBJECT CODE 


31 
9A 
32 
99 
33 
98 
34 
97 
35 
96 
36 
95 
37 
34 
38 
93 
39 
92 
3A 
91 
3B 
99 


13M AR7G 
571512 


O6APR7 
571516 


TEST 
ADDR 


1226 
1227 
1228 
1229 
122A 
1228 
122C 
122D 
122E 
122F 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
123A 
1238 
123¢ 
123D 
123E 
123F 
1240 
1241 
1242 
1243 
12u4 
12485 
1246 
1247 
1248 
1249 
124A 
1248 
124C 
124D 
1242 

124F 
1250 
1251 

1252 

1253 

1254 

1255 
1256 
1257 

1258 
1259 
125A 

1258 
125¢ 
125D 
125E 
125F 
1260 
1261 

1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 


0 


STST SOURCE STATEMENT 
7a bc IL1*04&9! 
7a2 DC IL 1*154¢ 
743 oc I1L1'050° 
7uu pc IL 1* 153! 
7&5 pc IL1'051* 
746 pc IL1*152¢ 
747 bc IL1*052° 
748 DC Ir.17* 1518 
74g DC I117*053* 
750 bc IL1* 1508 
751 pc Ii1°0548 
7582 pec IL 1* 1498 
753 DC IL1*055°* 
754 pe IL 1° 148* 
755 bc IL1*056* 
756 pc IL1*147* 
W57 pc IL1°057°* 
758 pc IL1*1746* 
759 DC IL1*'058! 
760 pc IL1* 745° 
761 DC I1L7'059° 
762 pc IL 1'744¢ 
763 Bc IL1 060! 
764 be IL 1° 143* 
765 DC IL1*061* 
766 pe TL 7? 142¢ 
767 pc IL 1*'062' 
768 DC ILi*vaiy 
769 DC IL1'063° 
770 pc IL1*'140* 
771 c IL1* 0648 
772 oc IL 1*7139°* 
773 pe IL1'065° 
774 pe IL1'138* 
775 DC IL7°066* 
776 BC IL 14° 137! 
777 DC IL1*067* 
778 BC IL 1*136* 
779 Dc IL1 068" 
780 Bc IL1° 135° 
781 be IL1°069* 
782 pe IL 7" 134! 
783 DC IL1'070°8 
784 pc IL 7*133* 
785 pc IL1'132* 
786 pc IL1°076* 
787 pc IL1°131°* 
788 BC IL 1'077* 
7893 bc IL1*130¢# 
790 pc IL 1*078* 
791 pc I11*129°8 
792 pc IL1*079* 
793 DC IL1*128° 
7948 pe IL 1*080* 
795 Dc IL7*127°* 
796 pe IL 1*0818 
797 pe IL1°126? 
798 be IL 1°082! 
799 DC IL1*125* 
800 pc IL 1*083* 
801 pc IL1°124* 
802 be IL 1* 0848 
803 bc I1L1 "1238 
804 DC IL 1°085! 
805 bc IL1'122¢ 
806 DC IL 1*086! 
807 bc IL1°121°* 
808 bc IL1*087* 
22mAY70 O1A0G70 O1MAR7 1 
571513 571531 571573 
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PAGE 


PROG ID 
PAGE 


5129626 
7 


OAOE-3 
7 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS 


AOE3 
ERR LOC 


126A 
1268 
126C 
126D 
126E 
126F 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
I27A 
1278 
127C 
127D 
127E 
127F 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
128A 
1283 
128C 


128D 
128E 
128F 


1291 
1295 
1299 


DATE 
EC nO. 


SEEK FUNCTION TEST 


OBJECT CODE 


78 
58 
77 
59 
76 
5a 
75 
5B 
74 
SC 
73 
5c 
72 
SD 
71 
SE 
70 
SP 
6F 
60 
6E 
61 
6D 
62 
6c 
63 
68 
64 
6A 
65 
69 
66 
68 
67 
FF 


09 
00 
FYFF 


3C 00 0526 
3¢C 00 0B25 
cO 87 0000 


13 “AR70 
571512 


SOURCE STATEMENT 


ADDR STAT 
1264 809 
126B 810 
126C 811 
126D 812 
126E 6813 
126F 814 
1270 815 
1271 816 
1272 817 
1273 818 
1278 819 
1275 820 
1276 821 
1277 =822 
1278 823 
1279 824 
127A «6825 
1278 826 
127C 827 
127D 828 
127E 829 
127F 830 
71280 831 
1281 832 
1282 833 
1283 634 
1284 835 
1285 836 
1286 837 
1287 838 
1288 839 
1289 840 
128A 6841 
128B 842 
128C 843 
84a 
128D 845 RTNY 
12bE 846 
1290 847 NEG 
848 
849 
850 
851 
O6APR7O 22HAY70 
571516 571513 


pc IL 1*120° 
oc IL1*°088°* 
bc IL 3*119? 
DC IL1*089°* 
pc IL 1° 118¢ 
Dc IL1*090* 
bc IL 2°1178 
pc 1L171°091° 
DC IL 1° 116° 
pc IL1°092* 
bc IL 1*415* 
ne IL1*092* 
bc In4*714° 
DC IL1*093° 
DC Tm 1°113° 
bc IL1*09a8® 
pc IL4*1172* 
DC IL1*095° 
DC IL 1°34717° 
be IL1*096° 
pc IL 1* 110° 
pc IL1°0978 
bc IL 1* 109° 
DC IL1*098* 
Dc IL 1*108* 
pc IL1*099° 
BC. IL 1°107* 
pc IL1*100* 
DC IL 1* 106° 
pe XIL7*°1074* 
pc IL 1° 105* 
DC IL1*162°* 
DC IL 1° 7048" 
DC IL1*103* 
pe XL 1° FF! 
Dc XL1°09* 
be XL1*°00° 
pc XL2* FFFF* 
aVI SETSW,9 
BVI SKPUDT,0 
B 0 
01A0G70 O'HARZ 1 
571531 $74573 


PART HO. 


PAGE 


FLAGS 


SET ENTRY SWITCH TC ZERO 
ZERO THE SKIP UDT FLAG 
RESTART PROGRAA 


PROG ID 
PAGE 


5129626 : 
ma OU 





OAOE-3 
7A 


IBM MAINTENANCE DIAGNOSTIC PROGRAH 


AO E3 


SEEK 


FUNCTION TEST 


ERR LOC OBJECT CODE 


129D 
1241 
12A5 
T2AB 
12B0 
12B6 
12BA 
I2BF 
¥2C2 
12c8 
12CB 
12CF 
12D5 
1209 


12DD 
12E1 
12E5 


12E7 
12EB 
12EF 
12F5 
J2FA 
1300 
1304 
1309 
130Cc 
1312 
1315 
1319 
131F 
1323 


34 08 
35 01 
OE 01 
ic 01 
OF 00 
c2 01 
1D 00 
F2 01 
OE 00 
D2 01 
34 01 
OD 01 
co 01 
co 87 


12DC 
12DC 
12DC 
12B5 
1355 
12DD 
1355 
06 

1355 
01 

1332 
1332 
12BA 
0090 


040506487 
UBUS4ANS 


12E5 


34 08 
35 01 
OE 01 
1c 01 
OF 00 
C2 01 
iD 00 
F2 01 
OF 00 
D2 01 
34 01 
OD 01 
co 01 
co 87 


1326 
1326 
1326 
I2FF 
1355 
1327 
1355 
06 

1355 
01 

1332 
1332 
130% 
0000 


1327 SBuAaSHS 
132B 470605048 


132F 
1331 


DATE 
EC WO. 


132F 
0000 


13MAR7 
571512 


0 


ADDR 

OD34 

014 

0000 

00 

0D32 

1256 
12DD 
12E0 
12E4 
12E6 

OD34 

01 

0000 

00 

0D32 

1330 
1327 
132A 
132E 
1330 
1332 

O6APR70 

5715 16 


PART NO. 5129626 
PAGE 8 

STMT SOURCE STATESENT 

853 * SUBROUTIKE TO STEP THE CYLINDER ADDRESS FORWARD * 

858 

855 STEPF ST STEPEX+3,ARR SAVE THE EXIT ADDRESS 

856 L STEPEX+3,XR1 LOAD PARAMETER ADDRESS IW XR1 

857 ALC STEPEX+3 (2) »TWO INCREASE EXIT ADDRESS 

858 MVC ALC#5 (2) ,1(,XR1) SET ADDRESS OF INCREMENT VALUE 

859 ALC ALC WRIDFC+1(1) ,*-* STEP CONTROL FIELD ADDRESS 

860 LA FWDTBL,XE1 PUT ADDRESS OF TABLE IN XR1 

861 CKCYLF CLC WHTDFC+1(1),0(,XR1) TEST CURRENT CONTROL FIELD ADDRESS 

862 INE STPFWD NOT EQUAL TO ONE IN THE TABLE 

863 ALC WRTIDFC+1(1) ,ONE STEP CONTROL FIELD ADDRESS 

864 STPFWD LA 1(,XR1) ,XB1 INCREMENT TABLE POINTER 

865 ST SAVXR1,XR1 SAVE CURRENT VALUE IN XR1 

866 CLC SAVXR1(2) ,FWDEND TEST XR1 FOR EQUAL TO TABLE END 

867 BNE CKCYLF ERANCH BACK IF NOT DONE 

868 STEPEX B *-* ROUTINE EXIT 

869 

870 FWDTBL EQU * 

871 DC XLS "040506478 

872 DC XL4*4BU9RARB? 

873 FaDEND DC AL2 (*) 

874 

875 * SUBROUTINE TO STEP THE CYLINDER ADDRESS BACKWARD * 
876 

877 STEPR ST STPREX+3,ARR SAVE THE EXIT ADDRESS 

878 - STPREX+3,XR1 LOAD PARAMETER ADDRESS IN XR1 

879 ALC ST PREX¢3(2) , TRO INCREASE EXIT ADDRESS 

880 MVC SLC#5 (2), 1(~XR1) SET ADDRESS OF INCREMENT VALUE 

881 SLC SLC WRTIDFC+1(1) ,*-* STEP CONTROL FIELD ADDRESS 

882 LA REVTBL,XB1 PUT ADDRESS OF TABLE IN XB1 

883 CKCYLR CLC WRTDFC+1(1),0(,XR1) | TEST CURRENT CONTROL FIELD ADDRESS 
884 INE STPREV NOT EQUAL TO ONE IN THE TABLE 

885 SLC WRIDFC+1(1) ,ONE STEP CONTROL FIELD ADDRESS 

886 STPREV LA 1(,XR1) ,XR1 INCREMENT TABLE POINTER 

887 ST SAVXR1,£B1 SAVE CURRENT VALUE IN XR1 

888 CLC SAVXR1(2) ,REVEND TEST XR1 FOR EQUAL TO TABLE END 
889 BNE CKCYLR ERANCH BACK IF NOT DONE 

890 STPREX B *-* ROUTINE EXIT 

891 

892 REVTBL EQU) * 

893 Dc XL4 "HB AUQNBE 

894 DC XL4* 47060504" 

895 REVEND DC AL2 (*) 

896 SAVXB1 DC ¥L2' 0! 
22mMAY70 9 1AUG70 01MAR71 PROG ID OAQE-3 
571513 571531 571573 PAGE 8 


OQ 


© 


O 


f) 


oO fm OO © 


oO 


OF OF "@.. 6 


oO 


Oo oO 9 O89 O 9) O 


2 ee ere cence 2 ne NEE fe 


Oo 


2 ce, |e ants tearm enone mre esr tinihiaiutianeneinn Saas Sanaa 


Oo Qa 909 8 80 OF 08 4 


oO 


rs) 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


AOE3 


ERR LOC 


1333 
1337 
133B 
133F 
1345 
13&9 


34D 
134F 
1351 


1354 
1355 
1356 
1357 
1358 
1359 
W35A 
135B 


135C 
1360 
1366 


136A 


136D 
1371 
1373 


1375 
1379 
1378 


137D 
1381 
1382 
1383 
1385 


1387 
1388 
138C 
138D 


138F 
1393 
1394 
1395 


1397 
1398 


139D 
13A1 
13A2 
13a3 
13a5 


13a9 


DATE 
EC NO. 


SEEK FUNCTION TEST 


OBJECT CODE 


1304 
0D32 
138C 
1346 
1350 
6000 


34 68 
36 08 
34% 08 
08 03 
30 00 
co 87 


0000 


0000 
0000 
6F6F6F 


00 
00 
00 
90 
00 
00 
00 
00 


T3AC 
OcF8 
1359 


1353 


F2 81 08 
1703 


1703 


0214 


O21A 


O21A 


0222 


T3AD 


13a9 


0000 


1 UMAR70O 
571512 


O6APR7 
571516 


ADDR 


134E 
1350 
1353 


1354 
1355 
1356 
1357 
1358 
1359 
135A 
13583 


1372 
1374 


137A 
137¢ 


1381 
1382 
1384 
1386 


138B 
138C 
138E 


1393 
1394 
1396 


139C 


13A1 
13A2 
IZA 


0 


STNI SOURCE 
898 * 

899 SENSE 
900 
901 
902 
903 
904 
905 
S06 
3907 
908 
909 
910 
91% 
912 
913 
914 
915 
916 
917 
918 
919 * 
920 
921 
922 
923 
924 * 
925 
926 
927 
928 
929 
$30 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
9548 
955 
956 
957 
958 
959 
960 SKEREX 


SNSMOV 
SNS 

SNSEXT 
SETXR2 
STATOS 
THREEQ 


WRIDFC 


RDDFC 


SEEKER 


SEKERA 


22mMAY70 
571513 


STATEMEST 
SENSE I/O ROUTINE 

st SNSMOV+5, ARR 
A ONE, ARP 

ST SNSEXT+3, ARR 
HNN SNS4¢1,%-# 
SNS  STATUS,O 

B *—* 

pc XL2"08 

pc XL2"08 

pc CL3°2228 

pc XL1700° 

pc XL1*00° 

DC XL1*00' 

pc XL 1*00* 

pc XL1*008 

pc XL1"00! 

pc XL 1°00! 

pc XL1°00! 

ROUTINE TO PRIKT SEEK 

ST SKEREX+3, ARR 
MVC  SZEKAT(3) ,THREEQ 
CLI RDDFC+1,X'FP* 
JE SEKERA 

B CVD 

pc AL 2(RDDFC+1) 
pc AL2 (SEEKAT) 
B CVD 

pc AL2(WRTDFC+1) 
pc AL2 (SEEKTO) 
B PRINT 

pc x 1°C1# 

DC IL1*22" 

pc AL 2 (SEEKTO) 
DC XL2"a00a* 

B PRINT 

pc XL1*O18 

pc IL1"228 

pc AL2 (SEEKAT) 
B PRINT 

pc XL 1°06" 

Dc IL1*35* 

pc AL2 (OLDADk) 
B HALT 

pc XL2*a00a* 

B STRTIO 

pc XL17" 00° 

pc XL1*O7F 

pc AL2 (WRTDFC) 
R +e 

B a 
01A0G70 018aR71? 
571531 571573 
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PAGE 8a 


SAVE ADDEBESS RECALL BEGISTER 
AiD ONE TO BYPASS PARAMETER 
STORE EXIT ADDRESS 

BOVE IN FURCTION CODE 
PERFORS SEWSE 

EXIT 


FLAG BYTE 

CYLINDER HUBBER 

HEAL AND SECTOR 

NUMBER OF SECTORS TO PROCESS 
FLAG 

CYLINDER BUASER 

HEAD AND SECTOR 

BUBBER OF SECTORS TO PROCESS 


ERROR SESSAGES 


SAVE EXIT ADDRESS 

SET SEEK AT HESSAGE TO 722 
DETERMINE IF ANY DATA BAS TAASS. 
BY TSE READ ID COSMABD 

JUMP IF KO 


TO CONVERT 
ADDRESS OF 
ACDRESS OF 


CYL. WO TO DECIBAL 
SCURCE 
DESTINATION 


TO CORVERT 
ADDRESS OF 
ALCDRESS GF 


CYL. BO. TO DECIBAL 
SOORCE 


DESTINATIOB 


TC PRINT ERROR 

FLAGS 

LENGTH 

BESS&GE ADDRESS 
MESSAGE ICESTIFICATION 


TO PEINT 3RD LINE 
FLAGS 

LENGTH 

MESSAGE ADDRESS 


TO PRINT STH LIWE 
FLAGS 
LENGTH 
MESSAGE ADDRESS 

TO DCP E2EROR HAIT 
BALT ID 


TO RECALIEPRATE 
FUNCTION CODE (CONTROL) 


CONTROL CODE (RECALIBRATE) 

COBTROL FIELD ADDRESS 

ExITt 
PROG ID OA0E-3 
PAGE 8h 











IBA MAINTENANCE DIAGNOSTIC PROGRAN 


AOE3 


ERR LOC 


13AD 
1351 
13B5 
13B9 
13BD 
73c0 
13c4 
13C8 
13cc 
13D0 
13D5 
I3DA 
13DF 
13E3 
13E6 
13EA 
13EE 
13F1 


13F5 


13F9 
13FC 
7400 
W404 
1408 
T40C 
1410 
1413 
1817 
141B 
IGE 
1422 
TH25 
142B 
182F 
1430 
1436 
TO3A 
I43E 
1443 


TH46 
T40Aa 
1asD 


1450 
1454 
1457 
145A 
T45E 
1462 
1467 
T4U6B 
1870 
1874 
4478 
1478 
T47F 
1482 
7485 
1489 
748D 
1491 
1494 


DATE 
Ec NO. 


SEEK FUNCTION TEST 


OBJECT CODE ADDR 


T3KE 
IZ4E 
1502 
O20A 

F2 90 04 

1502 
1500 
I4PF 
1359 
1471 00 
112 01 
150A 03 
1502 

F2 10 OB 

1441 
1492 

F2 87 08 

1411 
1892 


1450 
150A 
150c 
159B 
2260 
F3 AO 00 

150P 
14 FF 


0D35 
F2 81 19 
1508 
1333 
02 142F 
1508 1505 

1350 

1423 

03 1NFE 

BB 01 02 


OBB2 


134E 
E1 AO 08 
EO 87 04 


14QPA 

BD 01 01 

F2 01 08 

1500 
T4FC 
1S0E 03 
150E 
14FE 03 
14YF 
WFC 

F2 01 21 

14FC 

BB 01 02 

BC FF 03 

0D35 
14FD 
150A 

F3 a0 00 

1590 


T3HAR7O 
571512 


O6APR7O 
5715 16 


STAT 


962 
963 
964 
965 
966 
967 
96P 
369 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
962 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
9948 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1919 
1020 
1021 
1022 
1023 
10248 
1025 
1026 
1027 
10256 
10629 


SOURCE 


® 


STRTIO 


SETFIX 
CKSEEK 
LDFCR 
LDFDR 


sIo 
WAIT 


SEEKSN 


RESTON 


TSTERR 


* 
* 


SETADR 


SETRCL 


RUDFCR 
RSTO 


22MAY70 
571513 


STATEMENT 


MYC 
SBF 


L 
TIO 
8 


START 1/0 SUBROUTINE 


SETXR2, ARR 
SETXR2, X82 
DISKTP,0 
SECTSW,X*O4! 
“47 
DISKTP,xX'08' 
RECAL,O 
SAVS#,00 
RDDFC+1,X* FF? 
SI0+1,0 (,XR2) 
SI0+2(1) ,1(,¥R2) 
DFCR (2) ,3 (~XR2) 
DISKTP,X*08' 
SETFIX 
SIO0+1,X"'08! 
RSI0+1,X*08! 
CKSEEK 
SI0+1,X'08* 
RSIO4¢17,xX* 08! 
0(,XR2) ,00 
SETADR 
DFCR,X*A6! 
DFDR,X* Aut 

IN DXPL, 0 
88C0,XR1 
X*00*,xX'aO? 
BUSY,X*A2* 
SAVSW,X'FF! 
TSTERB 

TKCTR,O 

RESTON 

HXTIBE (3), ZERO 
SENSE 

XL1'02? 
HXTIME(3) ,TIMKON 
STATUS ,X*10! 
SEEKSN 

3 (1,XR2),DFC3SV 
2(,-XEB2),01 


SETXR2, XB2 
8 (,XR2) ,X*A0* 
4&(,XR2) 


PART 
PAGE 


NO. 5129626 
9 


SAVE ADDRESS RECALL REGISTER. 
LOAD XR2 WITH VALUE FROS ARR. 
SET TO BUN ON REMOVABLE DISK 
TEST FOR BYPASS REMOVABLE 
JUMP IF NO 

SET TO RUN OW FIXED 
RESET SWITCH 

ZERO SWITCH 

SET READ ID AREA TO 
SET FUNCTION CODE 
SET CONTROL CODE IN SIO 
SET DATA ADDRESS FOR DFCR 
TEST FOR RUN ON LOWER DISK 
JUMP IF YES 

SET FOR REMOVABLE DISK 

SET FOR REMOVABLE DISK 
PROCEED 

SET FOR FIXED DISK 

SET FOR FIXED DISK 

PEST FOR SEEK 

IF YES, GO SET ADDRESS 
LOAD CONTROL REGISTER 
LOAD DATA REGISTER 


tFrFe 


START I/O CPERATION 
BRANCH IF BUSY 

IS SWITCH ON? 

IF NO, SKIP RESTORE 

TEST FOR A ZERO SEEK 
JUMP IF YES 

ZERO THE TIME AREA 

TC SENSE DEVICE STATUS 
GET BYTES O AND 1 

ADD TO THE TIME AREA 
TEsT FOR SEEK BUSY 
BRANCH BACK IF STILL BUSY 
RESTORE N BYTE 

TURN OFF THE FOR/ REV BIT 


RESTORE PARAMETER POINTER 
BRANCH IF ERROR 
EXIT 


SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 
DIRECTION (FORWARD OR REVERSE), TO SEEK 


ST ADREXT+3, ARR 
CLI 1(,XR2),01 
JNE SETRCL 

MVI  RECAL,X'FF® 
NVI FRSTPS,O 

MVC XR2WK(2),3(,XR2) 
L XR2WK, XBR2 
MVC = DFC3S¥(1) ,3{,XR2) 
NVI SAVSW,X'FF* 
CLI FPRSTPS,00 
SNE SETADA 

MVI -FRSTPS,01 
SBF 2(,X%R2),01 
MVI «=—s- 3 (, XR2),.255 
NVI -s- TKCTR, 255 
NVI LASTAD,00 
LIO  DFCE,X!R6° 
SIO 00,x*aA0? 

CiI RECAL,X*FF? 
01A0G70 01MAR71 
571531 571573 


SAVE EXIT 
IS THIS A RECALIBRATE? 

IF NO, BYPASS SWITCH RESET 

SET SWITCH TO INDICATE A RECAL. 
RESET RECALIBRATE SWITCH 

SAVE ADDR. OF CTL. FLD. ADDR. 
LOAD XR2 WITH CONTROL FLD. ADDR. 
SAVE N BYTE IN CONTROL FIELD 
SET SAVE SWITCH 

IS THIS FIRST PASS 

SKIP RECALIBRATE IF NO 

SET FIRST PASS SWITCH 

SET FWD/REV BIT TO REV. 

SET MAXIMUM TRACK CROSSIRG 

SET FOR MAXIMUM TRACK CROSSING 
SET OLD ADDR TO 0 

LOAD DATA CONTROL REGISTEE 

SEEK REVERSE 

WAS THE I/O REQUEST A RECAL? 


ADDRESS 


PROG ID OACE-3 
PAGE 9 


a) 


oO 9 9 08 © 


Qo © 


mo 4 Q 


C) cy © 
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©” 


Qo ao Oo O9 OF © 


O 
oO 
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AOE3 
ERR Loc 
1498 


149C 
14aA0 
14Aa2 


T4UAu 
TRAD 
14AC 
T4AaF 
14B2 
14 B8 
14BD 
T&C3 


14C6 
14C9 
T4UCE 
14D4a 
TEDA 


18DD 
14E1 


TUE7 
T4HEC 
T4F2 
V4F7 
14FB 
i4Fc 
14FD 
14FE 
14°F 
1500 
15014 
1503 
1506 
1509 
1508 
150D 


150F 
1513 
1517 
1518 
151C 
I51F 


1523 
1527 
152B 
152F 
1533 


1536 
1S3A 
153B 
153¢c 
153E 


1540 
7544 


1546 
TSUR 
154Cc 
154E 


DATE 
EC NO. 


SEEK FUNCTION TEST 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
cO 81 1413 1030 BE WAIT 
1031 
cO 87 1703 1032 SETADA B CVD 
14FD 14A1 1033 DC AL2 (LASTAD) 
OD1B 16A3 1034 pc AL2(OLDADR) 
1035 
8D 00 01 14FD 1036 CLC 1(1,XR2) ,LASTAD 
F2 81 31 1037 JE NOS EEK 
F2 84 17 1038 JH PWDSEK 
BB U1 02 1039 SBF 2(,XR2),01 
Oc 00 14FB 14FD 1040 SVC SCRCH(1),LASTAD 
2F 0G 14FB 01 1041 SLC  SCRCH(1),1(,XB2) 
Oc 06 ODOD oD29 1042 MVC SEEKDR(7),REV 
F2 87 21 1043 J SETADB 
1044 
BA 01 02 1045 FRDSEK SBN 2{,XR2),01 
2C 00 14FB 01 1046 MVC SCRCH(1),1(,XR2) 
OF 00 14FB 14FD 1087 SLC  SCRCH(1),LASTAD 
OC 06 ODOD 0D22 1048 SVC SEEKDER(7),FOBWD 
F2 87 OA 1049 J SETADB 
1050 
3c 00 14FB 1051 NOSEEK NVI SCRCE,O 
OC 06 ODOD 0D30 1052 MVC SEEXDR(7) ,SVBBLK 
1053 
BC 00 03 14FB 1054 SETADB MVC 3(1,XR2),SCRCH 
Gc 00 0D35 14FB 1055 MVC TKCTR(1),SCRCH 
2c 00 14FD 01 1056 MVC LASTAD(1).1(,XR2) 
cO 87 0000 1057 ADREXT B +-+ 
00 14PB 1058 SCRCH DC XL1*°00° 
00 14FC 1059 FRSTPS DC XL1*00* 
00 14PD 1060 LASTAD DC XL1'GO* 
00 1NFE 1661 DFC3S¥ DC XL 1°00! 
00 14FP 1062 SAVSW DC XL1°008 
00 1500 1063 RECAL DC XL17*°0# 
0000 1502 1064 DISKTP DC XL2 "0° 
00005D 1505 1065 TIMKON DC IL3*93¢ 
000000 1508 1066 HXTIME DC XL3*°0* 
0000 150A 1067 DFCR DC AL2 (##) 
150F 150C 1068 DFDR DC AL2(WCRK) 
0000 15Q0E 1069 XR2KK DC XL2*0# 
150F 1070 WORK FQU. * 
34 01 159A 1071 BUSY ST TINE,X81 
CO 87 1333 1072 B SEKSE 
03 1517 1073 Dc XL1°03° 
38 08 134F 1074 TBN STATUS-1,X*O6* 
F2 90 04 1075 JF +7 
3C FF 159B 1076 MVI INDXPL,X*FF* 
1077 
35 01 159A 1078 L TIME,XB1 
36 01 1290 1079 A NEG1, XB1 
CO 84 1413 1080 BH WAIT 
3D FF 1598 1081 CLI INDXPL,X*FF* 
F2 81 10 1082 JE TCVD 
1083 
CO 87 021~ 1084 B PRINT 
C6 153a 1085 Dc XL 1*C6* 
25 153B 1686 DC IL1*37° 
158A 153D 1087 DC AL2 (MINDEX) 
A089 153F 1088 Dc XL2*a089* 
1089 
CO 87 0222 1090 B HALT 
A089 1585 1091 DC XL2*a089¢ 
1092 
cO 87 1703 1093 TCYWD 8B CVD 
0A03 1S54B 1094 pe AL2(BREFX) 
1598 iS8D 1095 Dc AL2 (TI HOST) 
3C 4O 1596 1096 MVI TIMGUT-2,c* * 
1097 
13m..R70 OSAPR7O 22MAY70 01A0G70 OTHAR71 
571512 571516 571513 571531 571573 


PART WO. §129626 
PAGE 9A 
BRAWCH IF YES 
TO CONVERT GOLD SEEK ADDRzZSS 
SOURCE ADDEESS* 
DESTIKATION ADDRESS 
CCHPASE PRESENT ADDR. WITH NEW ORE 


ECUAL, SEEK IS KOT RECESSARY 

NEW ACDR. HIGHER, DC FORBAED SEEK 
NEW ADDR. LOWER, SET BIT FOR REV. 
PLACE LAST ADDE IN WORKAREA 
SUBTRACT NEW ADDR. FROS LAST ADDR. 
PUT REVERSE IW SEEK DIRECTION ASG. 
PROCEED 


SET BIT OM FOR FOEWARD SEEK 
PLACE NEW ACDR. IR WORKABHEA 
SUBTRACT LAST ADDR. FROM NEW ADDR. 
PUT FORWARD IN SEEK DIRECTICB ASG. 
PROCEED 


OF TKS. CBOSSED TO ZERO. 


PLACE IN MO. OF TRACKS CROSSED 
SAVE NUMBER OF TRACKS TO CROSS 
SAVE WEW ADDRESS 

EXIT 


TEST FOR INDEX 
JUMP IF NORE 
SET BIT FOR INDEX RECIEVED 


BRANCH BACK TO TiO IP HOT TIMED OUT 
TEST FOR ANY INDEX BEFORE TIMEOUT 
JUSP IF THLRE WAS AN INDEX 


TP PRIST WO INDEX BEFORE TIMEOUT 


BESSAGE ADDRESS 
BESSAGE ID 


TO CONVERT ROOTING HUABER 
SOURCE 
DEST ZBATION 


PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 5129626 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART WO. §129626 - 
PAGE 10 O1G PAGE 10a - 
7 { 
A0E3 SEEK FUNCTION TEST 5 G AOE3 SEEK FUNCTION TEST e 
j ee 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1552 CO 87 O21A 1098 B PRINT TO PRINT ROUTINE NUMBER e sc 1124 * SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATOS * 
1556 C6 1556 1099 pc XL 1*C6! 4125 
1557 15 1557 1100 pc ILi*21? ISBC 34 08 163A 1126 PRISNS ST PRTEXT+3, ABR SAVE ADDRESS RECALL REGISTER 
1558 1598 1559 1101 pc AL 2 (TINOUT) MESSAGE ADDRESS Co c 15c0 CO 87 1333 1127 B SENSE TO PERFORS SENSE 
1554 AO8E 155B 1102 pc XL2"*AOQ8E* MESSAGE ID 15C4& 02 15C8 1128 pc AL1 (STATO 1) GET DEVICE STATCS BYTES 0% 1. 
155¢ CO 87 0222 1103 B HALT 1129 
1560 AOS8E 1561 1104 pc XL2*AO08E* Cc. 15C5 CO 87 O21E 1130 B UNPACK TOD UNPACK STATUS BYTES 
1562 CO 87 0000 1105 B 0 15C9 02 15C9 1131 pe XL1°02* 
1106 | ISCA 1350 ISCB 1132 pc AL2 (STATUS) 
1566 DSD64O0C9DSCUCSE7 158A 1107 MINDEX DC CL27"'NO INDEX PULSES SENSED BEFORE TIMEOUT® eS 1SccC 1653 1SCD 1133 pc AL2 (HEXSTA~4) 
156E SOD7EYDZE2ZCSE2ZN0 1107 15CE 3C 01 15FE 4134 AVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BITE 
1576 E2C5DSE2C5C440C2 1107 15D2 C2 01 1669 1135 LA STATWD,XR1 SET XR1 TO POINT TO FIRST SESSAGE 
ISTE CSC6D6DIC5SYO0E3CI 1107 GS 15D6 C2 02 16FA 1136 LA STMASK,XR2 SET XR2 TO POINT TO TEST ASK 
1586 DUCSDGESE3 1107 4137 
158B SOCSDSHYODIDGEESE3 1598 1108 TIMOUT DC CL14" IN ROUTINE Xx? 15DA CO 87 G213A 1138 B PRINT TO PRINT SHS WITH HEADISG 
1593 CODSCSUOETE7 1108 o| ¢ ISDE C1 ISDE 1139 pe XL1°C1# FLAGS 
1599 0000 159A 1109 TIME DC XL 2*0° 15DF 01 ISDF 1140 Dc iL 1*01* LEXGTA 
159B 00 159B 1110 INDXPL DC XL1*O? 15E0 1669 1521 1141 pc AL2 (STAT WD) ALDRESS OF LAST PRIST CHARACTER 
OA03 1111 RPFX EQU) = X*A03° GC | cS 15E2 A000 15E3 1182 SNSID DC XL2?7a000° MESSAGE IDEKTIFICATION 
4112 i5F4 2C 00 1I5SEF 00 1143 MOVEBT NVC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS IRSTRUCT. 
159c 34 08 15B9 1113 VERIFY ST VEREXT+3, ARR SAVE RETURN ADDRESS | 1S5SE9 1C 11 1770 00 17144 MVC STATER(18) ,0 (,XB1) SET MESSAGE IM FIELD 
1520 3C 00 1357 © 1114 MVI WRIDFC+3,0 SET TO VERIFY ONE SECTOR Co:90 1145 
15A4 CO 87 13AD 1715 B STRTIO TO VERIFY ISEE 38 00 134F 1186 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR OR 
15A8 01 15A8 1116 Dc XL1'O1# FUNCTION CODE, (READ) 15F2 F2 90 08 1187 JF STPSNS SYPASS PRINT IF OFF 
15A9 03 1529 1117 pC XL 1#03" CONTROL CODZ, (VERIFY) © c 1148 
1ISAA 1354 1SAB 1118 DC AL2 (WET DFC) CONTROL FIELD ADDRESS 15F5 CO 87 O21A 1149 B PRINT TO PRINT SHS WITHOUT HZADIEG 
15AC CC 87 1536 1119 B VEREXT GOOD RETURN , 15F9 01 15F9 1150 pc XL1°O178 FLAGS 
15B0 OF 01 1589 15BB 1120 ALC VEREXT+3(2), FOUR INCREMENT RETURN ADDRESS Cc 1G 1SPA 12 ISFA 1151 DC IL 1°18? LENGTH : 
15B6 CO 87 0000 112% VEREXT B *—* EXIT ADDRESS : 15FB 1770 ISFC 1152 pc AL2 (STATPR) ADDRESS OF LAST PINT CHARACTER 
15BA C004 15BB 1122 FOUR DC XL2"4 1153 
O° ISFD 3D 00 15EF 1154 STPSNS CLI TISTBT+1,*-* TEST FOR FINISHED 
1601 F2 81 OA 1155 JE SENSA JUMP IF FINISHED WITH THIS BYTE 
ee 1604 E2 02 01 1156 LA 1(, XB2) ,XR2 STEP XR2 TO POINT TO KEXT MASK BIT 
go: ¢ 1607 D2 01 12 1157 SENSB LA 18 (,XR1) ,XR1 STEP XR1 TO POINT TO WEXT BESSAGE 
| 160A CI 87 15E4 1158 B MOVEBT GO TEST NEXT SEBSE SIT 
1159 
Cig 160E 3D 80 15FE 1160 SENSA CLI STPSNS+1,X*80" TEST FOR COMPLETION OF 25D BYTE 
| 1612 F2 81 1A 1161 JE PRTHEX TO EXIT IF DOWE 
24 1615 3C 80 15FE 1162 NVI STPSHS+1,X*80* SET POR CHECK OF 25D BYTE 7 
Ce 1619 CO 87 1333 4163 'B SENSE TO SENSE a 
161D 03 161D 11648 pc XL1*03* BYTES 2 & 3 a4 
161E CO 87 O21E 1165 B UNPACK TO DRPACK STATUS BYTES . 
CG | ° 1622 02 1622 1166 Dc XL1"02* ‘ 
1623 1350 1624 1167 pc AL2 (STATUS) 
sail 1625 1657 1626 1168 DC AL2(HEXST A) . 
Cis 1627 C2 02 16FA 1169 LA STMASK,XR2 SET BIT POINTER 
162B CO 87 1607 1170 B SENSB TO PROCESS 2ND BYTE 
1171 
Gu S 162F CO 87 021A 1172 PRTHEX B PRINT TO PRINT STATUS I® HEX 
1633 02 1633 1173 DC XL1*°02* 
as 1634 1D 1634 1178 pe IL1*29# 5 
oO ¢C 1635 1657 1636 1175 DC AL2 (HEXSTA) 
1637 CO 87 0000 1176 PRTEXT B *—* SUBROUTINE EXIT 
1177 
oO 1638 E2E3C 1E3ESE240C2 164F 1178 pc CL21'*STATUS EYTES IN HEX, * 
16483 EBE3CSE240C9D540 1178 
: 164B C8CSE76B40 1178 
Gc CS 1650 0000000000000000 1657 1179 HEXSTA DC XL8*"0* 
: 1658 DSD64OD6D7404040 1669 1180 STATWD DC CL18*NC OP 8 
1660 40408040804 08040 1180 ; 
Go C 1666 4040 1180 - 
166A CODSE3CSDIESC5DS 167B 1181 pc CL1IS*INTERVENTION REQD.* 
1672 E3CSD6ED540D9C5D8 1181 
oO CG 167A C4UB 1181 . 
167C DS&C9EZE2CID5C 740 168D 1182 pc CL18*MISSING ADDR. MARBK®* 
- 1684 C1C&C4D94 B4ODSCI 1182 ns 
Cc UV 168C D9D2 1182 “ 
16BE CSD8EXCOIDTDAC5DS 169F 1183 pc CL18*EQUIPMENT CHECK ® 
“ 
oe °c “ 
DATE 13H AR70 O6APR7O0 22MAY70 01A0G70 O1MAR71 PROG ID OAOE-3 DATE 138..R70 O6APR70 22maY70 01A0G70 0184871 PROG ID OAOE-3 
EC WO. 571512 571516 571513 571531 571573 PAGE 10 0 0 EC KO. 571512 571516 571513 571531 571573 PAGE 10a é 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB 


AOE3 
ERR LOC 


16 96 
169E 
16A0 
16A8 
16B0 
16B2 
16BA 
16C2 
16C4 
16CC 
16D4 
16D6 
16DE 
16E6 
16E8 
16 FO 
16F8 


16FA 
16FE 


1702, 


1703 
1707 
1708 
170F 
1713 
1717 
1718 
171F 
1725 
1728 
1731 
1737 
173D 
1743 
17486 
174&C 
1750 
1754 
1755 
175D 
175F 


4771 
W772 
4773 
1778 


DATE 
EC NO. 


SEEK FUNCTION TEST 
OBJECT CODE ADDR 
EJ#OC3C8C5C3D240 
4040 
CACTEICI“OC3CBCS 1681 
C3D24804804 0NCU0NO 
4040 
DSD64ND9IC SC 3DEDI 16C3 
C&UOCE D6 E¥DSC4RO 
4040 
E3D240C3D6D5C4C9 16D5 
E3C9D6D540C3C 8C5 
c3D2 
E2cSC5D240C3C8C5 16E7 
C3D24080404 04040 
4040 
EGDSE2ZCIC6C540480 16F9 
HO4UDKOROLONCHONO 
4040 
16FA 

80402010 16FD 

08040201 1701 

ot 1702 

36 08 0D32 

348 08 1724 

36 08 OD34 

34 08 172A 

34 08 1730 

36 08 OD32 

34 08 1753 

39C 01 1736 0000 

oc 01 1749 0000 

0c 01 173A 0000 

0c 00 1702 0000 

04 20 0000 I75E 

OF 00 1702 0D32 

F2 82 OA 

06 20 0000 1754 

co 87 173D 

co 87 0000 

F1 1754 

FUF2F3F&P5SF6F7F8 175E 

FSFO 
1770 
0003 
0076 
0001 
0002 
0008 
0002 
0003 
OOA6 
OOAS 
0080 
0040 
0208 
020A 
0212 
0216 
O2TA 
O21E 
0222 
022A 
003C 
003F 

08 1771 

00 1772 

128D 17748 

3D F2 OBSE 

T3NAR7O O6APR70 

571512 571516 


STST 


3183 
1183 
71848 
4184 
41384 
1185 
1185 
4185 
1186 
4186 
1186 
4187 
1187 
4187 
1188 
1188 
1188 
41189 
1190 
1191 
1192 
4193 
7194 
1135 
4196 
1197 
4798 
4199 
4200 
1201 
4202 
1203 
12048 
1205 
1206 
1207 
41208 
1209 
1210 
1271 
1211 
1212 
4213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
4221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 


SOURCE STATEMENT 


STMASK 


BXBYT 
CvD 


FROM 
TYBOT 
OTORZ 
FROBYT 
ZROTO 
DECGAR 


TORYT 
TIXE 
DECONE 
UNITS 
STATPR 


H1 
H2 


22MAY70 
571513 


PART HO. $129626 
PAGE 11 


Dc CL18*DATA CHECK ‘ 

Dc CL18*NO RECORD FCUND * 

pc CL18*TK CONDITION CHECK® 

pc CL18"SEEK CHECK ’ 

Dc CL18" UNSAFE ' 

EQU) * 

DC XL4* 808020108 

Dc XL4 "080402018 

DC XL7*008 

A ONE, ARR ALD 1 TO GET 1ST PARAMETER 
st FROM+5 ARB INSERT THE FROM ADDR. 

A TWO, ARR ADD 2 AND GET THE 2ND PARANETER 
ST TYBCY+5,ARRB INSERT THE TO ADDR. 

ST OTORZ+5, ARR INSERT THE TO ADDR. 

A ONE, ARR ALD ONE HCRE FOR RETURN ADDRESS 
ST TIXE+3,ARB SET RETURN ADDR. 

MVC FROBYT+#+5(2), *-* 

MVC TOBYT+#+3(2) ,*-* 

MVC =. ZROTO+ 3 (2) , *-* 

MVC HXBYT(1),*-* PUT BYTE IN WORK AREA 

ZAZ  *-*(3),UNITS (1) ZERO THE TO AREA 

SLC  HXBYT(1) ,ONE DECREMENT THE HEX BYTE 

JL TIXE EXIT IF BELOW 1 

AZ *—* (3) , DECONE (1) INCREMENT THE DECEMAL COUNT 
B DECGAN 

B *-* EXIT 

Dc CLitie 

DC CL 10" 123456790! 

DS CL18 

EQU x*03! HALT DISPLAY 1 

EQU) x'76° HALT DISPLAY 2 

EQU O01 

£00) 02 

FOU 08 

EQU) x*02? 

FOU ¥* 03" 

EQU xX*A~A6? 

EQD = xX* At 

EOD x*80! 

EOU = x* 408 

EQU) x*208" 

EQU x*20a* 

EQU ¥*212° 

EQU 8 =*°216" 

EQU xX*21~A? 

EQU X*21E* 

EQD) x*222° 

EQU) X*22a" 

EQU x*3C? HALT DISPLAY F 

EQU X*3F* HALT DISPLAY A 

DC XL1*'08" 

pc XL 1°00! 

DC AL2 (BTN9) 

CLI SPNMSG,C*2¢* 
01AUG70 O1MART? PROG ID GAOE-3 
571531 571573 PAGE 11 
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AOE3 
ERR LOC 


1779 
477D 
1781 
1785 
1789 
178D 
1791 
1795 
1799 
179D 
17A1 
i7A5 
1749 
47AD 
1781 
17B5 
17B9 
17BD 
17¢1 
17¢5 
179 
17¢D 
17D1 
17D5 
17D9 
17DD 
1751 
IVES 
17E9 
47ED 
17F3 
177 
17FA 
1800 
1804 
1808 
180B 
1811 
1815 
1819 
181B 
181D 
181F 
1823 
1825 
1829 
182D 
1831 
1834 
1838 
183A 
G 183C 

183E 

1842 
C 16844 
1848 
1B4E 
1852 
1858 
185B 
185E 
1862 
1866 
1869 
186F 
1873 
1877 
1879 


oa @ 8 98 OO @ 
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Q 


QO 


DATE 
EC NO. 


SEEK FUNCTION TEST 


CBJECT 


co 81 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
3B 10 
38 16 
c2 01 
3& 01 
38 O48 
co 10 
co 87 
3A 10 
3A 10 
3A 10 
3A 10 
3A 10 
3A 10 
3A 10 
3A 10 
3a 10 
3A 10 
c2 01 
34 01 
co 87 
0c 02 
31 A6 
F3 AO 
oc 01 
30 A2 
38 10 
90 
OF 01 
co 01 
co 87 
C517 

1950 

A011 

cO 87 
A011 

cO 87 
c1 AQ 
38 40 
F2 10 
co 87 
A012 

196E 

A012 


13R AR? 
5745142 


CODE 


17B9 
17FP8B 
1801 
182A 
1859 
185¢ 
185F 
1888 
188C 
18aD 
18B1 
OAOC 
1780 
CAOC 
17ED 
0216 
17F8 
1801 
182A 
1859 
185C 
185F 
1888 
188C 
18AD 
18B4 
CAOF 
1780 
I7AD 
1933 
1935 
00 

1937 
1970 
1970 
1E 

1937 
1800 
O21A 


192B 


1939 


OD 32 


0222 


I7WED 
1887 
1970 
1a 

O27A 


0222 


17ED 

1933 192F 
1935 

1937 18E2 
00 

01 

1970 

197C 

83 

1937 0D32 
185E 

G21A 
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ADDR STMT 


181A 
18 1C 
I8TE 


1824 


1839 
1838 
183D 


1843 


1878 
I8S7A 


0 O6APR7O 


571576 


1239 
1240 
1261 
1242 
1243 
1244 
1245 
1246 
12487 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
4257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
12 86 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
41304 
1305 
1306 


SOURCE STATEMENT 


LATE 


WHAT 
TOOT 


STREC 
STOCAL 


$1 


BELL 


CARL 


SIOF 
RDID 
LOOPIT 


22MAY70 
577513 


BE TOOT 

SBF SIOCAL¢1,X*10* 
SBF $141,%* 10° 
SBF BELL¢1,X*10° 
SBF SIOF4+1,X°10° 
SBF RDID¢1,X*10° 
SBF LOOPIT+¢1,X°10° 
SBF JUNK+1,x°10° 
SBF JUNK+5,X*10° 
SBF DONT+¢1,X*10* 
SBF DONT+5,X°10* 
LA UNA, XR1 

St LATE+3,XB1 
TBN UNA,X*O4* 

BT STREC 

B LINK 

SBN SIOCAL+¢1,X*10° 
SBN $14#1,xX*108 
SBN BELL+1,X*10° 
SBN SIOF4¢1,X*10° 
SBN RDID+1,x*10* 
SBN LOOPIT+1,X*°10° 
SBN JUNK4+1,x°10* 
SBN JUNK+¢5,x°10* 
SBN  DONT#1,X°10* 
SBN  DONT+5,X*10* 
LA UNB,XR1 

ST LATE+3.XR1 

B LATE 

MYC MASTER(4), ABE 
LIO ADRFLD,X*A6* 
SIO x'CO",x*AO® 
AVC REAL(2) ,CAL 
SNS  BYTEO1,8B01 
TBN BYTEO?,X*10° 
JF BELL 

SLC REAL(2) ,ONE 
BNZ $1 

B PRINT 

DC XL2*C517* 

DC AL 2(RTIB) 

Dc XL2*a011° 

B HALT 

pc XL2*A0171° 

B STREC 

TIO JUNK,ERROR 
TBN BYTEO1,x°40* 
JT CARL 

B PRINT 

Dc XL2 *a012* 

pc AL2 (HOO) 

Dc XL2*A012° 

B HALT 

DC XL2*a012° 

B STREC 

NVC MASTER (4),SK100 
LIO ADRFLD,X*A6? 
MVC REAL(2),SF100 
SIO Xx*00*,X*AO? 
SIO x*O1*®,x*a1® 
SNS  BYTEO1,B01 
TBN BYTEO1,X*10° 
JF DONT 

SLC REAL(2) ONE 
BNZ LOOPIT 

B PRIIT 

be XL2 *€£517 * 

pc AL2 (SLOW) 
01RUG70 01NAR71 
571531 571573 


PART BO. 5129626 
PAGE 1A 

SEE IF HIGH SPEED DEFINED 

RECALIBRATE 

SET UP TIME OUT 

SENSE STATUS 0 ¢ 1 

TEST FOR SEEK BUSY 

PRINT TIME OUT OB RECAL 

** 11 

TIO BR. IF ERROR 

TEST FOR CYL 0 

PRINT NO CYL O AFTER RECAL 

** 12 

SEI UP CONTROL FIEKD 

SET UP TIME OUT FOR HI SPEED 

SEEK FORWARD 100 CYL 

READ ID 

SENSE BYTES 0 ¢ 1 

TEST FOR SEEK BUSY 

PRINT ACCESS TOO SLO@ #SG 
PROG ID OACE-3 
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A0E3 SEZK FUNCTION TEST 
ERR LOC OBJECT CODE ADDR 
1878 AOSS 187Cc 
187p CO 87 0222 
1881 A055 1882 
1883 CO 87 17ED 
1887 30 A2 1970 
188B 30 A3 1972 
188F CO 87 O21E 
1893 04 1893 
1894 1972 1895 
1896 1982 1897 
71898 CO 87 O21A 
189C C510 189D 
T8SGE 1982 189F 
T8A0 A012 1BA1 
18A2 CO 87 0222 
18A6 A013 18A7 
18A8 CO 87 17ED 
18AC C1 A2 18AC 
18B0 C1 AO 1887 
18B4Y 3D 64 1931 
18B8 CO 81 17B5 
18BC-CO 87 O217A 
18cO C118 18C 1 
18C2 1911 18c3 
18C4 AOYS 185 
18C6 CO 87 O21E 
18CA 01 18CA 
18CB 1931 18cc 
18CD 1927 18CE 
18CF CO 87 O21A 
T8D3 0516 18D4 
18D5 1927 18D6 
18D7 CO 87 0222 
18DB A045 18DCc 
18DD CO 87 17ED 
T8E1 1085 18E2 
18E3 C6C9D3C540C1C3C3 18F9 
18EB CSEZE2C9DSCT4CE3 
18FS D6DE4YOE2ZD3D6E6 
1BFR E2CSCSD2C5C440E3 1911 
1902 D640E6D9D6D5C 740 
190A C3E8D3C9D5C4&C5D9 
1912 E2C8D6END3C440C2 1927 
191A C5S4OCTE340F6F440 
1922 DSD6E340E7E7 
1928 OO0000FF 1928 
192C 00008764 1327 
1930 00000000 1933 
1934 1930 1935 
1936 0000 1937 
1938 4000 1939 
193A E3C9DSCSYODGE4ES 1°50 
1942 40D6D540D9C5C3C1 
194A D3C9C2D9C 1£B3C5 
1951 C3E8D340FO40D5D6 196E 
1959 E34OD6D540C 1C6E3 
1961 C5D940D9C5C3C1D3 
1969 C9C2D9C1E3C5 
0OA2 
OcaA0 
OOA2 
O0A3 
196F 0000 1976 
1971 0000 1972 
1973 YOEZE3CIE3EGE28O 1982 
197B EVEVEVEVEVEVETVEV 
OBB? 
DATE 13MAaR70 O6APR70 
EC WO. 571512 §71516 


Ra ne ee Oa oe. oa . : é it Me a ae a awe GS sei fe ea eek 


PART NO. 
PAGE 


5129626 
12 


STMT SOURCE STATEMENT 


1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
4324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
13491 
1342 
1343 
1343 
1343 
1384 
1384 
13448 
1345 
43485 
1345 
1346 
1387 
1348 
1349 
1350 
1351 
%352 
4352 
1352 
1353 
1353 
1353 
1353 
13548 
1355 
1356 
4357 
1358 
4359 
1366 
1360 
1361 


JUNK 


DONT 


SF 100 
SLOW 


PAR 


CYLS 


ABE 
SK100 
MASTER 
ADRFLD 
REAL 
CAL 
RTIA 


xco 


BZY 
ERROR 
B01 
B23 
BYTEO1 
BYTE23 
SNSG 


22maY70 
571513 


pc XL2*a055! ** 55 

B HALT 

DC XL2*a055* 

B S™REC 

SNS  BYTEO1,B01 SENSE ALL STATUS 
SNS  BYTEZ3,B23 

B UNPACK 

DC XL1*Q4! 

Dc AL 2 {BYTEZ3) 

pc AL2(SMSG) 

B PRINT 

pc XL 2°C510* 

pc AL2 (SHSG) 

rc XI.27A013? 

B HALT 

ac XL2"aA013? 

B STREC 

TIO DONT, BZY LOOP TILL BUSY DROPS 
TIO JUNK,ERROR 

CLI MASTER-2,X'64! SEE IF CYL 100 

BE WHAT 

B PRINT PRINT COMPARE ERROW 
DC XL2'°C1188 

Dc AL2 (PAR) 

pc XL2*A045! ** 45 

B UNPACK 

DC XL1"01° 

DC AL2 (MASTER-2) 

DC AL2(CYLS) 

B PRINT 

DC XL 2"0516° 

pc AL2 (CYLS) 

B HALT 

pc XL2*A045* 

B STREC 

Dc XL2'1085* -04256 NS X 4229 = APPROX 180 4S 
pc CL23'FILE ACCESSING TOO SLOW* 

Dc CL2&*SEEKED TO WRONG CYLINDER'* 

Dc CL22*SHOULD BE AT 64 NOT XX! 

DC XL 4* 000000FF* 

oc XL4 #00008 164 * 

pec XL4*000000008 

Dc AL2 (MASTER-3) 

pc XL2*00008 

Dc XL2"40008 ~ 
pc CL23'TIME OUT ON RECALIERATE® 

pc CL30"°CYL O NOT ON AFTER RECALIBRATE® 

£QD0 xXx* a2? 

EQU X*AO* 

EQU xX*Z2° 

EQU X*A~A3# 

bc XL2" 0000! 

Dc xL2*0600" 

Dc <L16* STATUS XXXXXXXxX! 

END BEGIN 
0130670 O1MAR71 PROG ID 0A0E-3 
571531 571573 PAGR 12 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS 


AOE 


SYMBOL 


ABE 
ADREXT 
ADRFLD 
ALC 
ARR 


AOE 
BEGIN 
BELL 
BITO 
BIT1 
BUSY 
BYTEO1 
BYTE23 
BZY 
B01 
B23 
CAL 
CARL 
CKCYLF 
CKCYLR 
CKSEFK 
COUNTR 
CTRL 
CvD 


CYLs 
DATA 
TCECGAN 
DECONE 
DFCR 
DFC3SV 
DFDR 
DISKTP 
DONT 
EEROR 
ERRORS 


FORWD 
FOUR 
FROBYT 
PROM 
FRSTPS 
FSTERR 
FWDEND 
FWDS EK 
FWDTBL 
RA 
HALT 


HEXSTA 


HF 
HX BYT 


20 De oe be 0) 0 0 oe oe Oe >» > 3 


0) pe oD b> oe op Dm Db 7) 


OO pe a b> be De bp 


be 0 0 oe oe oe pe pe oe 02 9 oe ob 0) De 


SEEK FUNCTION ‘TEST 
LEN VALUE DEFN REPERENCES 
004 192B 1346 1268 
004 %<8&F7 1057 10718 
002 1935 1349 1269 1295 
006 1280 0859 0858* 
001 0008 1218 0020 0855 
1198 11958 
001 0000 0003 
004 OBB? 0126 1361 
008 1829 1284 1242* 12578 
001 0080 1223 
007 0080 1224 
004 150F 1071 0990 
002 1970 1358 1272* 1273 
002 1972 1359 1312* 1315 
001 OOA2 1354 13248 
001 OO0OA2 1356 1272 1299 
007 O0A3 1357 1312 
002 1939 1351 1271 
006 1848 1294 1286 
005 12BA 0861 0867 
005 1304 0883 0889 
003 13F9 0983 0980 
001 10A4% 0581 0532* 0537 
001 OOA6 1221 
004 1703 1193 0131 0162 
0584 0609 
022 1927 1345 1335 1338 
OC? OOAS 1222 
006 173y 1205 1208 
007 3754 1210 1207 
002 150A 1067 0975* 0985 
001 <4FE 1061 1001 1018% 
002 150C 1068 0986 
002 1502 1064 0966* 03969 
004 18aC 1324 1248* 1249% 
001 OOA0Q 1355 1284 1325 
051 Ooccc 0168 0133 0146 
0586 0593 
007 OD22 0193 1048 
002 15BB 1122 1120 
006 1731 7203 1200 
006 1717F 1260 11944 
001 <18FC 1059 0084* 1015 
004 OBAD 0114 0095 
002 12566 0873 0866 
003 18CEé 1045 1038 
007 12DD 0870 0860 
001 O03F 1234 
0071 0222 1231 0097 0147 
0523 0570 
008 1657 1179 1133 «©1168 
007 003C 1233 
001 1702 1192 1203* 1205 
003 1508 1066 0995* 0998* 
001 0003 i214 
0031 0076 1215 
001 159B 1110 O987* 1076% 
004 OAFS 0088 0085 
004 7887 1311 1246%* 12474 
001 <14FD 1060 1026* 1033 
004% <1I7AD 1252 1251* 1266 
004 1400 0985 0052* 0055* 
004 8048 0986 0063* 
001 0216 1228 0183 0263 
001 O22A 1232 0049 
004 185E 1299 1285* 1260* 
13 5AR70 O6APR70 22mAY70 
571512 571516 §71513 


9eoeqoeoeoeeedeeoe?esd28 ®& 


CROSS~REFER EXCE 
0877 0899 0900* 0901 0921 
1196 1197 1198* 1199 
1274 
1285 1299 1300 1311 
1311 
0538 
0213 0288 0280 0312 03489 
0927 0931 1032 10$3 
1027 
0976 
1263* 1264# 1301 13248 
0215 0228 0282 0296 0351 
1020 1022¢ 
0171 0229 0253 C257 G32 
0594 0618 0957 1090 1103 
1175 
1081 
1261* 1262% 12848 1325 
1036 70280 1047 1056 
1267 
0063 0068 0065 0066 00587 
0333 0396 O400 O869 0534 
1303 
01A0G70 OTHAR7 1 
571531 571573 


PART WO. 5129626 
PAGE 12a 
0968 1011 1113 «#1126 11938 


0378 O818 O888 O886 0515 


0362 04820 0832 0888 0899 


0363 0386 0433 0457 0500 

1281 1297 1308 1321 1339 

0068 0069 

0553 0572 1254 
PROG ID 0a OEF-3 
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IBM SAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129626 ee a IBM MAINTENANCE DIAGNOSTIC PROGRAS PART WO. 5129626 é 
PACE 13 GG © PAGE 13, i 
AOE3 SEEK FUNCTION TEST AQ E3 SEEK FUNCTION TEST ee 
GS CG = 
CROSS— REFERENCE CROSS- REPERENCE 

SYMBOL T LEN VALUE DEFN REFERENCES © G SYMBOL T LEN VALUE DEFN REFERENCES a 
MASTER & 004 1933 1348 1268* 1294% 1326 1334 1349 : RTNS A001 OF3F 0409 0343 
BINDEX A 037 158A 1107 1087 C ©@ RrySa 2 004 OF53 0418 0470 
MOVEBT A 005 145E8 1143 1158 RTNSB A OOR OFTD 0436 0427 
NEG7 A 002 1290 0887 1079 a 0 RTNSC A 008 OFS85S 0439 
NINE A 0017 OFES 0472 0467 CG RTNSD A 006 OFBC 0460 O4B& 0447 
WOSEEK A 008 14pD 1051 1037 RTNSE A O04 OFDS 0466 0437 0861 0463 
NOUNIT A 026 OB78 0112 0046 oe RTN6 A001 OFES 0479 0411 re 
NOO A 036 196E 1353 1289 CG oC RTN6A A OO8& OFFF O486 0539 
OLDADR A014 OD1B 0192 0949 1034 RTN6B A 004 1029 0503 0494 
ONE A 002 OD3Z 0196 0181 0265 0398 0402 0536 0537 0628 0863 0885 0900 1193 1198 aa RTN6C A 004 1031 0506 

1205 1275 1302 Ve © RTN6D A 006 1068 0526 0511 05144 
OTORZ A 006 172B 1202 1197% RTN6E A 004 1080 0532 0504 0527 0529 
PAR A 028 1911 1344 1330 a RTN6F A 00% 1084 0533 0540 
PRINT C001 O21A 1229 0043 0076 0080 0092 0143 0167 0225 0289 0293 0317 0359 0382 C RTN7 A OO1 10A5 0585 0481 

C429 0453 0496 0519 0565 0590 0614 0935 0941 0946 1084 1098 RTN7A A004 1081 0551 0629 

1138 11489 1172 4277) #1287 130% 1317 1328 1336 . os RTN7JE A OO& 10E8 0574 0556 
PRMLST A 002 11BB 0633 0550* 0551 05748 0628 LC ft RTN7C A 008 1123 0597 0583 
PRTEXT A OO& 1637 £41176 4126% RTN7D A 006 1162 0621 0605 0608 
PRTHEX A 004% 162F 1172 1161 Pe = RIN7E A 006 117A 0628 0562 0576 0598 0622 0624 
PRTSNS A 004. 15BC 1126 C091 0142 0166 0223 0248 0291 0316 0358 0381 0828 0452 0495 Ce RTN9 A O01 128D 0885 1237 
: 0518 05648 0589 0613 SAVSW A001 14FF 1062 0971* 0991 1019# 
PRTSPN A904 OADB 0076 0023 0074 s is SAYXR1 A 002 14332 0896 0865* 0866 0887* 0888 
RDDFC A 001 1358 0914 0157 0160 0163 0174 0176 0178 0239 02482 0245 0256 0258 0260 As ~ SCRCH A 001 14FB 1058 1040* 1041*® 1086* 1047* 1051% 1058 1055 

0307 0310 0313 0324 0326 0328 (C373 0376 0379 0389 0391 0393 SECMSG A 029 OB46 0110 0079 

0443 0446 O849 0460 0462 0464 0510 0513 0516 0526 0528 0530 s SECTS® C 001 020A 1226 0967 

0604 0607 0610 0621 0623 0625 0923 0928 0972# 2 C SEEKAT A 022 OCF8 0190 0922* 0929 09448 
RDID A 003 1858 1298 1244* 1259% SEEKDR A 021 ODOD 0191 1042* 1048* 10528 
RDIDER A 012 0C99 0187 0159* 0164 0170 6241* 0246 0252 0309* 0314 9320 0375* 0380 0385 z x SEEKER A OC8 135C 0921 0179 0261 0329 0394 0465 0531 0626 

O485* 0450 0456 C512* 0517 0522 0606* 0631 0617 - ~ SEEKSN A 00% 142B 0996 1000 
REAL A 002 1937 1350 1271* 1275* 1296* 1302* SEEKTO A 022 OCE2 0189 0933 0938 
RECAL A 001 1500 1063 0970* 1014* 1029 . 2 SEKERA A 00% 1375 0931 0925 
RECALE A 011 11B9 0632 0568 x te SENSA A 004 160E 1160 1155 
REMVDS A 001 OB24 0104 0030* 0059* SENSB A 003 1607 1157 1170 
RESTON A 005 143E 1001 0994 ae SENSE a 004 1333 0895 0070 0996 1072 1127 1163 
REV A 007 0D29 0194 1042 < we SETA A 006 OA72 0052 0034 
REVEND A 002 1330 0895 0888 SETADA A 004 149C 1032 1021 
REVTBL A 001 1327 0892 0882 > he SETADB A 005 14E7 1058 1013 1049 < 
RLDFCR A 008 48D 1027 00638* C we SETADR A 00% 1450 1011 0984 = 
RON kh 001 1771 1235 0547 SETB A006 OA7F 0055 0038 
RPFX C001 OAO03 1111 1094 SETBTH A 003 OAS3 0060 00S4 0058 oe 
RSIO aA 003 1891 1028 0069* 0979* 0982% CG. te SETDSK A 004 0A10 0020 0127 0210 0277 0346 O41&8 ONE3 ee 
RTIM A023 1950 1352 1279 SETEXT A 00% O0B20 0102 0020* 
RTN1 A 001 OBB3 0123 0012 Zs SETFIX A 008 13F1 0981 0977 a 
ETNIA A O0O& OBC? 0131 0184 c o SETRCL A 00S 1462 1016 1013 a 
RTNIB A GO&8 OBF1 0150 0140 SETSW A 001 OB26 0106 0021* 0047* 0088* 0099*% 0126 0209 0276 0385 0813 ©0882 08age 
RTNIC A 00% OBF9 0153 SETXR2 & 002 138E 0906 0964* 0965 1004 1 
RTNID & 006 0C30 0174 0158 0161 G & SET103 A 004 OADS 0075 - 
RTNTE A 0048 oc4us 0180 0151 0175 0177 SF100 A 002 1882 1342 1296 
RTN2 A 001 OD36 0205 0125 ita S10 A 003 1410 0989 0064* 0973* 0974* 09788 0981*% 5 
RTN2A A OO& ODUC 0213 0266 Ce SIQCAL A 003 17F7 1270 1240* 1255* i 
RTNZ2B A 004 OD76 0232 0222 SIOF aA 003 1858 1297 1243* 12588 
RTN2C A 004 OD7E 0235 cau sts SKEBEX A 004 13AS9 0960 0921* * 
RTN2D A 006 ODBS 0256 0240 0243 eae SKPEXT A 004% OB1C 0101 0087 
RTNZE A 008 ODCD 0262 0233 0257 0259 SKPUDT A 003 O0B25 0105 0022 0089* 0101% O850* 
RIN3 A001 ODDF 0272 0207 Zz SKTBL A 001 11BC 0634 0549 . 
RTN3A A 004 ODF3 0280 0338 ee SK100 A 00% 192F 1347 1294 
RTN3B A OO& OED 0300 0290 SLC A 006 112FA O881 0880 
RTN3C A 008 OF25 0303 an SLOW A 023 13F9 1343 1306 ~ 
RTN3D A 006 OEFSC 0324 0308 0311 ae SMSG A016 1982 1360 1316 1319 
RIN3E A O0O& OE74 0330 0301 0325 0327 i SNS A OOS 1345 0903 0067* 0902 
RTNS A 001 OF88 0341 0274 = SNSEXT A 008 17349 904 0$01# 2 
RTNSA A 0O% OEGE 0349 0403 eC f SNSID A 002 45E3 1142 0090* 0134* 0153* 0217% 0235* O2e84* 0302* 0352% 0369% 0422% 0439% 0489s be 
RTNOB A OO& OECB 0366 0357 : 0506* 0563* 0588" O60" 
RTESC A 008 CEDO 0369 »  SNSMOV A 006 133F 0902 0899 rn 
RTNGD A 006 OFO? 9389 0378 0377 GC SPRDLA A 001 OB28 0108 0052 we 
RINSE A 008 OFF 6395 0367 0390 90392 SPHDLB & 001 OB29 0109 0055 
DATE 134AR70 O6APR70 22HAY70 01AUG7O O1MART71 PROG ID DAQE-2 DATE 13 ARTO OGRPRTS Z2HKY70 C1AUG7O CINAEF* PROG ID ORCE-3 
EC NO. 571572 5771516 5371513 57 153% 5771573 PAGE 13 5 fe FC sO. 5871512 571516 571513 571531 571573 PAGE 434 rae 
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A0E3 


SYMBOL 


SPNMSG 
STATPR 
STATUS 
STATWD 
STAIO1 
STAT 23 
STEPEX 
STEPF 

STEPR 

STS ASK 
STPF WD 
STPREV 
STPREX 
STPSNS 
STREC 

STRTIO 


SVN BLK 
S@ITCH 
$1 
TCVD 
TEST 
THREEQ 
TIME 
TIMKON 
TIMNOUT 
TIXE 
TKCTR 
TOBYT 
TOOT 
TRACK# 
TSTBT 
TST ERR 
THRO 
TYBOT 
UDTPTR 
OFIND! 
GFIND2 
UNA 
ORB 
GRITS 
UNPACK 
UTAB 
YEREXT 
VERIFY 
WAIT 
WHAT 
WORK 
BRTDFC 


rR1 


XR2 


XR2WK 
ZERO 
ZROTO 


Ca 


bee mee tee ee tee pe ee fee Be) (C) De oe De 


poe pee few pes fee bee CD) bee he De fe ie Dew fae pew te De Dow pie ee bes De tee tw fee tee (De De) te 


aA 
A 
A 


SEEX FUNCTION TEST 


LEN 


024 
018 
002 
018 
001 
001 
004 
004 
004 
001 
003 
003 
004 
004 
006 
0.04 


007 
001 
004 


‘004 


001 
003 
092 
003 
014 
004 
001 
006 
00a 
001 
004 
003 
002 
006 
002 
004 
004 
003 
003 
010 
0014 
001 
0048 
CO4 
004 
004 
001 
001 


001 


001 


002 
003 
006 


VALUE 


OBSE 
1770 
1350 
1669 
0002 
0003 
12D9 
129D 
12E7 
16FA 
12C8 
1312 
1323 
15FD 
ITED 
13AD 


0D30 
0208 
1800 


* 4546 


0212 
1353 
159A 
1505 
15938 
1750 
0D35 
1746 
1789 
0B27 
15EE 
144a 
OD34 
1725 
OBAF 
OAZE 
OA2A 
oaonc 
OA OF 
T75E 
O21E 
0232 
15B6 
159C 
1413 
17B5 
150F 
1354 


0001 


0002 


150E 
OBB2 
1737 


DEFN 


0171 
1212 
0907 
1180 
1219 
1220 
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OA66 


SA6B 
OAGE 
OA72 


OA75 
OA7B 
OATP 
OA82 
OA85S 


OA89 
OA8C 
0aA90 
0A96 
OAIC 
OAA2 
OAAS8 
OAAE 


DATE 
EC WO. 


. PAGE i 
PBISK WRITE FUWCTION PES F 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 205 START 0 
3 DECK 4 
a. ORG x*OA00? 
Ss ER We ee aE HT HS MRS PISA Sw Ms CAE CE SEH SEKAESA OPER SE KSCMKARGRESAERRRSRAGRE 
6+ SECTION. PREPACE * 
7* : * 
A056 OA01 6 pc XL 2° A056* PROGRAM ID 
00 OA02 3 Dc XL7°OG* SECTION FLAGS 
01 0A03 © §©610 Dc EL7207" CURRENT ROUTINE BUNBER 
0000 on0S5) = 17 pc XL2°00° RESERVED 
cc2r oaoy 12 DC AL2 (RTN1) ADDRESS OF FIRST ROUTINE PREPEX 
193A ca09 = 13 pc AL2({ETABLE) ADDRESS OF ERBOR RECORDIHG TABLE 
A0%000 OACT ie pc XL3*a01000° 
Ss * * 
36 Se SE He Re Be EE ee RR OR ea a HE aH de Ss Se EE RH HHS HEL TS CHS STARR SE SRECALSERSESAREMASRSSRE RS 
7 . 
18 © 1. SET SWITCH 15 TO BYPASS BUNNHING ON THE REMOVABLE DISK 
19 « 2. SET SWITCH 16 TO BYPASS RUSNING OY THE PIXED DISK * 
20 * 3. SET SWITCH 1E TO BYPASS RUNNING OB DISK DRIVE 1 * 
21 « &. SET SWITCH 1F TO BYPASS RUNNING ON DISK DRIVE 2 * 
22 7 
34 C8 GAPB 23 SETDSK ST SETEXT+ 3,aRB SAVE EXIT ADDRESS 
3C FF 0819 2% NVI - SETS#, X*FF® SET SETUP SWITCH 
25 : 
3D 60 0817 . 26 CLI SDTPTR,O HAS POINTER BEEN YRITILIZED? 
F2 61 08 27 INE  UFIND1 JUMP IP YES oe 
C2 01 0232 28 LA UTAB, XB1 LOAD IP ¥O 
38 01 0817 29 OFIND2 ST UDTPTR,XR1 
35 01 OB17 30 UPIND1 L UDTPTR, XR1 
3c CO OB18 31 BVI RENVDS,O ZERO THE REMOVABLE ONLY S#ITCH 
38 02 0208 32 TBN SWITCH43,xX°02° TEST SSW TE 
F2 10 06 33 3T #49 JUMP IP OFF, BEVER RON DISK 1 
7D ad 00 38 CLI 0{, x81) ,X*A0® TEST FOR A UNIT ADDRESS OF ‘at 
F2 81 2F 35 JE SETA JUHP IP THERE IS ONE 
38 01 0205 36 TBR SWITCH*3,x*01° TEST SS¥ 1F 
P2 10 06 37 JT #49 JUMP TF OW, WEVER RUY DISK 2 
7D 80 00 38 CLI 0(,%R1),X"BOF TEST POR A UNIT ADDRESS OF 'B?* 
F2 81 2P 39 Jz SETB JUHP IP THERE IS ORE 
78 10 01 &0 TBN  1(,XR1),X°10? TEST POR LAST ERTRY 
D2 01 03 a4 La 3(,XB1) ,XR1 STEP POINTER TO NEXT ENTRY 
cO 90 Oa20 42 BF UPIND2 CONTINUE IP NOT THE LAST ENTRY 
CC 87 O21~ 43 B PRINT TO PRINT ALL UKITS SELECTED 
06 CaS& 4g pc XL7*06° PLaGS 
1A 0as5) 8S DC IL 1° 26% LENGTH 
0B15 0a5S7 —s__&&6 DC AL2 (HOUNIT) MESSAGE ADDRESS 
3C CO 0819 a7 NVI SETS®,O 
Oc Of OBI? 0820 88 BY¥C UDTPTR(2),T#OZE 
CO 87 022A a9 8 LOAD TO PRINT NO ENTRIES LEFT 
0040 . oa67 8650 DC XL2°40¢ FLAGS 
51 
08 00 198C OB1B $2 SETA ZZ LDFCR¢1,SPNDLA SET TO RUN ON SPINDLE ‘a? 
3C Fl OBuC 53 NVI SPNASG,C*'1° SET MESSAGE FOR SPINDLE *1%* 
F2 87 14 54 3 SETBTH PROCEED 
55 
08 CO 198C OBIC S56 SETB ZZ LDFCR+1,SPNDLB SET FOR SPINDLE B. 
3C F2 OBSC 57 MVI.- SPNNSG,C*2? SET MNESAAGE POR SPINDLE °2¢® 
78 01 02 58 TBN 2(,XR1),X*O1° TEST OPTION BIT FOR REMOVABLE ONLY 
F2 90 04 59 JF SETBTH JUMP IF BIT NOT ON 
3C FF 0818 60 SVI RENVDS,X*PF® SET BIT TO SPECIFY REMOVABLE OSLY 
61 
D2 01 03 62 SETBTH LA 3(,XR1),XR1 STEP POINTER TO NEXT ESTRY 
3& 01 0B17 63 ST UDTPTR,XR1 
08 00 1990 198C 64 SZZ  LDPDR+1,LDFCR+1 SET FOR CURRENT SPINDLE 
08 CO 19BD 198C 65 AZZ  SIO¢1,LDFCR¢1 SET FOR CURRENT SPINDLE 
08 00 19C0 198¢c 66 MZZ  =- WAIT#¢1, LDFCR+1 SET POR CURRENT SPINDLE 
08 CO 1A08 198C 67 SZZ  TSTERR+1,LDPCR¢1 SLT FOR CURRENT SPINDLE 
08 00 1A0B 198C 68 AZZ  TSTSCN¢1,LDPCR¢1 SET FOR CURRENT SPINDLE 
08 00 192E 198C 69 NZZ  SNS#1,LDFCR¢1 SET FOR CURRENT SPINDLE 
06 APR70 22MAY70 01A0G70 010CT70 28APR71 01J3U1L71 21APB72 PROG ID 0a0S-6 
571516 571513 571531 5715480 571565 571565B 571591 PAGE 1 
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4956 


ERR Loc 
OABS 
OAEA 
ACO 
OaAcé& 
OaACA 
OACB 
OacP 
GAD 
OAD6 


OADA 
OADE 
GADF 
OAEO 
OAEZ 
OAE6 
Oae?7 
ORER 
OAEBA 
OAEF 
OAPS 
OAPS 


OarCc 
0804 
oBOC 
OEM 
0814 


OB1T8 
OPIS 
CBA 
OBIS 
OBIC 
OBGD 
OBIE 
OBtr 
0827 
OF22 
OB2A 
0832 
0B35 
OB3L 
o0e8g5 
OBSD 
6855 
0850 
0665S 
OB6D 


DATE 
ec wo. 


DIS 
OBJECT CODE 


08 C0 
08 06 
08 690 
co 87 
02 

3C CB OBA 
38 08 1937 
F2 390 08 . 
3C 67 SBTA 


1A88 
TA&C 
VASP 
419290 


3398¢€ 
798C 
¥98C 


co 87 
01 

22 
OB6E 
co 87 
06 . 
18 
ORGC 
3c 00 
0c 02 
3c 00 
co 87 


O278 


O28 


16FP 
TOPE 
JASS 
0000 


IOrF 


CIDILIVOESDSCIL3 
E280C8CTESCS40C2 
CSCSDESOEICSE2E3 
csc 
0000 


09 

00 

00 

40 

BO 

00 

00 

ocoo 

00 
CODSESCIDIC9CHHO 
E2ZE2E680F 2C5E3E3 
C9psc7 
DED6EO4 OE 3CSE2ZE3 
CSLSC7TUOCHCIE2D2 
SOCUDYICSESCSAVJE? 
C2CSC7ICIDSYOESDS 
CSEICSHOCHUCIE3CI 
§OC6FUDSC3E 3C9DE 
DSYOE3CSE2ZE340C1 
POFS 


O6AFR7TO 
571516 


22mAY 
57151 


FUHCTICON FEST 





PRET BO. 3129628 
PAGE , Wa 


SOURCE STATEMENT 


BRITE 
ADDR STMT 
70 
71 
72 
73 
OaCcAa 748 
75 
76 
77 
78 
79 
80 
OADE 87 
OADP 82 
GAEI 83 
34 
OAE6 85 
OAE? 86 
ORES 87 
88 
89 
90 
91 SETEXT 
92 
0815 93 NOUNIT 
93 
93 
93 
0B1I7 Su UDTPTR 
0232 95 UTAB 
OBS 96 RENVDS 
OR19 97 SETS 
OBTA 98 TRACKS 
0B78 99 SPNDLA 
OB1C 1400 SPNDLB 
OBID 1101 RUNESY 
OBIE 102 RUNFIX 
0820 103 TWOZE 
0B21 104 PASS 
OB 3a 105 INWVPLG 
105 
105 
OBuC 106 SPHKHSG 
106 
106 
OB6E 107 SECASG 
107 
107 
107 
107 
70 01A0G70 
3 571531 


Zz RLDPCRE 1, LDPCR+4 1 SET FOR CURRENT SPIRDLE 
AZZ RSIO+1, LDPCH+4 SET POR CURREST SPINDLE 
AZZ RRAITE1, LDPCROT SET FOR CURRENT SPINDLE - 

8 SENSE 

DC =—s_—«s X“L4-° 028 ASK POR DEVICE STATOS BYTES 0 6 1, 
BPI TRACKS, 203 SET POR PULL CAPACITY DISK 
TBN STATUS, X*084 TEST CYL 100 BIT 

oF *+7 IF OFF, COETINUE 

VI TRACKS,103 SET POR HALF CAPACITY DISK 
B PRIST TO PRINT SECTION HEADING 

pC XLI*O1° FLAGS 

pc IL1*34a* LENGTH 

DC AL2 (SECHSG) BESSAGE ADDRESS 

B PRINT TO FRINT SPINDLE 

DC XL1* 06° FLAGS 

pc TL2°2u¢ LENGTH 

DC AL2 (SPKMSG) SESSAGE ADDRESS - 

MYI HDT BL+3,0 ZERO HEAD 

8 ¥C HOTBL42 (3) ,HDTBL*3 ERROR FLAGS 7 

svi FRSTPS, 0 SET SWITCH FOR RECALIBRATE 
B t-* EXIT 

DC CL26°ALL UNITS HAVE BEEN TESTED® 

pc XL2°08 

EQU x*232° 

DC XLI°O# 

pc XL1°O° 

pc XL7*00° 

pc XL1*a0°¢ 

pc XL7° BOF : 
DC XL1#C* 

pc XL17°O8 

DC XL2*08 

pc XL17*0° 

pc CLI9* INVALID SSW SETTING* 

DC CL24*NOW TESTING DISK DRIVE x* 

DC CL38*BEGIB WRITE DATA PUSCTIOS TEST AO0S® 

010CT70 2B8aPR71 C1JUL71 24APR72 PROG ID 0005-6 
571540 571565 571565B §71591 PAGE FY 
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‘« EBS BAINTENANCE DIAGNOSTIC PROGRESS PART NO. 5129628 a IBS SALNTZNANCE DIAGNOSTIC PROGRAS ‘“ E paar 0. eesagee 
a . . . Pace 2 fd. ee ys 4 ol. ae, oo 2 = . Pace 2a 
DISK WRITE FUUCTION TEST oo, AOS6 DIS K WRITE PERC T : o a TES? 
OBJECT CODF ADDR STMT SOURCE STATESEST ERR LOC OBJECT CODE - ADDR STNHT souRce (Statieer 
38 O68 OCOA 109 TSTSPN ST TSTEZT¢3 , ARB STORE BxiT ADDRESS _ 168 « i ROUTINE No. o1, CHEex PBNCTION OF #O RECORD FPOOND * 
3D 09 0321 410 cLI PASS,O IS TUIS THE FIRST Tras THROUGH ? 469 #. i SENSE BIT, {BYTE @, BIT 5) _ & 
F2 01 07 114 JHE SETSPR | gone iP 20 370 “ 
3C FF 0821 112 NVI PASS, X°FP* SET SHITCH 171 * & ROUTINE PREPACE s 
F2 87 Oc 413 a TSTSB a PROCEED TO TEST SWITCHERS le eae, es 472 & eS eas ed 
OD 01 OBIE 0820 128 SETSPN CLC RUNFIX(2) ,THOZR HAVE ALL DISKS BEEN RDN? OC2P 01 OC2P 173 ATT DC 4 ELI*O1* ROUTINE WO. 
F2 61°87 345 JE ZROCTR JUsP IF YES CC30 00 6C30 1474 DC = xLdeoos ROUTINE FLAGS 
F2 87 3c 7716 J SETRAV JOSP IP HO 0C31 ODES 0c 32 a3 DC £ AL2(BTE2) ADDRESS OF HEXT ROUTIBE 
: 1317) —C 176 Ss ; 
38 06 020a 118 TSTSY TBR SECTSH, X06" TEST POR BOTH SSH°S 25 & 16 OF 0C33 3D 00 0819 177 BEGIN CLI ¢ SETSH,O HAVE PARAMETERS BEEN ENTERED? 
F2 90 18 179 aF TSTREV JUSP IP BOTH KOT O8 0C37 CO 81 OACD 178 BE ° SeToOSK BRANCH IF wo 
CO 7 G2IA 120 | B PRINT TO PRIBT INVALID SSS SETTING 0C3B CO 87 OB6F 79 RINIA B TSTSPR 
C6 | os98 123 pc XL 7° c6e FLAGS OC3F 3C 00 1936 180 MYI  «STATUS-1,0 ZERO SENSE AREA 
43 - €B99 122 oc IL1°79¢e LENGTH . O0C#3 3c 09 1B6C “481 AVI S¥STB,09 INSERT ID IN PRIBT 
OB34 0B9B 123 DC aL2 {INVFLG) MESSAGE ADDRESS OC4’7 CC 00 197B OBIA 182 MVC = RD DPC+1 (1) , TRACKS SET TO SEEK THE CE TRACK 
adPa cB9D 128 DC XL2*a0rat BESSAGE ID OCOD CO 87 194F 183 8 . STRTLO TO 1/0 SUBROSTINE 
425 , 0c571 CO — 0c51 «184 DC Cté#ERKEZLAI 1: FONCTION CODE. (CONTROL) 
7 CO 87 0222 126 2 HALT TO DCP ERROR HALT cc52 CO ocS2 185 pc X19 00° ‘CONTROL CODE (SEEK) 
AOPra OBA3 127 pc XL2*aOFA* BALT ID 0C53 199A 0C58 186 pc AL2 (RDDPFC) CONTROL FIELD ADDRESS 
co 87 0212 ~~ 128 3 TEST TO READ CONSOLE SeITCBES 0c55 CO 87 OC6F 187 B RTNTA1 GOOD RETURE 
CO 87 ORSD 129 B TSTSH 0c59 cO 87 OCSD 7168 8 +44 ; 
38 OF 020A. 130 TSTRAY TBR SECTS, Z* 044 TEST FOR SHITCH 15 OF OCSD CO 87 1836 189 B  PRTSHS TO DECOGRE EREOR 
P2 77 0a 231 re  TSTPIX JuseP IF ON . 0C61 CO B87 D2TA 790 B PRIST TO PRIST 
3C FF OBID 132 | NVI RONRAV, 2° PE? IF NOT OW, SET TO RUN REMOVABLE DISK 0C55 06 0c6éS «191» DC XL 1° 06° PLAGS 
38 02 020A 133 TSTPIX TEN SECTSB,X*02* TEST POR SWITCH 16 OF 0C66 35 OC66 192 DC IL1°53¢ LENGTH 
F2 70 OB 1348 aT SETRAY JOSP IF ON | 0c6é7 OCF? oc6ésB 793 DC — AL2 (ERRORS) RESSAGE ADDRESS 
3D FF 08618 135 CLI REMVDS,X* FF CHECK THE RESOVABLE ONLY FLAG 0c69 CO 87 0222 . 194 B i HALT TO DCP HALT 
F2 81 04 136 JE SETRAY IF ON, BYPASS SETTING RON PIXED Oc6éD A009 OC6E 195 DC % XL2*Aa009¢ HALT ID 
3C FP OBIE 137 avr ROWPIX,X°FF* IP NOT ON, SET TO RUN FIXED DISK 196 é 
3D 00 OBID 138 SETRMV CLI RUNRHY,0 DO WE WANT TO RUN ON RENOVABLE? OC6F CO 87 17A0 197 RTNIAT Bo os TSTSEK TO TEST FOR GOOD SEEK 
P2 81 15 139 JE FIXED JO8P IF NO 0C73 3C FF 191B 198 avI x RDDPC+1,X* PF* SET CYLINDER MO. TO FORCE A 8RF. 
OF 017 1681 191F 740 ALC TBLE(2),ONE INCRENSERT TABLE POINTER 0C77 3C CO 191C 199 MVI «=—- RDDFC+#2,0 SET TRACK & 
3C 01 OC2E 181 NVI STEP,1 SET SWITCH TO INDICATE SABE OC7B 3C 00 191D 200 “VI «=RDDPC#3,0 SECTOR VALUZS 
3C 00 1899 142 SVi © DISKTP,0 SET TO RUN ON REMOVABLE 201 f ; 
3C 00 0B1D 143 NVI RUNRNY,O CLEAR RUN REMOVABLE ‘SaITCE OC7F CO 87 194F 202 8B { STRETIO 10 r70 SUBROU LINE 
F2 87 22 784 3 TSTEXT TO EXIT 0c83 o2 Cc83 263 oc & XL1*02¢ PUNCTION CODE (HRITE) 
1485 ocs4s co OCc8a 204 pc XL7*00* CONTROL CODE {DAaTA) 
3D 0O OB1z 146 FIXED CLI ROHPIX,0 DO WE WANT TO RUN ON FIXED? OCBS WIR ecsée 205 DC AL2 (EDDFC) CONTROL FIELD ADDRESS 
F2 81 1F 487 32 ZROCTR JUMP IF WO o0cs7? co 87 0Ccs3 ; 206 5 RTSTAZ GOOD RETURH, {ROT EXPECTED) 
OF 01 16£% 197F 143 ALC TBLH(2),ONE INCRESENT TABLE POINTER OC8B CO RF OCKP 207 B #4 
3D 01 OC2E 1489 GLI STEP, 1 TEST POR PREVIOUS STEP Oc8P CO 87 GCA3 208 B RTHIB BORNAL RETURN PROB EXPECTED ERROR 
F2 B1 06 150 BE #49 JONP IP YES 0CS3 CO 87 O2Z1A - 209 RYTNTAZ PB PRINT TO PRINT ROUTINE ERROR 
OE 01 1681 191P 151 "ALC 8=—s TBLHA(2) ,ONE INCREMENT TABLE POLNTER oc97 C6 ocd? 2140 bc XL7*C6* FLAGS 
3C 08 1499 152 AVI DISKTP, X°08° SET DISK TYPE TO FIXED oc38 54 cc9s) 271 BC ILi* eae LENGTH 
3c 00 OBIE 153 MVE RUNPFIZ,O CLEAR BUN FIZED SWITCH Cc99 OLCSF OcoR 212 DC AL2 (ERR 1A} ADDRESS OF LAST PRINT CHARACTER 
we 154 OCSP #010 oc9c) =. 293 pc XL2°a0170" HESSAGE ID 
0c0O7 cO 87 O000 455 TSTEXT B to EXxIT ‘ oc3sp cC 87 0222 274 8 HALT TO BCP HALT 
156 OCA? AQ10 CCA2 215 DC XL2*a010° BALT ID 
0C03B 3D 66 OA03 157 ZROCTR CLI X*0A03°, 06 CHECK FOR LAST RODTINE 276 
«  -OCOP 3C ©0 0821 158 SV¥I PASS,0 ZERO SWITCH OCA3 CO 87 1920 217 RTHIB B SENSE TO SENSE I/O SUBROUTISE 
0C13 F2 07 08 159 ‘ONE *e11 JUMP IF WOT LAST ROUTINE Oca7? 02 GCAT 218 pc ALT (STATO) DEVICE STATSS BYTES 06 1 
0C16 3c 00 0819 160 : MVE SETS¥,O0 RESET SWITCH 219 
~OC1A CC 87 0000 161 B 0 OCaB 38 08 1936 220 TBN STATUS-1,x°088 TEST BYTE 0, BIT S FOR OF 
OCTE 3C 00 OC2E 162 AVI STEP,0 ZERO STEP SWITCH 221 * THIS IS "NO RECORD FOUND® 
0C22 3D 03 OA03 163 CLI X*0a03'* ,03 CHECK POR COMPLETION OP ROUTIEE 3. OcaC F2 10 10 222 st RTEIC JUSP IP O8 
-, 0C26 CO @1 16C2 16u BE CKHDER BRANCH TO CHECK ERRORS 223 
“ OC2a cO 87 0216 165 B LINK TO NEXT ROUTINE Ocar CO 87 O2TA 2248 B PRINT TO PRINT ERROR 
0C2E 00 OC2E 166 STEP-- DC XL7i*o¢ OCB3 C6 0CB3 225 pc IL1°C6* PLAGS 
OCcRG 34 OCBS 226 DC IL1*52* LENGTR 
OCBS OD9F 0CcB6 227 DC AL2 (ERB 1B) ADDRESS OF LAST PRINT CHARACTER 
OCE7 A011 CCBB 228 DC XL2°A0118 MESSAGE ID 
0CB9 CO 87 0222 229 B HALT TO DCP HALT 
OCED a011 OCBE 230 DC ~. XL2*a011* HALT ID 
231 aoe 
OCEF CO 87 0C3B 232 RTNIC B RTW1A ROUTINE EXIT 
233 a 
OCC3 E3CACS8OD7IDICSES OCF1 234 DC CL4&7*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE * 
OCCE CSL6ESE280CSD9D9 238 
DATE O6APR70 22MAY70 01AUG70 010CT70 28APR71 0130L71 21APR72 PROG ID 0A05-6 DATE OG APRTO 22MAY70 0 1AUG70 010CT70 28APR74 O1JUL71 21APB72 PROG ID 0405-6 
EC NO. 571516 571513 571531 571540. 571565 571565B 571591 PAGE 2 EC WO. 571516 571513 571531 571540 571565 $71565B 571591 PAGE 2a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART uo. 5129628 ot IRM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129628 
PaGE S$ OY | PAGE | 3a 
A056 pPIsSKk #@RITE FuNCTION TEST xs A056 pIS kK WRITE PuNCcTIOOWN TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT COLE ADDR STAT SOURCE STATEMENT 
OCD3 D6DIEZLODEC3C IES 234 24a * ROUTINE KO. O02, CHECK WRITE FURCTIO‘ * 
SCDB DYDICSCYSOESBCBCI 234 245 *# USING HEADS 0 & 2 
OCE3 N3CS8OE2ZC5C5D2C9 234 246 
OCEB DSC7HOE3C8C540 234 ODES 02 ODES 287 RTN2 pc XL17°02° ROUTIWE WUABEB 
OCF2 C3C540C3E8D3 CCF? 235 ERROR DC CLO6'CE CYL* ODE6 GC ODE6 248 oc XL1*00* RCUTIRE FLAGS 
OCFS DSD68OC5D9IDIDEDI OD27 236 DC CL&8*NO ERROR WHEN EXPECTED APTER DOING & BRITE DATA * ODE? OFDO ODES 249 DC AL2 (RTN3) ADDRESS OF NEXT ROUTIBE PREFIX 
OD00 SOFECB8CSDS540CSE7 236 250 
ODO8 DICSCIE3CSCHBICI 236 CDES C2 02 16FB " 354 LA HDTBL-1,XR2 SET POINTER 
0D10 C6E3SCSDI“OCKDECI 236 ODED 34 62 16£1 252 ST TBLH, RZ FCR HEAD 0, REMOVABLE DISK 
CD18 DSC74ICINOFEDICYI 236 ODF1 3D 00 0819 253 CLI SETS#,0 HAVE PARABETERS BEEN ENTERED? 
OD20 E3C5S4OC&CTE3C 140 236 ODF5 CO 84 OAOD 254 BE SETDSK SHANCH IF NO 
OD28 C3DEDYDSCH8OEKE2 OD4YB 237 ERRYA DC CL36*COMND USING A HON EXISTANT SECTOR iD ODF9 CO 87 OB6FP 255 RTNZA 8 TSTSPS 
0L30 C9ILSC74HOC 14OD5D6 237 ODFD C2 02 %6E2 256 LA SECTBL, X82 SEP ERROR TABLE POINTER 
O0D38 DS&OCSE7CSE2ZE3CI 237 CEC? BC 00 17 257 4VI 23(,XR2),0 ZEKO SECTOR 
OD4O DSEIHOEZCSCIEI3D6B 237 GFOM AC 16 16 17 258 MYC 22(23,X82) ,23(,XR2) ELROR FLAGS 
opse pgeccgca 237 OEO8 CC CO 1917 OBTA 259 MYC WRTDFCe1(1), TRACKS SET WRITE ADDRESS TO CE TRACK 
OLBC DSTEHOD9ICSC34B4O CDIB 238 pc CLU8*NO REC. POUND SENSE BIT NOT SET BY A WRITP BATA * CEOE 3C 00 19148 260 AVI W@RTDFC+2,0 SET POk HEAD 0, SECTOR 0 
O0D54 C6DEESDSCUSOE2ZCS 238 O6F12 3C 00 ODES 261 4MVI EXPSEC,0 SET EXPECTED HEAD & SECTOR HO. 
OLSc DSE2ZCS40C2ZC IE 386 238 0276 3C 09 BKC 262 “VI SNSID,09 INSERT ID IN PRIBET 
OD6% DSDEE34OE2CSE34GC 238 263 
OL6C CZEBYOCTUOEEDICI 238 OFIA CC 87 194F 26u B STRTIO TO SEEK CE TRACK 
ODF FICSHOCKCTE3SCIANO 238 QETE CO OS1E 265 pc XL1°O?* FUSCTION CODE (CONTROL) 
OD?IC C3D6DULSCHYUCEYE2 ODOF 239 ERRIR DC CL36*COMND USING A NOW EXISTABT SECTOR ID* CEIF 00 OEIF 266 pc XL1°O° CONTROL CODE (SEEK} 
opee CYD5C74OC WWOD5DE 239 CE20 1916 O£21 267 pc AL2 (WRTDFC) CONTPOL PIELD ADDRESS 
OLrBC DSXOCSETCIEZEIC1 23° CE22 CC 87 OE3C 268 B RTNZA1 GOOD LETUsH 
CL°k DSESXOE2ZCSC3E3D6 239 0E26 CO 37 OE2A 269 B e+ 
orgsc c9eaccycs 239 OE2A CC 87 1B36 270 B PRTSNS TO DECODE ERROR 
ODAO C8CSCICK4HISOUDOE2 ODDZ 240 DC CL52"HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED APTER A ° OE2E CC 87 O21A 271 B PRINT TO PRIRT 
OCDA8 CSC3E3IDODISOC2ZES8 240 0£32 06 OF32 272 DC XL1*06°* FLAGS 
OpBO E3CcS&OD6C640C3D6 240 0233 35 0£33 273 DC IL 1* 53? LENGTH 
ODB8 PSE3SLILED340CECI 2480 O£34 OCP? CE35 274 pc AL2 (ERRORY) SESSAGE aDOBESS 
ODCO C5D3C48OC3CBCIDS 240 GCE36 CO 87 0222 275 B HALT TO DCP HALT 
ODC8 C7CECY4OCIC6E3CS 240 OB3A A009 0F3B 276 pc XL2*a009* HALT ID 
ODDO D94OC140 240 277 
ODDS DODSCSYOE2CSCIE3 ODE3 241 ERROZD DC CL16"ONE SECTOR WRITES OF3C CC 87 17A0 278 RTN2A1 B TSTSEK TO CHECK FOR A GOOD SEEK 
ODDC D6EDS4OE6DICIEICS 281 ' 279 
ODES 00 ODES 242 EXPSEC DC KL1‘O° OFNO 3C ET 1EFD 280 RTNZE SSVI WORK¢255,X°E7° SET DATA FIELD 
GES4 OC FE EFC 1EFD 281 “VC WORK+254 (255) ,WORK*+255 
282 
OESA 3C 12 1B6C 283 MVI SNSID,X*12° PGT MESSAGE ID IN PRIBT 
OBUE 3c CC 1919 284 “VI WRTDFC+3,0 SET TO WRITE ONE SECTOR 
OF52 CO 97 194F 285 B STETIO TO I/O SUBROUTINE 
CES6 02 0556 286 DC XL 1*02° FURCTION CODE (WRITE) 
CES7 00 CES7 287 pc XL1°00* CONTROL CODE (DATA) 
OESB 1916 OFES9 288 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
OF5A CO 37 0595 289 B RTNZB1 GCOD RETURN 
OFSE CO 37 OF62 290 B sey 
291 
OE62 CO 87 1D16 292 RTN2C 8B SHIFT TO SAIFT BITS POR DECISAL KUSBER 
CEG6 1916 OF67 293 DC AL2(WRTDFC) ADPRESS OF SOURCE 
OF68 CO 87 TD6A 294 B cvD TO CONVERT TO DECISAL HUABER 
OF6C 1D5B OF6D 295 pc AL2 (CYLNO) ADDRESS OF SOURCE 
OF6E OF70 CESP 296 pe AL2(ERBO2A) ADDRESS OF DESTINATION 
O£F70 3C 40 OF6E 297 SVT BRROZA-2,C* ° SET A BLANK IX PRIBT IBAGE 
OF78 CO 87 1652 298 B SETERR * "oO SET ERROR PLAG FOR THIS SECT. 
0278 CG 87 1B36 299 B PRTSNS TO PRINT SENSE INFO. 
OF7C CC 87 O21A 300 B PRINT TO PRINT THIRD LINE 
0280 06 CE80 301 DC XL17*°06" FLAGS 
OF81 59 O£E81 302 pc IL1*89° LENGTHS 
OF82 OF70 OE83 303 vc AL2 (ERRO2A) MESSAGE ADDRESS 
CE8& 38 01 1BCC 304 TBN TKCNSW,X*OT" 1S COND SW ON? 
OF8S CO 10 1DEB 305 BT ALARA GO TO PRINT #ARNING. 
ofac CO 87 0222 306 B BALT TC DCP HALT 
CE90 A012 OF91 307 DC XL2*a012* HALT ID 
OE9Z F2 87 68 308 J RTN2G 
309 
0£E9S CO 87 1748 310 RTN2Bi 38 TSTDAT TO TEST DATA ADDRESS 
OF99 12PE OE9A 371 pc AL2 (WORK #256) 
eens ae ee a oeaeea a yieae cee 01J0L71 2TAPBR72 PROG ID 0a05-6 DATE O6APR7O 22NAY70 01A0G70 010CT70 20AaPR71 01901471 2TAPRI72 FROG ID 0205-6 
° 65 5715658 571591 TAGE 3 EC NO. 571516 571513 571531 571540 571565 5715658 $71591 PAGE 3a 
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“ 288 MAIUTEMANCE DIAGNOSTIC PROGEAN 


a0S6 


ERR LOC 


DATE 
EC WO. 


PART 26. 


PAGE 
DIS kK ORYITE PBRBUCTION TEST 
OBIFCT CODE ADDER STAT SOURCE STATENEUT 
*. aa 312 a rae 
OF9B 3D. FF 1919 313 RTF2C? CLI WRTIDPCC3,X° FF® TEST SECTOR COUNTER FOR STEPPING. 

. CEOF FP2 841 10 © 3178 . Jf RTN2C2 PROCEED IF OK. 
OEA2 CO 87 OZ1A 315 B PRINT TO PRINT SECTOR COUNTER BOT STEPPED 
O£fA6 COC y OFA6 316 tc XL3°C6* FLAGS 
OFA7 2B. OEA? 317 pc IL2*a3* LENGTH 
CEAS OFOS OFAS 318 pc AL2 (ZRRO2B) MESSAGE ADDRESS 
OEAA a013 | OFAB 319 pc XL2*a013¢* MESSAGE IDEWTIFICATION 
OEAC CO 87 0222 320 B BALT TC DCP HALT 
CEFO a0%3 OFB1 321 DC XL2°a013° HALT ID 

ef é 322 
OFB2 OD 0O 1918 ODES 323 RTR2C2 CLC WRT DFC+2( 1) , EXPSEC CHECK HEAD & SECTOR NO. AFTER 
oo, : ; 324 WRITE IS COMPLETED, {EXPECT BO CHG.) 
OEBG F2 81 10 325 JE RTR2D PROCEED IF OX 
OESB CO 87 021A - 326 B PRINT TO PRINT ERROR 
OEBF C6 OEBF 327 pc XL 1° C6* FLAGS 
OECO. 4a ofcoO «328. pc IL1*68°*. LENGTH 
OEC? ODES OfC2 329 pc AL 2 (ERRO2D) MESSAGE ADDRESS 
OfCS A078 Orca 330 pc XL2*a018* HESSAGE IDENTIFICATION 
GECS CO 87 0222 331 B RALT TC BCP HALT 
OFCO agi4 . GECA 332 pc XL2*a014¢ RALT ID 
OECH e727 02 IPR * 333 RPN2ZD LA WORK | ERZ SET XR2 TO POINT TO #ORK AREA 
OECP BD E7 00 334 RTN2F CLI 0 (, X82) ,X*E7* CHECK WORK AREA POR NO CHANGE 
O£D2 F2 01 14 335 INE RTN2E JUMP TO PRINT IF WET. FLD. IS CHG. 
OFDS E2 02 01 336 LA 1, XR2) , X82 NOT DONE, INCREMENT XR2 
EDS 34 02 1939 337 st SHSXR2,1R2 NO CHG, SET TO CHECK NEXT BYTE 
VELC OD 01 1939 1827 338 CLC SNS XR2 (2) ,WORK1 CHECK XR2 FOR REACHED UPPER LIMIT. 
OFE2 F2 81 18 339. JE RTN2G TO ROUTINE END. 

OEFS CO 87 OECF 380 B BIN2F CHECK NEXT BYTE . 
CEES CO 87 O21A 381 RTNZE B PRINT TO PRINT DATA FIELD WAS CHANGED. 
OEFED C6 GCEED 342 pc XL1*C6? FLAGS 
OFEE 34 OEEE 343 pc IL13*52¢ LENGTH 
OEE? OFC? OEFO 344 DC AL2 (ERBO2C} MESSAGE ADDRESS 
OFF? 2015 OEF2 385 pc XL2* a0ts* MESSAGE IDERTIPICATION 
OFF3 CO 87 0222 386 B HALT TO DCP HALT 
COEF? a015 OfFB 3487 pc XL2*Aa0175* HALT ID 
348 

OEF9 3D SC 1918 349 RTN2G CLI BRT DFC*2,2°SC* TEST FOR LaST SECTOR OF TRACK 0 
OEPD F2 O01 08 350 JNE RTN2H JUSP IF NOT DOWE — 
OFO0O CO 87 1670 351 B CKHED TO CHECK FOR ERRORS 
OrPrO4s CO 87 ODFS 352 B RTN2A 
OFOS OF 00 1918 182B 353 RTN2H ALC WRTDFC#¢2 (1) , OWES EC NOT COMFLETE, STEP TO NEXT SECTOR 
OFCE CE CO ODES 182B 354 ALC EX PSEC (1) ,ONESEC INCREASE EXPECTED HEAD & SECTOR HO. 
OF14 CO 67 OF40 355 8 RTN2B REPEAT ON NEXT SECTOR 
OF 18 E3CBCSSODIDICSES OFSB 356 pc CL52'THE PREVIOUS EBRORS WERE PRESENT APTER DOING A WRITE* 
CF20 COD6E4E2ZHOCSDED9 356 
OF28 DELIEZKOESCSDSCS 356 
OF30 8OD7D9CSE2C5SDSE3 356 
OF38 BOC IC6E3CSD9NNCE 356 
OFSC DECODSCTKOCISDES 356 
OFS@ C9C9E3CS 356 
OFUC SOCUCTE3CI“OC3D6 OF70 357 ERRO2ZA DC CL37* DATA COMMAND USING HEAD X, SECTOR xx* 
OFSS DULACIESCUSCESE2 357 
OFSC cC9D5Cc74a0cscscica 357 
OF64 SOF76B40F2CS5C3E3 357 
OF6C D6OD9S0E7TET7 357 ; . 
OF71 F2CSC3E3DED94K0C3 OFIB 358 ERRO2B DC CL&3*SECTOR COUKTER IN CORTROL FIELD NOT STEPPED* 
OP79 D6EFEDSE3C5D940C9 358 
OF81 DS4OC3IL6DSEIDIDES 358 
OF89 D340C6C9C5D3C840 358 
OF91 DOSD6E340E2F3C5D7 358 
CF99 DIC5SCY 358 
OF9C E6DICIEZCS4YOC6CI OFCF 359 ERRO2C DC CLS2*WRITE FIELD WAS ALTERED AFTER GIVING WHT. DATA CAND. * 
OFAG C5SD3C4Y4OF6C1E240 359 
OPAC CIL3E3CSDICSC4HUO 359 
OFBY CIC6E3C5D940C7C9 359 
OFEC ESCOLSCTHOFEDYE 3 359 
OFC4 UBYOCEC1E3C140C3 | 359 

O6APR70 22MAY70 01A0G70 010CT70 2B8APR71 O1JUL71 21aPRI2 PROG ID OA0S-6 

571516 §71513 571531 571540 571565 571565B 


571531 


5129628 | 
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ERR LOC OBJECT CODE | 


1 can RRMRMNRNRRE te a oe | 6 eh enn RENNES NARI nn how LAO ANE SICA RATS IRGC IE IETS, 


Sine aH en ee eA weenie 
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38h 
weal 
eh 
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ADDR STBT SOUBCE STATERENT 


OFCC DELSCSSB 359 
DATE O6AFR70 22"2Y70 O1AUG70 010CT70 
EC NO. 571516 571513 571531 571590 














' : os 
oe yh * ve 
‘IBM SAINTENANCE DIAGNOSTIC PROGRAK PART NO. 5129628 as 

- ve PAGE .  § iro 
ee , ; : ox 
A056 DISK BRITE PURCTIOH TEST i 
‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT | 
367 * ROUTINE NO. 03, CHECK WRITE FUNCTION _® 
362 * USING HEADS 2 & 3 
363 
OFDO 03 OPDO 364 RTN3 DC XL1°038 ROUTINE NUMBER 
OFDI CO OfD1 365 BC XL1¢908 ROUTINE PLAGS 
OFDZ 117063 ‘OFD3 366 aC AL2 (RTRSY ADDRESS OF NEXT ROUTINE PREPIX 
367 
CFD4 C2 02 16FD 368 La HDTBL+1,XK2 SET POINTER 
OFDS 34°02 1681 369 ST TBLH,ERZ FOR HEAD 1, REMOVABLE DISK 
OFBC 3D 00 OB4S 370 CLI SETS, HAVE PARASETESS BEES ESTERED? 
OFEO CO 81 OAOD 371 BE SEYDSK BRANCH IF RO 
OPES CO 87 OB6F 372 RTN3A 8B TSTSPU 
OFFS C2 02 1682 373 LA SECTBL, ZB2 SET ERROR TABLE POINTER 
OFEC BC 00 17 3748 NVI 23(,X82),90 ZERO SECTOR 
OPEF AC 16 16 17 375 MVC 22(23,kK2) 23,282) ERROR FLKGS 
GPP3 OC 060 1917 OBIA 376 AVC MQTDFC+1 (2) , TRACKS SET BRITE AUCDRESS TO CE TRACK 
OFF9 3c 80 1918 377 M¥I «- WRTDFC+2,x°80" SET FOR HEAD 3, SECTOR © 
OFFD 3C 80 ODEs 378 avr EXPSEC,xX?#80* S28? EXPECTED HEAD & SECTOR FO. 
7007 3c 09 1H6C 379 SVI  SNSID,09 LWSERT ID IN PRINT 
380 
7005 cO 87 194PF 381 B STRTIO TO SEEK CE TRACK 
1009 00 1009 382 BC XLi*O® POUNCTION CODE (CONTROL) 
7CCA OC 10GA 383 pc XLi¢ 08 CONTROL CODE {SEERK) 
VBO0B 19176 400C 388 de AL2 (8RTDPC) CONTRCL PIELD ADDRESS 
4CCD CO 87 1027 385 B RTN3ZA1 GOOD RETURN 
1011 CO 87 1015 386 B *+4 
40975 cO @7 1836 387 B PRTSNS TO CECODE ZRROR 
16919 CO 87 Q27A 388 Rg PRINT TO PRIRT 
101D 06 101D 389 BC ZL1°06* PLAGS 
1O1E 35 10TE 390 pc IL1°53* LENGTS J 
TOF OCP? 1020 391 pc AL2 (ERRORS) HESSAGE ADDRESS ° 
4027 CO 87 0222 392 B HALT TO DCP HALT 
1025 A009 1026 393 pc XL2*a0098 HALT ED 
3948 
7027 CO 87 1740 395 RTN3ZAT B TSTSEK TO CHECK FOR A GOOD SEEK 
396 
102B 3C F? VEFD 397 RTN3B SYI WORK#255,X'E?! SET DATA FIELD 
¥02F OC FE 1EFC 1EFD 398 NYC WORK#25& (255) ,WORK*255 
399 
1035 3C 17 1B6C 400 NVI SNSID,x*17° PUT ID IH PRINT 
1039 3c 00 1919 401 NVI WRTDPC?#3,0 SET TO ¥RITE ONE SECTOR 
103D CO 87 194F $02 B STRTIO TO WRITE DATA 
1041 02 1047 803 Dc XL1°02° FONCTION CODE (WEITE) 
1042 00 1042 604 pc XL1*°00° CONTROL CODE (DATA) 
1043 1916 1049 6405 Dc AL2 (WRTDFC} CONTROL PYELD ADDRESS 
10485 CO 8&7 1080 406 B RTN3B1 GOOD RETURN 
1089 cC 87 104D 807 B *e4 
808 ‘ 
104D CO 87 1D16 609 RTN3C OB SHIPT TO SHIFT BITS POR DECIMAL NUSBER 
1051 1916 1052 %10 pe AL2 (WRTDFC) ADDRESS OF SOURCE 
1053 CO 87 1D6~A 811 i) cvD TO CONVEBT NOSBER TO DECINAL 
1057 1D5B 1058 412 pc AL2(CYLNO) ADDRESS OP SOURCE® 
1059 OF70 105A 813 pc AL2 (EBRO2A) ADDRESS OF DESTINATION 
1C5B 3C GO OF6E u14 MV¥VI ERROZA-2,C* * SET A BLAWK IM PRINT IMAGE : 
1OSF CC 87 1652 415 B SETERR TO SET ESROP PLAG POR THIS SECT. : 
1063 CO 87 1836 416 B PRTSNS TO PRINT SENSE INFO. 
1067 CO 87 O21A 417 B PRINT TO PRINT THIBD LINE . 
1C6B 06 106B 4818 pc XL1*06° FLAGS = 
106c 59 106C 419 pc IL1°89¢ LENGTA 
106D OF70 106B 420 pc AL2 (ERBO2A) MESSAGE ADDRESS ” g 
106F 38 01 1BCC 421 TBN TKCNSH,X*0O1* IS COND SW ON? - 
1073 CO 10 1DBB 422 BT ALARS GO TO PRINT WARNING 
1077 CO &7 0222 423 B HALT TC DCP HALT 
1C7B AC17 107C 4424 DC XL2*a017* HALT ID 
425 
107D F2 €7 68 826 a RTN 3G 
1080 CO 87 1748 427 RTN3B1 B TSTDAT TO TEST DATA ADDRESS 
1C84 1EPE 1085 428 pc AL2 (WORK #256) 
DATE ‘OG APR70 22MAY70 07AUG70 010CT70 28APR71 O1J0L71 21APR72 PROG ID 0aA05-6 
EC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 5 


IBN WAINTENANCE DIAGHOSTIC FROGRAM 


A0S6 


ERR LOC 


1086 
TCBA 
108D 
4091 
1092 
1093 
7Oa5 
1097 
109P 


IOSE 


70a3 
OAS 
TOAA 
TORS 
TOac 
tOaE 
T0B0 
TOES 


TOR6 
TOBA 
TOBD 
70C0 
10C3 
16Cc7 
19CD 
10D0 


70r4a 
7Crs 
10D9 
TOLA 
TCDC 
4OLE 
WWEZ 


10E& 
108 
TOEB 
VOEF 
10F3 
1CF9 
10OFF 


DATE 
EC NO. 


OBJECT CODz 


3D FP 
F2 81 
co 37 
cé 

28 
OFS5 
A073 
co 87 
A073 
oD 00 
F2 
co 
cé 
Be 
ODE3 
A0ts 
co 87 
AOTK 


87 
a7 


C2 
PD 
F2 
E2 
34 
GSD 
F2 
co 


G2 
ET 
01 
02 
02 
01 
81 
87 


co 
C6 
34 
OFCF 
£015 
cO 87 
Ags 


87 


DISK... 


4379, 


30° 
O2TA 


0222 


1i$78 


10 
O21A 


0222 


3918 


1670 
OPFEY 
1918 
CDES 
1028 


O6APR7O 


571516 


HRI? E 


FoR 


8 & © @ S Ss Z f ! wep eee ee re, : * z s . = io eS 3 5 “a 
> 


cTrroNw TEST 
ADDR STNST SOURCE STATENERT 
829 
830 RTN3IC1 CLI WETDPC+3,X° FF? 
434 JE | RTN3C2 
422 B PRINT 
1697 833 pe XL1*° C6? 
3092 434 pc ILt#uze 
1098 835 pc AL2 {ERRO2B} 
7096 836 pc XE27A07S* 
437 B HALT 
109C 438 Dc XL2°A013? 
- 839 
ODES 820 RTN3C2 CLC @RTDPC#2(1) , EXPSEC 
“ay = 
“42 JE RTN3D 
83 8 PRIBT 
FORA 484 pe XLIPcEe 
10AB 8&5 DC IL1°68? 
FORD 8B6 pe AL2 (ERRO2D) 
VOAP 447 Dc XL2*aOTKE 
aus B HALT 
7085 sag Bc XL2°a0 1749 
B50 
457 RTN3D LA WORK, XBZ 
452 RTN3P CLI 0(,XRZ) -X*E7 & 
B53 JNE RTN3E 
&S4 LA ¥(,XR2) ,XR2 
855 St SNSXR2,XRZ 
1827 u56 CLC SNSXR2(2} ,WORK1 
&57 JE RTN3G 
4SR B RTN3F 
“59 
460 RTN3E B PRINT 
1CD8 461 DC XLi*co6? 
10D9 462 pc IL?*52* 
1CDB 4863 DC. AL2 (ERRO2C) 
i0DDB 465 pc XL2*A075* 
865 B HALT 
40E3 66 c XL2* a0i15¢ 
467 
4868 RTH3G CLI WURTDPC+2, X* DCE 
469 INE RTN3H 
&70 B CKHED 
574 B RTNGA 
782B 472 RTS3H ALC WRIDPC42(1} , CHESEC 
1828 473 ALC EXPSEC (7} ,CHESEC 
u7u 3) RTRIB 
22MAY79 OTAUG7O 010CT70 28APR71 
§71513 571531 571540 571565 


0130171 
5715658 


5129628 - 


PART BO. 
| Sa 


PAGE 


TEST SECTOR COUNTER FOR STEPPIRG 
PROCEED IF O& : 

TO PRINT SECTOR COUNTER HOT STEPPED 
PLAGS 

LENGTH 

HESSACE ADDRESS 

HESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


CHECK HEAD & SECTOR HO. 
BRITE IS COSPLETED, 
PROCEED IF O& 

TC PRINT ERROR 
FLAGS 

LLSGTR 

RESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 

HALT ID 


APTER 
(EXPECT WO CHS.} 


SET 482 TO POINT TO VORK AREA 
CHECK WORK ARERR FOR 8O CHANGE 
JUSP TO PRINT IF WT. FLD. IS CHG. 
NOT DORE INCRESERT xR2 , 

NO CHG, SET TO CHECK HEX? BYTE 
CHECK XR2 FOR REACHED UPPER LIMIT 
TO ROUTINE ERD : 
CHECK REXT BYTE 


TO PRIBT DATA PEELD YAS CHANGED 
PLAGS 

LENGTE 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


TEST POR 3.AST SECTOR OF TRACK 4 
JUSP IF NOT DORE 

TO CHECK FOR ERRORS 

TO DCP IF COMPLETE 

ROT COMPLETE, STEP TO REXT SECTOR 
INCREASE EXPECTED HEAD & SECTOR NO. 
REPEAT OW NEXT SECTOR 


se ee 


are et 


27APR72 
571591 


0a05-6 


PROG ID 
SA 


PAGE 








IBS MAINTENANCE DIAGNOSTIC PROGRAM 


- A056 


ERR LOC 


1103 
T1048 
1165 


1107 
1108 
410F 
4413 
V7 
UV1B 
1724 
1425 


1129 
112D 
112E 
112P 
1131 
1135 
1139 
113D 
1141 
1142 
1143 
1745 
1149 


1743 


714F 
1453 
1159 


145F 
1763 
1167 
1158 
176C 
116D 
T16F 
1173 


1177 
1178 
T17FP 
11848 
17188 
1189 
148A 
148C 
1190 
1192 
1196 


1198 
119C 
119F 
TTA3 
71a4 
17A5 
VVA7 
T7A9 
" 11aD 


+ Si ep. 


reps 


“ORE oKpMe 


DATE 
EC NO. 


Povert ger. 


OBJECT CODE 


08 
co 
V2A1 


C2 
3% 
3D 


02 
02 
00 


co 
oc 
3c. 
3c 


0 
cea 
09 


co 
00 
09 
19346 
co 87 
cC 87 
co 87 
co 87 
06 

35 

OCF? 
cC 87 
adog 


87 


cc 87 
3C 
oc 
0c 


10 
FE 
FF 


3¢ 
3c 
co 
02 
co 
1916 
cc 87 
cc 87 


12 
01 
e7 


co 
35 
1c 
co 
06 
59 
1250 
cc 87 
AQ12 
co 87 
VEPE 


87 
01 
00 
87 


3D FF 
F2 81 
CO 87 
C6 

28 
OF9B 
A013 
CO 87 
A013 


DISK 


16FB 


T6E1 
OB19 
Oa0D 
OB6F 
1917 
19978 
BEC 


q9uF 


T1488 
1139 
1B36 
O27A 


0222 


1740 


TEED 
IFFC 
TEFD 


7B6C 
19179 
194F 


1192 
1177, 


1B36 
1621 


12464 
O2TA 


0222 


I7T4E 


1919 
10 
O27A 


0222 


OGAPR70 


571516 


“gat 


ADDR 


OB: 


IFFD 
VEFE |. 


04 


1703 
47104 
9106 


112d 
T12E 


1130: 


1481 
V2 
4144 


TINA 


1168 
116C 
T16E 


1188 
1789 
118B 


1194 


1197 


T1A3 
TiAa 
T1A6 
T7A8 


TIAE 


22MAY70 
571513 


PART RO. $129628 
PAGE 6 

TE FUNHCTIORN Pest 

STMT SCURCE STATEMENT 

876 * ROUTINE wo. O&, CHECK WRITE DATA eo. * 
aT] * USING MULTIPLE SECTORS * 
478 * HEADS 0 & 2 

879 . 

480 RTNG pc XL17°O8 ROUTINE NOMBER- 

881 pc XL1*00° ROUTINE FLAGS 

882 pc AL2 (RTNS} ADDRESS OF NEXT ROUTINE PREFIE 

883 oe 

aBu LA HDTBL-1, 582 LOAD HEAD BO. POINTER 

885 St TBLH, XR2 STORE 

886 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED? 

867 BE SETDSK BRANCH IF NO 

688 RTNGA 8B TSTSPR 

489 | VC WRIDFC+1(1) ,TSACKS SET WRITE ADDRESS TO CE TRACK 

890 VI WRYDFC+2,0— SET FOR HEAD 0, SECTOR 0 

$91 NVI SRSID,09. INSERT ID LN PRINT 

892 

493 B STRTIO TO SEEK CE TRECK 

4gu Dc XL1'O¢ FUNCTION CODE (CONTROL) 

495 pc AL4*0# CONTROL CODE (SEEK) 

496 pc AL2 {WRTDFC) CONTROL FIELD ADDRESS 

897 B RTNG AI GOOD RETURN 

ao8 B +o 

899 B PRTSNS TO DECODE ERROR 

500 B PRINT TO PRINT 

501 DC XIL1*06* FLAGS 

502 pc IL 1*53° LENGTH 

503 Dc AL2 (ERROR) MESSAGE ADDRESS 

504 B HALT TO DCP HALT 

505 pc XL2*a009¢ HALT ID 

506 

507 RTN4AT B TSTSEK TO TEST FOR A GOCD SEEK 

508 

509 RTNSB MYI WORK¢517,X%" 108 SET : 
510 . m9C WORK4#510 (255) ,WORKE511 2 SECTOR 

511 SVC WORK #255 (256) ,pWORK #256 WORKAREA 

512 

513 MYI SNSID,X*12° PUT ID IN PRINT 

514 VI WRTDFC+3,01 SET TO WRITE 2 SPCTORS F 
515 B STRTIO TO WRITE DATA, (2 SECTORS) 
516 pc XL1¢0O2* FUNCTION CODE (WRITE) 

517 DC XL1° 90" CONTROL CODE (DATA) 

578 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 

519 B RTNGB1 GOOD RETURN 

520 B eeu 
521 R 
522 RTNSC B PRTSNS TO PRINT SENSE INFO 

523 L TBLH,XR1 LOAD HEAD NO. POINTER ‘ 
524 SVC ERROGA-15(1),%8(,XR1) PUT HEAD HO. IK ERROR MSG. 
525 B PRINT TO PRINT 3RD LINE 

526 pc XL1°06* FLAGS 

527 pc IL1*89¢ LENGTH 

528 pC AL2 (ERROGA) SESSAGE ADDRESS 

529 B HALT TO DCP HALT 

530 pc XL2*a012" HALT ID 

531 RTNSBI B TSTDAT TO TEST TATA ADDRESS 

532 pc AL2 (WORK#512) EXPECTED ADDRESS 
§33 : 
534 

535 RTNUC1 CLI WRTIDPC+3,X* PF TEST SECTOR COUNTER FOR STEPPING 

536 JE RTNSC2 PROCEED IF OK 

537 3 PRINT TO PRINT SECTOR COUNTER NOT STEPPED 
536 pe XL1°C6* PLAGS 

539 _pe IL 1*43° LENGTH 

540 pc AL2 (ERR02B) MESSAGE ADDRESS 

591 BC XL2* 20138 MESSAGE IDENTIFICATION 

542 B HALT TO DCP HALT 

543 pc XL2*a013* HALT ID 
O1AUG70 010CT70 ZSAPR71 O1JUL71 2IAPR72 PROG ID OA0S-6 
571531 571580 571565 5715658 571591 PAGE 6 


ZPAH MAINTENANCE DIAGNOSTIC PROGRAS 


A056 - DISK. 


FUNCTION 


“PART. 80. 


PAGE 


5129628 


CHECK HEAD & SECTOR HO. AFTER 


WRITE IS COMPLETED, 


JUMP TFSTEPPED CORRECTLY 


FLAGS 
LENGTH 
MESSAGE ADDRESS 


MESSAGE IDENTIFICATION 


TO DCP HALT 
HALT ID Lis 


SET X82 TO POLHT TO WORKAREA | 
CHECK WORKAREA FOR NO CHANGE. 


JOSP TO PRT. IP wRT. 


PLD. 


SET TO. CHECK REXT BYTE 


STORE FOR COMPARE 


CHECK XR2 FOR SPPER LIAIT 


TO ROUTINE END IF DONE 


CHECK NEXT BYTE 


IS CHG. 


TO PRINT DATA -FIELD WAS CHANGED 


FLAGS 
LENGTH 
SESSAGE ADDRESS 


HESSAGE IDENYTIPICATION 


TO DCP HALT 
HALT ID 


ROUTINE EXIT 


CLS2*THE PREVIOUS ERRORS WERE PRESENT AFTER DOIG A URT. ° 


CL37*DTA. CMND. USING HD. X, SECTORS 0 & 7* 


CLS2*HEAD & SECTOR BYTE OF CONTROL FIELD HOT STEPPED CORR® 


CL28°ECTLY AFTER A 2 SECTOR WRITE®* 


RITE TesT 
ERR LOC ORJECT Core “ADDR STST SOURCE STATESENT 
58a 
VIAP 3D 64 1918 585 RTNGC2 CLI WETDFC#2,04 
, 546 = : 
1183 F2 81 10 587 J£ RTN&D 
1186 CO 87 O2Z1A 548 B PRINT 
T7BA C6 118A 549 DC” =XL7* Cee 
11EB 50 T1BB 550 pc IL1*66* 
11BC 12,0 11BD 551 DC AL 2 (ERRO&B) 
TIEBE AVS TIBP 552 pC XL2°a01788 
11C0 CO 87 0222 553 B HALT 
t4icH A019 71C5 «554 pc XL2*° 40018? 
555 ‘ 
11C6 C2 02 DFE SS@ RTRAD LA WORK, XR2 
1iCR BD 70 00 557 RTNUF CLI 0(,XR2) -X*10° 
ViCD F2 014 14. 558 INE RTNUE 
11DO F2 02 01 559 LA 1¢,XR2) , XR2 
11D3 34 02 1939 560 | ST SNSXR2, XR2 
V1L27 Ce 01 1939 1827 561 cLC SNSXRZ(Z) g WORK 
ViDD F2 81 4 ‘562 JE RTRUG 
V1EO CO @7 21CA 563 B RTNGF 
-- $64 ~ ee ? 
“VIER CO 87 O24:a 565 BTRGE 8B PRINT 
11E8 C6 V1EB8 566 DC XL1°C6* 
V1E9 3a VES 567 pc IL1*52¢ 
T1EA OFCF VIEB 568 DC: AL2 (ERBRO2C) 
TIEC AOS TIED 569 pc XL2°a015° 
TIEE CO 87 0222 570 B HALT 
V1IF2 A015 V4F3 #571 pc XL2* 20158 
572 
V1F& CO 87 1117 S73 RTRAG B RTNGA 
VIFS ESC8CSSODTIDSCSES 1228 574 pc 
7200 COLGESE2UDCSDIDS 574 
2208 DODSE2ZU0FEC5SDICS 574 
12310 SCD7LICSE2ZCSDSE3 5748 
1278 SOCIC6E3C5D9S0C4 S74 
1220 COCSLESCTISOCISOES 578 
1228 D9E34BN0 574 
122C C&F3ICISBSOC3IDYDE 4250 S75 BRROBA DC 
12324 CUNPUCESGE2ZCODSC? 575 
123C HOC8CUURYCETEBSO $75 
1244 EICSC3EIDEDIE2ZHO 575 
126C FOSOSOUOF? 575 
12©1 CEC5SCICUYISOKOE? 1284 576 pe 
7259 CSCZEITENIVCCZEB 576 
1261 E3C540D6CHh40C 3D6 576 
1263 DSEIDLSLEDISNCECY 576 
1271 CSD3CSXODSDOE3E0 576 
1279 E2E3ICSDIDICSECHHO 576 
1281 C3DED9D9 576 
1285 CSCIEIDZERKOC ICG 41220 577 ERROSB DC 
128D E3CSDI4OCI4OF2U0 577 
3295 E2CEC3EIDEDSROES 577 
129D L9YCSE3CS 577 
DATE OGAPRTC 22KAY70 QO 1ANG70 010CT70 2UAPRFt 
FC NO. 571516 571513 571531 571540 571565 


O13J0L71 
571565B 


2TAPRT2 
571591 


PROG ID 
PAGE 


‘OA05-6 
6A 


ca 


(SHOULD step)...’ 


# 3 





~ 
‘ ter 4 “ : 


eoeeceeesecoccs 


IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 


5129628 os IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. =5 129628 
PAGE 7 3 : PAGE 7a 
A0S6 DISK WRITE FUNCTION TEST <> A056 DISK WRITE PUNCTION TEST. 
EFR LOC OBJECT COLE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CCDE ADDR STMT SOURCE STATEMENT . 
| 579 * ROUTINE NO. OS, CHECK WRITE FUNCTION USING * 1343 CO 87 O21A 647 B PRINT TO PRINT HEAD & SECTOR ADDRESS 
580 * HEAD SWITCHING, * 648 * MOT STEPPED CORRECTLY 
581 * BEGIN WITH HEAD 0, SECTOR 23, * 1347 Co 1387 649 pc XL1"C6? Se ecta a 
582 © END WITH HEAD 1, SECTOR 0 * 1348 SB 1388 86650 bc IL1°91° : 
583 1349 1835 1342 651 DC ~< 7AK2{(ERRO5B) .cMESSAGE ADDRESS... | -7 0 - py yeay - 
12A1 05 12A1 S88 RTNS DC  xXL7#058 ROUTINE NUMBER 134E A019 134C 652 DC XL2* A019! NESSAGE IDENTIFICATION 
12A2 00 12a2 585 DC XL1*00! ROUTINE PLAGS 1348D CO 87 0222 653 B HALT raeae 
1243 1436 1284 986 DC AL 2 (RTN6) ADDRESS OF NEXT ROUTINE PREFIX eon Rely ti ee i aii mA 
587 | 
( SET XR2 TO POINT TO WORK AREA 
12a5 30 CC 0B19 588 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED? 1353 C2 02 DFE 656 RTNSD LA WORK, XR2 
12A9 CO 81 OAOD 589 BE SETDSK BRANCH IF NO 1357 BP E7 00 657 RINSF CLIO 0O({,XR2)¢X°E7® CHECK WRITE FIELD FOR NO CHANGE 
12AD CO 87 OB6F 590 RTNSA B TSTSPN 135A FP2 01 18 658 JNE -RTNSE JUMP TO PRINT IP WRT. FLD. IS CAG. 
1281 CC 00 1917 OB1A 591 MVC  «- WRTDFC+1(1) , TRACK# SET CYLINDER ADDRESS TO CE TRACK 135D E2 02 01 659 LA 1(, XR2) 4 XR2 NCT DONE, aes eee 
12B7 3c 5C 1918 592 NVI WRTDPC#2,x*SCt SET FOR HEAD 0, SECTOR 23 1360 34 0z 1939 660 ST SNSXR2,XR2 SET TO CHECE x 
12EB 3C 09 7ROEC 593 MVI SNSID,09 INSERT ID IN PRINT 1368 CD 01 1939 1827 661 CLC SNSXR2(2) WORK CHECK XR2 FOR UPPER LISIT 
598 136A F2 81 14 662 JE RTNSG IF DONE, GO TO ROUTINE END 
12EF CO @7 194F 595 B STRTIO TO SEEK CE TRACK _ _ 436D CO 87 1357 663 B RTWOP mot, BORE S: COECK BER BITE 
12¢3 00 12C3 S96 pc ILT#O8¢ FUNCTION CODE (CONTROL) 668 - eer 
12c% 00 12c4 597 pc XL1*08 CONTROL CODE (SEEK) 1371 CC 87 O24A 665 RTNSE B PRINT TO PRIHT DATA FIELD WAS CHARGED 
12C5 1916 12C6 598 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS 1375 C6 1375 666 DC xL1*Ce" ence 
12C7 CO 87 1281 599 B RTNSA1 S00D RETURN 1376 34 1376 667 DC IL 1*52* LENGT 
12CE CO 87 12CP 609 B *+4 1377 OFCF 1378 668 pc AL2 (ERRO2C) HESSAGE ADDRESS 
12CF CO 87 1B36 601 B PRTSNS TC DECODE ERROR 1379 A015 137A 664 DC XL2*A015° RESSAGE IDENTIFICATION 
12D3 CO @7 021A 602 B PRINT TO PRINT 137B CO 87 0222 670 B HALT TO DCP HALT 
12D7 06 12D7 603 pc XL1°06°* PLAGS 137F A01S 1380 671 ac XL24A015* HALT ID 
12D8 35 12D8 608 DC IL 1°53 LENGTH 672 aig: ‘nee 
12D9 OCF? 12DA 605 bc AL2 (ERRORY) SESSAGE ADDRESS 1331 CO 87 12AD oe RTNSG 8B RTNSA 
12DB CO 87 0222 606 B HALT TO DCP HALT 
12DF A009 1220 607 DC 1L2*A009° HALT ID 1385 F3CPCSYOD7DICSES 1388 675 pc CL52'*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A WRITE? 
608 a 1380 CSD6F8F240C5D9D9 675 
12E1 CO 87 17A0 609 RTNSA1l B TSTSEK TO CHECK FOR A GOOD SEEK 1395 DODIEZ4OFECSDICS 675 
610 139D SODTDICSEZCSDSE3 675 
12E5 3C E7 1FFD 6117 RTNSB AVI = WORK¢511,X*E7!" SET V3AS SOC ICOESCEDSNCCA 675 
1279 OC FF 1FFC 1FFD 612 MYC WORK*510 (256) ,WORK4#511 DATA Aes eee oe 
12EP OC FE 1EPC 1£FD 613 MVC WORK*#254 (255) ,WORK4+255 PIELD c : 
eaa (299), 1339 SOD6CH4OF2ZS0E2C5 13DA 676 ERROSA DC CL34* OF 2 SECTORS USING HEAD SWITCHING® 
12F5 3C 1A 1B6C 615 MVI SNSID,X*"1aA®* PUT ID IN PRINT 13C1 C3EILELIEZYOFUE? 676 
12F9 3c 01 1919 616 NVI - WRTDFC+3,1 SET TO WRITE TWO SECTORS ¥3C9 CSDSC74OCB8CSCICH 676 
12FD CC &7 194P 617 B STRTIO TO I/O SUBROUTINE | cae ecege ore pens 
1301 02 1301 618 DC 1L1°02" FUNCTION CODE (WRITE 
7302 Cu 1302 619 rc XL1*008 CONTROL CODE ishene : TICE CBCSCICHNOCSOSOE2 14802 677 DC CLO2*HEAD & SECTCR BYTE OF CONTROL FIELD NOT STEPPED CORR* 
1303 1916 1304 620 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS V3E3 CSCIESTEDIGOCZES 677 
1305 CO 87 131F 621 B RTNSB1 GOOD RETURN ' VIJEB EICSUCL6CE4OC 3D6 677 
4309 CO 87 130D 622 B *4+4 13F3 D5SE 3D9D6N 34 0C6C9 677 
623 13FB CSL3IC4UODSD6E340 677 
130D CO 87 18336 628 RTNSC B PRTSNS TO PRINT SENSE INFO. ie eases ees 
1311 CO 87 O21A 625 B -PRINT TO PRINT 3RD LIWE Cc. 
1315 06 1315 626 pc XL 1*06* FLAGS 14UOP CSC3EIDZEBHOCICS 1435 678 ERROSB DC CL39° ECTLi: AFTER A WRITE WITH READ SSITCHING? - 
1316 56 1316 627 DC IL1*86* LENGTH W417 EICSLINOC 1UOEEDS 678 
1317 13DA 1318 628 pc AL 2 (ERRO5A) MESSAGE ADDRESS WIP CIEICSUOFECIEICR 678 
1319 CO 87 0222 629 B #ALT TC DCP HALT 1427 SOCECSCIC4UUOE 2E6 678 
131D AO1A 131E 630 pc XL2*a01Aa* BaLT ID TU2P CIEIC3CBCIDSCT 678 
631 
131P CO 87 1782 . 632 RINSB1 B TSTDatT TO TEST DATA ADDRESS 
1323 1FFE 1324 633 . pc AL 2(WORK*#512) EXPECTED ADDRESS 
638 
1325 30 FF 19.9 635 RTN5SC1 CLI WRTDFC+3,X* FF TEST SECTOR COUNTER FOR STEPPING 
1329 P2 81 10 6 36 JE RTNSC2 PROCEED IF OK 
132¢ CC 87 021A 637 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED 
1330 C6 1330 638 pc XL1°C6* FLAGS 
133% 2B 1331 639 DC IL 1°93¢ LENGTH 
1332 OFOB 1333 680 Dc AL2 (ERRO2B) MESSAGE ADDRESS 
13348 A013 1335 681 pc XL2*a013° MESSAGE IDENTIFICATION 
1336 CO 87 0222 6&2 8 HALT TO DCP HALT 
133A A013 1238 6683 DC 1L2*a013* HALT ID 
648 . ; 
133c 3D 80 1918 645 RTWSC2 CLI WRIDPC+#2,x°80' TEST ENDING HEAD & SECTOR ADDRESS , 
1340 P2 81 10 686 JE RTKSD PROCEED IF OK 
DATE O6APR70 22HAY70 0100G70 010CT70 28APR71 013UL71 21APR72 PROG ID 0A05-6 CATE O6APRT7O 22mMAY70 01A0G70 010CT70 28APR71 01JUL71 21APR72 Bate ID ener e 
EC NO. 571516 571513 571531 571580 571565 5715658 571591 PAGE 7 EC NO. 571516 571513 571531 571565 5715658 571591 


571540 







“A056 


"ERR LOC 


1436 
1437 
1438 


1U3A 
143E 
1442 
1846 
1u4C 
1450 
14548 
14858 
1459 
145A 
145C 
1460 
1868 
1468 
146C 
146D 
1N6E 
1470 
1U 74 
1476 
167A 
1ATE 
1484 
748A 
TUBE 
1492 
1493 
1494 
1496 
149A 
1495 
14A2 
1446 
14A7 
1448 
TUAA 
14 AC 
18B0 


14B2 


14B6 


T8B7 
TeBB 
14BE 
1&C2 
1aCc3 


14c4 
14C6 


14C8 
14cc 


TACE 
1452 


14D4 


DATE 
EC NO. 


‘IBM MAINTENANCE DIAGNOSTIC PROGRAM _ 


DISK WRITE 


OBJECT COLE. 


680 * 
681 * 
682 
683 * 
684 
C6 1436 685 RTN6 
co 1837 686 
FFFF 1439 687 
688 
3c CO OBIS 689 
cO 81 OAOD 690 
CO 87 OB6F 691 RTN6GA 
OC CO 1917 OBIA 692 
3C DC 1918 693 
3c 09 1B6C 694 
CO 8&7 194P 695 
C0 1858 696 
oC 1059 697 
1916 185B 698 
CO 87 1476 699 
CO 87 1464 700 
CO 87 1B36 701 
CO 87 O21A 702 
06 EC 73 
35 146D 704 
OCF? 146F 705 
cO 87 9222 706 
A009 1475 707 
CC 87 17A0 708 RTNGAI 
3C EV FFD 709 RTN6B 
OC FE 1FFC FFD 719 
OC FF iEFD 1EFE 711 
3c €1 1919 712 
CO @7 194F 713 
02 1492 714 
co 1493 715 
1916 1495 716 
cO 87 14A~A2 717 
CO 87 1898 718 
CO &7 1&B2 719 
CO 87 O21A 720 RTN6B1 
C6 14Aa6 0 721 
&C “WAT «(722 
1562 1449 723 
AOIC 14AB 7248 
co 87 0222 725 
A01C 1881 726 
727 
co 8&7 1920 728 RTN6C 
02 14B6 (729 
730 
38 20 1937 731 
732 * 
F2 10 10 733 
734 
cC 87 O21A 735 
cé 14C2 736 
88 14803 737 
1SAA 14c5) 738 
AD1E 14C7. 739 
740 
CO 87 0222 741 
AOTE 14CD 782 
743 
CO 87 174E 784 RTN6D 
VEFE 7ap3 0 7as 
746 
3D CO 1919 747 
O6APR70 22MAY70 01A0670 
571516 571531 


£71513 


pe 
DC 


CLI 


ave 
AVI 
SYI 


MVI 


CLI 


070CT70 
571540 


PUN CTION TEST. 


ADDR STMT SOURCE STATEMENT. 


PART NO. 









oe PART "0. 5129628 
SS pa@R BRE 





JUSP IP CORRECT © 9°. -* 
TO PRINT SECTO: COUNTZIA NOT 
STEPPED CORRECTLY 
__. FLacs 
~"BERGTH- 4 Wea Se 
MESSAGE ADDRESS - 
‘MESSAGE IDENTIFICATION 


TO DCP HALT 
HALT ID 


CHECK HEAD & SECTOR NO. 
WRITE IS COMPLETED, 
JUMP IP NO CHANGE 
TO PRINT FRROR 
PLAGS 

LENGTH 
MESSAGE ADDRESS - 
MESSAGE IDENTIFICATION 


APTER | 
{SHOULD NOT STP) 


to er 


TO DCP HALT 

HALT ID 

TO SEEX TO CLEAR END OF CYL. 
FONCTION CODE (CONTROL) © 
CONTROL CODE (SEEK) 

CONTROL FIELD ADDRESS 

GOOD RETURN 


ROUTINE EXIT 


ON ERHKOR DID NOT BRANCH AFTER ATTEMPTING ¢ 


. 


SS ees 


CL2S'*TO WRITE PAST END OF CY¥L.* 


CLOS2°END OF CYL. SENSE EIT NOT SET AFTER ATTEMPTING TO ¥E* 


CL20°ITE PAST END OF CYL.* 


CLS2*SECTOR COUKTER IN CONTROL FIELD NOT STEPPED CORRECTL® 


= 


WRITE WITH END OP CYL. * 


CLS2*HEAD & SECTOR BYTE OP CONTROL FIELD CHANGED AFTER A * 


9a05-6 
8a 


PROG ID 
PAGE 


21APR72 
571591 


0130L71 
5715658 


5129628 ee IBM MAINTENANCE DIAGNOSTIC PROGRAM. - 
PAGE =~ 8 Pte Re ae fo pie ae a, es 
= A056 — DISK WRITE: PUNCTIOW TEST | 
ERR LOC OBJECT CODE ADDR STAT SOORCE STATESEST . -- 
ROUTINE NO. 06, CHECK FUNCTION OF END OP CYLINDER +& 44D8 P2 81 10 Fun JE RTNGE 
SENSE BIT, (BYTE 1, BIT 2) * 14DB CO 87 O2TA 749 Bs PRINT 
750 * 
ROUTINE PREFACE CRU kL pr eee >> , 18DF C6 ceutcr: 7 TEDF. 7591 DC = XL1*° 6° : 
1VEO 54 " “F6807 752 pe IL7*Bat 
XL1*068 ROUTINE NUSBER WQE1 1SPE 14E2 753 pe AL2 (EBRO6C) 
XL7*00! ROUTINE FLAGS 1423 A013 WEG 758 pe KL2¢a013¢ 
XL2* PRFF* LAST ROUTINE FLAG 755 
18E5 CC 87 0222 7156 8 HALT 
SETSH,90 HAVE PARAMETERS BEEN ENTERED? THE9 AO13 WEA 757 pe XL2*A013° 
SPTDSK BRANCH IF NO. 758 
TSTSPR WEB 3D DC 1918 759 RTN6OE CLI aRTDFC#2,X"DC* 
WRIDFC4+1 (1) ,> TRACKS SET SEEK ADDRESS TO CE TRACK 160 ® 
WRIDFC+#2,X*DC* SET FOR HEAD 1, SECTOR 23 VQEF F2 81 10 761 JE RTNOF 
SNSID,09 INSERT ID IN PRINT 14P2 CO 87 027A 762 B PRINT 
STRTIO TO SEEK CE TRACK TUP6 C6 14F6 763 pe XL1*C6?° 
ML-1°O-4 .FUNCTION CODE (CONTROL, Sop PORT &teccrug: 1UP7 «67648 DO». cp EE UNBSS 05. 
XL1°0O? CONTROL CODE (SEEK) 14P8 1651 -94F9 765 DC AL2 (ERROGD)~ 
AL2 (WRT DFC) CONTROL FIELD ADDRESS i4PA AOWF 18FB 766 pc XL2¢a01F* 
RTNOAI SCOD RETURN 767 
*+4 IFC CO &? 0222 768 B HALT 
PRTSNS TO DECODE ERROR 1500 AOIF 1501 769 Dc XL2*AO1F* 
PRINT TO PRINT 15992 CC 87 194F 770 RTN6OPF BL STRTLO 
XL1* 06? FLAGS 1506 CO 1506 771 pc XL7°0# 
IL1"538 LENGTH 1507 CO 1507 772 Dc XL1¢0* 
AL 2 (ERROR3) MESSAGE ADDRESS 1508 1916 1509 773 DC . AL2 (WRTDFC) 
HALT TC DCP HALT 15CA CC 87 150E 778 B *4+u 
XL2* A009! HALT ID 1502 cO 87 1512 175 8 +4 
TSTSEK TO TEST FOR A GOOD SEEK 1512 CO 87 1482 7176 B RTNGOA 
WORK#511,X"%E7* SET 777 ‘ 
WORK#510 (255) ,HORK*+511 2 SECTOR 1516 CIVOE3CSEZE34IC9 1549 778 DC CL52*A TEST I/0 
WORK+t 255(256) ,WORK+256 WRITE PIELD ISTE 6G1LEYOLEDS4OCSDS 778 
WRTDPC+3,01 SET TO WRITE 2 SECTORS 1526 D9ONSDINCCHCICHAD 776 
STRTIO TO WRITE DATA, (EXPECT END OP CYL.) - 5. ASZE, DEPSESUOC2DICIDS - - 778 iaeetae 
XLi°O2¢ PUNCTION CODE (8RITE) 1536 C3CBYOCICHE3CSDI 778 
XL1°008 CONTROL CODE (DATA) 1S3E GOCTESEICSDUDTE3 778 
AL2 (WRTDFC) CONTROL FIELD ADDRESS 1545 CSD5C740 778 
RTNOBI GOOD RETURN, (NOT EXPECTED) 1SUA EXLEGOE6DICIEICE 1562 779 ERROGA DC 
+4 1852 YCD7CIE2E 340C5D5 779 
RTNSC ERROR RETORN (EXPECTED) 155A C440L6C640C3E8D3 779 
PRINT TO PRINT NO ERROR FROS TIO 1562 4B 779 
XL1°C6* FLAGS 1563 CSESCUKDDECEN0C3 1556 780 pc 
IL1* 76¢ LENGTH 156B EFSLISPRXOE2ZCSDSE2 780 
AL2 (ERRO6A) MESSAGE ADDRESS 1573 CS¥0C2C9F34N0D5D6 780 
XL2*aQ1c* MESSAGE IDENTIFICATION 157B F3ISOE2ZCSE340C1IC6 780 
HALT TO DCP HALT 1583 F3CSD9N0OC IEIE3CS 780 
XL2*a01c* HALT ID Z 15€B DAD7TE3IC9IDSC7TUOES 780 Spy Se essa 
1593 CA4OEEDS 780 
SENSE TC SENSE DEVICE STATUS 1557 CYEICSHODICIEZE3 15AA 781 ERROGL DC 
AL1(STATO1) BYTES 0 & 1. ISYF GOCELECHRODECE LO 781 
1547 C3E@D34B 781 
STATUS,X*20! TEST BYTE 1 BIT 2 FOR ON, ISAB E2CSC3E3D6D940C3 15D 782_ pc 
(THIS IS *END OF CYLINDER®) 15B3 DEEYDSE3IC5D980C9 782 
RTNOD JUSP IF ON 15PB DSYOC3LELCEE 3DGD6 782 
: 15C3 D34CC6CIC5SD3ICH4O 782 
PRINT TO PRINT SENSE BIT NOT ON ISCB DSLGEIAOF 2E 3C5D7 782 
XL1°C6* FLAGS 15D3 D7C£C&40C 3D6D9D9 782 
IL1°72¢ LENGTH ISEB CSC3F3ID3 782 
AL2 (ERRO6 8B) MESSAGE ADDRESS ISDF E84OCIC6E3C5D940 15PE 783 ERRO6C DC CL32*Y AFTER A 
XL2*aQ1E¢ MESSAGE IDENTIFICATION ISEV CISCE6L9ICIE3CS4O 783 doa hp 
1SEP E6C9FIC8HOC5DSCa + 783 
HALT TC DCP HALT 15F7 8OD6C640C 3ESD 34B 783 
KL2*A0Q1E* RALT IDENTIFICATION 15FF CRCSCICHYOSOGOE2 1632 7848 pc 
ao 1607 CSC3F3L6D940C 2E8 784 
TSTDAT TO TEST DATA ADDRESS 160F E3CS&8OD6ECE6NCC3IBEG 7e4N 
AL2 (WORK+256} EXPECTED ADDRESS 1617 DSE3IDIDED340C6C9 764 
: 167F C5D3C440C3C8C1D5 788 
WRIDFC+ 3,00 TEST SECTOR COUNTER POR STEPPING 1627 C7CSC4& HOC 1C6R 3C5 784 
$ . 
28APR71 0130L71 21APR72 FROG ID 0405-6 DATE O6APR70 22MAY70 01A0670 010CT70 28apa7i 
571565 5715658 $71591 PAGE 8 4 $C NO. 571516 571513 — §71531 5715490 571565 
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oeeeeeeeeeeee7ee e282 eee ee eeeeeeeneeeens 
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PART HO. . 5129628 aang, 


“YBS BAINTENANCE DIAGNOSTIC PROGRAL - 
se j . PAT oe a e . PaGk 9 : > 
‘ACSS DISK WRITE FURCTION TEST =: 
ERR LOC OBJECT COLE ADDR STMT SOURCE STATENERT 
462% D940C 1&0 7846 
1633 F2Q0E2CSC3E3D6D9 1657 785 ERROG6D DC CL37°2 SECTOR WRITE WITH END OF CIL.° 
163E SORELOICSEIC5SSORG 785 
1683 CIPICBHOCSDSCANOD 785 
T6GEB CECENOCIEBD 348 785 
: 786 
786 
787 «© SET AN ERROR FLAG POR EACH SECTOR ERROR 
788 
4652 34 08 166F . 789 SETERR ST SETERX¢3, ARQ - SAVE BXIT ADDRESS 
9656 (€ 00 1662 DSB 790 NVC SETERA+2(1),CYLNO SET CURREHT CYL. WO IR SOVE 
“165C C2 02 16E2. 791. La SECTBL,XR2 LOAD XR2 AS POINTER 
- 1660 BC FF 00 792 SETERA SVX *%-©(,%R2),x° FF? SET a PFLAG FOR THIS SECTOR 
1663 35 01 16F1 . 793 L TBLH, XR1 LOAD HEAD POINTER 
1667 1C 00 OF65 Ou 794 avc ERRO2A~ 3°, SE4,ER Ty INSERT HEAD WO. IN.ERROR SESSAGE 
"466 CO 8&7 CODD ; 795 SETERX B . toe EXIT 
Te 796 , ; 
“797 «* CHECK FOR ERRORS ON ALL SECTORS 
“a ois 2 798 
1670 «38 08 16¢1 799 CKHED st HDEXT¢3 ARR SAVE EXIT ADDRESS 
4678 35 01 162% 800 | L TBLH, XR1 LOAD XR1 AS ERROR PFLAG POINTER 
1678 C2 02 16F2 Be LA SECTBL, XR2 LOAD X82 AS SECTOR PLAG POINTER 
467C BD CO 00 802 CKHEDA CLI 0(,XR2),0 CHECK EACH SECTOR FLAG 
167F F2 81 3c 803 JE HDEXT JUMP WHEN PIRST ONE XS POUND OFF 
4682 £2 02 01 8048 LA 1(,XR2),XR2_ STEP POINTER 
1685 38 02 1939 805 ST SNSXR2,XR2 STORE 
1689 CD C1 1939 16FB 806 CLC SNSXR2 (2), TBLEND CHECK FOR LAST ENTR 
168F CD 01 167¢ 807 BNE  CKHEDA BRANCH IP NOT DONE 
4693 7C FF. 00 808 MVI O(,XR1),X°FP* SET FLAG TO INDICATE DEFECTIVE HEAD 
1666 OC 08 173A 1749 809 HVC ONEHED-5 (5), RNYDSK SET MESSAGE FOR REMOVABLE 
169C 3D 00 1099 810 CLI DISKTP,O TEST FOR RUN ON KESOVABLE 
W6aC F2 81 06 811 JE €49 JUSE IP YES 
7603 OC 04 173A 17484 812 M¥C ONEHED-5(5), FIXDSK SET MESSAGE FOR FIXED 
1689 4¢ CO 1734 OB 813 BVC ONEHED-72¢1) ,4(,XR?) SET HEAD NUMBER IN HESSAGE 
16aE CC 87 O21A 614 B PRINT TO PRINT HEAD ERROR 
16B2 C6 16B2 815 DC XL1°C6? FLAGS 
16B3 22 16583 816 pc IL7¢ 344 LERGTH 
16B4 173F 16B5 817 pc AL2 (ONEHED) MESSAGE ADDRESS 
16B6 ACB6 16B7 818 Dc XL2* A086? RESSAGE ID 
16B8 CO 87 0222 819 B HALT $ 
16BC AC86 16BD 820 pc XL2* A086° HALT ID 
16BE CO 87 COO0 821 HDEXT B + EXIT 
822 
16C2 OD 03 16FE 174D 823 CKHDER CLC HDTBL¢3(&) ,FOURPF CHECK POR ALL HEADS PAILING 
16C8 CO 01 0216 824 BNE LINK ERANCH IPF NOT 
16CC CO 87 O21A 825 B PRINT TO PRINT ALL HEADS FAILING 
1600 C6 16D0 826 pc XL1'C6® FLAGS 
16D1 7A 16D1 6827 pe IL 1* 26° LENGTH . 
1622 171D 16D3 828 pc AL2 (ALLHED) MESSAGE ADDRESS “ 
16D4 A087 16D5 829 pc XL2*age7* - BESSAGE ID 
1626 CO 87 0222 830 B HALT ; 
16DA A087 16DB 831 DC. XL2°a087# HALT ID : 
16DC CO 87 0216 832 B LINK 
833 : 
16EC C000 16E1 834 TBLH pe XL2*08 : 
. 16E2 835 SECTBL EQU. ® 
16E2 CCCOCCCOCOOCO000 16F9 836 cc XL24*Q* SECTOR ERROR RECORDING TABLE F 
16FA CCCCCCCOCCCOOD0D 836 : 
T6PF2 CCCCCCCCCOCOD00D 836 : 
16FA 16F9 © 16FB 837 TBLEND. DC AL2 (*-4) : 
16FC 00 16PC 638 HDTBL pC XL7°O8 POR HEAD 0, RESOVABLE DISK 
16FD 00 16PD 839 9c XL1¢0° FOR HEAD 2, FIXED DISK 
16PE 09 160PE 840 DC XL1*08 FOR HEAD 1, RE®OVABLE DISK é 
16FP 00 16FP 641 pe XL1*Qf POR HEAD 3, FIXED DISK 
1700 FO 1700 842 pc CL1¢°O8 
1701 F2 1701 843 pc CLi*2° f 
1702 F1 1702 824 DCs CLIete : 
1703 P3 1703 845 DC CL1¢ 3° 
DATE O6APRT70 22KAY70 O1AUG 70 010CT70 2HAPR7 1 01JUL71 21APR72 PROG ID OA0S-6 
- BO NO. 571516 571513 571531 5715480 571565B 571591 PAGE 9 
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A0S6. 
ERF Loc 


1708 
170¢ 
1774 
q71C 
-U71E 
1726 
1722 
1736 
1732 
1780 
1785 
T78A 


TIE 
1752 
1756 
1758 
1761 
1765 


1766 
176C 


176F 
1775 


1778 
W7¢E 
177D 
TIVE 
1780 
1782 
1786 
1788 


178cC 
1790 
1791 
1792 
1794 
1796 
I79A 
179C 


17A0 
T7A4 
I7AR 


T7A9 
T7AC 
1781 
17B5S 
17B8 
T7BC 
17c0 
17C1 
17C2 
17C4 
17C8 
17CC 


DATE 
EC NO. 


DESK WRITE FOR 
OBJECT CODE ADDR STMT SOURTE 
E2D6LC3ICICKHOCSDS 177D Bk6 ALLHZD 
DILETSSOESCIE ICS 846 : 
&0C1D3D380C8C5C1 846 
C4E2 846 
EIDEDICICHROCSDS WRF 8&7 OKENED 
DILELI“OEGCSE ICE 847 
% OCBCSCICKLOETEO 8u7 
EVEVETETET&OCUC9 847 
22D2 | 847 
C6C9ETCSCH 1744 848 FIXDSK 
CSCSDYESaR 1789 849 REVOSK 
FFEFIPFFP 174&D 86850 POURFP 

851 
852 * 
853 * 
854 
855 
34 OF 179P 856 TSTDAT 
35 02 179F 857 
2c 01 1827 01 858 
OE 01 179F 1829 859 
co €7 1920 B69 
AB 1765 861 
862 
OD 01 1937 1827 863 
P2 81 2D R64 
865 * 
oD C1 1937 1A82D 866 
| 867 * 
P2 81 18 868 
869 «= 
CO 87 O27A 870 
cé 17W7C («871 
2B 177D «872 
1285e 177F 873 
AQ3F 1781 6874 DATID1 
CO 87 0222 875 
AC3E 1787 876 
ce 87 179¢ 877 
B78 
CO 87 O21A 879 DATOIA 
ch 1796 880 
9 1781) (881 
1971 1793 882 
AO3E 1795 883 DATID2 
CO 87 0222 B84 
A03F 179B 885 
cc #7 00CO B86 DATEXT 
887 
e868 
889 * 
890 
34 08 I7EA 891 TSTSEK 
CO 8&7 1920 892 SKTSTA 
02 17A8 893 
894 
33.10 1937 B95 
CO 10 17A8 896 
38 01 1936 897 
F2 10 36 898 
3C OF 186C 899 
cC €7 194P 900 
01 17c0 901 
01 17C1 902 
17EB 17C3 903 
CO 87 17DE 904 
co A7 17CC 905 
CO 87 1836 906 
O€APR70 22M AY70 O1A0G70 
571516 571513 571531 
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PART HO. 5129628 
PAGE 9A 
CTION TEST 
STATEMENT 
DC CL26*SOLID ERROR WITH ALL HEADS* 
DC CL38°SOLID ERROR WITH HEAD K XXKXXX DISK* 
DC CLO*PIXED® 
Dc CLS*REMV.® 
pc iL °FFPFPPFP * 2 
SUSROUTINE TO DETERAIHE IPF DATA ADDRESS .. 
_ IS STEPPING CORRECTLY . 
ST DATEXT+¢3,ARR SAVE RETURH ADDRESS —. 
L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POLNTER 
BYC WORK1 (2) 49 (, XR2) MOVE EXPECTED ADDRESS POR COSPARE 
ALC DATEXT*¢3(2), TNO. INCREASE EXIT ADDRESS 
8 SENSE TO STORE DATA ADDRESS 
DC AL1 (DATA) 
cLc STATUS (2) , WORK CHECK DATA ADDRESS : 
JE DATEXT JUMP IP ADDRESS HAS SiDPPRED cosRECT 
DATA ADDRESS DID NOT STEP CORRECTLY 
CLC STATUS (2),WORK2 CHECK DATA ADDRESS 
POR ORIGINAL VALUE 
JE DATOTA JURP IP DATA ADDRESS IS 
, STILL AT OBIGINAL VALUE 
B PRINT TO PRINT DATA ADDRESS NOT CoRRECT 
DC XL1°C6* FLAGS 
pc IL1*a3° LENGTA 
DC AL2 (DATPR1)_ ADDRESS OF SESSAGE Pe OE 
Dc XL2*AQ3E° MESSAGE IDENTIFICATION 
E HALT TO DCP HALT . 
pc XL2*AOD3E* HALT ID 
B DATEXT TO Exit 
B PRINT TO PRINT DATA ADDRESS NOT STEPPING 
pc XL.1°C6* PLAGS 
DC IL17¢*25¢ LENGTA 
pc AL2 (DATPR2) ADDRESS OP MESSAGE : 
DC. XL2°a03P* MESSAGE IDENTIFICATION 
B BALT TO DCP HALT 
Dc XL2*a03P° HALT ID 
B +-% EXIT 
COME HERE TO TEST POR A GOOD SEEK * 
ST SEKEXT¢3, ARR SAVE RETURN ADDRESS 
B SENSE TC SENSE DEVICE STATUS | 
pc AL1(STATO1) BYTZS O 6 1. 
TBN STATOS,X*10°® TEST THE SEEK BUSY SENSE BIT 
BT SKTSTA IP ON DO ANOTHER SENSE 
TBN STATUS-14,X°O1* TEST FOR SEEK CHECK 
JT SEEKER IPF ON, GO TO SEEK ERROR PRIBT 
NVI SNSID,X°OF® PUT ID IN SENSZ FRIMNT 
8B STRTIO TO SEAD ID & 
pc XL17°0 1° = 
DC XL1°QO78 y 
Dc AL2 (IDFLD- 2) 
3 CKID GCOD SETURE 
B seg 
8 PRTSUS ERROR RETURS 
010CT70 28AaPR71 0130174 27aPR72 PROG ID 0A05-6 
571540 571565 571565B 571591 PAGE 94 
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“EBN MAINTENANCE DIACHOSTIC PROGRAK , : PART HO. 5129628 a TBH MAINTENANCE DIAGROSTIC PROGRAR an PART WO. 5129628........ 
Besa i ve So PAGE 20 in : _ PAGE TOR 
a | 4 2 ae 8 | | : ., | aa te 
A056. —. DPYISK WRITE FuescTrrIOoONn TEST ; «> — A056 © — DISK WRITE PUNCTION TEST: ) 
‘ERR LOC OBJECT cope ADDR STBT SOURCE STATEMENT. : : _ ERR LOC OBSECT COLE ADDR STMT SOURCE STATERERT id . 
1700 CO 87 O21A. 907 3 PRINT TO PRINT ERROR OR READ 1D -18F3 DIDSCECHSOEGCECY 953 ; 
17D8 06. 97p4 908 pc XL1* 06° FLAGS '  8PB D3CSaODICSCICHCS 953 » 
17D5 3B 17D5 «909 pc IL7°59¢ LENGTH 1803 L5C76OCICHHOCIE3 953 2 
1706 1915 77D7 «910 pc AL2 (IDERR) MESSAGE ADDRESS . 19CB 4OE3CBC5 953 e 
17D8 CC 87 0222 $11. B HALT — ; 190F 4OC3C5&CC3E8D3 1915 958 IDERR pc CLO?* CE CYL* ¢ 
I7DC AOOF V7DD =—-9:12 DBC XL2*a00F* 1916 06. 1916 955 WRTDFC pC XL1*°00* & FLAG 
T7DE CD OO T7EC OBA 913 CKID CLC IDPLD-1{1) , TRACKS 1997 00 1917 956 Dc XL1*00* ue CYLINDER 
47ES F2 01 07. ' 944 SNE SEEKER 1918 CO 41918 957. pc XL17°00* en TRACK & SECTOR 
= ; 915 1919 00 1819 958 pc XL7*°00* . NO. OP SECTORS OR WO. OF TRACKS 
17E7 CO 87 0000 916 SEKEXT B *—* EXIT , 197A 00 191A 959 RDDPC DC XL1°900¢ ” FLAG 
47EB (Cv000. 17ED 917 IDFLD pC XL3*OG# ; 1978 00 1918 960 DC XL1°00¢ CYLINDER 
918 | : 191C 00 191C 961 DC XL1¢°00" 7 TRACK & SECTOR 
919 * CONE HERE IF AN ERROR OCCURRED * 191D 00 . 191D 962 pc XL1*90* = KO. OF SECTORS OR NO. OF TRACKS 
$20 * WHILE SEEKING THE C® TRACK * WIE GL01 i91F 963 ONE pc XL2*01* 
V7EE CC 87 ID6A $921 SEEKER B cvD SOQ FFEKEEE EEE EE EER ESS OEE EEE EES SREKE SE EARERER ESSERE EEK ERAEKRSEE SSE EBERES 
WF2 I7EC | 47P3 922 DC AL2 (IDF LD-1) 965 * SENSE I/O ROUTIRE 
“t7FA 1882 17F5 923 pc AL2 (ARIVED) 1920 34 08 1939 866 SENSE ST SNSXR2, ARB SAVE ADDRESS RECALL REGISTER 
17P6 CO 87 O21A 924 B PRINT TO PRINT ERROR ON SEEK 1924 35 01 1939 967 L SNSKR2,XR1 os LOAD XR1 BITH VALUE FROM ARE. 
17Pa C1 17FA 6925 pc XLV¢C18 FLAGS 1928 18 03 192 00 968 SNN 8 SNS#1,0(,XR1) - MOVE IN FUNCTION CODE 
T7FB 2A 17FB 926 bc IL1°42¢ LENGTH -162D 30 CO 1937 _ 969 SNS SNS  STATUS,0 < PERFORS SENSE 
VTEC. LaQE. . WFD 927 DC. = AL2 (SEKER1) ADDRESS OF MESSAGE 1931 CO 87 01 ‘ 970 ~ 8B “ 1,XB1) : EXIT 
V7FE A03C 17PF 928 SEEKID pC XL2* a03C* MESSAGE IDENTIFICATION 1638 0000 . 1935 971 SETXR2 DC XL2°O* 
1800 CO 87 O2TA ; 929 B PRINT TO PRINT SECOND LIBE 1936 0000 1937 972 STATUS DC XL2*0# 
1804 01 1204 930 - pc XL1°O18 1938 9000 1939 9¥73 SNSXR2 DC XL2*O* : . 
1805 17 1805 931 pc IL1* 23° 974 « EFPOR RECORDING TABLE * 
1806 1882 1807 932 pc AL2 (ARIVED) 193A 975 ETABLF FQU * ” “ 
«933 1S3a CO 193A 976 QCODEF pC XL1*°0# * *Q* CODE 
1808 CO 87 O21A . 934 B PRINT 193B 00 193B 977 CCODE oc XL1¢O°* s CONTROL CODE 
18CC 06 180C 935 pc XL1*°06* FLAGS 193c COCO 193D 978 SNSOT pC XL2°08 3 STATUS BYTES 0 & 1 
180D 28 180D 936 pc IL1*ao? LENGTH W93E TUCO 193P 979 SKS23 Dc XL2°*9O°* : STATUS BYTES 2 & 3 
18CE 18DA 180F 937 DC AL2 (SEKER2) ADDRESS OF MESSAGE 1ENC C(CCCCCOO 1943 980 DCFI pc XLetoe , DISK CONTROL FPIELD, (INITIAL) 
1810 3c 00 0821 938 VI PASS,O 1cua (CCOOCOD 1947 981 DCFF  oDc XL4&*QO# DISK CONTROL FIELD, (PINAL) 
7874 3c CO 08179 939 MVI SETSH,0 1948 0009 1949 982 DPCRI DC ZL2*O* CCNTROL REGISTER ADDRESS 
71838 3c CO 1498 940 NVI PRSTPS,0 SET TO CAUSE A RECALIBRATE 194A COO00 194B 983 DFDRI pc XL2*°0* : DATA REGISTER ADDRESS, (INITIAL) 
18ic cC 87 0222. 941 B HALT TO DCP ERROR BALT 19ac OCCOo 194D 98% DFDRP Dc XL2 *Q* x DATA REGISTER ADDRESS, (FINAL) 
1820 AO3C 1821 982 DC XL2* a03c¢ HALT ID 194E CO 1948E $85 ROUTNO BC XL1*0* ; CURRENT ROUTINE NO. 
1822 cO 87 0000 943 B 0 
1826 C900 1827 984 WORK1 DC AL 2 (*-*) 
1828 0002 1829 985 TWO )30 Ce XL2*02¢ 
1824 COOK 182B 946 ONESEC DC XL2° 04" 
182C DFE 1€2D 987 WORK2 DC AL2 (WORK) 
182E CUCTE3CI“SOCIC4CKH 1858 948 DATPRI DC CL43"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE® 
1836 COCSEZF2U0E6C1E2 948 3 
-- 983E WOR2E3CSDIDICSCH 948 | 
“#1806 UOEIDEGOCIDSC3IDS 9468 
| VRGE DSLICSCIE340FSC1 948 
1€56 D3EuCS 948 
1859 CUCTE3C1I40CICUCKU 1871 949 DATPR2 DC CL2Z5*DATA ADDRESS NOT STEPPING® 
1861 DOICSEZ2F2N0DSD6E3 949 
1869 GOE2E3C5D7D7C9D5 949 
1€71 C7 94g 
1872 CSDPSLIDEDI“ODECS 1898 950 SEKER1 DC CLU2*ERROR OCCURRED WHILE SEEKING THE CE TRACK, ® 
187A CIESLOLSCSCH4OES 950 
1882 CACOL3CS8OE2CSCS 950 
188A D2C9D5C740E3C8CS 950 
1892 4OC3CS40E3D9CIC3 950 i 
18SA L26B 950 om : 
189C CID9DICIESCSC44O 18B2 951 ARIVED DC CL23"ARRIVED AT CYL. NO. XXx°* 
18AU CIE3U0C3E8D34B40 951 
18AC DSCEUBUOETETE? 951 
(1883 DIESDSHOE2C5C5D2 18DA 952 SEKER2 DC CL40*RUN SEEK TEST SECTION AO3 POR MORE INFO.® 
IBBE YOFSCSEZF340E2C5 952 
18C3 C3E3C9DEDS4UNCTFO 952 
18CB F340CEDEDINOD4DS 952 
18D3 DOCSYOCOLSCODE4B 952 
18DB E3C8CSYOD7TLCICSES 190F 953 pc CLO2*THE PREVIOUS ERRORS OCCURRED WHILE READING ID AT THE® 
18E3 CID6EXE24U0C5D9D9 953 
T8EB DOL9E2UOLEC3IC3E4 953 
DATE CEAPR70 22MAY70 01AUG70 010CT70 28APR71 01JUL71 21APR72 PROG ID 0A05-6 CATE O06 APR70 22mAY70 0 1AUG70 010CT70 28APK72 O1JUL71 21APR72 PROG ID OA0S-6 
EFC WO. 671516 571513 571531 571540 571565 571565B 571591 PAGE 10 
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IBM MAINTENANCE DIAGHOSTIC PROGRAK - PART HO. $129628 = GRP SAINTENANCE DIAGNOSTIC PROGEAN - PART RO. 5129628 
; Peas ‘ : PAGE , ; _ 9t 3 : , 0 oa > ; i PAGE .. 9 Ua 
, A056 DISK WRITE PUNCTIOR TEST =~ a0s6é DISK BRITE FPURCTIOR TEST. 
£RR LOC OBSECT CODE ‘ADDR STAT SOURCE STATENERT ERR LOC ONJECT COLE ADDR STHT SOURCE STATEMENT ~~ se oh. Oe . 
987 * START L/O SUBROUTINE TASE Ci A2 FARE: 7055 RWAIT TIO *,x*:;2* wart oy ek me 
a Ss 688. : FaS2 BD CO O41 1895 1056 SETADA CLce 1(1,X82),LASTAD COHPARE PRESENT ADDR. WITH NEW ORE 
i 494PF 38 68 1935 989 STRTIO ST SETXR2, ABR SAVE ADDRESS EECALL REGISTER. 1a57 F2 81 25 1057 JB NOSEEK EQUAL, SEEK IS NOT NECESSARY 
= 1953 35 €2 1935 290 L SETXRZ,ERZ LOAD XR2 WITH VALUE PRON ARR. YASA F2 84 44 1058 oH FWDS EK YEW ADDR. HIGHER, DO FORWARD SEEK 
1957 3c 00 1497 994 AVY SAVSH,O0 ZERO SHITCH VASD RB OT 02 1059 SBF 2{,%R2} ,01 SEW ADDR. LOWER, SET BIT FOR BEV. 
» 1958 28 03 19BD CO 992 MEN SIO+1,0(,282} SET FUNCTION CODE VA6G CC OD 1893 7a95 1060 MVC SCRCH(1),LASTAD PLACE LAST ABBR IN WORKAREA . 
t 1960 2c CO 19BE 01 993 MVC =©9S$1042¢1),1{, X22} SET CONTRGL CODE in sro TA66 2F 00 1493 01 1064 SLC SCRCH(1),1{,2R2) SUBTRACT WER ADDE. FROS LEST ADDR. 
. 1965 2C 01 1A9B 03. O94 MYC | DFCR{2),3{,2%22) SET DATA ADDRESS FOR DFCR JA6B F2 87 17 . 1062 a SETADB PBOCEED 
: 196 38 C8 1299 995 TBH  DISKTP,xX*O8* TEST POR RON OM LOWER DISK TAGE BA G1 02 1063 FEDSER SBN 2(,XR2},01 SET BIT OR FOR FORWARD SEEK 
196E F2 10 OB 996 ST SET FIX Jum? IP YES TA74 2C CO 1093 OF {064 «VC 08©6«SCROH (2) 17 ¢,%R2) PLACE NEW ADDR. IN WORKAREA 
1971 38 08 19BD 997 SBP S10+1,x*088 SET FOR REMOVABLE DISK _ YA76'° CF CO 7A93 1095 1065 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROM HEW ADDR. 
a 1975 3B O08 Yaac 998 SBP RSIO+1,x*O8* SET FOR RENOYABLE DISK TATC F2 87 O6 1066 3  SETADB PROCEED cca Je 
* 1979 ¥2 87 08 999 J CKSEEK SUSP TO CHECK PCR A SEEK TATF BC CO 03 1067 NOSEEK AVI 3{¢XR2) 0 SET NO. OF TKS. CROSSED TO ZERO. 
= 167¢ 3A C8 19RD 1000 SETFIX SBN SI0+1,x'08* SET POR FIXED DISK TAG2Z F2 O7 OA 1068 J ADREXT TO EXIT . 
4980 38 08 TAUE 1001 SBH RSIO0+1,x°08* SET POR FIXED. DISK 1A8S5 SC GO 03 1493 1069 SETADB MVC 4(1,XR2),SCKCH PLACE IN RO. OF TRACKS CROSSED 
1588 BD OO 00 1002 CKSZEK CLI 0(,XR2},00 TEST POR SEEK . TABA 2C CD 1295 01 1070 BVYC LASTAD{(1),.1(,%R2) SAVE NEY ADDRESS ORS 
1987 CO 81 1410. 1003 . BE SETADR IF YES, GO SET ADDRESS TARE CO &7 C000 1071 ADREXT B a-% Exit 
1988 31 AG 1498 7004 LDPCR LIO DPCR,X'A6? LOAD CONTROL REGISTER 14893 CO 7A93 1072 SCRCH DC XL1*00* 
198F 37 Aw 1A9D 1005 LDFDR LIO DFDR,X°A4* LOAD DATA REGISTER 1A94 00 4A98% 1073 PBSTPS DC XL17*00t 
1993 Oc CO 193A 19RD 1006 MVC QCODE(1),S10+¢1 7a95 00 7A95 1074 LASTAD DC XL7°09* 
1699 CC 00 193B 19BE 1007 MVC CCODE(1),S10¢2 1896 00 1496 1075 DFC3SV DC XL1°0G* 
199F Oc 01 1949 1098 1008 aVC  DFCRI(2),DPCR 1A97 00 1A97 1076 SAVS® DC XL1*00¢ 
1945 OC 01 19488 1A9D 1009 SVC DFDRI(2),DFDR 1AS8 OOFP 1A99 1077 DISKTP DC XL2° FF? 
192B 35 OF 1098 7010 L DYCR,XR1 TA9A OCOD JAIB 1078 DFCR DC AL2 (*- S 
19AF 1¢ C3 1943 03 7011 avVC 8 =e DC F1(4) ,3(,XR1) TA9C 1DPE JAS9D 1074 DFDR- pC AL2 (WORK) 
19P4 3C 00 7AA2 1012 SVI  INDXPL,U RESET INDEX PULSE S¥ITCH 1A9E C000 JA9F 7080 XR2WK DC KL2*08 r 
19B8 C2 01 19C8 1013 LA 6600, X1 LOAD DELAY VALUE IN xR1 TAAO PIFP 1kA1 1081 NEG? DC XL2* PFPFt 
19BC F3 AO 00 1018 SIO SIO X*00', xZ*A0t START I/0 OPERATION VAA2 CC TAA2 1082 INDXPL DC XL1°9¢ 
19BP C1 AZ 1AA3 1015 WAIT TIO BUSY,X*A2®* TEST POR BUSY TAA3 38 01 1875 1083 BUSY ST TINE, XR1 SAVE COUNTER 
19C3 CO 8&7 1920 1016 B SENSE TAA? CC 67 1920 - 4088 B SENSE TO SENSE DEVICE SATAUS 
19C7 08 16C7 1017 pc XL1°Qu! VAAB 03 TAAB 1085 pe XL1°03°* : 
nA 18C8 Cc C1 194D 1937 101718 svc DPFDRF (2),STaATUS TAAC 38 CB 1936 1086 TBN STATUS-1,xX°08° TEST POR INDEX BIT 
ey 19CE 35 07 TA9B 1019 L DFCR,ER1 TABO F2 90 Cu 1087 JP 47 = af 
" 19D2 1c C3 1947 03 1020 SVC DCEP(S),3¢,XR1) 1AB3 3C FF 1AA2 1088 MVI INDXPL, X*PF* SET SWITCH TO SAY INDE RCV¥D. 
e 19D7 CC &7 1920 1021 B SENSE TAB? 35 01 1835 1089 L TISE,XR1 RELOAD TISE VALUE 
sj 19Ee 02 19DB 1022 pc XL1*02¢ TAER 36 O1 1AA1 1090 A NEG1,XR1 DECREMERT DELAY COUERTER 
19Dc OC 01 193D 1937 1023 4VC 5NS01(2),STATUS JABP CC &4 I9RP 10914 BH WAIT RETURN TO TIO IF NOT TIAE OUT 
19E2 CO &7 1920 1024 B SENSE VAC3 3D FF 1AA2 1092 CLI IVDIPL,X'PP* CHECK FOR INDEX RCVD. . 
19E6 C3 19E6 1025 pc XL1°038 VAC? F2 BT 10 1093 JE TCYD JUMP IF THERE WAS AN INDEX 
: 19E7 OC 01 193F 1937 1026 S¥C SNS23(2),STATUS VACA CO 87 C21A 1094 3 PuINT TO PRINT MISSING IHDEX PULSE 
$ 19ED OC CO 194E 0a03 1027 MYC ROUTRO(1),8PFY JACE C6 VACE 1095 pc KL1°C6! PLAGS 
i 19F3 30 FF 1A97 1028 CLI SAVS&,X'FF* IS SWITCH ON? VACP 25 IACF 1096 DC IL1°37* LENGTH . 
ie 19F7 CO 01 1203 1929 BNE LDXR2 IF NO, SKIP RESTORE TADO 1833 TAD? 1097 DC AL 2 (MINDZX) MESSAGE ADDRESS 
r 19FB 8C CO C3 1096 1030 MVC 3(1,XR2),DFC3SV RESTORE W BYTE TAD2 A089 JAD3 1098 DC XL2*a089* MESSAGE ID 
r 1A00 ER 01 62 1031 SBP 2(,XE2),01 TURN OFF THE POR/ REV BIT TADS’ CO BF 0222 1099 B HALT TC DCP ZEROR SALT 
1803 35 02 1935 1032 LDXR2 L SETXR2, XR2 RESTORE PARAMETER POINTER TADS A089 1AD9 1700 Dc XL2*acsg9¢ HALT ID oe 
§ 1007 F171 AO OC 1033 TSTERR TIO 12(,XR2},X*°A0* BRANCH IF ERROR TADA CO €7 ID6A 1101 TCVD B cvD TINE OUT OCCURED, CONVERT ROUT. NO. 
; 1A0A £1 24 O08 1034 TSTSCN TIO 8(,XR2),X*AS? BRANCH IP SCAN FOUND TADE CaQ3 VADF 1102 BC AL2 (RPFX) CURRENT ROUTINE NO. 
: TACD BO €7 08 1035 B &(,XR2) EXIT JAEO 1POE WAEY 1163 pc AL2(TINOUT) ADDRESS OF DESTINATION 
' 1036 ; YAE2 3C 4O 180C 1104 NVI TINOUT-2,c* ® 
; 1037 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE TAEG6 CO 87 C2TA 13705 B PRINT TO PRINT TISEOCT OCCURED 
t 1038 © DIRECTION (PORWARD OR REVERSE), TO SEEK IAEA C6 1AFA 1106 pc XL1°C6* FLAGS 
ii 1A10 34 C8 12392 1039 SETADR ST ADREXT¢3, ARR SAVE EXIT ADDRESS 1AEB 15 1AEB 1107 pc In3*21* LENGTH 
f 1A1G BD 01 01 10480 CLI = 74(,XR2),01 IS THIS A RECALIBRATE? | TREC 1BO0E TAED 1108 DC AL2 (TISQUT) NESSAGE ADDRESS 
s 1A17 CO 01 TA1P 1091 BNE *¢#8 IP NO, BYPASS SWITCH RESET TAEE ACBE TAEP 1109 DC XL2* AO8E* MESSAGE ID 
‘ TATE 3c GO 1098 1042 AVI FRSTPS,O BESET RECALIBRATE SWITCH TAFO CO 87 0222 1710 THALT B HALT TO DCP ERROR HALT 
TAIF 2C 01 1A9F 03 1043 AVC XR2WK (2) ,3 (-XB2) SAYE ADDR. OP CTL. PLD. ADDR. TAP4Y AOGBE YAPS 1411 DC XL2* aAOSE* HALT ID 
& Ya2u 35 02 1Aa9P 1094 L AR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. 1AP6 CC 87 COCO W142 B 0 
. TA2B 2C CO 1396 03 71045 AVC DFC3SV(1) .3{,XR2) SAVE ® BYTE IN CONTROL PIELD YAFA E3C9TSCSDOE4E3N) IROE 1113 TYNOUT DC CLZU°TINEOUT IN ROOTINE Xx* 
S VA2D 3C FF 1A97 1046 SVI  «-SAVSW,X* FF SET SAVE SWITCH 1B02 C9DSSODIDEEYE3C9 1113 
&, 1a31 3D CO 1094 1087 CLI FRSTPS,00 IS THIS FIRST PASS TEOA CSCSGOFTET 1113 
1035 CO 01 1052 1048 BNE SETADA SKIP RECALIBRATE IP NO 1BOF DSDE4OC9IDSCUCSE? 1833 1118 MINDEX DC CL37*NO INDEX PULSES SENSED BEFORE TINEOUT® 
1A39 3C 07 148948 1049 NVI PRSTPS,01 SET PIRST PASS SWITCH TEV? GOLTEYLIE2ZCSE200 1719 , 
1A3D BB 01 02 1050 SBP 2(,XR2),01 SET PWD/REV BIT TO BEV. TEVP E2CSDSE2CSCUNDC2 1119 
: 1A40 BC FF 03 1051 avr 3(.XR2) ,255 SET MAXIMUM TRACK CROSSING VE27 CSCELELICSLOEICYS 17148 
: 1a43 3c 00 1A95 1052 AVI = =LASTAD,00 SET OLD ADDR TO 0 1B2P CUCSDEEVE3 14 
Ke 1A47 31 AG 1A9B 1053 RLDPCR LIO DFCR,X*°A6? LOAD DATA CONTROL REGISTER 1B34 COO0O 1B35 1115 TIME pc XL2*O* 
: TAUB P3 AO 00 1054 RSIO SIO 00,Xx*AO0* SEEK REVERSE OAQ3 1116 RPFPX EQU  xX*~A038 
DATE O6APR70 22H AY70 01A0G70 010CT70 28APR71 01J0L71 21APR72 PROG ID 0A05-6 CATE O6APEFTO 22MAY70 01AUG70 010CT70 28APR71 0130171 21APR72 PROG ID 0A05-6 
FC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 11 EC NO. 571516 571513 571531 571540 571565 5715655 571591 PAGE tia. 
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; TES HAINTERANCE DIAGNCSTIC PROGRAM PART £0. $129628 ee IBA MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 5129628 
F : | PAGE 12 ey : PAGE 12a 
z A0ss DISK BRITE PUNCTION TEST = aosc DISK WRITE PUHCTION TEST 
: BRR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT EPR LOC OBJECT CODE ADDR STST SOURCE STATEMENT 
1118 * SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS o 1228 £340C3CB8C5SCID28O 1177 
oe 4119 é 1€30 4040 1177 er ae 
7836 38 C8 TECB. 1120 PRTSEHS ST PRTEXT¢3,ABR SAVE ADDRESS RZCALL REGISTER - 1C32 CUCTEZCVROCICRCS. 1043 1178 be CL18*DATA CHECK” * 
TE3AR CO &7 1920 4121 - 8B SENSE. TO PERPORS SENSE TC3R CILZ4O4OUDHOKOKD 1478 - 
1B3E 02 VE3E 1122 DC. ALI{STATO}} GET DEVICE STATUS BYTES 0 & %. 1C82 4940 1178 . 
1E3F CO 8&7 O2ZI1E 1123 BO UNPACK - TC UNPACK STATUS AYTES 1C44 DSBEXIDSCSC3DHDY 1055 11379 DC CLi8°NO RECORD FCUND ° 
1583 02 1243 1724 pc KL1*°02¢ 1C4C C440CEDG F4DSCaND 1179 
1B44 1937 TENS 7125 DC AL2 (STATUS) 1c54 8940 ; 1773 
1E86 IBES 1BG7 1126 pc AL2 (HEXSTA-4) 1C56 E3D260C3D6D5C4C9 1067 1180 DC CL18*°TK CONDITION CHECK® 
1B48 3B 01 7BCC 1927 SBF TKCNSH,X°075 TURN OFF TRK END S¥ITCH TCSE E3C9DENS UOC 3C eCS. 11.80 
TB4C 38 C2 1936 1128 TBN STATUS-1,xX°02° IS THIS TRK EXD CHK? 1066 C3D2 1180 
71850 P2 9C 08” 1129 aP e$7 1C68 E2CSCSD280C3CKCS 1079 1181 Dc CLI8*SEEK CHECK . 
1853 3K 014 1BCC 1130 SBR TKCNS¥,X"07¢ TORN ON TSK END SWITCH 1C70 C3D2ZUCROLOK CHONG 1181 
7B57 3¢ 01 1387 4731 AVI « STPSNS#1,01 SET FOR CCNPLETIOW CF PIRST BYTE 1C7B 8040 3 1181 
TESB C2 01 IBEB 1432 LA STATWD,KR1 SET XR1 TO POINT TO PIRST RESSAGE ICTA EYDSE2ZCICHC5S4ONO 1C8B 1182 pc CL18* UNSAPE ? 
iBSF C2 02 IDOE 1133 LA STMASK, XR2 SET XR2 TO POINT TO TEST SASK 1C82 GOUDEORORDNOYOSO 1182 
7863 CO 87 O21A 1134 B PRINT TO PRINT SNS WITH HEADING 1CBA 4540 1182 
1267 1 1B67 1135 | Dc XL?*C1° FLAGS IC8C SCC3CSUOFILICICI ICAR 1183 LNET DC CL32°*CE TRACK, HEAD X, IS DEPECTIVE*® 
1868: 01 1868 1136 DC IL1°018 LENGTH 1094 N26RLOCKCSCICLNO 1183 
1269 IBFB TE6A 1137 pc AL2 (STAT WD) ADDRESS OF LAST PRINT CHARACTER ICSC EVOBYOCIE2NOCHCS 1183 
¥26B x000" 1B6C 3338 SNSID DC XL2*a000* MESSAGE IDENTIPICATION FCAW CECSCIE3ICIESCSSC 1183 
7F6D 2C 00 1878 00 1739 MOVEBT MYC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS INSTRUCT. ICAC C3CG6LSEZKBYUOFICS ICDO 1184 pc CL37"CONT. TESTING MAY GIVE FALSE ERRORS. * 
1872 1¢ 1% IDED 00 1140 MYC STATPR(18) ,0 {,XR1) SET MESSAGE IM FLELD ICBM E2ZE3C9LSC74 ODUCT 1183 
1B77 38 CO 1936 1161 TSTBT TBN STATUS~1,#-# TEST CURRENT 3IT FOR OW ICBC FRUCCTICIFSCEUNCE 1184 
1E7a F2 90 08 1142 JF STPSNS BYPASS PRINT IF OFP 1CCK CIDIFEZCS4OCSDIDI 17184 
1BVE CC 87 O27A 1143 B PRINT TO PRINT SNS WITHOUT HEADING ICCC LOLYEZUB4O 1784 
1BB2 01 1B82 1184 DC XL1°01° FLAGS 1CD1 FIDGEBYOCIPOF9NO ICE6 1785 LNE2 DC CL22*TRY AU? TO CLEAR FLAG.* 
1883 12 . 1283 1185 - DC IL1* 188 LENGTH CLO FIDEVOCILICSC1D9 1785 
1888 1DFD 1385 11386 DC AL2 (STATPR) ADDRESS OF LAST PRINT CRARACTER 1CE7 BOCHD3CIC7UB 17185 
TRE6 3D CO 1878 1147 STPSNS CLI TSTBT?i,#-# TEST POR FINISHED ICE? CICENOEICSICIEZUI IDOD 1186 LNEI DC CL39"IP THIS HD IS ON A CE PACK, REPL. PACK.* 
1E82 F2 87 OA 1188 JE SENSA JUMP IF FINISHED WITH THIS BYTE ICEF CACUSCCIF240D6DS 1186 
1B8D E2 02 01 tiny LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT SASK BIT 1CF7 49CTHOC3ICSYODICI 1186 
1890 D2 01 12 1150 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ICFF C3D26BL0D9CSD7D3 1186 
1E93 CO &7 186D 1751 B NOVEBT GO TEST NEXT SENSE BIT 1D07 SBYOLICIC3ID 248 11A6 
1B97 3D 80 1887 1152 SENSA CLI STPSNS#1,X*80! TEST FOR COMPLETION OF 28D BYTE 1DOPR 1187 STNASK EQD * 
1E9B P2 81 22 1153 JE PRTHEX TO EXIT IF DONE IDCE 30802010 1D?1 7188 DC XL4¥ 480802010" 
1B9E 3C 80 1587 1154 AVI STPSNS+1,X'80? SET FOR CHECK CF 2D BYTE 1D12 €8040201 IDS 1189 pc IL4* 08069 201° 
1EA2 30 C1 1BB7 1155 ST SENSC4#3,XR1 SAVE XR1 1190 
JEAG CO £7 1920 1956 B SENSE TC SENSE 1197 * SUBROUTINE TO SHIPT BITS IN CONTROL PIELD 
EAA 03 TEAR 1157 - DC XL7°03° BYTES 2 & 3 1D16 38 CR IDSA 4192 SHIFT ST SHPEXT*#¢3,ARR STORE ADDRESS RECALL REGISTER 
1EAB CO @7 O021F 1158 B UNPACK TO UNPACK STATUS BYTES IDIA 35 61 IDSA 1193 1 SHPEXT43,XKR1 LOAD EXIT ADDRESS IN XK} 
BAF 02 TEBAF 1159" rc XL1°62° ID1F 35 O02 IDSA 1194 L SEPEXT43,XR2 LCAD ZXIT ADDRESS IN XR2 
iEBO 1937 1BB1 1160 DC AL2 (STATOS) 1D22 36 O2 1829 1195 A TBO, XR2 INCREASE BY 2 
TEE2 1BE9 1BB3 1161 Dc AL2 (HEXSTA} 1D26 34 02 IDSA 1196 T SHPEXT?@?3,XR2 STORE FOR TRUE EXIT ADDRESS 
1EB4 C2 01 0000 1162 SENSC La *-*,XB1 RELOAD XR1 ID2A 3C CO 1D5B 17197 MVI CYLNO,O ZERO WORK AREA ae eee 
1EB8 C2 02 IDOE 1163 LA STMASK, XE2 SET BIT POINTER 1D2B C2 02 IDSC 1198 LA SHFT BL, XR2 LCAD ADDRESS CF SHIFT TABLE IW XR2 
1BBC CO &7? 1890 1166 B SENSB TO PROCESS 2ND BYTE 1p32 75 01 01 1199 L 1(,%R1) ,XB1 LCAD CONTROL PIELD ADDRESS IN XR1 
VECO CO 87 021A 1165 PRTHEK 8B PRINT TO PRINT STATUS IN HEE 7D35 2c CO IDO O06 1200 MVCTSN MYC TBN*7(1),0(,XR2) INSERT CORRECT KASK FOR TEST BITS 
1BCU 02 1BC4 1166 oc XL 1°02 ID3A 2C CO Des OS 1201 MVC 9 - SBN¢1¢1} 65 (-XR2) INSERT CORRECT BITS FOR SET BITS 
TBC5 4D BCS 1167 Dc YL1°29* 1D3P 78 CC 02 1202 TBH TEN 2(,XR1),*-* TEST ONE BIT FOR OF 
1BC6 1BE9 TEC? 1168 pc AL2 (HEXSTA) 1082 F2 90 Ou 1263 JF +7 JUMP IF OFF ; 
1BC8 CO &7 000 1169 PRTEXT B a-* SUBROUTINE EXiT 1D4S 3a CO TDSRB 7204 SRN S8N CYLNO,*-* SET ONE BIT ON IN DECIMAL FIELD 
1BCC 00 BCC 1170 TKCNSW DC XL7°0° 1D89 3D 40 1N4Od 1205 CLI TSN41,K*°80O8 TEST POR LAST BIT 
TECD EZE3CVE3E4E2U0C2 1BE1 1171 pc CL21"*STATUS BYTES IN HEX, * ID4D F2 381 OF 1206 JE SHFEXT JUMP TO EXIT IF ALL DONE 
TELS ERE3ICSE24CCODENO 1971 1D50 £2 02 01 1207 LA 1€,XR2),XR2 NOT DONE, STEP XR2 
TEDD C8CSE7EB40 1171 1D53 CO €7 1D35 1268 8 EVCTBR TO TEST NEXT BIT 
TEF2 CCOOCCCOOCCCCCO0 1BE9 1172 HEXSTA DC XL8°0* 1D57 CC 87 9000 1209 SHPEXT 5 *-* EXIT 
1173 1C05B 00 1DSB 1270 CYLNO DC XL7*O" 
TREA DSD6O4ODED7404N040 1EFB 1174 STATWD BC CL16*NO OP : 1ESC 04 iDSC 1211 SHFTBL DC XL1*0g* 
TBF2 4CHONONOROUCHIUD 1174 1D5D 08 1259 1212 DC XLt*08* 
1EFA 4040 1174 IDSE 10 IDSE 4213 DC XL1°108 
TBFC CSDSE3CSD9ESCS5DS 1COD 41175 DC CLIS" INTERVENTION REQD.® 1D5P 20 DSF 7214 DC XL 1° 208 
1COW F3CSDELCS4CLSCSDB 1175 1D60 49 1D60 1215 DC KL1°9o8 
1cOC cuaB 1175 1D61 01 10617 .12%6 DC XL2°Q1" 
TCOE CD&C9SEZE2CIDSCT4O 1C1P 1176 pc CLI8S*MISSING ADDR. SARK® 1D62 02 1D62 1217 DC XL7°O2* 
1€16 CICUCUD94BUODECI 1176 1D63 C4 1D63 1218 DC XL 1°08e 2 
IC1E DOD2 1176 1D64 C8 iN6e 1279 oc XL7*08° 
1€20 CODEESCOD7DUC5DS 1031 1177 DC CLIB*EQUIPHENT CHECK * 1D65 10 165 1220 DC XL1I* 198 
DATE 06 APR7O 22MAY70 O1AUG70 O1OCT7O 28APR73 0133171 21APR72 PROG ID OA0S-6 DATE OGAPR70  22NAY70 OIAUG7O 010CT70 28APR7 1 01JUL71 21APR72 PROG ID 0A05-6 
EC NO. 571516 571513 571531 5715480 571565 571565B 571591 PAGE 12 EC NO. 571516 571513 571531 571540 $71565 571565B 571591 PAGE 12A 
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pst PAGE 13 - op : . PAGE _ Vtn 
A056. DISK WRITE FUNCTION TEESE = a0S6 DIs kK WRITE FUNCTION TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT , FFR LOC OBJECT COLE ADDR STMT SOURCE STATEMENT 
1D66 20 1D66 1221 pc XL1*#20° 1225 * SUBROUTINE TO CONVERT A KUMBER TO DECISAL 
1D67 20 1D67 1222 pc XL1*ao? 1D69 00 1269 1226 HXBYT DC rL17*0* 
1D68 80 1D68 1223 pc XL1°80# 1D6A 36 (8B 191F 1227 CVD A ONE, ARR ACD ONE TO GET FIRST PARANETER 
1D6E 34 CB 1D8B 1228 ST PRON¢5, ABR INSERT THE FROM ADDRESS 
1D72 36 O&8 1829 1229 A TWO, ARB ADD T#O TO GET THE SECOND PARAMETER 
1D76 3&4 C8 1D91 1230 ST TY BOT¢S, ARR INSERT THE TO ADDR 
1D7A 34 O8 1D97 1231 ST OTORZ+5 , ABR 
ID7E 36 C8 191F 1232 A ONE, ARR ADD ONE FOR EXIT ADDRESS 
1D82 3&8 Of IDBA 1233 ST TI XE+3, ABR STOKE EXIT ADDRESS 
1D86 OC 01 IDID COCO 1234 FRON MVC =—s- PROBYT #5 (2) - #-® 
1Z8C OC 01 IDBG 0000 1235 TYBOT SYC TOBYT¢3(2) ,*-* 
1D92 OC 01 1DA1 0000 1236 OTORZ MVC ZROTOe3 (2) ,%-* 
j 1D98 CC 00 1D69 0000 1237 PROBYT MVC HXBYT(1),9-* PUT BYTE IS WORK AREA 
IDIE 04 20 CO0O 1DEB 1238 ZROTO Z2AZ *-# (3), UNITS (1) ZERO THE TO AREA 
j IDAG OF 00 1D69 191F 1239 DECGAN SLC HXBYT(1),ONE DECRERENT THE HEX BYTE 
f IDAA F2 62 OA 1240 JL TIXE JUBP IP BELOW 1 
IDAD 06 20 0000 1DE1 1241 TOBYT AZ *-* (3) , DECONE(1) INCREAENT THE DECISAL COURT 
1DB3 CC 87 IDA 1242 B DECGAN 
1027 cO 87 0000 1243 TIXE B *-% EXIt 
i IDBB 346 O08 IDEO 1248 ALARH ST EALARN+3,X°08* STORE RETORS 
1DPF OC CO 1C9C OF65 1245 AVC LNE1-15(1) ,EFRO2&-11 SET HEAT &SG 
1DC5 CO R87 O21A 1246 B PRINT 
IDC9 02 1DC9 1247 pc xL1°02° 
IDCA 20 IDCA 1248 pc IL1* 32° 
ICCB 1CAB iwcce 12489 DC AL2 (LNE1) 
} IDCD CO @7 O21A 1250 B PRINT 
P IDDT 02 1DD1 1251 pc XL171*02° 
IDD2 38 1DD2 1252 DC IL1°59° 
| 12D3 1CEEé IDDS 1253 - pe AL2 (LNE2) 
1DDS CO 87 021A 125% B PRIWT 
IDD9 06 1DD9 1255 pc XL1°06* 
IDA 27 1DDA 1256 DC IL 1¢® 39° 
1EER 1IDOD IDDC 1257 pc AL2 (L¥E3) 
i 1DDD CO A7 0000 1258 EALARS B es 
1DE1 F1 1DE1 1259 DECONE DC CLi*1* 
IDE2 FIF2ZP3F4FSP6F7F8 IDEB 1260 UNITS DC CL10* 1234567890* 
IDEA FOFO 1260 
1DEC 1DFD 1261 STATPR DS CL18 
IPE 1262 WOrk EQU) ® 
IDFE TEFD 1263 DS CL256 
1EFE : IFPD 1264 DS CL256 
0003 1265 AI EOD) x #03" HALT DISPLAY 1 
CO76 1266 H2 EQG x*76° HALT DISPLAY 2 
CCO1 1267 XxR1 EQD) «OO 
. COO2 1268 XR2 FOU) «O22 
CCOA 1269 ARR EQU) O88 
0002 1270 STATO? EQU x*O02* 
CCO3 1271 STAT23 EQU  x*03* 
; OOA6 1272 CTRL FOU X* A6* 
COA4 1273 DATA £Ou xXx*faae 
CO80 1274 BITO £QD) Os x* B08 
CO4O 1275 BIT Broo x*uoe ja 
C208 1276 SWITCH FQU x*208° 
O2Z0A 1277 SECTSW EQU x*20aA°* 
C112 1278 TEST EQU) s«K® 222° 
CZ16 1279 LINK ZOD) x*216° 
021A 1280 PRINT EQU X*21A® 
- OZ1E 1281 UNPACK EQD xX*21E® 
0222 1282 HALT EQU x*222* | 
OZZA 1283 LOAD BQO x*22a° , 
003C 1284 HF ZOU) X* 3c" HALT DISPLAY F 
CO3P 1285 HA EQU x°3P¢ HALT DISPLAY A 
0226 1286 PACK EQU) X*226° 
. CC33 1287 END BEGIN 
ed 
DATE OG6APR70 22mAY70 01a0G70 010CT70 28APR71 01JUL7i 27APR72 PROG ID 0005-6 DATE O6APR70 22maY70 01AUG 70 010CT70 28APR71 0130171 21APR72 PROG ID 0a05-6 
RC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 13 
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TEN MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129628 TBM RAINTENANCE DIAGNOSTIC PROGRAS , oe PART WO. 5129628 
=! ny ae a PAGE 14 , PAGE . 14, 
Leg. : ; . . af z . “. 7 . : i é . 3 5 ; Vane 
pp. Bese es DIS K @RITE PUNCTIANR TEST: oe * a0s6. pISsk BRITE FUNCTION TESA 
5 - _. CROSS~REPERENCE. . : CROSS~ REPERENCE 
.. SYMBOL T LEN VALUE DEFN “REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
e ADREXT A COM ABF 1071 1039* 1068 0706 0725 0741 0756 0768 0819 0830 0875 088% 09113 0981 1099 
rb ALARM A GOS <I5PRR 1264 0305 0822 > | 11710 
on ALLHED A 026 -3171D C846 0828 HDEXT A OO& 168E 08621 0799¢ 0803 ° 
sf ARIVED A C23. 1882 0951 0923 0932 3 | HDTSL A 001 16FC 0838 0088* 0089 9989* 9251 0368 O888 0823 
bk ARR Cc 001 0008 1269 0023 0109 0789 0799 0856 0891 0966 0989 1039 1120 1192 12278 | BEXSTA A 008 1BE9 1172 71126 1161 1168 
Py 4228 1229% 1230 1231 1232* 1233 | HF C C01 £03C 1288 
rt aos A CCY COCO O02 ; | AXBYT a 007 D639 1226 1237% 12398 
‘, BEGIN aA OC8 0C33 0177 1287 H1 Cc 0601 0093 1265 
«* BITC C OCT OCBO 1274 . #2 c CO? 0076 1266 
oe BIT1 C 009 0080 1275 IDERR A CO? 1915 6954 0910 
“ BUSY aA COS AA3 1083 © 1015 IDFLE A 003 IVWED 0917 0903 0913 0922 
| €CODE a 001 1938 C977 1007* INDXPL A O07 1AA2 1082 1012* 1088¢ 1992 
: CKHDER A O0C6 26C2 0823 0164 IWVFLG A C19 OB38 O1CS 0123 
t CKHED aA 004 1670 C799 0351 0470. LASTAD A CC? 1295 1074 1052* 1056 10609 1065 1070# 
z CKHEDA A 0C3 167C Ca802 0807 LOFCK a 0048 1988 1008 — 0052 0056* 2064 0065 0066 0067 0068 0069 0070 0077 0072 
: CKID A CO6 ‘FIDE 0913 0904 LOFDR A OOU 198P 1005 C0oKRse 
"  CKSERK A 0C3 139848 1002 0999 LDXR2 A COS 1203 1032 1029 
CTRL C001 COAG 1272 LINK C 001 0216 1279 0165 0824 0832 
CBD a Q0% 4D6A 1227 C29 0447 0921 #1101 ~| . LNFI A 032 CAB 1183 1245* 1249 
. CYLNO aA OO1 PSB 1210 0295 0812 0790 11978 12044 LNE2 aA 022 ICE6 1185 1253 
" CATA C001 COA& 1273 0861 LNF3 A C39 1D0D 1136 1257 
‘4 BPATEXZT A O0OW’ 179C 0886 0856* 0857. 0859* 0864 0877 LOAD C 001 022A 1283 00489 
& EATIDI A CO2 G7SI OB74 MINDEX A 037 1833 1118 1097 
. TaATICT2 A 002 1798 O&E&3 | MOVEET A COS 86D 1139 1151 
“ DATPR1 A 043 1858 0948 0873 MVCTBN A CCS 1D3S 1200 1208 
' CATPR2 a 025 1871 C9uS C882: NEG1 A CO2 AAT 1081 1090 
* DATOIA A CC&’ 178C 0879 086s — BOSEEK A 003 1A7F 1067 1057 
. CCFF aA 004% 1947 0681 1020* ROONIT A O2€ CBS 0093 004u6 
DCFI A OC’ 1943 0980 10118 CNE A CC2 191F 0953 9140 07488 0151 1227 1232 123: , oe 
t CECGAN A 006 1DA4% 1239 4242 | OWEHEL 8 038 173F CES? CHC9* OR12* 0813* 0817 
DECONE A 001 DEI 1259 1284 ONESEC A CC2 182B 0946 0353 0354 0872 0473 
CFCR A002 1a98 1078 0994* 1008 1008 1010 1019 1053 OTORZ aA 006 1092 1236 1231* 
DFCRI aA COZ 1946 0982 10088 PACK C 9301 0226 1286 
DFC3S¥ A 0O1 1096 1075 1030 1045* | PaSS A 001 OB21 0108 0110 G112* 0158* 09348 
DFDR aA CO2 17A9D 1079 1005 1009 FRINT C OCT O2TA 1280 C043 0080 0088 90120 0190 0209 0228 O27%7 +0300 0315 0326 0341 
DFDRF A 002 194D oO9848 1018* 0388 0417 O432 O8483 0860 OSOO 0525 0537 0598 0565 0602 0625 
-DPDRI A 002 1948 0983 1009® C637 0687 0665 0702 0720 OF38 O749 O762 0814 0825 0870 0879 
: DISKTP A 002 2A99 £41077 0142* 07152* 0810 0995 0907 0928 0929 O934 10948 #%$4205 1134 $4$439183 #1165 #+%4$286 1256 1258 
/  EALARM A 004 DDD 1258 124q% PRTEXT A COS 1BC8 1469 71208 
> ERRORS A COG OCF7T 0235 0193 0274 0391 0503 0605 0705 PRTHEX A CCH IBCO 1165 1153 
ERRC2A A C37 OF70 0357 0296 0297% 9303 0413 O0414* 0420 0798* 1245 PRISNS A C2. 7736 1120 0189 0270 0299 0387 O416 Oa#9E 0522 0601 062% 0701 0906 
ERRO2ZE A 083 OFSB 0358 0318 0835 0540 0640 CCODE A CC1 193A C97E 1006* 
ERRO2C A 052 OFCEF C359 0344 0463 0568 0668 RECFE aA 007 191A 0959 0182" 0746 0198* 01998 C2308 c205 
ERRO2D A 016 ODE3 0241 0329 O44 FEMVDS A CC? Of18 0096 0031* 0060* 0135 
oe A 037 1250 0575 05248* 0528 RLDFCR A 008 1AN7 1053 90704 
ERROUB A 028 1200 0577 0551 REVDSA A 005 1789 CRUS 0809 
FRROSA A 034 13DA 0676 0628 RCUTKRO & CO1 T9NE 0985 1027% 
ERROSE A C39 1435 0678 0651 FPFX C COT CAOZ 411€ 1027 1102 
ERRO6GA A 925 1562 0779 0723 PSIO aA 003 1A48 1054 -0071*% 0994* 1601% 
ERRO6E A 020 I5AA 0781 0738 RTN1 A 00% OC2F ©C173 0G12 
ERROG6GC A 03Z IS5FE 0783 0753 RIRTA A CCB OC3B 0179 0232 
ERRO6D A C37 1651 0785 0765 RTNIA1T A OG4 CC6F O01¢7 0187 
ERRIA A 036 OCD4B 0237 0212 RTN1AZ A CC’ CC93 0209 0206 © 
ERR1B A C36 OD9F 0233 0227 i FINTE a CC& OCCA3 0217 02¢8 
ETABLE A 001 193A 0975 0013 RTNIC A CCR OCRP 0232 0222 
EXPSEC A OC1 CDEW 0242 0261* 0323 0354* 9378* 0440 04738 FTN2 a 0041 OMFS 0247 6375 
FIXDSK A 005 1744 0848 0812 ; RTNZA A CC4 ODFY 0255 6352 
PIXFD A O04 OBES 0146 0139 RTN2ZA1 A CO& OF3C 0278 0268 
FOURFF A O04 174D O€5O 0823 i RTN2P aA CC& OFBO 0286 0355 
FROBYT A906 %3D98 1237 12344 i RTNZ2E7 A OCH CESS G316 0289 
PRON A C06 1086 1234 (1228% RTNZ2C A CCH OF6Z2 0292 
FRSTPS A CO1 1A94 1073 0090* 0940* 1042* 1047 10498 RTRZ2C1 A COU OEFSR 0313 
pauses s oe a 1063 1058 RTN2C2 A CC6 CEB2 0323 0314 
O3P 1285 : RTN2D A OCR CECB (C233 0325 
HALT C001 0222 1282 0126 0194 0214 9229 0275 030€ 0320 0331 0346 0392 04623 0437 : RTRZ2E a CCU OEE9 6381 0335 
0448 0465 6504 0529 U542 0553 0570 ©0606 0629 G642 0653 0670 i RTN2F & 003 VECF 0334 0340 
DATE O6APR70 22M AY70 01A0G70 010CT70 282PR71 O1JUL7T1 21APR72 poc ID 0aA05-6 DATE OGAPRT70 22NAY70 01A0G70 010CT7C 28aPR71 O1J0L71 21APR72 PROG ID 0A05-6. 
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T+/Ts&+. EC=[15_N C~C3E<ECHOMCNS X 


DATE 
EC WO. 


OHAFRTO 
571516 


Z22MAYTCO 
571513 


OTAUGTO 
5971531 


FUNCTION 


TEST 


OBJECT CARD LISTISG 


CL 33 THROUGH 8&8 


DE (POB4YCSBaPPSaP 
"934 BIX -EY(OH* 
SY xX /13-]4*3"63 
BHD *OH®RH HBHAD 
-D37#PIT2-IC OK 
£6) XO6MCD2*I 5) S 
Cz ({. 1) PDE (SFE<] 
5 aGSAUCES es” 

DE<1| 06) XEO=]L: DC 
EE (SFE<405s 4 RO_( 


010CC:((. { -0$00 


2 oe 


BFLU( JO9E?? JR 


C&<0"1) (0 DEERE 
aj) .18=.049% 


K9=NXECLIB_.P23> 


7PB72-3JL /OHEISS 


DA;U4 DR(2HE(TO 
G C /15DE=0 
G B 6&)"&L 


A1<LR1;.S&(PO84C 
C4W2A6) XI9*PDECG 
EG<XN1T_R. 8ATEE (~ 


010CT70 
571540 


5k. 


28APE71 
571565 


‘CL 49 THROUGH 64 


D&< $06) XBO=4L: DC 
-$00 F3*. PT3*FI- 
=G"0="£3"674; "TO 
Jas GOH*BPARHEED 
E1vcomE ~onepad” 
TEC. RO) PC2DCA1>| 


¥S4_ SSPHBAN OFX 


O=TLK=. E0=}O68C 


A1> J E6RCAE¢SR2: |} 
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e ad 
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G /, FF/*) YB /08 
DECPR6) SRE*ST80/ 
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{F63 /1VE EDP2aAE 


ORZBG /,AH/SSYC3 
AB@E O*LD6*PS8UC 
S8aPP5SSXN12PRE) S 
TEC|Y4G_ 5) R.6¢~ 


RISPISSLSE<PRO) S$ 


OIJOL71 
57156568 


PART #0. 
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CL 65 THROUGH 80 


A1>}| EGSCAE+S$R23]} 


aBJ_SOH*RLO FOS. 


APII /1V} - RESB 
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~OR*RLO PIS /18 
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5 33/G {REL 0 
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RE (SCO=LR6*PDECS 
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R80CO0@]06) XE IDC 


ZTAPR72 
571591 
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T+/73_ 0 GouU 
TPJ7,413WOR*BF-Q 
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OTAUG7O 
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PR*BG /YBHA2, ORF 
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a #H220560066 
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EXLA 78800560068 


BH < 22Q9A0560069 


& JY = 8A0560070 


27AD 81840560071 
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"O a0560072 


$<: =/8A05S60073 
keee saya0SeuOT7e 
$9L% a:QA0S60075 
Z JH QR|A0S60076 
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CATE 
EC NO. 


DISK 


1 THROUGH 16 


OGAPRTO 
571516 


®@RiITE 


_ IBA SAIRTERANCE DIRGROSTIC PROGRAH 


PUNCTIONS 


fest 


CBJECT CARD LISTING 


CL 17 THROUGH 32 CL 33 THROUGH &8 CL 4&9 THROUGH 64 


="IMEF | 


22MAY70 
$71813 


3129628 


PART #0. 
a. 


PAGE 


CL 65 THROUGH 80 CL 81 THROUGH 96 


c re ASC RA so g : 23280503700 501723L1YA0560088 
en 
? 
« 
LAST. PAGE Coste Seen ee sere see ee sss esere ss ses ess aSeeees — 
OTAUG70O 010CT70 ZBAPR71 OWUL71 ZIAPR72 PROG ID 0205-€. 
571531 5715480 371565 S71565B 571591 PAGE 18H. 
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A Nreeteat eateries eget no 


IBA HAINTENANCE DIAGNOSTIC PROGRAR. 


A063 


ERR 


0000 
OA0D 


oaco 
0a02 
0003 
oacs 
0A06 
0a08 
ORDA 


OAOD : 


OAT4 


GATS 
OaA13 
Oa IC 
0Aa20 
OGCAZ& 
fhaA28 
OR2C 
OR20 
QA33 
O36 
Ga 39 
OR AD 
CANO 
GAY 
OAuG 
O2UY 
CAKC 
caso 
OaASH 
Oass 
OR5S6 
Oass8 
Oasc 
OA62 
OA6E 


CA68B 
OAGE 
OAT2 


OA75 
OATE 
OATF 
OAB2 
GABS 


OAE9 
OA8C 
OASC 
OKS96 
OASC 
ORA2 


DATE 


EC. NO. 


VErRIF ¥ 


A063 
00 

01 
0000 
0c 2a 
¥9E3 
301000 


08 OO TARC 


13MAR7O 
571512 


DATA 


LOC OBJECT CODE 


0001 

OA02 
0a03 
OA05 
0a07 
OaAo9 
oaoc | 
OaSa 
0a55 
OAS7 

OB1A 
OAG67 

0B15 

0B16 

1435 

1A35 

1A35 

1435 

G6APR70 

571516 


ADDR STNT SOURCE STATEMENT 


PART wo. 
PAGE 


CERES TE EE SESE SERERESEEESEEE SEES SEEES OEE OE HE ERESES OE OE DKEEKE SECESERESR EEE 


tseneuaneseseccenssenessvnssensssensass scan sccueesenesesenessssenseeses 


2 DECK 4 
3 a06 START O 
4 ORG X*OA00t 
5 
6 * SECTICN PREFACE 
7 * 
8 pc ‘XL2* A063 °* 
9 DC XL7*00* 
40 | pc XL1° 018 
11 DC XL2*'00! 
12 pc ALZ(RTN1) 
13 pc AL2 (ETABLE)® 
18 pC. XL3*207000",. 
+S * 
16 
17. 
2+ OPEMATING INSTRUCTIONS 
19 © 
20 * 1. SET SWITCH 15 ‘to BYPASS 
21 * 2. SET SWITCH 16 TO BYPASS 
22 * 3. SET SWITCH 1E£ TO BYPASS 
23 4. SET SWITCH 1F TO BYPASS 
24 
25 SEIDSK ST SETE xXT+3 , ARR 
26 NVI SETSW,X'*FF* 
27 
28 CLI UDTPTR,O 
29 JNE UPIND1 
30 LA UTAB,XR1 
31 OFIND2 ST UDTPTR,XR1 
32 UFIND1 L UDTPTR,XR1 
33 NVI. REMVDS,0 
34 TBN SWITCH+3,X'C2# 
35 JT *+9 
36 CLI O{,XR1),X?A0! 
37 JE SETA 
38 TBN SWITCH+3,X'07! 
39 ST #49 
80 CLI O(,XR1),X*BO? 
u4 3 SETB 
4&2 TBN  1(,XR1),xX*°10" 
a3 La 3(,X%81) ,XR7 
uy BF UP IND2 
a5 B PRINT 
46 pe XL1* 06! 
a7 pc IL1°26* 
4B DC AL2(NOUNIT) 
49 MVI SETSW,O 
50 MVC UDTPTR(2),TROZR 
51 B LOAD 
2 DC XL2 "40° 
53 
54.SETA MZZ  LDI.R+1,SPNDLA 
55 SVI  SPNMSG,Ctit 
56 3 SETBTH 
57 
58 SEIB ZZ  LDFCR+1,SPNDLB 
59 NVI SPNMSG,C'2®* 
60 IBN 2(,XR1),X'078 
61 JF SEI BTH 
62 MVI REMVDS,X*FF! 
63 
64 SETETH LA 3(,XR1),XR1 
65 ST UDTPTK,XR1 
66 MZZ = =«=LDFDR¢ 1, LDFCR#1 
67 MZZ 0s SIO# 1, LDFCR#1 
68 MZZ  WAIT+4¢1,LDFCR41 
69 NZZ  TSTERR+1,LDFCR1 
22mAY70 01A0G79 010CT70 
571513 571531 571540 


& 
+ 
PROGRAN ID 
SECTION FLAGS 
CURRENT ROUTINE NUMBER 
RESERVED 
ADDRESS CF FIRST ROUTINE PREFEX 
ADDRESS OCF ERROR RECORDING TABLE 


* 


RUNNING ON THE REMOVABLE DISK 
RONNING ON THE FIXED DISK > 
RUNNING ON DISK DRIVE 1 * 
RUNNING ON DISK DRIVE 2 * 
SAVE EXIT ADDRESS 
SET SETOP SWITCH 


HAS POINTER BEEN INITILIZED? 
JONP IF YES = 
LOAD IF NO 


ZERO 
TEST 
JUMP 
TEST 
"JUMP 
TEST 
JONP 
TEST 
JOMP 


THE REMOVABLE ONLY SWITCH 
SSW 1E 

IF CN, NEVER RUN DISK 1 
FOR A UNIT ADDRESS OF *A?* 
IF THERE IS ONE 

SSW 1F 

IF ON, NEVER RON DISK 2 
POR A UNIT ADDREAA OF *B? 
IF THERE IS ONE 

TEST FOR LAST ENTRY 

STEP POINTER TO NEXT ENTRY 
CONTINUE IF NOT THE LAST ENTRY 
TO PRINT ALL DNITS SELECTED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 


TO PRINT NO ENTRIES LEFT 
FLAGS 


SET TO RUN ON SFEINDLE ‘A? 
SET MESSAGE FOR SPINDLE ‘1! 
PROCEED 


SET FOR SPINDLE RB. ‘ 
SET MES2AGE FOR SPINDLE '2° 

TEST OPTION BIT FOR REMOVABLE ONLY 
JUMF If NOT ON 

SET BIT IO SPECIFY REMOVABLE ONLY 
STEP POINTER TO NEXT ENTRY 
SET FOR CURRERT 
SET FOR CURRENT 
SET FOR CURRENT 
SET FOR CURRENT 


SPINDI.E 
SFINDLE 
SPINDLE 
SPINDLE 


PROG ID OA06-3 
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ee af 4s, Sina af : ; : : vue fo aha . 
aah ae eee atl Mak ewe coe z . : ~ S > 
So aicles - : ‘ Poe as < j Se tae oe Paces eS Ae Sans % 


5129630 


PART #0. 
PAGE , WA 
a063 VERIFY DawtTa 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEAERT 
OAAS 08 OO TAAF 1435 70 MZ2Z ‘YISTSCN+1,LDPCRE1 SET FOR CURRENT SPINDLE 
OAAE C8 00 19D7 1A35 71 SZZ 9 -SNS¢1, LDFCR+1 SET POR CURRENT SPINDLE 
OABY O8 OO IAEA 1435 a SZZ  RLDPCR#1,LDFCR+1 SET FOR CURRENT SPINDLE 
OABA O08 00 1AEE 1435 73 aZZ RSIO¢1, LDFCK#1 SET POR CURRENT SPINDLE 
0acoO CO 87. 19cC9 74 B SENSE . 
Oac4&’ 02 . Oaca 75 pe KL17°O2¢ ASK POR DEVICE STATUS BYTES 0 & 1, 
OacS 3C CB 0B14a 76 NVI TRACK#, 203 SET FOR FULL CAPACITY DISK 
0ac9 38 08 1980 77 TBH STATIS, X*O8* TEST CYL 100 BIT 
OACD F2 90 04 78 - JF PRTS PN IP OFF , CONTINUE 
OADO 3C 67 OB14 79 AVI TRACKS, 2103 SET TO DO 103 CYL. 
OaD4Y CO 87 O21A 80 PRTSPH RB PRINT -.- TO PRINT SECTION HEADIKG 
OADS 01 OADS 81 DC XL1'071 © FLAGS 
OADS 23 OaAD9 82 De; soIL14* 358 LENGTH 
OADA 0869 OADB 83 pc AL2{(SECHSG) |. MESSAGE ADDRESS 
OaADC CO 87 O2iA. B84 B PRINT TO PRINT SPINDLE 
OAEO 06 CAEO 85 pc XL1°06* FLAGS 
OaAE1 18 OAE1 86 DC IL1* 248 LENGTH 
DAE2 OB46 OAE3 87 rc AL2 (SPNMSG)} MESSAGE ADDRESS 
OAES 3C 00 182D 88 NVI HDTBL4 3,0 ZERO HEAL 
OAES OC 02 182C 182D 89 nVC HDTBL+42 (3) ,HDTBL+3 ERROR FLAGS 
OAEE 3c OC 1832 90 BVI FPRSTPS,0 SET SWITCH FOR RECALIBRATE 
OAF2 CO 87 0000 91 SETEXT B t-+* EXIT : 
92 ° 
OAF6 CIDIDZYOEUDSCYE3 OBOF 93 NOUNIT pc CL26*ALL ONITS BRAVE BEEN TESTED* 
OAFE E240C &C1ESCS4 OC? 93 
OBC6 CSCSDSSOE3CSEZE3 93. 
OBOE C5Sca 93 
O0B40 0000 0B11 98 UDIPTR DC XL2"0* 
0232 95 UTAB EQU X*232* 
0812 0O OB12 96 REPFVDS DC XL17°0* 
0813 090 0B13 97 SETSW pC XL1*O? 
CB14 60 OB14& 98 TRACK# DC XL1°008 
OBTS ao OB15 99 SERKDLA DC XL1* a0? 
O0B16 BO 0816 190 SPNDLE DC XL1tBOr 
0B17 00 OR17 101 RUNRMV SC XL1°0° 
ORTB OO 0818 102 RUNFIX DC XL7°C? 
o0B1is o0CcO OB1A 103 TWCZR DC XL2" 08 
OR1B O00 0818 108 PASS pe XL1°O? 
OBIS CODSESTID3ICACLUO OCBZE 105 IRVFLG DC CLISG'INVALID SSW SETTING? 
OB24 F2EZ2ZEFGUOF2CSERE3 105 
O082C C3DSC? 105 
OB2E DSDEEGYOFICSE2ZE3 OB&86 166 SPNMSG DC CL24*NOW TESTING DISK DRIVE x? 
OB37 CEDSC7UDCECZIEZ DZ 106 
CB3F SOCUDOCSESCE LOET 106 
OBY7 C2CSC7ICIDSYUCESCS OB69 107 SECMSG DC CL35" BEGIN VERIFY DATA FUNCTION TEST AOG?* 
OBYE LICSCHFSUOCUCTE3 107 
0B57 CIYOCGESDSC3E3CS 107 
OBSF D6ELSYUGEICSEZE34&0 107 
OBE? CIFOFE 107 
DATE 13MAR70 O6GAPR70 228A 770 O1AU0G70 010CT70 PROG iD OA06-2 
EC KO. 571512 571516 5715813 571531 571540 PAGE Th 
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A063 © 
£kR Loc 


OB6A 
OB6E 
C572 
OB75 
0B79 
OBTC 
OBB2 
0R85 


OnPeB 
OBS8C 
OBSF 
0B93 
Og94u 
~0B95 
OBY7 


0B99 


CB9D 


OBSF 
OBA 3 
OBAT 
OBAB 
OBAE 


OBB2 
OP R6 
OPBY 
ORBD 
OBCO 
oRgcy 
oBCSs 
OBCT 
OBD1 
OEDS 
SAD9 
OBDD 


OBEO 
OBEY 
OBE7 
OBEL 
O3F1 
OBFS 
OPFA 
OBFE 


oc02 


0Cc06 
OCOA 
OCOE 
oct 
0c15 
0c19 
Oc 1D 
0c21 
oc25 
0c29 


, DATE 


Ay NO. 571512 


; Cc QO 7 | | ; 
®eoeeveeeevnevovnu5aueseeeeaeaoenaeaeneaeneeaeaeeeeeeeee © 


OBJECT 


34 08 
3D 00 
F2 01 
3¢ FF 
F2 87 
OD 01 
F2 81 
F2 87 


38 06 
F2 90 
co 87 
c6 

13 
OB2E 
AOFA 


VERIPY 


CODE 


oco0s 
9818 
Cc? 

OB1B 


T3MARTC 


»D ata 
ADDR 
OBIA 
0893 
0n94 
0B96 
0n98 
OBOE 
19¢8 
19c¢8 
19¢8 
0c29 
OGBRPR70 
571516 


SOURCE STATEMENT 


STAT 
109 TSTSPN ST TSTEXT+3, ARR 
110 CLI PASS,0 
1711 IWE SETS PN 
' 942 SSVI PASS,X'PF* 
113 J TSTSHW 
114 SETSPN CLC RUNFIX(2) ,TWOZR 
115 JE ZROCTR. 
116 a SETREV 
117~—« 
118 TSTSW TEN SECTSW,X*06! 
119 JF TSTRAV 
120 B PRINT 
121 pc XL1°C6* 
422 rc IL1*19¢ 
123 pc AL2 (INVF1G) 
124 pc XL2*a0Fa* 
125 
126 B HALT 
127 rc XLZ*AOFA® 
128 B TEST 
129 B TSTS® 
130 TSTRNV TBN SECTSW,X*OK' 
131 JT TSTFIX 
132 MVI RUNRMV,X'FFS 
133 
134 TSTFIX TBN SECTSW,X*02!' 
135 JT SETRBV 
136 CLI RENVDS,X*FF? 
137 JE SETRMV 
138 MVI RUNFIX,X*FP? 
139 SEIRMNV CLI RONRMYV,0 
180 JE FIXED 
141 ALC TBLA(2),ONE 
142 NVI STEP,1 
143 MVI DISKTP,O 
144 MVI RUNENV,O 
145 3 TSTEXT 
156 
147 FIXED CLI RUNFIX,0 
148 JE ZROCTR 
149. ALC TS8LH(2),ONE 
150 CLI STEP,1 
151 JE *+9 
152 ALC TBLH(2),ONF 
153 MVI  DISKTP,xX'08! 
154 sVI RUNFIX,0 
455 
156 TSTEXT B + 
457 
158 ZRCCTR CLI X*0a203",06 
159 MVI PASS,0 
160 JNE *411 
161 MVI SETSK, ) 
162 B 0 
163 MVI STEP,0 
164 CLI X*0A03*,03 
165 BE CKHDER 
166 E LINK 
167 STEP rc XL1°O? 
22MAY7C 01A0G70 010CT70 
571513 571531 571540 





PART BO. 


$129630 
" PAGE 2 


STORE EXIT. ADDRESS 
IS THIS THE FIRST TIME THROUGH ?. 
JUNP IF NO 
SET SWITCH 
PROCEED TO TEST SWITCHES 
HAVE ALL DISKS BFES RUN? 
JUNP IF YES 3 | 
JUMP IF NO 


TEST FOR BOTH SS8*S 15 & 16 ON 
JUMP IF EOTH NOT OF 

TO PRINT INVALID SSW SETTING 
FLAGS 
. LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 


TO DCP ERROR HALT 
‘HALT ID 
_TO READ CONSOLE SWITCHES 


TEST FOR SWITCH 15 CN 
JUNP IF ON 
IF NOT ON, SET 10 RUN REMOVABLE DISK 
TEST FOR SWITCH 16 ON 

JUNP IF ON 

TEST FOR REMOVABLE DISK ONLY 

JUMP IF YES, NEVER RUN FIXED 


IF NOT ON, SET TO RUN FIXED DISK 
DO KE WANT [TO RUN ON REMOVABLE? 
JUMP IF RO 


INCREMENT TABLE POINTER 

SET TO INDICATE SAME = 
SET TO RUN ON REMOVABLE 
CLEAR RUN REMOVABLE SWITCH 


TO EXit 
DO WE WANT TO RUN ON FIXED? 
JUMP IF NO 
INCREMENT TABLE POINTER 


TEST FOR PREVIOUS STEP 
JUNP IF YES 

INCREMENT TABLE PCINTER 
SET DISK TYPE TO FIXED 
CLEAR RUL FIXED SWITCH 


EXIT 


CHECK FOR LAST ROUTINE 
ZERO SWITCH 

JUMP IF NOT LAST RCUTINE 
RESET SWITCH 


ZERO STEP S# ITCH 

CHECK FOR COMPLETICN OF ROUTIKE 3. 
BRANCH TO CHECK ERRORS 

TO NEXT ROUTINE 
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A063 Ta 
ERR LOC OBJECT CODE ADDR 
9C2aA 01 Oc2a 
0c2B 00 0c28 
-0C2C O£1D _ oc2D 
OC2E 3D 00 0813 
0C32 CO 81 OAOD 
0C36 CO 87 OB6A 
0C3A 3C 00 19DF 
OC3E 3C 09 1BAz4 
OC42 OC 00 19C4 OBIR 
OC&B CO 87 19F8 
ocsc 00 ocac 
ocuD 00 ocap 
OCUE 19C3 OCuF 
0c50 CO 87 OC6A 
OC54 CO 87 0C58B 
OCcSE CO 87 1B7D. 
OC5C CO 87 021A 
oc60 06 0c60 
OCé1 35 0c61 
(C62 OCFO 0cs3 
OC64 CO 87 0222 
0C68 A009 Océs 
OC6A CO 87 1853 
OC6E 3C FF 19C4& 
0C72 OC 01 19C6 OBIA 
0c78 CO 87 19F8 
oc7c 01 oc7c 
OC7L 03 oc7D 
OC7E 19C3 OC7F 
Oc8o cO 87 OC8C 
Oca’ CO 87 0c8s 
oc88 co 87 OCc9C 
OC8C CO 87 021A 
0C90 C6 0c90 
0c91 32 0c91 
0c92 0D22 0c93 
0C98 A020 oc9as 
0C96 CO 87 0222 
OC9A A020 ocoB 
Oc9C CO B7 199 
OCAO 02 OCAO 
OCA1 38 04 19DF 
OCAS F2 10 10 
OCA8 CO 87 021A 
OCAC C6 OCAC 
OCAL 34 ocaD 
OCAE OD69 OCAF 
OCBO 4021 ocB1 
0cB2 CO 87 0222 
OCBE AG21 OCB7 
OCB2 CO 87 0C36 
OCEC E3C@CSIOD7DSCSES OCEA 
OCC4Y CID6ESEZ%0CSD9D9 
DATE 13NAR70 OGAPR7O.. 
EC NO. 571512 571516 


ea eee x es Su me en eee 
PART 80. 5129639 
PAGE ae 2a 
STST SOURCE STATEMENT 
169 * ROUTINE HO. 01, CHECK FUNCTION OF NO RECORD FOUND 2 
170 * ‘SENSE BIT, (BYTE 0, BIT 5) * 
171 * USING THE VERIFY COMMAND * 
172 
173 * ROUTINE PREFACE a 
174 , 
175 RTN7- DC XL1191¢ ROUTINE WO. 
176 DC - = XL1* 06" ROUTINE FLACS 
sh DC AL2 (RTN2) ADDRESS OF NEXT ROUTINE 
1 
179 BEGIN CLI SETSH,0 HAVE PARAMETERS BEEN EWT ERED? 
180 BE SETDSK BRANCH IF NO 
187 RTNIA B TSTSPH * 
182 AVI STATOS-1,0 us ZERO SENSE AREA 
183 NVI SNSID,09 INSERT ID IN PRINT 
184 MVC RDDFC4+1(1),TRACK# SET TO SEEK THE CE TRACK 
185 .B STRTIO TO I/O SUBROUTINE 
186 pe XL1°00? FONCTION CQDE (CONTROL): 
187 Dec XL17*0Q8 CONTROL CODE (SEEK} 
188 DC AL2 (RDDFC) CONT ROL FIELD ADDRESS 
189 B RTN1A1 GOOD RETURN 
190 B #44. 3, Gane 
191 B PRISNS TO DECUDE ERROR am Sine y 
192 B PRINT TO PRINT ee 
193 pe XL1*° 068 FLAGS - Bho eaheteae ee 
194 DC I1L1'538 LENGTH 
195 Dc AL2 (ERROR) MESSAGE ADDRESS 
196 B HALT TO DCP HALT 
197 BC XL2* A009" RALT ID 
198 “ 
199 RTNIA1 2B TSTSEK TO TEST FOR GOOD SEEK Le 
200 BVI RDDFC+1,xX' FF? SET CYLINDER NO. TC FORCE A HRP: 
201 HVC RDDFC+3{2) ,TWOZR SET FOR TRACK 0, SECTOR 0 
202 
203 B STRTIO TO I/0 SUBROUTINE 
204 Dc XL1*07" FUNCTION CODE (READ) 
205 DC XL1*03°* CONTROL COLE (VERIFY) 
206 pc AL2(RDDFC} CONTROL FIELD ADDRESS 
207 B RTN1A2 GOOD RETURN, (KOT EXPECTED) 
z08 B *+4 
209 B RTN1B NORMAL RETURN PRON EXPECTED ERROR 
270 RTNIA2 B PRINT TO PRINT ROUTINE ERROR 
211 pc XL1'c6? FLAGS 
212 DC IL1*°50° LENGTH 
213 DC AL2 (ERR1A} ADDRESS OF LAST PRINT CHARACTER 
214 Dc XL2*a020° MESSAGE ID 
215 B HALT 70 DCP HALT 
216 cc XL2* a020° HALT ID 
217 
278 RTNIB B SEKSE TO SENSE I/O SUBRCUTINE 
219 Dc AL1(STATO1} DEVICE STATUS EYTES O & 1 
220 
221 TEN  #$STATUS-1,X°08* TEST BYTE 0, BIT 5S POR OW 
222 * ae Is 'NO RECORD ‘POUNDS ; 
223 JT RTNIC MP IF ON 
224 
225 B PRINT TO PRINT ERROR 
226 pc XL1'C6* FLAGS 
227 DC IL1*52°¢ LENGTH 
228 Dc AL2(ERB1B} ADDRESS OF LAST PRINT CHARACTER 
229 pc XL2*aA024* MESSAGE ID 
230 B HALT TO DCP HALT 
231 pc XL2* a021* HALT ID 
232 
233 RTNIC B RTWIA ROUTINE EXIT 
234 
235 pc CL47"*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE ° 
235 
2." AY70 0 1A0G70 010CTTC PROG ID 0a06-3 
57 “323 571531 571546 PAGE 2k 
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A063 
ERR LOC 


occc 
ocra 
OCDC 
OCE4 
OCEE 
OCF 1 
OCF9 
onc} 
ODesS 
CD11 
D193 
0D21° 
0D23 
OD2B 
O23 
ODIB 
Obu3 
OpuB 
0553 
0D57 
ors? 
OD67 
OD6A 
CD72 
ODTA 
CD82 
ODRA 
Ong2 
CBIA 
OD9E 
ODA6 
ODA 
, ODBS 
ODBFE 
crc 
ODLg 
ODp1 
ones 
OLE] 
ODEY 
ODF 
ODES 
OLTD 
OF OS 
CEOL 
OES 


DATE 
EC NO. 


VERIFY 


OCJECT CODE 


D6ODOEZUONGC 3C IER 
p9IP9ecscu 4 CEGCECS 
CICSHOEZCSCSD2C9 
D5C74HOEIC BC5H4KO 
CICSAOCIERD 
ESCS5D9C9CE FB4 Ore 
CIEZSCTHOEMEZC SE: 
C7 NOC TSOD5SDERSCS 
EFTCSE2ZE3C IDSE2UC 
E2CSCIEINBROCE CE 
GRY4ODS DES OCS DS DS 
BHO 
D5SL64ODICSC INE LO 
C6 DEER DSCK ODS LE 
EJ XOEQZCSEINOCZES 
UOC 180E5C5DICSCE 
ESNGCHUCTE3C1U0C3 
CELA DUCIDSC4& CES 
E2CSD540 
C740 14OE 205 3E3 
COLTSeGCICGNODECE 
&BOCECE 
E3CBCSYODIDSCSES 
CELGESE2&CCSD9YDY 
C6 DI F2ZUOFECSDICS 
HOD TDOCSE2CSD5E3 
SOCICGBE3C5SD9INOCY 
DCACIDSC7HOC1N OES 
cSrescgycs 
ESUOD6CE4 OF 24 NE2 
CSC3EIL6EDGE2 GER 
£2C9D5C74u 0C8C5C1 
CHROEZE6CSE3C3C8 
c9psc7 ; 
CEC5CICHKOSCK OE? 
CSC JEIDED 94 OCZEG 
FICS4OL6Cb6L0C IDE 
DSEIDYDED 240CECS 
CSLICUUODSDEE340O 
E2FICSDIDICSCLUEG 
CILEDSDS 
CSCIEIDIERYOCICE 
EICSPIGOCTROFSCS 
DSCSCEEBYOFSECIES 
CRECCBC5C IC4HOE2 
E6CSEICICBCSDECT 


TIMALTO 
5715%2 


DaeTa 


ADDR 


OcFo 
Obnz2 


ors6 


Ont 8 


ODSD 


onco 


ODF& 


OEIC 


OE RERTO 
SVT USTE 


STAT 


235 
235 
235 
235 
236 
237 
237 
237 
237 
237 
237 
237 
‘238 
238 
238 
' 238 


238 
238 


238 
239 
239 
239 
240 
240 
240 
240 
240 
240 
249 
241 
244 
241 
244 
244 
242 
242 
242 
242 
2u2 
242 
242 
243 
243 
243 
243 
243 


22MAY70 
57151313 


PART #0. 5129636 
PAGE 3 


SOURCE STATERERT 


EPRORS 
ERRGA 


CLOG6'CE CYL? 


pc ; 
CLSO‘VERIPY DATZ USING A NCONEXISTANT SECT. ID, "O ERR.* 


be 
CL52*HO REC. FCOND NOT SET BY A VERIFY DATA COMMAND USIK* 


ERRB CL19*G A SECTOR ID OF FF®* 


DC CL52°THE PREVIODS ERRORS WERE PRESENT AFTER DOING A VERIF® 


ERROSA CL35*Y OF 2 SECTORS USING HEAD SWITCHIKG? 


Dc CL5S2*HEAD & SECTOR BYTE OP CONTROL FIELL NOT STEPPED CORR’ 


ERKOSE DC CLYOTECTLY AFTER A VERIFY WITH HEAD SWITCHING 


0 1AUG70 
571531 


010CT70 


FRCE ID OaC6-3 
571540 
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ERR LOC OBJECT CODE 


02 
00 
10 DS 


1829 
180P 
0B13 
OAOD 
OBGA 
1810 
7 

16 17 


02 


°39C% 
10D3 
1BAS 


« 


1978 


OET4& 
O£62 
IBID 
O21A 


0222 


18B1 


VEBS 
1EEB 


3c 
3c 
oc 
co 
02 
00 
19 BF 

87 
67 
87 


TBA 
19C2 
19Ci 
19F8 


CEAS 
CERO 
OPGA 


22 
co 
co 
8&7 


TEAS 
18C2 
19¢C4 
19FS 


1S EF 
cC &F 
co 6&7 


OFED 
OEC2 


Co 8&7 
19BEF 
ca 8&7 
1b t6 
OF FE 
2¢ &C 
cG 87 
co €&7F 


icCcB 
BIC 
CFES 


17490 
1B7DB 


TIEALFC 
S7IL72 


19CO OB14 


TERY 


TO03 


1603 


VERIFY DAtTa 


ADDR 


OE1D 
OEIE 
CE 20 


0256 
OES? 
CE5S9 


OEGA 
OF6B 
Of6D 


0£73 


OF9& 
CESS 
OES? 


OFK6 
OERT 
Or©s9 


OECD 
GECF 


OERFE7O 
STISIE 


LER HAINTERANCE DIAGNOSTIC PROGEAN 


STMT SOURCE STATEMENT 


245 « 
286 ¢ 
247 
288 RTN2 
249 

250 

251 

252 

253 

258 

255 

256 RTN2 
257 : 
258 
259 
260 
261 
262 
263 
268 
265 
266 
267 
2€8 
269 
270 
271 
272 
273 
27& 
275 
276 
277 
278 
279 
280 
261 
282 
283 
PRY 
285 
286 
287 
2F 8B 
289 
290 
291 
292 
293 
298 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30" 
305 
306 
307. 
308 
309 
310 
371 
742 


RIW2A1 


ETK2B 


ETH2BY 


RTR2C 


Z2RAYIO 
571813 


# 


a PART 


NO. °$129630~ 
PAGE 3a 
ROUTINE WO. 02, CHECK VERIFY FUNCTION * 


USING HEADS 0 & 2 


pe XL1°02¢— ROUTINE KUSBER 

DC XL1°O0# ROUTINE FLAGS ; 

DC ALZ (FT N3) ADDRESS OF NEXT ROUTINE PREFIX 
LA HDTBL-1,XR2 SET POINTER 

St TBLH, XRZ FOR HEAD 0, REMOVABLE DISK 

cLI SETSH,0 HAVE PARAMETERS REEN ENTERED? 

EE SETESK BRANCH IF KO 

B TSTSPN : 

LA SECTBL,XR2 SET ERROR TABLE POIKTER 

AVI 23{,XR2)} 0 ZERO SECTOR , 

FVC 8 =.22 (23, XR2) 522 (,4R2) ERROR FLAGS 

MVC = =WRIDFC41(1) , TRACKE SET SEFK ADDRESS TO CE TRACK 

AVI WRTDFC¢2 ,0 SET FOR HEAD 0, SECTOR 0 

BVI EXPSEC,0 SET EXPECTED HEAD 6 SECTOR wO. 
MVI =s- SNSID, 09 INSERT ID IN PRINT at 
B STRTIC TO SEEK CE TRACK 

cc XL1¢08 FUNCTION CODE (CONTRCL) 

pe XL1*O8 CONTROL CODE (SEEK) 

of AL2 (WRTDPC) CONTROL FIELD ADDRESS 

B RTN2A1 GOOD RETURN 

FE ey . 

e PRTSNS TO DECODE ERROR 

B PRIKT TO PRINT 

rc XL I" 068 FLAGS 

DC TLI°53* LENGTH 

rc AL2 (ERRORS} “ESSAGE ADDRESS 

B HALT TO DCP HALT 

cc XL2* a00s? HALT ID 

A TSTSER TO CHECK POR A GOOD SEEK 

RVI WORKS 255, X° 278 SET DETA FIELD 

PYC WORK¢256 (255) , WORK 4255 

evi SNSID, X*12° PUT HAZCSAGE ID IK PRINT Pons 
MYT WRTDFC?3? ,C SET TO 7RITE CNE SECTOR ra 
BYC WRTDFC*2 (1), EXPSEC SET SEC1TOR NO IN CONTROL FIELD 

B STRTIO TO I/O SUBROUTINE 

rc XL1°02¢ FUNCTION CODE (WRITE) 

rc xL17°008 CONTROL CODE (DATE) 

ne AL2(¥RTDFC} CONTROL FIELD ADDRESS 

E RTN2ZBY GOOD RETURN 

B 9eG 

B WETERZ ERROR RETURN 

RVI SNSID, 1*22° PUT ID IN PRINT 

svi URTDFC+3 0 SET TO VERIFY ONI SECTOR 

BYC WRIDFC+2(1), EXYPSEC SET SECTOR NO IN CONTRCL FIELD 

B STKTIC TO VERIFY DAT2 

cc XL1° O18 FUNCTION CODE (RFAD) 

rc XL1°O3¢ CONTROL CODE (VERIFY) 

pc AL2 (WRTDFC) CONTROL FIFLD ADDRESS 

B RTN2BZ GOOD RETURN 

B ek 

B SHIFT TO SHIFT BITS FOR DECIMAL NUMBER 
CDC AL2 (HET CFC) ADDRESS OF SOURCE 

B CVD TO CONVERT TO DECIEAL NUMBER 

rc RL2 (CYLEC) ADDRESS Cr SOURCE 

pc AL2Z{ERROZR) ADDRESS OF DESTINATIOL 

vt ERRG2A-Z,C* * SET A BLENK IN FRIKI IMAGE 

B SETEER TO SET ERROR FLAG FOR THIS SECT. 
B PRTSNS TO PRINT SENSE INFO. 
C1AUG70 010CT70 PROG ID OR06--2 
571531 571540 PAGE 3a 
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: IBM MAINTENANCE DIAGNOSTIC PROGRAS | PART NO. 5129530 | . IBS SAINTEBARNCE DIAGNOSTIC PROGRAM PART RO. 5129630 
: i ee PAGE _ 8 o;19 ; 7 PaGE om 
- A063 VERIPY DATA a0é3 VERIPY DATA 
i. e ‘ a. 
_ERR LOC OBJECT CODE ~ ADDR STNT SOURCE STATEMERT ° ' ERR LOC OBJECT CODE ADDR STHT SOURCE STATERERT 
fr OEDC CO 87 021A 313 B PRINT TO PRINT THIRD LINE c|9o . 381 
, . OFEO 06 OEEO 314 rc XL1* 06° PLAGS - _OF8D F3CB8C5S4ODIDICSES OFCO 362 De CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A VERIF* 
OEE1 5A OEE? 315 pc IL1*90* LENGTH OF9S C9I6ESE280CSDIDY 382 
OEE2 OFE6. OFE3 316 pc AL2(ERRO 2A) MESSAGE BDDRESS c | CG OFSD DEDIEZSOE6CSDICS 382 
OEE4 CO 87 0222 317 B HALT TO DCP HALT OFAS SODTDICSE2CSDSE3 382 
OFES A022 OFE9 318 cc XL2*a022° HALT ID [pines OFAD 80C1CSE3C5D948 0C4 382 
UEEA F2 87 68 | 319 3 RTN2G o;¢C OFBS [6 C9DSC7HOCIGOES 382 
os, 320 | OFBD CSDSC9C6~ 382 
4 OEEB cO 87 187C 321 RTN2B2 B _ PSTDAT TO TEST DATA ADDRESS OFC1 ESYXOCECIE3CINOC3 OFE6 383 ERRO2A DC CL38"Y DATA COMMAND USING BEAD X, SECTOR xx* 
i OEF1 IDSA OEF2 322 pe AL2 (WORK) co|c OFCO DED D4ECIDSCAs OES 383 
: 323i‘ t OFD1 F2C9D5C780C8C5C1 383 
t OEF3 3D FF 19¢2 . 324 RTN2C1 CLI WRIDFC+3,X*FF* TEST SECTOR COUNTER FOR STEPPING. OFDS C4 4O0E7EB4 OE2C5C3 383 
: OEF7 F2 81 10 © 325 JE RT N2C2 PROCEED IF OK. o1s OFE1 ESDEDONOE7TE? 383 ach, 48 oy es. aiGasews,. 2 my oes oP, 
- QOEFA CO 87 O21A . 326 8B PRINT TO PRINT SECTOR COUNTER NOT STEPPED OFE7? E2CSC3E3DED940C3 1011 384 EZRROZE DC CLU3"SECTOR COUNTER IN CONTROL FIELD NOT STEPPED* 
'  OEFE €6. OEFE 327 DC ——sXz&L‘1".C6* FLAGS . OFEF C6 ESDSE3CSD940C9 388 : 
‘. @EFP 28 OEFF 328 pc IL1*63* LENGTH o | ¢ OFF7 DS80C3DEDSE3D9DE _ 388 
OFOD 14F- QF01 329 Dc AL2 {ERRO2B) NESS AGE ADDRESS OFFF D340CECICSD3C440 384 aoe 
 @F02 A023 OFO3 330 pc XL2*a023¢ MESSAGE IDENTIFICATION 1007 DSD6E340E2E3C5D7 38a 1 OSS te 
OFO4% CO 87 0222 331 B HALT TO DCP HALT o'G IOOF D7CSCa 384 . 
- OFOB 2023 OPF09 332 DC xL2°a0 23! HALT ID | 1072 E6DSCIEICSYOCECY 1048 385 ERRO2ZC DC CL51'WRITE FIELD WAS ALTERED AFTER GIVING A VERFY CAND. * 
eos Ph : | 101A C5SE3C44OEECIE24O 385 ; | 
- OFOR OD 00 19C1 10D3_ 33G RTW2C2 CLC WRTIDFC+2(1),EXPSEC CHECK HEAD & SFCTOR NO. AFTER Cig 1022 CIDZJEICSDICSCURO 385 
335 © WRITE IS COMPLETED, (EXPECT NO CHG.) | IO2ZA CIC6EIC*DISOCTCS 385 
OF10 F2 81 10 336 JE RT N2D PROCEED IF OK . 1032 ESCSDSC7G0CT4OES 385 
OF13 CO 87 O21A 337 B PRINT TO PRINT ERROR SG 103A CST9C6EB4OC3D4EDS 385 
OF 17 C6 OP17 338 ce XL1*C6! PLAGS : 1082 C8HB4O 385 : 
OP18 4S OF18 339 pc IL1'69° LENGTH | 10485 C8CSCICHLOSOBOE2 1078 386 BC CL52*HEAD & SECTOR BYTE OF CONTROL FIELD CHAXGED AFTER A * 
0F19 1089 OP1A 340 pc AL2(ERRO2D) MESSAGE ADDRESS Ce WOUD CSCZEIDEDIVOCZES 386 
OFTE A024 OFIC 341 DC XL2"*a024* MESSAGE IDENTIFICATION 1055 EICSYODECENOC3 DE 386 
OFID CO 87 0222 342 R HALT TO DCP HALT Ds 105D DSE3D9DED 340C6C9 386 
OF21 AO24 OP22 343 re XL2*aO24G? HALT ID C = 1065 CSL3CRHOC3CB8C1D5 386 
344 106D C7C5C440CIC6E3CS 386 
GF23 C2 02 1D8A 345 RTN2D LA WORK, XR2 SET XR2 TO POINT TO WORK AREA { 1075 D940C140 386 . ; 
OF2? BD £7 00 3UG RTN2F CLI O({,XR2) ,X*E7¢ CHECK WORK AREA FOR NO CHANGE G | Cc 1079 DE6EDSC5XOE2ZCSC3E3 1089 387 ERRO2ZD DC CLI7*ONE SECTOR VERIFY* 
OFZA F2 01 148 347 JNE RTN2E . JUMP TO PRINT IF WRT. FLD. IS CHG. 1081 L6LIVOESCSDICICE 387 
OF2D £2 02 01 348 LA 1(,XR2) ,XR2 NOT DONE, INCREMENT XR2 108S E8 387 ae 
OP30 34 02 19E2 349 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE cae © 108A ESCSC540D7D9CSES 10BA 388 DC CLU9'THE PREVIOUS ERRORS OCCURRED WHILE TOING A WRITE * 
OF 34 OD 01 19E2 1928 350 CLC SNSXR2(2),WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. 1092 CIDE6EVE2ZLOCSD9DS 388 
_OF3A F2 81 #148 351 JE RTN2G TO ROUTINE END. 109A D6D9E2Z40DEC 3C3E4 388 
-OF3D CO 87 OF27 352 R RTN2F CHECK NEXT BYTE i i 10A2 DSDSC5Ck84 CE6BCBCI9 388 2,, 
353 1OAA D3CS4OC4DECODSC7 _ 388 _ 
OFY’1 CO 87 O21A 354 RTNZE B PRIKT TO PRINT DATA FIELD WAS CHANGED en 1OB2 S0C1IS0ESDICIE3CS 388 
OF45 C6 OFaS 355 pc XL1°C6? FLAGS | Cc CG TOBA 40 388 
OF UG 33 OFL6 356 cc IL1*51° LENGTH 10PB C4CIE3C1I40C3DED4 10D2 389 ERRO2ZE DC CL24'*DATA COMND. USING HEAD Xx* 
OFU? 1044 OF48 357 DC AL2(ERRO2C) MESSAGE ADDRESS 10C3 CSC44BYOESE2ZCIDS 389 
OF4S A025 CF4A 358 pc XL2"a025° MESSAGE IDENTIFICATION Ce. 10CB C740CBCSCIC4S4OE7 389 
OFYP CO 87 0222 359 B HALT TO DCP HALT 10D3 00 10D3 | 390 EXPSEC DC XL1°0* 
OFUF A025 OF50 360 DC XL2*a025? HALT ID 
eee 361 ao 6S 
: OF51 3D SC 19C1 362 RTN2G CLI WRTDFC#2,x*5SC! TEST FOR LAST SECTOR OF TRACK 0 
‘ - OFS®S F2 01 OB 363 SNE = RTN2J JUMP IF NOT DONE 
OF58 CO 87 179E 368 B CKHED TO CHECK FOR ERRORS | c © ce 
OFSC CO 87 0B31 365 RTN2H RB RTN2A ‘ | 
OF60 OF 00 10D3 1926 366 RTN2J ALC EXPSEC(1),ONESEC INCREASE EXPECTED HEAD & SECTOR NO. oe 
OF66 CO 87 OE78 367 B RTN2E REPEAT ON NEXT SECTOR OQ °C 
368 
OF6A 3C 12 IBAS 369 WRIER2 MVI  SNSID,X"12° PUT ID IN SENSE 
OF6E CO 87 1B7D 37¢ B PRTSNS TO PRINT STATUS ERROR C. 
OF72 35 01 180F 371 L TBLH,XR1 
OF76 IC OO 10D2 04 372 MVC  ERRO2E(1),4(,XR1) MOVE HEAD NO. TO ERROR MSG. C 
Be ae 373 C 
OF7B CO 87 0214" 374 B PRINT TO PRINT WRITE ERROR 
OF7F 06 OF7F 375 pe XL1!06° FLAGS 
_  OFeO 49 OFB80 376. rc IL1°73¢ LENGTH oO © 
— -OF81 10D2—— _  . OFB2 377 DC. AL2(ERRO2E) MESSAGE ADDRESS 
--, 0F83 CO .87 02225000 © 378... E HALT TO DCP ERROR HALT 
“OF87 A012 °° | OF88 379 pC. XE2*a012! HALT ID GC .@ 
. OF83 CO 67 OFSC © 380 8 RIN2H 
3 ; Cr 
DATE 13MAR70 O6APR70 22MAY70 0 1AUG70 010CT70 PROG ID 0a06-3 DATE 13MAR70 OGAPRTO 228 aY70 0 1AUG70 010CT7C PROG ID 0A06-3 
EC NO. 571512 571516 571513 571531 571540 PAGE 4 EC NO. 571512° 571516 571513 571531 571546 PAGE WA 
G 3S 


Seeevneeveeneneeoeeeeeeooeaeseeenoeeaeeaeeaneeeeee ee 





© | ° 3 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART RO. 5129630 
: PAGE 5 G 6 PAGE 5A & 
a063 VERIFY DATA © A063 VERIFY DATA : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LGC OBJECT CODE ADDR STMT SOURCE STATEMENT 

392 ¢ ROUTINE NO. 03, CHECK VERIFY FUNCTION . Go ¢s 1193 CO 87 O21A 460 B PRINT TO PRINT THIRD LIWE 

393 * USING HEADS 1 & 3 1197 06 1197 461 pc XL1* 06" FLAGS 

394 1198 SA 1198 462 DC IL1*°90* LENGTH 
10D4 03 10D4 395 RTN3 DC XL1'03! ROUTINE NUMBER Sc 6 1199 OPE6 1194 463 pc AL2(ERRO2A) MESSAGE ADDRESS 
10D5 00 40DS 396 pc XL1'00! ROUTINE FLAGS 11°B CO 87 0222 4u64 B HALT TO DCP RALT 
10D6 1284 40D7 397 DC AL2 (RTN&) ADDRESS OF NEXT ROSTINE PREFIX 149F A027 11A0 465 pc XL2*a027°8 HALT ID 

398 Cc 6 117A1 F2 87 64 466 J RTN3G 
10D8 C2 02 182B 399 LA HDTBL+1,XR2 SET POINTER &67 
10DC 34 02 180F 400 ST TBLH, XR2 FOR HEAD 1, REMOVABLE DISK 11A8 CO 87 187C 468 RTN3B2 B TSTDAT TO TEST DATA ADDRESS 
10£0 3D 00 0B13 401 CLI SETS, 0 HAVE PARAMETERS BEEN ENTERED? } CG 11A2 IDSA 71A9 4&69 pc AL2(WORK) 
10E4 CO 81 OAOD 402 BE SETDSK SRANCH IF NO 870 
10E8 CO 87 OB6A 403 RTN3A BF TSTSPN 11AA 3D FF 19C€2 471 RTN3C1 CLI WRTDFC+3,X°FF? TEST SECTOR COUNTER FOR STEPPING 
IOEC C2 02 1810 Gou LA SECTBL,XR2 SET ERROR TABLE POINTER ¢ Q 11AE F2 81 10 472 JE RTW3C2 PROCEED IF OK 
10FO BC 00 17 405 BVI 23 (,XR2),0 ZERO SECTOR 11B1 CO 87 O21A 473 B PRIEST TG PRINT SECTOR COUKTER NOT STEPPED 
1OF3 AC 16 16 17 806 BYC 22 (23,XR 2) ,23(,XR2) ERRCR FLAGS | 11B5 C6 11B5 474% pc YL1°C6? FLAGS 
10F7 OC 00 19CO OB14 407 MVC WRTDFC+1(1),TRACK# SET WRITE ADDRESS TO CE TRACK Cle 11B6 2B 11B6 475 pc IL 1" 43° LENGTH 
1OFD 3c 80 1SC1 408 MVI WRT DFC+2,X"*805 SET FOR HEAD 1, SECTOR 0 17187 1011 41B8 476 pc AL2 (ERRO2 B) MESSAGE ADDRESS 
1101 3c 60 10D3 809 MVI EXPSEC,Xx'80* SET EXPECTED HEAD & SECTOR NO. 11B9 A023 11BA 477 pc XL2*A0238 BESSAGE IDENTIFICATION 
1105 3c 09 1BA4 410 RVI SNSID,09 INSERT ID IN PRINT Cie 11BE CO 87 0222 478 B HALT TO DCP HALT 

411 11BF A023 11¢CO0 479 pe XL2"a023* HALT ID 
1109 CO 87 19F8 412 B STRTIO TO SEEK CE TRACK 4B0 
110D 00 110D 413 pc XL1*0? FUNCTION CODE (CONTROL) Cci¢ 11C1 OD 00 19C1 10D3 &81 RTN3C2 CLC WRTDPC+2(1),EXPSEC CHECK HEAD & SECTCR RO. AFTER 
110E 00 110E U14 pc XL1*O* CONTROL CODE (SEEK) 482 * . WRITE IS COMPLETED, (EXPECT KO CHG.) 
110F 19BF 1710 415 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 11C7 F2 81 10 £83 JE RTN3D PROCEED IF OK 
1111 CO 87 1128 416 B RTH3A1 GOOD RETURN Cie 11CA CO 87 021A 434 B PRINT TO PRINT ERROR : 
1115 CO 87 1119 417 ¥ *+4 11CE C6 11CE 485 DC XL1*c6® FLAGS 
17119 CO 87 1B7D 418 B PRTSNS TO DECODE ERROR | 11CF 44 11CP U86 pc IL 1°68" LENG TH 
111D CO 87 O21A 419 B PRINT TO PRINT Cy 11D0 1089 11D1 0-487 DC AL2 (ERRO2D) MESSAGE ADDRESS 
1121 06 1121 420 pc XL1°06° FLAGS 11D2 A024 11D3 488 DC XL2*a024" MESSAGE IDENTIFICATION 
4122 35 1122 421 pc IL1*53* LENGTH 11D4 CO 87 0222 489 B HALT TO DCP HAL? 

4123 OCFO 1124 422 pc AL2 (ERROR9Y) MESSAGE ADDRESS Cc G 11D8 AO24 11D9 490 pc XL2* a02K* HALT ID 
1125 CO 87 0222 423 B HALT TO DCP HALT 891 
1129 aACO9 112A 424 DC XL2*A009* HALT ID 11DA C2 02 1D8A 492 RTN3D LA WORK , XR2 SET XR2 TO POINT TO WORK AREA 

425 2; Oo 11DE BD E7 00 493 RTN3F CLI O(,XR2),X*E7* CHECK WORK AREA FOR NO CHANGE 
112B CO 87 1851 426 RTN3A1 B TSTSEK TO CHECK FOR A GOOD SEEK 11E1 F2 01 14 494 INE RTN3E JUMP TO PRINT IF WRT. PLD. IS CHG. 

427 11E4 EZ 02 01 495 LA 1(,XR2),XR2 ROT DONE INCREMENT XR2 ; 
112F 3C E7 1£89 428 RTN3B MMVI WORK+255,X'E7® SET DATA FIELD Cc 8¢6 11E7 3% 02 19E2 496 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE > 
1133 OC FE 1E88 1E89 429 BYC = -WORK#254 (255) , WORK+255 11EB OD 01 19E2 1928 497 CLC SNSXR2 (2) ,WORK2 CHECK XR2 FOR REACHED UPPER LISIT 

430 11P1 F2 81 14 498 JE RT N3G TO ROUTINE ZND : 
1139 3C 16 1BA4 431 NVI SNSID, X* 16° PUT ID IN PRINT C @ 11F4 CO 87 11DE 499 B RTN3P CHECK NEXT BYTE 7 
113D 3c 00 19C2 432 MVI WRTDFC+3,0 SET TO WRITE ONE SECTOR 500 
1141 OC 00 19C1 10D3 433 MVC WRTIDFC+2 (1) , EXPSEC SET SECTCR NO IN CONTROL FIELD 11F8 CO 87 021A 501 RIN3E B PRINT TO PRINT DATA FIELD WAS CHANGED 
1147 CO 8&7 19F8 434 B STRTIO TO WRITE DATA Ci € 11FC C6 11FC 502 rc XYLi*c6? FLAGS 
114B 02 118B 435 pc XL17*025 FUNCTION CODE (WRITE) 11FD 33 11FD 503 pc IL1*51° LENGTH 
114c 00 114C (436 Dc XL1*°00* CONTROL CODE (DATA) | TIFE 1044 11FF 504 DC AL 2 (ERRO2C) MESSAGE ADDRESS 
114D 19BF VIE 437 DC AL 2 (WRTDFC) CONTROL FIELD ADDRESS C+ ¢ 1200 A025 1201 505 DC XL2*a025" MESSAGE IDENTIFICATION 
114F CO &7 115B 438 B RTN3B1 GOOD RETURN 1202 cO 87 0222 506 B HALT TO DCP HALT 
1153 CO 87 1157 439 B *+4 1206 A025 1207 507 DC XL2"a025° HALT ID 
1157 CO 87 1221 440 B WRTER3 ERROR RETURN & | é 508 =~ 

4at | 1208 3D pc 19C1 509 RTN3G CLI WRTDPC+2,X'"DC* TEST FOR LAST SECTOR CP TRACK 1 
115B 3c 27 BAS 442 RTN3BT BVI SNSID, X*27! PUT ID IN PRINT | 120cC F2 01 08 510 JNE RTN3I JOMSP IF NOT DONE . 
115F 3c 00 19c2 443 MVI WRTDFC+3,0 SET TO VERIFY ONE SECTOR CC | Cc: 120F CO 87 179E 511 B CK HED TO CHECK FOR ERRORS - 
1163 OC 00 19C1 10D3 Quy MYC WRTDFC:2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD | 1213 CO 87 10E8 512 RTN3H B RIN3A 
1169 CO 87 19F8 nu S B STRTIO TO VERIFY | 1217 OZ 00 10D3 1926 513 RTN3J ALC EXPSEC(1),ONESEC INCREASE EXPZCTED HEAD & SECTOR XO. ; 
116D 01 116D 446 DC XL7'01' PUNCTION CODE (READ) G ¢ 1212 CO 87 112F S14 B ETNSB REPEAT ON NEXT SECTOR ie 
116E 03 J16E 4Uu7 , pc XL1'03! CONTROL CCDE (VERIFY) 1221 3C 16 1BA4 515 WRIER3 MVI SNSID, X'16! PUT ID IN SNS 
116F 19BF 1170 44B rc L2(WRTDFC) CONTROL FIELD 4225 CO 87 1B7D 516 B PRTSHS TO PRINT STATUS ERRORS 
1171 CO 87 11A4 44g B RTN3B2 GCOD RETURN C'S 1229 35 01 180F 517 L TBLE,XR1 : 
1175 CO 87 1179 450 B +4 122D 1¢ 00 10D2 04 518 MVC ERRO2E(1),4%(,XB1) MOVE HEAD NO. TO ERROR MSG. 

451 1232 CO 87 021A 519 B PRINT TO PRINT WRITE ERROR _ 
1179 CO 87 1CCB 452 RTN3C 2B SHIPT TO SHIFT BITS POR DECIMAL NUBBER Cc Ee 1236 06 1236 520 pc XL1' 062 PLAGS oS 
1170 19BF TIVE 453 DC AL2 (WRT DFC) ADDRESS OF SOURCE 4237 49 1237 521 pc IL1°73° LENG TH 
T17F CC 87 DIC 454 B CVD TC CONVERT NUMBER TO DECIMAL 1238 10D2 1239 522 pc AL2(ERRO2E} MESSAGE ADDRESS 7 
1183 1D10 1184 &55 pc AL2 (CYLNO) LDDRESS OF SOURCE? C @G 123A CO 87 0222 523 B HALT TO DCP FRROR HALT % 
1185S OFE6 1186 4456 pc AL2 (ERRO2A) APDRESS OF DESTINATION 123E A016 123F 524 Dc XL2*°A016* HALT ID 
1187 3¢ 40 OFEY 457 nvI ZRRO2ZA-2,C* * SET A BLANK IN PRINT IMAGE 1240 CO 87 1213 525 B RTK3H ze 
118B CO 87 1780 858 B SETERR TO SET ERROR FLAG FOR THIS SECT. c 6 526 a 
118P CO 87 1B7D 459 B PRTSNS TO PRINT SENSE INFO. 
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IB* MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART ¥O. 5129630 : 
PAGE 6 Giese PAGE 6A ” 
A063 VERIFY ODATA ¢ A063 VERIFY DATA 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
528 * ROUTINE NO. 0&4, CHECK VERIFY DATA * © 1e 12F7 IDeA 12F8 596 pc AL2 (BORK) EXPECTED ADDRESS 
529 * USING MULTIPLE SECTORS * 597 
530 * HEADS 0 & 2 12P9 3D FF 19¢2 598 RTNUCT CLI WRTDFC+3,X*FP® TEST SECTOR COUNTER FOR STEPPING 
531 c ie 12FD F2 81 10 599 JE RTNSC2 PROCEED IF OK 
1204 04 1244 532 RTNS DC XL1" Out ROUTINE NUMBER 1300 CO 87 021A 600 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED 
1245 00 1245 533 pc XL1°00* ROUTINE PLAGS 13048 C6 1304 601 pc XL1* C6? FLAGS 
1246 1402 1267 534 pc AL2 (RTNS) ADDRESS CF NEXT ROUTINE PREFIX ole 1305 2B 1305 602 DC IL1*93° LENG TH 
535 1306 1011 1307 603 pc AL2 (ERRO2B) MESSAGE ADDRESS 
1248 C2 02 1829 536 LA HDTBL-1,XR2 LOAD HEAD NO. POINTER 1308 A023 1309 608 DC XL2*a023° MESSAGE IDENTIFICATION 
124C 34 02 180F 537 ST TBLH,XR2 STORE Gc |¢ 130A CO 87 0222 605 B HALT TO DCP HALT 
4250 3D 00 0813 538 CLI SETS, 0 HAVE PARAMETERS BEEN ENTERED? 130E A023 130F 606 pe XL2* a023* HALT ID 
1254 CO 81 OAOD 539 BE SETDSK BRANCH IF NO 607 
1258 CO 87 OBGA 540 RTNSA RB TSTSPN Q G 1310 3D O48 19¢1 608 RINYC2 CLI WRIDFC+2,08 CHECK HEAD & SECTCR WO. AFTER 
125¢ OC CO 19C0 OB14 541 MVC WRTDFC4+1 (1), TRACK# SET WRITE ADDRESS TO CE TRACK 609 * WRITE IS COMPLETED, (SHOULD STEP) 
1262 3c 00 19C1 542 MVI WRITDFC+2,0 SET FOR HEAD 0, SECTOR 0 1314 F2 81 10 610 JE RTNYD JONP IFSTEPPED CORRECTLY 
1266 3C 09 1BA4 543 MVI SNSID,09 INSERT ID IN PRINT GC 1S 1317 CO 87 021A 611 B PRINT 
584 131B C6 131B 612 rc XL1°c6? FLAGS 
126A CO 8&7 19F8 545 B STRTIO TO SEEK CE TRACK 131¢ 51 131cC 613 DC IL1°817!* LENGTB 
126E 00 126E 546 DC XL1°0! FUNCTION CODE (CONTROL) Cc CQ 131D 1401 131E 614 pc AL2 (ERRO4B) MESSAGE ADDRESS 
126F 00 126P 547 DC XL1*O* CONTROL CODE (SEEK) 131F A028 1320 615 DC XL2"a028! MESSAGE IDENTIPICATION 
1270 19BF 1271 548 DC AL 2 (WRTDFC) CONTROL FIELD ADDRESS 1321 CO 87 0222 616 B HALT TO DCP HALT 
1272 CO 87 128C 549 B RTNGA1 GCOD RETURN Gle 1325 A028 1326 617 pc XL2*a028°* RALT ID 
1276 CO 87 127A 550 B *+4 618 
127A CO &7 1B7D 551 R PRTSNS TO DECODE ERROR 1227 C2 92 IDSA 619 RTNYD LA WORK, XB2 SET XR2 TO POINT TC WORKAREA 
127E CO 87 021A 552 B PRINT TO PRINY CA CG 132E BD 10 00 620 RTNUP CLI O(,XR2),xX*10? CHECK WORKAREA FOR NO CHANGE. 
1282 06 1282 553 DC XL1" 06° FLAGS 132E F2 01 14 621 JNE RTNYE JUMP TO PRT. IF WRT. PLD. IS CHG. 
1283 35 1283 554 DC IL1'53? LENGTH 1331 E2 02 01 622 LA 1(,XR2) ,XR2 SET TO CHECK NEXT BYTE 
1284 OCFO 1285 555 DC AL2(ERROR9) MESSAGE ADDRESS Cr 1334 34 02 1982 623 ST SNSXR2,XR2 STORE FOR COMPARE 
1286 CO 87 0222 556 B HALT TO DCP HALT 1338 OD 01 1922 192A 624 CLC SNSXR2(2),HORK3 CHECK X82 FOR OPPER LISIT 
128A A009 128B 557 pc XL2* A009" HALT ID 133E F2 81 14 625 JE RT NGG TO ROUTIKE END IF DORE 
558 Coe 1341 CO 87 132B 626 B RT NGF CHECK NEXT BYTE 
128C CO 87 18B1 559 RTN4A1 B TSTSEK TO TEST FOR A GOOD SEEK 627 
560 1345 CO 87 021A 628 RTNGE B PRINT TO PRINT DATA FIELD WAS CHARGED 
1290 30 10 1F89 561 RTN4B NVI WORK+511,X'"10° SET ci. ¢ 1349 C6 1389 629 DC XL1'C6* FLAGS 
1294 OC FE 1788 1F89 562 BVC WORK+4+510 (255) ,WORK+511 2 SECTOR 134A 33 134A 630 pc IL1¢51° LENGTH 
129A OC FF 1E89 1E8A 563 MVC WORK+255 (256) , WORK+256 WORKAREA | 134B 1044 134¢ 631 pc AL2 (ERRO2C) MESSAGE ADDRESS ; 
564 Ce ae 134D A025 134E 632 rc XL2" a025" MESSAGE IDENTIFICATION “a 
1ZA0 3C 12 1BA4 565 MYI SNSID, X* 12! PUT ID IN PRINT 134F CO 87 0222 633 B HALT TO DCP HALT 
12A4 3C 01 19C2 566 MVI =- WRTDFC+3,01 SET TO WRITE 2 SECTORS | 1353 a025 1354 634 pc XL2* a025* HALT ID 2 
12A8 CO 87 19F8 567 B STRTIO TO WRITE DATA, (2 SECTORS) re 635 ~ 
12AC 02 12AC 568 DC XL1*02' FUNCTION CODE (WRITE) 1355 cO 87 1258 636 RTNGG B RTNSA ROUTINE EXIT 
12AD CO 12AD 569 DC XL1*00° CONTROL CODE (DATA) 1359 E3C8CS54OD7DICSES 138C 637 pc CL52'*THE PREVIOUS EPRORS WERE PRESERT AFTER DOING A VERIF® 
12AE 19BF 12AP 570 re AL2 (WRTDFC) CONTROL FIELD ADDRESS Co | = 1361 COL6EXE2N0C5D9ODI 637 
1230 CO 87 12BC 571 B RTNGB1 GOOD RETURN 1369 D6D9E2ZUOESC5DICS 637 
12B4 CO 87 12B8 572 B *+ | 1371 4OD7D9CSE2CEDSE3 637 ‘ 
12B8 CO 87 OF6A 573 B WRTER2 ERROR RETURN Cae 1379 40C1C6E3C5D94 0C4 637 ae 
574 1381 L6C9DSC7T4NCINOES 637 
12BC 3C 22 1BA4 575 RTNUBT MVI SNSID,X*22! PUT ID IN PRINT 1389 cSD9C9C6 637 
12c0 3c 01 19C2 576 MVI WRIDFC+3 ,01 SET TO VERIFY TWO SECTORS Co ue 138D E840C3D6D4D4C1D5 13B0 633 ERROSA DC CL36"Y COMMAND USING HD. X, SECTORS 0 & 1° 
12C4 3c 00 19C1 577 NVI WRIDPC+2,0 SET TO START AT SECTOR 0 1395 C&40E4E2CIDSC7T4HO 638 
12c8 CO 87 19F8 578 B STRTIO TO VERIFY DATA | 139D C8CU4BNOE7EBY0E2 628 
12cc 01 12¢C 579 pe XL7°01! FUNCTION CODE (READ) Ce 13A5 C5SC3EIDEDIE2ZKNOFO 638 
12cD 03 12CD 580 Dc XL1°03' CONTROL CODE (VERIFY) | 13AD S05040F1 638 
TZCE 19BF 12CF 581 DC AL2(WRTDFC) CONTROL FIELD ADDRESS 13B1 C8CS5SCIC4Y4OSO40E2 13E4 639 cc CL52"*HEAD & SECTOR BYTE OF CONTROL FIELD WOT STEPPED CORR®* . 
12DC0 CO 87 12F3 582 B RTN4B2 GOOD RETURN Can 13B9 CSC3E3L6D940C2E8 639 
12D4% CO 87 12D8 ; 583 B *+h 13C1 E3C540D6C640C3D6 639 
584 13C9 DSE3D9D6D340C6C9 639 = 
12D8 CO 87 1B7D 585 RTNSC B PRTSNS TO PRINT SENSE INFO Ge ag 13D1 C5D3C440D5D6E340 639 
12DC 35 01 180F 5 86 L TBLH,XR1 LOAD HEAD NO. POINTER 13D9 E2E3C5SD7D7C5C4HO 639 
12EO 1C 00 13A1 04 587 MVC ERRO4YA-15(1),4{,XR1) PUT HEAD NO. IN FRROR BSG. 13E1 C3D6D9D9 639 
12E5 CO 87 O21A 588 B PRINT TO PRINT 3RD LINE C -sG 13E5 CSC3E3D3E840C1C6 1401 640 ERROSB DC CL29"ECTLY AFTER A 2 SECTOR VERIFY* 
42E9 06 12E9 589 pc XL1'06! FLAGS IZED E3C5DI4OCI4OF24N0 640 
12EA 58 12ER 590 Dc IL1' 888 LENGTH 13F5 F2C5C3E3D6D940ES 640 Zs 
12EB 1380 12EC 591 DC AL2(ERROWA) MESSAGE ADDRESS i “G 13FD C5D9C9IC6EB 640 . 
12ED CO 87 0222 592 B HALT TO DCP HALT 
12F1 A022 12F2 593 pc XL2*a022* HALT ID ~ 
594 © oe ed 
12F3 CO 87 187C 595 RTNSB2 B. TSTDAT TO TEST DATA ADDRESS 
C os ID OA06-3 
DATE 13MAR7O OGAPR70 -22maY70 0 1A UG 70 010CT70 PROG ID 0A06-3 DATE 13MAR70 OGAPR70 22MAY70 0 1A0G70 O10CT7O FROS 
EC NO. 571512 571516 * 571513 571531 571540 PAGE 6 ° EC NO. 571512 571516 571513 571531 571580 PAGE 6A n 
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PAGE 7 
STATEMENT 

ROUTINE NO. 05, CHECK VERIFY FUNCTION: USING * 
HEAD SWITCHING, * 
BEGIN WITH HEAL 0, SECTOR 23, * 
END WITH HEAD 1, SECTOR 0 * 

DC xL1°05'* ROUTINE NUMBER 


BC XL1*00* 
bc AL2 (RTN6) 


ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE PREFIX 


LA HDTBL, XR2 

ST TBLH,XR2 

CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED? 
BE SETDSK BRANCH IF NO 

B TSTSPN 

MVC WRTDPC+1( 1), TRACK# SET CYLINDER ADDRESS TO CE TRACK 
MVI  WRIDFC+2,X"SC? SET FOR TEAD 0, SECTOR 23 
MVI SNSID,09 INSERT ID IN PRINT 

FE STRTIO TO SEEK CE TRACK 

DC XL1*0! FUNCTION CODE (CONTROL) 
pc XL1*0# CONTROL CONE (SEER) 

DC AL2 (WRTDPC) CONTROL FIELD ADDRESS 

B RTNSA1 GOOD RETURN 

B +4 

B PRTSNS TO DECODE ERROR 

B PRINT TO PRINT 

DC XL17*06' FLAGS 

pc IL1*53°* LENGTH 

pe -AL2 (ERRORS) MESSAGE ADDRESS 

B RALT TO DCP HALT 

pec XL2'a009* HALT ID 

8 TSTS EK TO CHECK FOR A GOOD SEEK 
MVI WORK4+511,X'E7! SET 

MVC =9WORK+510 (256) , WORK4511 DATA 

MVC WORK4+254(255},WORK4255 FIELD 

NVI = -WRTDFC+3,1 SET TO WRITE TWO SECTORS 
B STRTIO TO 1/0 SUBROUTINE 

DC XL1*02° FUNCTION CODE (WRITE) 

DC XL1*00! CONTROL CODE (DATA) 

pe AL2(WRTDFC) CONTROL FIELD ADDRESS 

B RTNSP1 GOOD RETURN 

B #+ 4 

B WRTER2 ERROR RETURN 

nVI SNSID,X'09* PUT ID IN PRINT 

MVI  WRIDFC+2,Xx'"SC* SET TO START AT TRACK 0 SECTOR 23 
B STRTIO TO SEEK 

DC XL1°0" FUNCTION CODE (CONTROL) 
pC XL1°08 CONTROL CODE (SEEK) 

DC AL2 (WRTDFC) CONTROL FIFLE ADDRESS 

B RTN5S 282 GOOD RETURN 

B +4 

B PRTSHS TO DECODE ERROR 

B PRINT TO PRINT 

pc XL1"06° FLAGS 

pc IL1*52¢* LENGTH 

DC AL2(ERROR9) MESSAGE ADDRESS 

B HALT TO DCP HALT 

pe XL2*Aa009° HALT ID 

HVI SNSID,X*2A° PUT ID IN PRINT 

NVI «-«; WRTDFC+3,1 SET TO VERIFY 2 SECTORS 

B STRTIO TO VERIFY 2 SECTORS 

pe XL1*01° FUNCTION CODE (READ) 
0130670 010CT70 PROG ID 0A06-3 
571531 571540 PAGE 7 
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SOURCE STATESENT 


A063 VERIFY DATA 
ERR LOC OBJECT CODE ADDR STNT 
14ADd 03 14AD 710 
THAE 195FP VEAP 711 
18BO0 CO 87 14CA 712 
14B4 CO 87 1438 713 
718 
14B8 CO 87 1B7D 715 RTNSC 
14BC CO 87 021A 716 
14C0 06 14cO 09717 
14C1 57 14C1 718 
14C2 ODCO 14c3. 719 
14c4a CO 87 0222 720 
14C8 AO2A 14c9 0 =0721 
722 
Tuca CO 87 187C 723 RTNSB3 
14CE 1D8A 14CrY 724 
725 
V4r0 3D FP 19C2 726 RTNSC1 
14D4& F2 81 10 727 
14D7 CO 87 O21A 728 
14DB C6 WDB 729 
VapC 28 14pc =—730 
18DD 1011 T8DE 731 
14DF A023 V4EO 732 
18E1 CO 87 0222 733 
1KES5S A023 WWEG 734 
735 
T4E7 3D 80 19C1 736 RTNSC2 
14EB F2 81 10 737 
18HEE CO 87 O2TA 738 
739 * 
TUF2 C6 WWF2 740 
1T4FP3 SC WF3 «(741 
V4FR OEIC T4F5 7482 
14F6 A029 14F7 743 
14F8 CO 87 0222 74 
14FC A029 14FD 745 
746 
TWUFE C2 02 1D8A 747 RTNSD 
1502 BD E7 00 748 RTNSF 
1505 F2 01 148 749 
1508 E2 02 01 750 
1S0B 34 02 19E2 751 
150F OD 01 19E2 192A 752 
1515 F2 81 14 753 
1518 CO 87 1502 754 
755 
151c CO 87 O21A 756 RTNSE 
1520 C6 1520 757 
1521 33 1521 758 
1522 10448 1523 759 
1524 A025 1525 760 
1526 CO 87 0222 761 
152a A025 152B 762 
763 
152C OF 01 180F 19C8 764 RTNSG 
1532 CO 87 1816 765 
DATE 13MAR70 O6APR70 22MAY70 
EC NO. 571512 571516 571513 


pe XL1! 03! 

pc AL2 (WRTDFC) 
B RTNSB3 

B #49 

B PRTSNS 

B PRINT 

pc XL 1°06? 

pc IL1*87* 

pc AL2 {ERROSA) 
B HALT 

bc XL2' AO2A* 

B TSTDAT 

pc AL2 (WORK) 
CLi WRIDFC+3,X'°FP* 
JE RTNS5SC2 

B PRINT 

pc XL1*C6* 

pe IL1*a3° 

pc AL2 (EERRO2B) 
bc XL2*a023'° 

B HALT 

pe XL2*a023° 
cli WRIDFC+2 ,x*80* 
JE BT NSD 

B PRINT 

pc XL1*C6* 

DC IL1*92! 

pc AL2 (ERROSB) 
pe XL2*a029! 

B HALT 

pe XL2*a029° 
LA WORK, XE2 
CLI 0(,XR2) ,Xx* £E7° 
JNE RTWSE 

LA 1(,XR2) - X82 
st SNSXR2,XR2 
cLc SNSXR2 (2) ,WORK3 
JE PT NSG 

B RBI NSFP 

8B PRINT 

DC XL14* c6* 

pe IL1*51° 

pc AL2 (ERRO2C) 
pc XL2*a025! 

B HALT 

BC XL2*a025° 
ALC TBLS (2) ,ONE 
B RINSA 
01AUG70 010CT70 
§71531 571580 


PART WO. 5129630 
PAGE TA 

CONTROL CODE (VERIFY) 

CONTROL FIELD ADDRESS 

GCOD RETURN 

TO PRINT SENSE INFO. 

TO PRINT 3RD LINE 

FLAGS 

LENGTH 

BESSAGE ADDRESS 

TO DCP HALT 

HALT ID 

TO TEST DATA ADDRESS 

ZXPECTED ADDRESS 

TEST SECTOR COUNTER FOR STEPPING 

PROCEED IF OK 

TO PRINT SECTOR COUNTER NOT STEPPED 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

BESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 

TEST EXDING HEAD & SECTOR ADDRESS 

PROCEED IP OK 

TO PRINT HEAD & SECTOR ADDRESS 


NOT STEFPED CORRECTLY 
FLAGS 

LENGTH 

MESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 

HALT ID 


SET XR2 TO POINT TO WORK AREA 
CHECK WRITE FIELD FCR RO CHANGE 
JUMP TO FRINT IF WRT. FLD. IS CHG. 
NOT DONE, IECREMENT XR2 

SET TO CHECK NEXT BYTF 

CHECK XR2 FOR UPPER LINIT 

IF DONE, GO TO ROUTINE END 

NOT DORE, CHECK NEXT BYTE 


TO PRINT DATA FIELD WAS CEABGED 
PLAGS 

LENGTH 

HESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


PROG In 
PAGE 


0a06-3 
7a 


e@e02020802800800808088088 


°o 


© 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB 


A063 


VERIFY 


D 


ERR LGC OBJECT CODE 


1536 C6 
1537 00 
7538 FFFF 


153A C2 02 
IS3E 34 02 
1542 3D 00 
1546 CO 81 


154A CO 87 
15UE OC CO 
1554 3c DC 
1558 3c 09 


155¢ CO &7 


13MAR7 
571512 


182A 
180F 
0B13 
OAOD 


OB6A 
19c0 
19C1 
1BAY 


19F8 


157E 
156C 
1B7D 
O21A 


0222 


1881 


1F89 
1F88 
1E89 


19C2 
1SF8 


TSAA 
15A6 
OF6A 


IBA 
19C2 
19C1 
19F8 


1SCA 
15C6 
15DA 
O21A 


0222 


0 


OB14 


1F89 
TESA 


ATA 


ADDR 


1536 
1537 
1539 


1560 
1561 
1563 


1574 
1575 
1577 


157D 


159A 
1598 
159D 


15BA 
15BB 
15BD 


15CE 
15CF 
15D1 
15D3 


15D9 


O6RPR70O 
571516 





STMT SOURCE STATEMENT 
767 * ROUTINE NO. 06, 
768 * 
769 * 
770 
771 = =* ROUTINE PREFACE 
772 
773 RING pe XL1°06! 
774 De XL1'00! 
775 pc XL2'FFFF!? 
7176 
777 LA HDTBL, XR2 
778 ST TBLH,XR2 
779 CLI SETSW, 0 
780 BE SETDSK 
781 
782 RTN6GA R TSTSPN 
783 MYC WRIDFC+1 (1) , TRACK# 
784 MVI WRIDFC+2,X'"DC* 
785 NVI SNSID,09 
786 
787 B STRTIO 
788 Dc XL1'O? 
789 Dc XL1'0? 
790 pc AL2 (WRTDFC) 
791 RB RT NGAI 
792 B *44 
793 B PRISNS 
794 B PRINT 
795 Dc XL1'06! 
796 pce IL 1: 53? 
797 pc AL2 (ERRORQ) 
7938 B HALT 
799 DC XL2°A009! 
800 
801 RTN6A1 B TSTSEK 
802 
803 RTK6B MMVI WORK*#511,X*E7®* 
804 MVC WORK+510 (255) , WORK4+511 
805 MVC WORK+255 (256) , WORK +256 
806 
807 MVI WRTDFC+3,00 
808 B STRTIO 
809 cc XL17*02! 
810 pc XL1*00!? 
811 Dc AL2 (WRTDFC) 
812 B RTN6B1 
813 B *+ 
B14 B WRTER2 
815 
816 RTNG6BI BVI SNSID,X*2c! 
817 NVI WRIDFC+3,1 
818 MVI WRIDFC+2,X*DC? 
819 B S?TRTIO 
820 rc XL1'O1! 
821 dc XL1*03° 
822 pc AL2 (WRTDFC) 
823 B RT N6B2 
824 B *+4 
825 B RTN6C 
826 RTN6B2 B PRINT 
827 Ddc XL1°C6! 
828 DC IL1'77! 
829 pc AL2 (ERRO6A) 
830 Dc XL2'A02C! 
831 
832 B HALT 
833 DC XL2*a02c!# 
834 
228AY70 01AUG70 010CT70 
§71513 571531 571580 


CHECK 
SENSE 
OSING 


PART RKO. 


5129630 

PAGE 8 
FUNCTION OF END CF CYLINDER * 
BIT, (BYTE 1, BIT 2) * 
THE VERIFY COMMAND * 


ROUTINE NUMBER 
ROUTINE FLAGS 
LAST ROUTINE FLAG 


HAVE PARAMETERS BFEN ENTERED? 
BRANCH IF NO. 


SET SEEK ADDRESS TO CE TRACK 
SET FOR BEAD 1, SECTCR 23 
INSERT If IN PRINT 


TO SEEK CE TRACK 
FUNCTION CODE (CONTROL) 
CONTROL CODE (SEEK) 
CONTROL FIELD ADDRESS 
GOOD RETURN 


TO DECODE ERROR 
TO PRINT 

FLAGS 

LENGTH 

MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO TEST FOR A GOOD SEEK 


SET 
2 SECTOR 
WRITE FIELD 


SET TO WRITE 1 SECTOR 
TO WRITE DATA 
FUNCTION CODE (WRITE) 
CONTROL CODE (DATA) 
CONTROL FIELD ADDRESS 
GCOD RETURN 


ERROR RETURN 


PUT ID IN PRIKT 

SET TO VERIFY 2 SECTORS 

SET FOR HEAD 1, SECTOR 23 

TO VERIFY DATA, (EXPECT END OF CYL.) 
FUNCTION CODE (READ) 

CONTROL CODE (VERIFY) 

CONTROL FIELD ADDRESS 

GOOD RETORN, (NOT EXPECTED) 


ERROR RETURN, (EXPECTED) 
TO PRINT NO ERROR FROM TIO 
FLAGS 

LENG TH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 


TO DCP HALT 
HALT ID 


PROG ID OA06-3 
PAGE 8 
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SOURCE STATEMENT 


IBM MAINTENANCE DIAGNOSTIC PROGRAMS 
A063 VERIFY DATA 
EPR LOC OBJECT CODE ADDR STMT 
15DA CO 87 19C9 835 RTN6C 
ISDE 02 15DE 836 
837 
15DF 38 20 19£0 838 
839 * 
15E3 F2 10 10 840 
844 
15E6 CO 87 021A 842 
1SEA C6 15EA 843 
ISEB 49 1SEB 844 
15EC 16DA 15ED 845 
15EF AOQ2E 15EF 846 
847 
15FO CO 87 0222 848 
15F4 AO2E 15FS5 849 
850 
15F6 CO 87 187C 851 RTN6D 
‘SFA 1D8A 1SFB 852 
853 
15FC 3D 00 19¢2 854 
1600 F2 81 10 855 
c 1603 CO 87 021A 656 
857 * 
1607 C6 1607 858 
C 1608 53 1608 859 
1609 172D 160A 3860 
160B A023 160C 861 
c 862 
160D CO 87 0222 863 
1611 A023 1612 864 
CG 865 
1613 3D DC 19¢% 866 RTNGE 
867 * 
Cc 1617 F2 81 10 868 
161A CO 87 O21A 869 
161E C6 161E 870 
eS 161F 52 161F 871 
1620 177F 1621 872 
1622 AO2F 1623 873 
a 874 
1624 CO 87 0222 875 
1628 A02F 1629 876 
c 162A OE 01 180F 198 877 RIN6F 
1630 CO 87 19F8 878 
1634 00 1634 879 
eS 1635 00 1635 880 
1636 19BF . 1637 881 * 
1638 CO 87 163C 882 
= 162C CO 87 1640 883 
1640 CO 87 154, 884 
885 
S 1644 C14OE3C5E2E340C9 1677 886 
164C 61D640D6D540C5D9 886 
1654 DIDEDISOCECIC4AO 886 
c: 165C D5D6E380C2D9C1D5 886 
1664 C3CBUCCIC6E3C5D9 886 
166C 40C1E3E3C5D4D7E3 886 
c 1674 C9D5C740 886 
1678 E3D640ESC5D9CIC6 1691 887 ERRO6x 
1680 E840D7C1E2E340C5 887 
a 1686 DSCU4ODECE4OC3E8 887 
1690 D34B 887 
1692 C5D5SC#40D6C640C3 16C5 888 
ce 169A E8L34B40 E2CSD5E2 888 
16A2 C540C2C9E3480D5D6 888 
16AA E340E2C5E340C1C6 888 
Co 16B2 E3C5D940C1E3E3C5 888 
16BA D4L7E3C9DSC740E3 888 
Q | 
DATE 13NAR70 C6APR70 22MAY70 
EC NO. 571512 571516 571513 
G 
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CL52°*A TEST 1/0 ON ERROR DID NCT 


‘PART RO. £129630 
PAGE SA 


TO SENSE DEVICE STATUS 
BYTFS 0 & 1. 


TEST BYTE 1 BIT 2 FOR OR, 
(THIS IS ‘END OF CYLINDER*) 


JUNP IF CN 

TO PRINT SENSE BIT NOT OF 
FLAGS 

LENGTH 


SESSAGE ADDRESS 
MESSAGE IDENTIFICATION 


TO DCP HALT 
HALT IDENTIFICATION 


TO TEST DATA ADDRESS 
EXPECTED ADDRESS 


TEST SECTOR COUNTER FOR STEPPING 
JUMP IP CORRECT 

TO PRINT SECTOR COUNTER 
STEPPED CORRECTLY 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 


NOT 


TO DCP HALT 
HALT In 


CHECK HEAD & SECTCR NO. AFTER 

WRITE IS COMPLETED, (SHOULD NOT STP) 
JUMP IF NO CHANGE , 

TO PRINT ERROR 

FLAGS 
LENGTH 
NESS AGE 
BESS AGE 


ADDRESS 
IDENTIFICATION 


TO DCP HALT 
HALT ID 


TO SEEK TO CLEAR END OF CYL. 
PUXCTION CODE (CONTROL) 
CONTROL CODE {SEFK) 

CONTROL FIELD ADDRESS 

GOOD EETURN 


BRANCH AFTER ATTEMFTING ° 


CL26'TO VERIFY PAST END OF CYL.* 


B SENSE 

pe AL1 (STATO) 
TBN STATUS, X*20° 
JT RTNO6OD 

B PRINT 

pc XL1°C6! 

pc IL1'73° 

bc AL2 (ERRO6B) 
pc XL2"AQ2E* 

Ez BALT 

pc XL2*AO2E* 

B TSTDAT 

pc AL2 (WORK) 
CLI WRIDFC+3,00 
JE RTNG6E 

B PRINT 

pc XL1*cé6* 

pe IL1*83° 

pec AL2(ERB06C) 
pc XL2* AO 23° 

B HALT 

pe XL2*A023° 
CLI WRIDFC+2 ,X*DC* 
JE RTN6FP 

5 PRINT 

Dc XL7°*C6? 

pc IL7'82* 

pe AL2 (ERRO6D) 
DC XL2* AO2F* 

B HALT 

pc XL2* AO2F®* 
ALC TBLH (2) ,ONE 
B STRTIO 

pc XL17*O? 

pc XL1* 08 

be AL2 (WRTDFC) 
B *e4 

B *+Q 

B RTNG6OA 

pe 

Doc 

pe CL52* ED OF CYL. 
01AUG70 010CT70 
571531 571580 


SENSE BIT NOT SET 


AFTER ATTESPTING TO VE®* 


PROG ID 0206-3 
PAGE BA 
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-IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NWO. §129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART RO. §129630 
PAGE 9 0; 6 PAGE 9A 
A063 VERIFY ODATA Slaso VERIFY oODATA 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
16C2 D640E5C5 888 Oo ¢€ 1802 A087 1803 936 pc XL2*a087* RESSAGE ID 
16C6 DICICGEBSYOD7ICIE2 16DA 889 ERROGB CC CL21*RIPY PAST END OF CYL.* 1804 CO 87 0222 937 B HALT 
16CE ESXOCSESC4UY0DECE 889 1808 A087 1809 938 pc XL2* a087* RALT ID 
16D6 4SOCIJE8D34B 689 Co 6 180a CO 87 0216 939 B LI WK 
16DEP E2CSC3E3D6D9420C3 170E 890 pc CL52'*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CORRECTL* 940 
16E3 D6EXDSE3ICSD 98 0C9 890 180E 0000 180F 941 TBLH DC XL2*0* 
16EB DSXOCIDEDSEIDIDE 390 CoC 6 1810 942 SECTBL EQU * 
16F 3 D34OCECICSD3IC4HKO 890 1810 GOCO0000000000600 1827 943 pc XL24* 0! SECTOR EFROR RECORDING TABLE 
16FB CPSD6E3NOE2ZE3C5D7 890 1818 €000000000000000 943 
1703 D7C5C440C 3D6D9D9 890 Cc 6 1826 COCOOCCO000L0000 943 
I7QOER CSC3E3D3 890 1828 1827 1829 944 TBLEND DC AL2 (*-1) 
170PF EB840CIC6E3C5D940 172D 891 ERRO6C DC CL31*Y AFTER A VERIFY AT END OF CYL.* 182A 00 182A 945 RDTBL DC XL17"C* POR HEAD 0, REMOVABLE DISK 
1717 C140 ESCSD9ICICGHEB 891 ce << 1822 00 182B 946 Dc xL1°O! FOR HEAD 2, FIXED DISK 
171F S8OC1E340CSD5C4U40 891 182C 00 182C 947 DC XL1* 0? FOR HEAD 1, REBOVABLE DISK 
1727 C6OC640C3EBDI4UB 891 182D 00 182D 948 pc XL1"O! POR HEAD 3, FIXED DISK 
172E CBCSCICH4OSOUOE2 1761 892 pc CL52* HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A * ¢ $+ §$ 182E FO 1E2E 949 Dc CL1"0O* 
1736 CSCIEIDEDSLOC2ZEB 892 182F F2 182F 950 DC CL1* 2* 
173E E3C540D6C640C3D6 892 | 1830 F1 1€30 951 DC CLI'1! 
1786 CSEIDIDED 340C6C9 892 Co ee 1831 F3 1831 952 DBC CL1* 3! 
I74E CSDSC44OC3CBC1IDS 892 1832 E2D6D3C9ICK4OCSDY 1£4B 953 ALLHED DC CL26"SOLID ERROR WITH ALL HEADS‘ 
1756 C7CSC4UNOC IC6E3C5 892 1832 DSDEDISOESBCIE3CB 953 
175E D940C140 892 CG 1842 40C1D3D340C8C5C1 953 
1762 F240E2C5C3E3D6D9 177F 893 ERRO6D DC CL30'2 SECTOR VERIFY AT EXD OF CYL.* 184A CHE2 953 
176A 4OESCSDICICEEBUO 893 184C E2V6D3C9ICSHOC5DI 166D 954 ONEHED DC CL34*SOLID ERROR WITH HEAD X XXXXX DISK* 
4772 C1E340C5D5C44 0D6 893 qe ¢ 1854 DSDADISOE6CIE3CS 954 , 
177A C640C3E8D34B 893 185C 4OC8C5C1C440ET74O 954 
894 * SET AN ERROR FLAG FOR EACH SECTOR ERROR 1864 EVETEVE7E 740CUC9 954 
895 ee 186C E2D2 954 
1780 38 08 179D 896 SETERR ST SETERY+3 ,ARR SAVE EXIT ADDRESS 186E C6C9ETCSCYH 1872 955 FIXDSK DC CL5' FIXED* 
1784 Oc 00 1790 1D10 897 MVC SETERA+2(1),CYLNO SET CURRENT CYL. NO IN MOVE 1873 TICSDSESUB 1877 956 RSVDSK DC CL5'REMV.* 
178A C2 02 1810 898 LA SECTBL, XR2 LOAD XR2 AS POINTER € ¢ 187& EFFFFFFP 187B 957 FOURFP DC XL4'FFFFFFFF* : 
1782 BC FF 00 899 SETERA MVI *-*(,XR2),X'FF* SET A FLAG FOR THIS SECTOR 958 * SUBROUTINE TO DETESSINE IF DATA ADDRESS * 
1791 35 01 180F 3900 L TBLH,XR1 LOAD HEAL NO. POINTER IN XR1 959 * IS NOT STEPPED AFTER A VERIFY OPERATION * 
17S5 1C 00 OFDB 04 901 MVC  ERRO2A-11,4%(1,XR1) INSERT HEAD NO. IN MESSAGE ¢ 6 960 
1794 CO &7 0000 902 SETERX BE *-* EXIT 960 
903 187C 34 08 18B0 961 TSTDAT ST DATEXT +3, ARB SAVE RETURN ADDRESS 
904 * CHECK FOR ERRORS ON ALL SECTORS Gc 1880 35 02 18B0 962 L DATEXT+3 ,XR2 LCAD XR2 WITH PARAMETER POINTER 
905 1884 2C 01 1922 01 963 MVC wWORK1(2),1(,XR2) MOVE EXPECTED ADDRESS FOR COPPARE 
179EF 34 O8 17EF 906 CKHED ST HDEXT+3, ARR SAVE EXIT ADDRESS 1889 OF 01 18B0 1924 964 ALC DATEXT+3(2) ,TWO INCREASE EXIT ADDRESS 
17A2 35 01 180F 907 L TBLH,XR1 LOAD XR1 AS ERROR FLAG POINTER = c¢ 188F CO 87 19¢9 965 B SENSE TO STORE DATA ADDRESS 
17A6 C2 02 1810 908 LA SECTBL,XR2 LOAD XR2 AS SECTOR FLAG POINTER 1893 Au 1893 966 pc AL1(DAT") 
I7AA BD 0O O00 909 CKEEDA CLI 0(,XR2),0 CHECK EACH SECTOR FLAG 967 
17AD F2 81 3C 910 JE ADEXT JUMP WHEN FIRST ONE IS FOUND OFF Cc 1894 OD 01 19E0 1922 968 CLC STATUS (2) ,@ORK1 CHECK DATA ADDRESS 
17B0 E2 02 01 911 LA 1(,XR2) ,XR2 STEP POINTER ; 189A F2 81 10 969 JE DATEXT JUMP IF ADDRESS 
17B3 3&4 02 19E2 912 ST SNSKR2,XR2 STORE ; 970 * IS AT ORIGINAL VALUE 
17B7 OD 01 19£2 1829 913 CLC SNS“R2(2),TBLEND CHECK FOR LAST ENTR Cs ce 189D CO 87 O21A 971 B PRINT TO PRINT DATA ADDRESS NOT CORRECT 
17BD CO 01 17AA 914 BNE CKHEDA BRANCH IF NOT DONE 18A1 C6 138A1 972 Dc XL1' C6" FLAGS | 
1701 7C FF 00 915 MVI  0O(,XR1),X'FF* SET FLAG TO INDICATE DEFECTIVE HEAD 18A2 2B 18A2 973 rc IL1*43* | LERGTH © 
17C4 OC O48 1868 1877 916 MVC ONEHED-5(5) ,RMVDSK SET MESSAGE FOR REMOVABLE c..-G 18A3 1955 13A% 978 pc AL2 (DATPR1) ADDRESS OF MESSAGE ,. 
17CA 3D 00 1837 917 CLI DISKTP,0 TEST FOR RUN ON REMOVABLE | 18A5 AO3E 18A6 975 DATID1 DC XL2* AOJE® MESSAGE IDENTIFICATION 
17CE F2 81 06 918 JE *+9 JUMP IF YES 18A7 CO 87 0222 976 B HALT TO DCP HALT 
17D1 OC 0&8 1868 1872 919 MVC ONEHED-5 (5) ,FIXDSK SET MESSAGE FOR FIXED cic 18AB AO3E 13AC 977 pc XL2*A03E* HALT ID 
17D7 1C 00 1862 048 920 MVC ONEHED-11(1),4%(,X81) SET HEAD NUMBER IN MESSAGE 18ArL CO 87 0000 978 NATEXT B +—% ExIT 
17DC CO &7 O21A 921 B PRIN TO PRINT HEAD ERROR 979 
I7TEO C6 17EO 922 DC XL1'cé* FLAGS ec 1.¢ 980 
17E1 22 17E1 923 pc IL1'34" LENGTH 981 * COME HERE TO TEST FOR A GOOD SEEK * 
I7E2 186D 47E3 924 pc AL 2(ONEHED) MESSAGE ADDRESS 982 
17E& AO86 17E5 925 pe XL2*A086° MESSAGE ID Cig 18B1 34 08 18E5 983 TSTSEK ST SEKEXT +3, ARB SAVE RETURN ADDRESS 
17E6 CO 87 0222 926 B HALT | 18B5 CO 87 19C9 984 SKTSTA B SENSE TO SENSE PEVICE STATUS 
I7EA A086 17EB 927 pe XL2' A086! HALT ID | 18B9 02 138B9 985 Dc AL1(STATO1) BYTES 0 & 1. 
17EC CO 87 0000 928 HDEXT B +-* EXIT C!a 986 
929 18BA 36 10 19E0 987 TBN STATUS,X*10* TEST THE SEEK BUSY SENSE BIT 
17FO OD 03 182D 1878 930 CKEDER CLC HDTBL+3(4) ,POURFF CHECK FOR ALL HEADS FAILING 18BE CO 10 1885 988 BT SKTSTA IF ON DO ANOTHER SENSE 
17F6 CO 01 0216 931 BNE LINK BRANCH IF NOT CG ¢ 18C2 38 01 19DF 989 TBH STATUS-1,X° 01° TEST FOR SEEK CHECK 
17FA CO 87 O21A 932 B PRINT TO PRINT ALL HEADS FAILING 18C6 F2 10 20 990 IT SEEKER IF ON, GC TU SEEK ERROR PRINT 
ATFE C6 17FE 933 DC XL1'c6! FLAGS 9914 
VIFF 1A 17FF 934 pc IL1*°26° LENGTH Cc CC 18C9 CO 87 19F8 992 B STRTIO TO READ ID 
1800 1848 1801 935 pc AL2(ALLHED) MESSAGE ADDRESS 18CD 01 18cD 993 Doc XL1*01° 
I 
0! % 
DATE 13HAR70 06 APR70 22MAY70 01A0G70 010CT70 PROG ID 0a06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID OA06-3 
EC NO. 577512 571516 571513 §71531 571540 PAGE 9° | EC NO. 571512 571516 571513 571531 571580 PAGE SA 
oO | 6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


A0 63 VERIFY DA 


ERR LOC OBJECT CODE 
i8CE 01 
18CP 18E6 
18D1 CO 87 
18DS cO 87 18D9 
18D9 CD 00 18E7 
18DF F2 01 07 


18D5 


OB14 


18E2 CO 87 
1€E6 €00000 


0000 


18E9 
18EL 
‘ 8EP 
18F1 
18F5 C1 
18FE 2A 
18F7 
18F9 


DIC 


O27A 


18FB CO 87 
18FF 01 
1900 17 
4901 


O21A 


1903 
1907 06 
1908 28 
1909 


O21A 


1903 3c 00 
190F 3c 00 
1913 3c 00 


OB1B 
0B13 
1B32 


1917 
191E 


0222 


191D 0000 
1921 
1923 
1925 
1927 
1929 


1925 
1333 
193B 
1943 
194B 
1953 
1956 
195E 
1966 
196E 
1976 
197E 
1980 
1988 
1990 
1997 
199F 
19A7 


CUCTE3C1I4OCICUCH 
DIC5SE2ZE24U OE6C1E2 
4OE2ZE3CSD7DIC5cu 
SOE3D640C9D5SC3D6 
D9DSCSC3E340ESC1 
D3E4CS 

CSDIDIDE DI4OD6C3 
CIEYDSDSC5SCUY ODES 
C8C9ID3ICSYOE2CS5CS 
D2C9D5C74 OE3C8C5 
40C3C5 40 E3D9C1C3 
D26B 
CIDIDICIESCSCHU4O 
CIEZYOC3EBD3I4BYUO 
DSL64BUOEVE7VET 
D9ESDSYUOE2CSC5D2 
YOEF3CSE2ZE340E2C5 
CIE3ICIDED5S4OCTFO 
ISAF FIUOCEDEDINODUDE 
19B7? DICSXOCIDSCE6DE4B 
19BF 00 

19c0 00 


DATE 
EC NO. 


13KHAR70 
571512 


OGAPR? 
571516 


TA 
ADDR 


18CE 
18DO 


18E8 


18EE 
18F0 


18F5 
18F6 
18F8 
18FA 


18FF 
1900 
1902 


1907 
1908 
190A 


191C 


1922 
1924 
1926 
1928 
192A 


1955 


197F 


1996 


19BE 


19BF 


19C0 


0 


STAT 


994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1014 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1933 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1040 
1040 
1040 
1080 
1040 
1041 
1041 
1044 
1041 
1041 
10414 
1042 
1082 
1OK2 
1043 
1043 
1043 
1043 
1043 
1044 
1045 


SCORCE 


SEKEXT 
IDFLD 


* 
* 


SEEKER 


SEEKID 


WORK1 
TRO 
ONESEC 
WORK2 
WOFK3 


DATPR1 


SEKER1 


ARIVED 


SEKER2 


WRIDFC 


22M AY70 
571513 


PART NO. 5129630 
PAGE 10 
STATEMENT 
pc XL1'O1' 
oe AL2 (IDFLD-2) 
B e+ 
BD *e4 
CLC IDFLD-1 (1) ,TRACK# 
JNE SEEKER 
B + * EXIT 
pc XL3'0! 
COME HERE IF AN ERROR OCCURED * 
WHILE SEEKING THE CE TRACK * 
B CVD 
ve AL2 (IDFLD-1) 
IC AL2(ARIVED) d 
B PRINT — TO PRINT ERROR ON SEEK 
pe XLi'ci? FLAGS 
DC IL1* 42" LENGTH 
DC AL2 (SEKER1) ADDRESS CF MESSAGE 
DC XL2'*AO3C! MESSAGE IDENTIFICATION 
B PRINT TO PRINT SECOND LINE 
pc XL1° O18 
DC IL1*#23' 
re AL2(ARIVED) 
B PRINT TO PRINT SECOND LINE 
le XL1°06? FLAGS 
Cc IL1'§ aot LENGTH 
oe AL2 (SEKER2) ADDRESS CF MESSAGF 
MVI PASS,0O 
MVI SETSHW,0 
MVI FRSTPS,0 SET TO CAUSE A RECALIFRATE 
B HALT TO DCP HALT 
pc XL2*A03C! HALT ID 
B 0 
pe AL2 (*-*) 
pc XL2'*02! 
rc XL2' 04! 
bc AL2 (WORK+255) 
Dc AL2 (WORK +511) 
Dc CL43"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE? 
oe CLY2*ERR”R OCCURRED WHILE SEEKING THE CE TRACK,* 
DC CL23"ARRIVED AT CYL. NO. XXx? 
pe CL40'RUN SEEK TEST SECTION AO3 FOR MORE INFO.? 
ve XL1°0O0? FLAG 
bc XL1° OO! CYLINDER 
O1A0G70 010CT70 PROG ID OA06-3 
§71531 5715480 PAGE 10 


Oo 8 0 0 0 ¢ 


Oo Oo 9 


ao ao a © 


oOo 9 9 0 8 0 9 9 Oo OO & 
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@., 9 0 QO oO 


@°° 


w ~ 
@ io 
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART RO. 5129630 
| 9 PAGE JOA a 
A063 VERIFY DATA 
'@ : 
| ERR LOC OBJECT CODE ADDR STHT SOURCE STATENERT 
in?) 19¢1 00 1907 1046 DC XL1°00* TRACK & SECTOR a 
| 19C2 00 19C2 1047 Dc XL1* 00! NO. OF SECTORS OR KO. OF TRACKS 
1048 
| @ 19¢C3 00 19C3 1049 RDDFC pC XL1*GO? FLAG 
19C& 00 19C4 1050 DC XL1°008 CYLINDER 
19C5 00 19C5 1051 pc XL1*008 TRACK & SECTOR 
CG 19C6 00 19C6 1052 DC XL1"008 NO. OF SECTORS OR NO. OF TRACKS 
| 19C7 0001 19C8 1053 ONE pe XL2*O18 
1056 
| Ce 1055 SEREREE EE SHEE SE EEE ERED EERE SHEE SAKE HESESERSESESES SESE OHOSESESSSCO LS SESERE 
| 1056 * SENSE I/0 ROUTINE 
| 19C9 34 08 1922 1057 SENSE ST SNSXR2,ARR SAVE ADDRESS RECALL REGISTER 
iC 19CD 35 01 19E2 1058 t SNSXR2,XR1 LOAD XR1 WITH VALUE FRON ARR. 
19D1 18 03 19D7 00 1059 HNR  SNS#1,0(,XR1) MOVE IN FUNCTICN CCDE 
19D6 30 00 1920 1060 SNS SNS  STATUS,0 PERFORMS SENSE 
i CO 19DA DO 87 01 1061 B 1(,XB1) EXIT 
| 1062 
| 19DD 0000 19DE 1063 SETXE2 DC XL2'0* 
| G 19DF 0000 19E0 1064 STATUS DC XL2°Ot 
| 19E1 0000 19E2 1065 SNSXR2 DC XL2*0! 
1066 
Cc 1067 * ERROR RECORDING TABLE : 
19E3 1068 ETABLE ECU #* 
19E3 00 19E3 1069 QCODE pc XL1*O! *"C*. CODE 
CG 19E4 00 19E4 1070 CCCDE DC XL1*08 CONTPOL CODE 
19E5 0000 19E6 1071 SNSO1 DE XL2°0* STATUS BYTES 0 6 1 
| 19E7 0000 19E8 1072 SNS23 DC XL2'0# STATUS BYTES 2 & 3 
Cc 19E9 00000000 19EC 1073 DCFI pc XLU'O" DISK CONTROL PIELD, ({IKITIAL) 
19ED 00000000 19FO 1074 DCFF DC XI.49 0+ DISK CONTROL FIELD, (FINAL) 
| 19F1 0000 19F2 1075 DFCRI pC XL2"08 CONTROL REGISTER ADDRESS 
ic 19F3 OOCO 19F4 1076 DFDRI DC XL2'0! DATA REGISTER ADDRESS, (INITIAL) 
| ~, 19F5 0000 19F6 1077 DFDRF DC XL2*0O! DATA REGISTER ADDRESS, (FINAL) 
(f° 19F7 00 19F7 1078 RCOUTNO DC XL1'o* CURRENT ROUTINE KO. 
so 
G =! 
| 
_& 
2 
Q 
GS 
o 
G 
@ 
9 
: @ - 
e , PROG ID 0406-3 : 
DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 3 
EC NO. 571512 571516 571513 571531 571580 PAGE A ns 
oS 


@#eeoeoeoeeeeeeeegeeedeoee06eeee@e @ 8 


PART NO. 5129630 


IBS MAINTENANCE DIAGNOSTIC PROGRAMS 
PAGE > 41 
a063 VERIFY DATA 
ERH LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1080 * START I/0 SUBROUTINE 
1081 
19F8 34 08 19DE 1082 STFTIO ST SETXR2, ARR SAVE ADDRESS RECALL REGISTER. 
19FC 35 02 19DE 1083 L SETXR2 ,XR2 LOAD XR2 WITH VALUE PROM ARR. 
1A00 3C 00 1535 1084 mVI  SAVSW,00 ZERO SWITCH 
1A04 28 03 1462 00 1085 MNN SIO0+1,0(,XR2) SET FUNCTION CODZ 
1009 2C 00 1463 01 1086 MVC SI0+2(1),1(,XR2) SET CONTROL CODE IN SIO 
1AQE 2C 01 1839 03 1087 MVC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR 
1013 38 08 1B37 1088 TBN DISKTP,X'08! TEST FOR RUN ON LOWER DISK 
1417 F2 10 OB 1089 JT SETFIX JUMP IF YES 
1A1A 3B 08 1862 1090 SBF Si0+1,x'08! SET FOR REMOVABLE DISK 
1A1E 3B 08 AEE 1091 SBF  RSIO+1,X'08! SET FOR REMOVABLE DISK 
1A22 F2 87 08 1092 3 CKSEEK JUMP TO CHECK FOR SEEK 
1A25 3A 08 1062 1093 SETFIX SBN SI0+1,X'08* SET FOR FIXED DISK 
1A29 3A 08 1AEE 1094 SBN RSIO+1,X"08* SET FOR FIXED DISK 
142D BD 00.00 1095 CKSEEK CLI 0(,XR2),00 TEST FOR SEEK 
17430 CO 81 1AB4 1096 BE SETADR IF YES, GO SET ADDRESS 
1A34 31 AG 1B39 1097 LDFCR LIO DFCR,X*'A6? LOAD CONTROL REGISTER 
1A38 31 AS 1B3B 1098 LDFLR LIO DFDR,X*A4* LOAD DATA REGISTER 
1A3C OC 00 19F3 1262 1099 MVC QCODE(1) ,SI0+1 
1A42 OC 00 19E4 1263 1100 MVC CCODE(1),SI0+¢2 
1048 OC 01 19F2 1339 1701 MVC  DFCRI(2),DFCR 
WAGE OC 01 19F4 1B3B 1102 MVC  DFDRI(2),DFDR 
1Aa5% 35 01 1839 1103 L DFCR, XR1 
1a58 1C 03 19EC 03 1104 MVC DCFI(4),3(,XR1) 
1A5D C2 01 19C8 1105 LA 6600, XR1 LOAD DELAY VALUE IN XR1 
1461 F3 AO 00 1106 SIO SIO x*00',X*AQ! START I/C OPERATION 
1A64 C1 A2 1B40 1107 WAIT TIO BUSY,X*A2! TEST FOR BUSY 
1A68 CO &7 19C9 1108 B SENSE 
1A6C 04 1A6C 1109 DC XL1*O4* 
1A6D OC 01 19F6 19E0 4110 MVC DFDRF(2),STATUS 
1A73 35 01 1839 1111 L DFCR,XR1 
1477 1C 63 19FO0 03 1112 MYC DCFF(4),3(,XR1) 
1a7C CO 87 19C9 1113 B SENSE 
17A80 02 7A80 1214 DC XL1*02" 
1A81 0C 01 19E6 1950 17115 MYC SNSO1(2),STATUS 
1887 CO 87 19C9 1116 B SENSE 
1A8B 03 1A8B 1117 DC XL1#03° 
1A8C OC 01 19E8 1950 1118 MVC SNS223(2) ,STATUS 
1A92 0C 00 19F7 0A03 1119 MVC  ROUTNO (1) ,RPPX . 
1A98 3D FF 1535 1120 CLI SAVSW,X'FF* IS SWITCH ON? 
1A9C F2 017 0C 1121 SNE  TSTERR IF NO, SKIP RESTORE 
TA9P 8C 00 03 1834 1122 MVC =. 3. (1, XR2) , DFC3SV RESTORE N BYTE 
AAS BB 01 02 1123 SBF 2(,XR2) ,01 TURN OFF THE FOR/ RIV BIT 
1AK7 35 02 19DE 1124 L SETX R2, XR2 RESTORE PARAMETER POINTER 
TAAE F1 AO OC 1125 TSTERR TIO 12(,XR2),X"AO* BRANCH IF ERROR 
WAAE E1 A 08 1126 TSTSCN TIO 8(,XR2),X"A4! BRANCH IF SCAN FOUND 
1AB1 EO 87 04 1127 B 8 (,XR2) EXIT 
1128 
1129 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 
1130 * DIRECTION (FORWARD OR REVERSE), TO SEEK 
1131 
1AB4 34 08 18330 1132 SETIADR ST AD EXT+3,ARR SAVE EXIT ADDRESS 
1AB8 BD 01 01 1133 CLI 1{,XR2),01 IS THIS A RECALIBRATE? 
APB F2 01 04 1134 SNE ##7 IF NO, BYPASS SWITCH RESET 
1ABE 3C 00 1B32 1135 NVI FRSTPS,0 RESET RECALIBRATE SWITCH 
1AC2 2C 01 1B3D 03 1136 MVC XR2WK(2),3(,XR2) SAVE ADDR. OF CTL. FLD. ADDR. 
1aAC7 35 02 1B83D 1137 L XR2WK, XR2 LOAD XR2 WITH CONTROL PLD. ADDR. 
ACB 2C 00 1834 03 1138 MYC DFC3SV(1) ,3(,X2B2) SAVE N BYTE IN CONTROL FIELD 
TADO 3C FF 1535 1139 MVI SAVSW,X'FF? SET SAVE SWITCH 
1AD4 3D 00 1832 1140 CLI FRSTPS,00 IS THIS FIRST PASS 
1AD8 F2 01 15 1141 SNE  SETADA SKIP RECALIBRATE IF NO 
ADB 3C 01 1832 1142 MVI FRSTPS,01 SET FIRST PASS SWITCH 
1ADF BB 01 02 1143 SBP 2(,XR2),01 SET FWD/REV BIT TO REV. 
1AE2 BC FF 03 1144 MVI «- 33 (, XR2) ,255 SET MAXIMUM TRACK CROSSING 
AES 3C 00 1333 1745 MVI  LASTAD,0O SET OLD ADDR TO 0 
1AE9 31 A6 1839 1146 KLDFCR LIO  DFCR,X*A6! LCAD DATA CONTROL REGISTER 
1AED F3 AO 00 ‘1197 RSIO SIO 00,X*A0! SEEK REVERSE 
oh 
DATE 13BAR70 O6APR7O 22MAY70 01AUG70 010C 770 PROG ID 0406-3 
EC NO, 571512 571516 571513 571531 5715480 PAGE 11 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


A063 VERIFY DATA 
EHR LOC OBJECT CODE ADDR STMT SOURCE 
1148 
JAFO 8D 00 01 1833 1149 SETADA 
IAPS F2 81 25 1150 
TAFS F2 84 11 1151 
AFB BB 01 C2 1152 
VAFE OC 00 1831 1333 4153 
1B04 2F 00 1B31 01 1154 
1B09 F2 87 17 1155 
1156 
1TEOC BA 01 02 1157 FWDSEK 
iBOF 2C 00 1B31 01 1158 
1B14 OF 00 1831 1833 1159 
IBIA F2 87 06 1160 
1161 
1B1D BC 00 03 1162 NOSEER 
1B20 F2 87 OA 1163 
411648 
1B23 8c 00 03 1831 1165 SETADB 
1B28 2C 00 1B33 01 1166 
1B2D CO 87 0000 1167 ADREXT 
1831 00 1B31 1168 SCRCH 
1B32 00 1B32 1169 FRSTPS 
1B33 00 1B33 1170 LASTAD 
1B34 00 1B34 1171 DFC3SV 
1B35 00 1B35 1172 SAVSW 
1B36 C000 1837 1173 DISKTP 
1538 0000 1B39 1178 DPCR 
IB3A 1D8A 1B3B 1175 DFOIR 
1B3C 0000 1B3D 1176 XR2WK 
IB3E FFFF 1B3F 1177 NEG1 
1B40 36 01 1IB3F 1178 BUSY 
TBG4& CO B84 1A64 1179 
1B4Y8 CO 87 IDIC 1180 
1B4C OA03 TB&D 1181 
BSE BIC IB4F 1182 
1B50 3c NO 1B7A 1183 
TB54& CO 87 O21TA 1184 
1B58 C6 1B58 1185 
1B59 15 1B59 1186 
IB5A 1B7C 185B 1187 
1B5C AO8E TB5SD 1188 
1B5E cO 87 0222 1189 THALT 
1B62 AOQ8E 1B63 1190 
1B64 CO 87 0000 1791 
1B68 E3SCS9DACSDGEXE3L0 FB7VC 1192 TIMODT 
1270 C9OL5S4OL9DEESE3C9 1192 
1B78 D5C540E7E7 1192 
0A03 1193 RPFX 
DATE 13MART7O OGAPR7TO 22HAY70 
EC NO. 571512 571516 5715173 


STATER 


0 1A0G70 
5771531 


ENT 


1(1,XR2) ,LASTAD 
NOSEEK 

FWDSEK 
2(,XR2), 01 
SCRCH (1) ,LASTAD 
SCRCH (1) ,1(,XR2) 
SETADB 


2(,XR2),01 
SCRCH (1) ,1(,XR2) 
SCRCH(1),LASTAD 
SETADB 


3(,XR2),0 
ADREXT 


3(1,XR2) ,SCRCH 
LASTAD (1) »1(,XR2) 
Bn & 

XL1°00* 

XL1*00° 

XL1*00° 

XL1*00* 

XL1*00? 

XL2*0# 

AL2 (*#~*) 

AL2 (WORK) 
XL2*0* 
XL2*FFFF? 
NEG1,XR1 

WAIT 

cYD 

AL2(BPFX) 

AL2 (TIMOUT) 
TIMOUT-2,C* * 
PRINT 

XL1°C6? 

ILi*21¢ 
21L2(TINONT) 
XL2*a08E* 

HALT 

XL2*AO8E® 

9 

CL21*TIMEOUT IN 


x*a03° 


010CT70 
571588 


PAPT KO. 
PAGE 


5129630 
VIA 


CCMPARE FRESENT ALDR. WITH REW ONE 
EQUAL, SEEK IS MOT NECESSARY 
NEW ADDR. HIGHER, DO FORRARD 
NEW ADDR. LOWER, SET BIT FOR 
PLACE LAST ADDR IN WORKARFA 
SUBTRACT NEW ADDR. FROM LAST 
PROCEED 


SEEK 
REV. 


ADDR. 


SET BIT ON FOR FORWART SEEK 
PLACE WEW ADDR. IN WORKAREA 
SUBTRACT LAST ADDR. FROM NEW 
PROCEED 


ADDR. 


SET KO. CF TKS. CROSSED TO ZERO. 
TO EXIT 


PLACE IN NO. OF TRACKS CROSSED 
SAVE NEW ADDRESS 
EXIT 


DECREMENT DELAY COUNTER 

RETURN TO TXO IF NWCT TINE OUT 

TIME OUT OCCURED, COKVERT BOUT. NO. 
CURRENT FOUTINE NO. 

ADDRESS CF DESTINATION 


TO PRINT TIMEOUT OCCURED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 

TO DCP ERROR HALT 

HALT ID 


ROUTINE Xx* 


PROG ID 
PAGE 


Oa0é-3 
TVA 


oO 


© 


QO 7) 


i 


Oo 
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PART NO. 5729630 
IBS MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129630 IBS MAINTENANCE DIAGNOSTIC PROGRAMS ace ei x 
PAGE 12 ei\1¢ : i > 
aA0é3 VERIFY OMATA aS A063 VERIFY DATA 
ERR LOC CBJECT CODE ADDR STMT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
* : < 1255 
i186 : Se en eg nt ee eee are es en oe 103) ean twiconaonceee 1068 ioe pc CLIS* EQUIPMENT CHECK ® 
1B7D 34 08 1C03 1197 PRTSNS ST PRTEXT+3,ARR SAVE ADDRESS oo REGISTER a . eer er ae LE 
TO PERFORM SEN CS ‘ 
oo ies ; Pe GET DEVICE STATUS BYTES 0 & 1 ¥ 1069 C4CIE3C140C3C8C5 1C7A 1257 DC CL1I8*DATA CHECK , 
1B85 02 1B85 1199 DC AL1(STATO1) : aoe caps ecaonolcacas bpd 
1200 
E ; : 1C79 4040 1257 
ion o a ee TBA 02 te pianos Pe ran er ey enters oie 1C7B D5DEXOD9IC5SC3DE6D9 ICBC 1258 pc CL18*NO RECORD FOUND s 
1B8B 1950 1B8C 1203 DC AL2 (STATUS) cle 2 cra ee 
4 AL2 (HEXSTA-4& : z 
nee ai says - 1C8L ESL24O0C3DEDSC4CI 1C9E 1259 DC CL18*TK CONDITION CHECK* 
1B8P 3C 01 IRBF 1206 NVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BYTE 1c95 E3C9ID6D5S40C3CBCS 1259 
1893 C2 01 1032 1207 LA STATWD,XR1 SET XR1 TO POINT TO FIRST MESSAGE Ge 1C9D C3D2 1259 Bae : 
1B97 C2 02 1¢0C3 1208 LA STMASK, XR2 SET X82 TO POINT TO TEST MASK ae Por teeta 1CBO agen pc CL18"SEEK CH 
1209 
1B9B CO 87 O21A 1210 B PRINT TO PRINT SNS WITH READING €eie 1CAF 4040 1260 : - 
1B9F C1 1B9P 1211 pc XL1'c1¢ PLAGS 1CB1 EYDSE2CIC6C54040 1CC2 1261 DC CL18* UNSAFE 
1BAO 01 1BAO 1212 DC IL1*01° LENGTH I1CB9 4040404040404 040 1261 
IPA? 1032 1BA2 1213 DC AL2(STATWD) ADDRESS OF LAST PRINT CHARACTER ¢ i¢ 1CC1 4040 12€1 
1BA3 AOCO 1BA4 1214 SNSID DC XL2*a000' MESSAGE IDENTIFICATION : 1CC3 1262 STMASK EQU * : 
1BAS 2C 00 1BBO 00 1215 MOVEBT MVC TSTBT+1(1),0(,XR2) SET MASK BIT salen BITS INSTRUCT. ae beers preuaone aces 2 pe yee ateona. 
TBAA 1C 11 1D89 00 1216 MVC =©6©STATPR(18) ,0(, XR1) SET MESSAGE IN : : 
1217 es ieee * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD 
- - o 
iebs i 30 oe ois ome 7 erpsne me aipics Gee Te Ore © cS 1CCB 34 08 1DOF 1267 SHIFT ST SHFEXT+¢3,ARB STORE ADDRESS RECALL REGISTER 
1PB6 CO 87 027A 1220 B PRINT TO PRINT SNS WITHOUT HEADING 1CCF 35 01 1D0F 1268 L SHPEXT+3,XR1 LOAD EXIT ADDRFSS IN ERI 
1BBA 01 1BBA 1221 Dc XL1°O1! PLAGS 1CD3 35 02 1DOF 1269 L SHFEXT+3,XR2 LOAD EXIT eee Im XR2 
o BY . 
IBEB 12 1BEBB 1222 Dc IL1* 18! LENGTH € Cc 1CD7 36 C2 19248 1270 A TWO,XR2 INCREASE 
TEBC 1D89 IBBD 1223 DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER he 2 a2 oF uaa at ee ate ee pale EXIT ADDRESS 
1224 c ’ 
. ie 1273 LA SHPTBL,XR2 LOAD ADDRESS OF SHIFT TABLE IW XR2 
1BC2 F2 81 OA Se ge cece J0MP IP FINISHED WITH TRIS BYTE qe eer as oqo 1278 L1G xBt) oxR1 LOAD CONTROL FIELD ADDRESS IN XR1 
1227 | 1CEA 2C 00 1CFS5 00 1275 MVCTBN MVC TEN+1 (1),0(,XR2) INSERT CORRECT BRSE FOr Eee 
1BC5 E2 02 01 1228 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT C | ea 1CEF 2C 00 1CFB 05 1276 MVC SBR* VC 1) ¢ oh ¢KE2) eee ee ee FOR SE 
1BC8 D2 01 12 1229 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ices ae . 3 ou TBN a eR phase ta aes 
-IBCB CO 87 1BAS5 2 B MOVEBT GO TEST NEXT SENSE BIT C Le a ee ch oe Z ete Een GAE ie ONGA RURAL aes 
1BCF 3D 80 1BBF 1232 SENSA CLI STPSNS+1,X"80! TEST FOR COMPLETION OF 2ND BYTE | ee ap _° a rae a ee ee teen ae ee nae 
VBLO3 F2 81 22 1233 JE PRTHEX TO EXIT IF DONE | D 
1BD6 3C 80 1BBF 1234 MVI STPSNS+1,X" 80! SET FOR CHECK OF 2ND BYTE Core 1D05 E2 02 01 1282 LA 1, XB2) ,XB2 peace aes cae 
IBD. 34 01 1BEP 1235 st SENSC+3,XR1 SAVE XR1 | 1D08 CO 87 1CEA 1283 B MYCTBL oe 
IBDE CO 87 19¢9 1236 B SENSE TO SENSE | 1pOcC cO 87 0000 1284 SHFEXT B *-* 
IBE2 03 1BE2 1237 DC XL1*03* BYTES 2 & 3 © 7G 1285 ; 
1BE3 CO 87 0215 1238 B UNPACK TO UNPACK STATUS REYTES | 1D10 oc 1D10 oe CYLNO DC XL1#0 
IBE? 02 VBE7 1239 pe XL1*02* | 
1BE8 19=0 1BE9 1240 pc ALZ (STATUS) Cc | a 1D11 04 1D11 1288 SHFIBL DC XL1! 04! 
IBEA 1€20 1BEB 1241 Dc AL2 (HEXSTA) 1D12 08 1D12 1289 pc XL4° OB" 
1BEC C2 01 0000 1242 SENSC LA *-*,XR1 RELOAD XR1 ee 1D13 10 1D13 1290 pc XL 1°20: 
1BFO C2 02 1c¢C3 1243 LA STMASK ,XR2 SET BIT POINTER Ce 1D14 20 1D14 1291 pc XL 1° 20° 
1BF4 CO &7 1BC8 1244 B SENSB TO PROCESS 2ND BYTE 1D15 40 1N15 1292 pc XL1"40% 
1BF8 CO 87 O21A 1245 PRTHEX B PRINT TO PRINT STATUS IN HEX 1D16 01 1D16 1293 Dc xL 101° 
IBFC 02 VBFC 1246 DC XL1*02! gO ¢ 1D17 02 1D17 1294 pc XL 1°02' 
IBFD 1D IBFD 1247 pc IL1'298 1D186 04 1)18 1295 rc XL 1! O8¢ 
IRE 1C€20 IBFF 1248 DC AL2(HEXSTA) wr 1D19 08 1D19 1296 DC XL1" 08" 
1c00 CO 87 0000 1249 PRTEXT B *-% SUBROUTINE EXIT ke 5 iD1A 10 ID1A 1297 pe XL 1°10 
COW EZE3C1EZE4E240C2 1€18 1250 DC CL21'*STATUS BYTES IN HEX, ° 
1COC ESF3C5SE240C9D540 1250 al 
1C14 CBCSET6BU0 1250 ae | 
1€19 CO000000000000C0 1¢€20 1251 HEXSTA DC XL8'08 
1252 
1CZ1 DSL64OD6D7KH0O40NO 1€32 1253 STATHWD DC CL18"*NO OP ' CG 
1629 4O4D4D4OUOsOLONL 1253 
1€31 4040 1253 | 
1€33 COLSEICSDSESC5DS 1C44 1254 DC CLI8"INTERVENTION REQD. * reg 
1C3B E3ICIDEDSYODICS5SDB 1254 | 
1c43 CUuB 1254 
1C45 DUCIEZE2C3D5C740 1056 1255 DC CL18B'MISSING ADDR. MARK?* Q | CG 
TCUL CICBCUDINBSODICI 1255 | 
. O19 FBOG ID 0a06-3 
DATE 13MAR70 OGAPR70 22MAY70 01A0G70 010CT70 . PROG ID 0A06-3 : DATE 13MAR70O O6APR70 22MAY70 0 1A0G70 010CT70 cies 5 
Ec NO. 571512 571516 571513 571531 ~ 571540 PAGE 12 EC NO. 571512 571516 571513 571531 571540 
Go 9g | 
Gc O° 
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IB@ MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. $129630 
PAGE 13 @ PAGE 13a Ss 
accé3 VERIFY DATA aAG63 VERIFY DATA 
S$ @ * 
€RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS~REFERENCE 
1299 * SUBROUTINE TO CONVERT A NUMBER TO DECIMAL © © SYMBOL T LEN VALUE DEFN REFERENCES 2 
1300 
4ID1B 00 1D18 1301 HXBYT DC XL1°O# ADREXT A OOS 11B2D 1167 9132* 1163 
Ipic 36 08 19C8 1302 CVD A ONE, ARR ADD ONE TO GET FIRST PARAMETER & € ALLHED A 026 188B 0953 0935 
1D20 34 08 1D3D 1303 ST PROS+5,ARR INSERT THE FROM ADDRESS ARIVED A 023 1996 1042 1010 1020 
1p24 36 08 1924 1304 A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER ARR Cc 001 0008 1330 0025 0109 0896 0906 0961 0983 1057 1082 1132 1197 1267 13028 
1D28 34 08 1D4u3 1305 ST TYBOT+5,ARR INSERT THE TO ADDR € € 1303 1308* 1305 1306 1307% 1308 
1p2c 38 08 1D49 1306 ST OTORZ+5,ARR A06 A 001 0000 0003 
1D30 36 08 19c8 1307 A ONE, ARR ADD ONE FOR EXIT ADDRESS BEGIN A OC&4& OC2E 0179 1347 
1D34 34 08 1D6C 1308 ST TI XE+3,ARR STORE EXIT ADDRESS & | © BITO C 0CG1 0080 1335 
1D38 OC 01 1D4F 0000 1309 FRC MVC FROBYT+5 (2), *-* BIT! ¢ 001 OC40 1336 
1D3E OC 01 1N62 0000 1310 TYBOT MVC TOBYT+3(2) ,*-* . BUSY A004 B40) 1178 1107 
1peu OC 01 1D53 0000 1311 OTCRZ MVC ZROTO+3 (2) ,*-* @& | @ ccopE aA 001 19E4 1070 1100* 
IDSA OC 00 1D1B 0000 1312 FRCBYT MVC  HXBYT(1),*-* PUT BYTE IN WORK AREA CKHDER A 006 17F0 0930 0165 
1D50 048 20 0000 1D77 1313 ZROTO ZAZ *-*(3),0NITS (1) ZERO THE TO AREA CKHED A 004 179E 0906 0364 0511 
1D56 OF OC 1D18B 19C8 1314 DECGAN SLC  HXBYT(1),ONE DECREMENT THE HEX BYTE € | @ CKHEDA A003 17AA 0909 0918 
1D5C F2 82 OA 1315 JL TI XE JUMP IF BELOW 1 CKSEEK A 003 1A2D 1095 1092 
IDSF C6 20 0000 1D6D 1316 TOBYT AZ *-* (3) ,DECONE (1) INCREMENT THE DECIMAL COUNT CTRL; C001 OO0A6 1333 
DHS CO @7 1D56 1317 B DECGAN — € cvpD A 004 1D1C 1302 0307 O8¥5&8 1008 1180 
1D69 CO 87 O000 1378 TIXE B *—* ExIT | CYLNO AOO1 D110 1286 0308 O&855 O0&897 1272* 12798 
1D6D F1 1D5D 1319 DECONE DC CLi* 1° ; DATA C 001 OOAN 1334 0966 
1D6E FIF2ZF3F4FSF6F7F8 1D77 1320 UNITS DC CL10'1234567890! C € UCAavTEXT aA 008 18AD 0978 0961* 0962 0964* 0968S 
1D76 FOFO 1320 DATID1 A O02 1886 0975 
1D78 1D89 1321 STATPR DS CL18 DATPR1 A043 1955 1040 0974 
1D8A 1322 WOFK EQU- * Cc € DdCFF A 008 19FO 10748 1112* 
1D8A 1E89 1323 DS CL256 DCFI A004 19EC 1073 1104* 
TESA 1F89 1324 DS CL 256 DECGAN A 006 1D56 1314 1317 
1325 C € bDECONE A001 1D6D = 1319 1316 
0003 1326 H1 EQU. x'tO3! HALT DISPLAY 1 DFCR A 002 1839 1174 1087* 1097 1101 1103 1711 «411486 
0076 1327 H2 EFQU  x'76! HALT DISPLAY 2 DFCRI A O02 19F2 1075 1101% 7 
0001 1328 XR1 FOU 01 C  € vrc3sv a G01 1834 1171 1122 1138% 
0002 1329 XRZ ECD 02 DFDR A002 18B3B 1175 1093 1102 
0008 1330 ARR FOU 3=—ss«O8 DFDRF A 002 19F6 1077 11108 
0002 1331 STATO1 EQD x*'02!' C  € DFDRI A002 19F4 1076 1102* 
0003 1332 STAT23 EQU. x'03! DISKTP A 002 1337 1173 01483* 0153* 0917 1088 
OOA6 1333 CTRL EQU’ X*A6! ERBORO A 006 OCFO 0236 0195 0275 0822 0555 0671 0702 0797 
COAG 1334 DATA FOU X*AM# Cc © ERRO2A A 038 OFF6 0383 0309 0310* 0376 0856 0&57* 0463 0901* 
0080 1335 BITO EQD- x*80# ERRO2B A 043 1011 0384 0329 04876 0603 0731 
0040 1336 BIT1 EQU) x'4or ERRO2ZC A051 1088 0385 0357 0504 0631 0759 
0208 1337 SWITCH EQU xX*'208! € © ERRO2D A 017 1089 0387 0340 0487 
020A 1338 SECTSW EQU X'20A? ERRO2ZE A 024 10D2 0389 0372* 0377 0518* 0522 
0212 1339 TEST EQU  Xx*'212! ERROYA A 036 1380 0638 0587* 0591 
0216 1340 LIXK EQU  xX*216! ” © ERROYE A 029° 1401 0640 0614 
021A 1341 PRINT EQU X*21A! ERROSA A 035 ODCO 0241 0719 
O21E 1342 UNPACK EQU  X*21E! ERROSE A O40 OE£1C 0243 0742 
0222 1343 HALT EQU x*222! C © ERRO6GA A 026 1691 0887 0829 
022A 1344 LOAD FOU xX*22A* ERBO6GE A021 16DA 0889 0845 
003C 1345 HF EQD) x*3c! HALT DISFLAY F ERRO6C A 031 172D 0891 0860 
OO3F 1346 HA FQU xX*3F HALT DISPLAY A C  € ERRO6D A 030 177F 0893 0872 
OC2E 1347 END BEGIN ERR1A A 050 O0D22 0237 0213 
ERR1B A019 OD69 0239 0228 
c © ETABLE A 001 19£3 1068 0013 
EXPSEC A001 10D3 0390 0262* 028€ 0297 0334 0366* 0409* 0433 O444 0881 05134 
FIXDSK A 005 1872 0955 0919 
C & FIXED A OO&’ OBEO 0187 0140 
FOURFF A OC4 187B 0957 0930 
FROBYT A 006 1ID4YA 1312 1209* 
© © FROM aA 006 1D38 1309 1303% 
FRSTPS A001 1832 1169 0090* 1029* 1135* 1140 11424 
PWDSEK A 003 BOC 1157 1151 
Cc © #BA C001 OO03F 1346 
HALT C001 0222 1343 0126 0196 0215 0230 0276 0317 0331 0342 0359 0378 0423 O864 
0478 08489 0506 0523 0556 0592 0605 0616 0633 0672 0703 0720 ; 
Cc 6G 0733 O744 0761 0798 0832 0888 0863 0875 0926 0937 0976 1030 : 
1139 
HDEXT aA 008 17EC 0928 0906* 0910 
. Cc HDTBL A 001 182A 09485 0088* 008S 0089* 0252 0399 0536 0651 0777 0930 
HEXSTA A 008 1C20 1251 12048 12481 1248 
G = 
DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID NA06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 . PROG ID ORO06-3 
Bc xO. 571512 571516 571513 571531 571540 PAGE 13 EC NO. 571512 571516 571513 571531 571540 « PAGE 3k 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129636 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129630 
PAGE 18 © 90 PAGE TOA 
A063 VERIPY DATA aa VERIFY DATA 
CRCSS- REFERENCE CROSS- REFERENCE ag 
SYMBOL T LEN VALUE DEFNW REFERENCES C . © SYMBOL T LEN VALUE DEFN REFERENCES 
| 
HF C 001 003C 1385 ! RTN3C1 A004 117ARA 0471 
HXBYT A 0C1 1D1B 1301 1312 13148 ©. © RTN3C2 A006 11C7 0481 0472 
H1 C 001 0003 1326 ; RTN3D A OO& 11DA 0492 0483 
H2 C 001 0076 1327 RTN3E A OOS’ 11F8 0501 0494 
IDFLD A003 18E8 1002 0995 0998 1009 C  C RTN3F A003 11DE 0493 0499 
INVFLG A 019 OB2E 0105 0123 RTN3G A O0&% 1208 0509 0466 0498 
LASTAD A001 1833 1170 7145* 1149 1153 1159 1166* RTN3H A 00% 1213 0512 0525 
LDPCR A OO’ 1834 1097 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 0073 C CG RTN33 A006 1217 0513 0510 
LDFDR A O08 1A38 1098 0066* RTNS AOO1 1244 0532 0397 
LINK C001 0216 1340 0166 0931 0939 RTNYA A OCO0O& 1258 0540 0636 
LOAD C001 022A 1344 0051 © € RTN4YA1 A008 128C 0559 0549 
MOVEBT A 005 1BAS 1215 1230 RTNUE A O04 1290 0561 
MVCTBN A 00S CEA 1275 1283 RTNGBY A O08 12BC 0575 0571 
NEG1 A002 1B3F 1177 1178 C06 ORTNGE2 A008 12F3 0595 0582 
NOSEEK A 003 1B1D 1162 1150 RTNSC A 008 12D8. 0585 
NOUNIT A026 OBOF 0093 00488 RTRYC1 A004 12F9 0598 
ONE A 002 19C8 1053 0747 0149 0152 0768 0877 1302 1307 13148 c @ RTN4C2 A 00% 1310 0608 0599 
ONEHED A 034 186D 0954 0916* 0919* 0920* 0924 RTNSD A OO’ 1327 0619 0610 
ONESEC A 002 1926 1036 0366 0513 RTNGE A O08 1345 0628 0621 
OTORZ A 006 D444 1311 1306* c © RTRYUF A003 132B 0620 0626 
PASS A001 OBIB 0108 07110 0112* 0159* 1027* RTNUG A 008 1355 0636 0625 
PRINT C001 O21A 1341 0045 0080 0084 0120 0192 0210 0225 0272 0313 0326 0337 035% RTNS A001 1402 0647 0534 
0374 0419 0460 0473 0484 0501 0519 0552 0568 0600 0611 0628 c @ RTNSA A004 1416 0655 0765 . 
0668 0699 0716 0728 0738 0756 079% 0826 0842 0856 0869 0921 RTNSA1 A004 168A 0675 0665 - 
0932 0971 1011 1017 #41022 118% #+%1210 1220 1245 RTNSB A OOU 144E 0677 
PRTEXT A 00%’ 1C00 1249 1197% . = RTNSBT A O08 1876 0690 0686 
PRTHEX A O08 IBF8 1245 © 1233 RTNSB2 A O04 T4A0 0706 0696 
PRTSNS A 008 %B7D 1197 0191 6271 0312 0370 04818 0459 0516 0551 0585 0667 0698 0715 RTNSE3 A 008 14CA 0723 0712 
0793 C @ RTNSC A 008 14B8 0715 
PRTSPN A004 OADS 0080 0078 RTN5SC1 A 008 14D0 0726 
QOCUDE A 001 19863 1069 1099% RTNSC2 A 00% 14E7 0736 0727 
RPDFC A001 19¢3 1049 0184* 0188 0200* 0201* 0206 © € RTNSD AOO0& 4FE 0747 0737 
REMVDS A 001 O0B12 0096 0033* 0062* 0136 RTNSE A OO0& 151C 0756 0749 
RLIFCR A 00% AES 1146 0072* RTNSF A003 1502 0748 0754 
RMVDSK A 005 1877 0956 0916 C © RBTN5G A 006 1520 0764 0753 
ROUTNO A001 19F7 1078 11194 RT NG A C01 1536 0773 0649 
RPFX COC? 0OA03 1192 1119 1181 RTN6A A O0O& 154A 0782 0884 
RSTO A O03 AED 1147 0073* 1091* 1094% C ¢ RTN6A1 A008 157E 0801 0791 
RTN1 A C001 OC2A 0175 0012 RTN6B A OOH 1582 0803 
RTNIA A OOS O0C36 0181 0233 RTN6E1 A 00K 15AA 0816 0812 
RTNIA1 A O08 OC6A 0199 0189 Cc C RIN6B2 A006 %15CA 0826 0823 
RTNIA2 A OO0& OQCB8C 0210 0207 RTN6C AOO&’ A5DA 0835 0825 
RTNIB A OO8 oc9Cc 0218 0209 RTN6D A OO’ 15P6 0851 o8u0 
RTNIC A OOS OCBB 0233 0223 C @ RTN6E ANOS 1613 0866 0855 
RTN2 A OC1 OEID 0248 0177 RTN6F A 006 162A 0877 0868 
RTN2ZA A OOK O0£31 0256 0365 RUNFIX A001 0OB18 0102 0114 0138* 07147 0154 
RTNZ2A1 A 004 OF74 0279 0269 € © RUNRMV A OC1 0817 9101 0132* 0139 0144* 
RTN2F A 004 OE78 0281 0367 SAVSW A001 1B35 1172 1084* 1120 1139% 
RTN2B1 A OCU OEFAU 0295 0291 SBN A OOU ICFAR 1279 1276" 
RTN2F2 A O04 OEED 0321 0302 C © scrcH aA 001 13831 1168 1153* 1154* 1158 1159® 1165 
RTN2C A O08 OFC2 0305 SECMSG A 035 08369 0107 0083 
RTN2CT A 004 OEF3 0324 SECTBL A001 1810 6942 0257 04808 0898 0908 
RTN2C2 A OC6 OFOA 0334 0325 C¢ © SeEcrsw c 001 020A 1338 0118 0130 0134 
RTN2D A 004 OF23 0345 0336 SEEKER A 008 1829 1008 0990 0999 
RTN2E A O08 OF&1 0354 0347 SEEKID A002 18FA 1015 
RTN2F A 003 OF27 0346 0352 C © SEKER1 A 0&2 197F 1081 7018 
RTN2G A O08 OFS1 0362 0319 0351 , SEKER2 A O40 19BE 1083 1025 
RTN2H A OOS OFSC 0365 0380 SEKEXT A O08 1B8F2 1003 0983 
RTN23 A 006 OF60 0366 0363 © © SENSA AO0O8% 1BCF 1232 1226 
RTN3 =A 001 10D4 0395 0250 , SENSB A 003 1BC8 1229 12464 
RTN3A A OO’ 10E8 0403 0512 SERNSC A 008 1BEC 1242 1235* 
RTN3A1T A 008 1128 0426 0516 C © SENSE A 004 19C9 1057 0074 0218 0835 0965 0988 1108 1173 1116 1198 1236 
RTN3B A OO8 112F O428 0514 : SETA A O06 OA68 0054 0037 
RTN3P1 A OO’ T15B 0442 0438 SETADA A 005 IFO 1149 1141 
RTN3B2 A O04 11A8 0468 0449 © © SETADB A005 1823 1165 1155 1160 
RTN3C A 008 1179 0452 SETADR A004 ABS 1132 1096 
DATE 13N8R7 C' 8 OA06-3 
MAR70 OG APR70 22M AY70 0 1AUG70 010CT70 FROG ID 0A06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID A06- 
EC NO. 571512 571516 571513 571531 571540 PAGE 14 EC NO. 571512 571516 571513 571531 571580 PAGE 14a 
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z GNOSTIC PROGRAAS PART RO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 5129630 
IBA MAINTENANCE DIA ! ee 4 o 18 cace cea 5 
a063 VERIFY DATA A063 VERIFY DATA é 
o' 6 ° 
CROSS- REFERENCE CROSS- REFEREWCE 
SYMBOL T LEN VALUE DEFN REFERENCES G C SYMBOL T LEN VALUE DEFN REFERENCES 
SETB A006 0A75 0058 0041 UTAB C001 0232 0095 0030 é 
SETBTH A 003 0A89 0064 0056 0061 © & Warr a008 1A68 1107 0068* 117¢ 
SETDSK A 008 OAOD 0025 0180 0255 0402 0539 4658 0780 . WORK A001 ‘DSA 1322 0281* 0282 0282* 0322 0345 0828 9429 9048298 0869 0892 0561* 0562 
SETERA A 003 178E 0899 0897« 0562* 0563 0563* 0596 0619 0677* 0678 0678* 0679 0679° 0728 0787 
SETERR A 004 1780 0896 0311 04858 a e@ 0803* 0804 O8C4* 0805 0805* 0852 1037 1038 1375 
SETERX A 00% 179A 0902 0896% WORK1 A 002 1922 1034 0963* 0968 
SETEXT A OCK OAF2 0091 0025* WORK2 A002 1928 1037 0350 0497 
SETFIX A 008 1A25 1093 1089 ©O G worK3 aA 002 192A 1038 0624 0752 
SETRAV A 004 OBC4 0139 0116 #0135 0137 WRTDFC A001 19BF 1044 0260* 0261* 0268 0285* 0286* 0290 0296* 06297 0301 0306 0328 06338 
SETSPN A 006 OB7C 0114 0111 0362 0407% 0408* 0415 0432* 0433¢ 08937 O4X3* OUNRe OGBB 0453 0871 
SETSW A001 OB13 £0097 0026% 0049* 0161* 0179 0254 0801 0538 0653 0779 1028 Q re) 0481 0509 O541* 0542* 0548 0566* 0570 0576 0577* 0581 OS9R 0608 
SETXR2 A 002 19DE 1063 1082* 1083 1128 0657* O65E* 0668 0681* 0685 0691* 0695 0707* 0711 0726 0736 0783¢ 
SHFEXT A 004 1DO0C 1284 1267* 1268 1269 1271* 1281 0784* 0790 0807* 0811 0817* 0818* 0822 085% 0866 G#81 
SHFTBL A 001 1D11 1288 1273 © | @ WRTER2 A008 OF6A 0369 0293 0573 0688 0814 
SHIFT A GO4 CCB 1267 0305 0852 ; WRTER3 A 0O& 1221 0515 0840 
SIO A 003 1A61 1106 0067* 1085* 1086* 1090* 1093* 1099 1100 XR1 ‘C001 0001 1328 0030* 0031 0032* 0036 0040 O00f2 0083 ©0043* 0060 O06& 0064 0065 
SKTSTA A 004% 1885 0984 0988 oO .8s 0371* 0372 0517* 0518 0586* 0587 0900* 0901 0907* 0915 0920 10589 
SNS A 008 19D6 1060 OO71* 1059* 1059 1067) =©1103* 1108 1105* 1111% 1112 1178% 1207% 1216 1229 12299 
SNSID A002 BAS 1214 0183* 0263* 0284* 0295* 0369* 0410* 0431* 0442* 0515 0543* 0565* 0575* : 1235 1242* 1268 1278 1278 1277 
0659* 0690* 0706* 0785* 0816* CG CG xr2 c 0C1 0002 1329 0252* 0253 0257* 0258 0259 0259 0385* 0346 0348 0388 03489 03999 
SNSXR2 A 002 1952 1065 0349* 0350 O0896* 0497 0623* 0624 0751* 0752 0912* 0913 1057*® 1058 0400 O804%* O405 0406 0406 0892* 0493 0895 0495* 0496 0536* 0537 
SNSO1 A002 19E6 1071 1115% 0619* 0620 0622 0622 0623 0651* 0652 O747* 0748 0750 0750 0751 _ 
SNS23> A 002 19ER 1072 1118% C 9 0777* 0778 0898* 0899 0906* 0909 0911 0911* 0912 0962* 0963 1033¢ : 
SPNDLA A001 OBIS 0099 0058 1085 1086 1087 1095 1122 1123 1128 1125 1126 1127 1133 1136 
SPNDLB A 001 0B16 0100 0058 1137* 1138 1183 1184 1189 1152 1158 1157 1158 1362 1165 1166 
SPRMSG A024 OBU6 0106 0055* 005S* 0087 Cc @g 1208* 1215 1228 1228 1283% 1269 1270% 1271 1273* 1275 1276 1282 4 
STATPR A 018 1D89 1321 1216* 1223 12826 
STATUS A 002 1950 1064 0077 0182* 0221 0838 C968 0987 0989 1060* 1110 1115 1118 1203 XR2WK A002 1B3D 1176 1136* 1137 : 
1218 1240 © G ZROCTR A008 O0C06 0158 0115 01488 - 
STATWD A 018 10632 1253 1207. 1213 ZROTO A006 1D50 1313 1311* 
STATO1 C 001 0002 1331 0219 083€ 0985 1199 ; 
STAT23 C 001 0003 1332 CG CG TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 we 
STEP A 001 0C29 0167 0142* 0150 01€3* 
STHASK A 001 1¢0C3 1262 1208 1243 
STPSNS A008 BBE 1225 1206* 1219 1232 1234« GC 6 2 
STRTIO A 00% 19F8 1082 0185 ©0203 0265 0287 0298 0412 0834 0885 0545 0567 0578 0661 
0682 0692 0708 0787 0808 0819 0878 0992 
SWITCH C 001 0208 1337 0034 0038 a | 3 
TBLEND A 002 1829 0944 0913 
TBLH A002 180F 0941 O141* O169¢ 0152* 0253* 0371 O0400* 0517 0537% 0586 0652* 0768* 0778* 
0877* 0900 0907 Ce o 
TBN A003 1CF& 1277 1275* 1280 
TEST C001 0212 1339 0128 
THALT A O0O& 1B5SE 1789 = C Oo oO 
TINOUT A021 1B7C 1192 1182 1183* 1187 
TIXE A 004 1D69 1318 1308* 1315 . 
TOBYT A006 1D5F 1316 1310* © G a 
TRACK# A 001 OB14 0098 0076* 0079* 0184 0260 04807 0581 0657 0783 0998 
TSTEBT AOOU’ IBAF 1218 1215* 1225 
TSTDAT A 008 187C 0961 0321 0468 0595 0723 0851 Cc Oo a 
TSTERR A003 JAAB 1125 0069* 1121 
TSTEXT A004 OCO2 0156 0109* 0145 
TSTFIX A OCH OBB2 0134 0131 Cc Oo = 
TSTRMV A 008 OBAT 0130 0219 
TSTSCN A 003 AAE 1126 0070% 
TSTSEK A008 1881 0983 0199 027 0426 0559 0675 0801 Cc 6 2 
TSTSPH A 004 OB6A 0109 0181 025€ 0403 0540 0655 0782 
TSTSH A 00& OB8S 0118 0113 0129 
THO A002 19248 1035 0964 127C 1308 Cc a = 
TWOZR A OC2 OBIA 0103 0050 0114 0201 
TYBOT A006 1D3E 1310 1305* 
UDTPTR A 002 0B11 0094 0028 0031* 0032 0050* 0065* © Oo a 
OFIND1 A004 GA24u 0032 0023 
UFIND2 A O04 OA20 0031 0048 
UNITS A010 1D77 1320 1313 Oo Oo e 
ONPACK C001 021E 1342 1201 1238 
Cc Oo 3 
DATE 13BAR70 O6APR70 22MAY¥70 01A0G70 010CT70 PROG ID 0A06-3 DATE 13HAR70 O6APR70 22MAY70 0 1AUG70 010CT70 “ PROG ID 0a06-3 
EC NO. 571512 571516 571513 571531 571540 PAGE 15 EC NO. $71512 571516 571513 571531 571586 . PAGE TSA 
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CL 65 THROUGH 80 
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pe Y -OH*BF-QEB0d@ % LC D.DEXEOH*BH-A B E(ESN}{D.J?7H GE - 89-A20630002 
53s tigks T3EABIDH AYQETMy..B,AZSFISH AZVFTM H ADSFTMH AD?FTA H AU 0E0A0630003 
aa ) nas pay 2 

Sade Olav  o5 On g2 So dhe  GaeR oe : 

a/Y SOHSRQEH aSonne “Re THEACI IL one Ke. E*B  G /YFF _F{ 0.60 BFBO &C*20630004 
: i30He J4LE 
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4 ORG xX*OA00? 
5 
6 * SECTION PREFACE 
7* 
8 DC XL2*a072! 
9 De XL7"00° 
10 pc XL1¢01° 
11 pc XL2*008 
12 pc AL2(R8TN1) 
13 pc AL2 (ETABLE) 
14 pe XL3"A01000* 
15 * 
16 
17 
18 * OPERATING INSTRUCTIONS 
19 * 
20 * 1. SET SWITCH 15 TO BYPASS 
21 * 2. SET SWITCH 16 TO BYPASS 
22 * 3. SET SWITCH 1E TO BYPASS 
23 * 4. SET SWITCH 1F TO BYPASS 
24 
25 SETDSK ST SETEIT+3,ARR 
26 BVI SETSW,X'FF* 
27 
28 CLI UODTPTR,O 
29 SNE UFIND1 
30 LA UTAB,XR1 
31 UFIND2 st UDTPTR, XR1 
32 UFIND1 L UDTPTR, XR1 
33 MVI  REMVDS,0 
34 TBN SWITCH+3,X'02! 
35 JT #49 
36 CLI 0(,XR1),X*A0!* 
37 JE SETA 
38 TBN SWITCH4+3,X'01° 
39 oT #49 
40 CLI 0(,XR1),X*BO! 
41 JE SETB 
42 TBN 1(,XR1) ,X"10* 
43 LA 3 (,XR1) ,XB1 
44 BP UFIND2 
45 B PRINT 
46 pc XL1*°06! 
a7 pc TL1*26" 
4B DC AL2 (NOUNIT) 
49 NVI SETSW,O 
50 HVC UDTPTR(2) ,TWOZR 
51 B LoaD 
52 Dc XL2*40! 
$3 
54 SETA ZZ LDPCR+1,SPNDLA 
55 BVI SPNMSG,C'1® 
56 3 SETBTH 
57 
58 SETB S8ZZ LDFCR+1,SPNDLB 
59 NVI SPHNSG,C*2¢ 
60 TBN  2(,XBR1),X*"01° 
61 JF SETBTH 
62 MVI REMVDS,X*FP! 
63 
68 SETBTH LA 3(,XR1) ,XR1 
65 ST UDTPTR, XR1 
66 BZZ  =LDFDR+1,LDPCR¢1 
67 MZZ = SI0+1,LDFCR+1 
‘68 MZZ oo s- WAIT+1, LDFCR+14 
69 SZZ  TSTERR+1,LDPCR+1 
22MAY70 07A0G70 
571573 571531 - 


RUNNING OF 


* 

* 
RUNNING ON 
RUNNING ON 
ROANING ON 


THE RESOVABLE DISK 

THE FIXED DISK * 
DISK DRIVE 1 
DISK DRIVE 2 * 


* 


SAVE EXIT 
SET SETUP 


ADDRESS 
SWITCH 


HAS POINTER BEEN INITILIZED? 
JUMP IF YES 


LOAD IF NO 

ZERO SWITCH FOR RESOVABLE DISK 
TEST SSW 1E 

JUMP IF ON, NEVER RUN DISK DRIVE 1 
TEST FOR A UNIT ADDRESS OF ‘A! 
JUMP IF THERE IS ONE 

TEST SSW IF 

JUMP IF ON, NEVER RON DISK DRIVE 2 
TEST FOR A UNIT ADDREAA OF 'B* 
JONP IF THERE IS ONE 

TEST FOR LAST ENTRY 

STEP POINTER TO NEXT ENTRY 


CONTINGE IF NOT THE LAST ENTRY 
TO PRINT ALL UNITS SELECTED 
PLAGS 

LENGTH 

BESSAGE ADDRESS 


TO PRINT NO ENTRIES LEFT 
FLAGS 


SET TO RUN ON SPINDLE ‘a* 
SET MESSAGE FOR SPINDLE *1?# 
PROCEED 


SET FOR SPINDLE B. 

SET MESAAGE FOR SPINDLE '2°* 

TEST OPTION BIT FOR PEAY. DISK ONLY 
JUMP IF OFF 

SET BIT FOR REMOVABLE DISK ONLY 


STEP POINTER TOC NEXT ENTRY 


SET FOR CURRENT SPINDLE 
SET FOR CURRENT SPINDLE 
SET FOR CORRENT SPINDLE 
SET FOR CURRENT SPINDLE 


PROG ID OaAG7T-2 
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IBN MAINTENAWCE DIAGNOSTIC PROGRAS 


A072 
ERR LOC 


OAAB 
OAAE 
OABS 
OABA 
OACO 
OACSs 
oacs 
oac9g 
OACD 
OaDO 


OAD4 
OADS 
OADS 
OADA 
oaDc 
OAEO 
OAE1 
OAE2 
OAE’ 
OAES 
OAEE 
OAF2 


OAF6 
OAFE 
OBO6 
OBOE 
0B10 


0B12 
0B13 
OBT4 
OB15 
0B16 
0B17 
0B 18 
0B19 
OB1B 
OBIC 
OB2& 
OB2C 
OB2F 
0837 
OB3F 
OBN7 
OBUF 
OB57 
OBSF 
0B67 
OB6F 


DATE 
EC #0. 


(DIAGNOSTIC) 


ADDR STMT SOURCE STATEMENT 


READ DATA 

OBJECT CODE 

05 00 19E& 1969 

08 00 190B 1569 

08 00 1A1P 1969 

08 00 1A23 1969 

CO 87 18FD 

02 Oaca 

3C CB 0B148 

38 08 1914 

F2 90 08 

3° 67 CB1a 

CO 87 027A 

01 OADS 

2c OAD 

0B72 OADB 

CO 87 021A 

06 OAEO 

18 OAE1 

OBR6 OAE 

3C 60 1763 

OC 02 1762 1762 

3C 00 1467 

CO 87 0000 

C1D3D340E4DSC9E3 OBOF 

B240C8C1ESC540C2 

C5SC5D580E3C5E2E3 

c5ca 

0000 0B11 
0232 

00 0B12 

00 0813 

00 OB14 

Ao 0B15 

BO OB16 

00 0B17 

00 0B 1a 

0000 OBIA 

00 0B 1B 

C9D5E5C1ID3C9CH4O OB2ZE 

E2E2E640E2C5E3E3 

C9D5C7 

D5D6E640E3CSE2E3 OBA 

CODSC74OCUCIE2D2 

&0C4D9C9E5SC54027 

C2C5C7C9DS40D9C5 0B72 

C1C440C4C1E3C140 

C4COCICTDSDEEZE3 

C9C340CEESDSC3E3 

C9D6D540E3CS5E2E3 

40C1FOF7 

13MAaR70 O6APB70 

571512 571516 


70 
71 
72 
73 
748 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
392 
93 
94 
94 
3a 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
106 
106 
107 
107 
107 
108 
108 
108 
108 
708 
108 


PRTSPNW 


SETEXT 


NOURIT 


UDTPTR 
UTAB 
REMVDS 
SETSW 
TRACK# 
SPNDLA 
SPNDLB 
RUNRAV 
RUNFIZ 
TWOZR 
PASS 
INVFLG 


SPNESG 


SECHSG 


22H AY70 
571513 


PART 
PAGE 


xc. 


$129632 
TA 


MZZ TSTSCN+1,LDFCR1 SET FOR CURRENT SPINDLE 

B2ZZ SNS+1,LDPCR+1 SET FOR CURRENT SPINDLE 

N2Z RLDFCR+1,LDPCE+1 SET POR CURRENT SPINDLE 

HZZ RSIO+1,LDPCR¢1 SET POR CORRENT SPINDLE 

B SENSE 

pc XL1°02" ASK FOR DEVICE STATUS BYTES 0 6 1, 
AVI TRACK#, 203 SET FOR FULL CAPACITY DISK 
TBR STATUS, x* 08° TEST CYL 100 BIT 

JF PRTSPR IF OFF COXTINOE 

BVI TRACK#, 103 SET FOR 1/2 CAPACITY DISK 

B PRINT TO PRINT SECTION HEADING 

pc XL17°01° FLAGS 

Dc IL7* aa! LENGTH 

pc AL2 (SECNSG) MESSAGE ADDRFSS 

B PRINT TO PRINT SPINDLE 

Dc XL171°06* FLAGS 

pc IL1T°2u¢ LENGTR 

pc AL2(SPNASG) MESSAGE ADDRESS 

MVI HDTBL+3,0 ZERO HEAD 

aYC HDTBL+2 (3) ,HDTBL+3 ERROR FLAGS 

BVI FRSTPS,0 SET SWITCH FL@ RECALI BRATE 
B +-* EXIT 

pc CL26°ALL UNITS HAVE BEEN TESTED® 

bc XL2°0* 

EQU x*232° 

pc XL17"O* 

pe xXL1°O* 

pc XL1°0G* 

pc XL17*°a0° 

pe XL1°BO* 

pe xrLiene 

pe XL1°O* 

pe XL2'0* 

pe XL1°O°* 

pc CLIS* INVALID SSW SETTING* 

pc CL24*NOW TESTING DISK DRIVE x* 

pc CLA4* BEGIN READ DATA DIAGNOSTIC FUNCTION TEST AO?7* 
CiAUG7O PROG ID QA07-2 
571531 PAGE 1B 
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Q 


© 


IBA MAINTENANCE DIAGNOSTIC PROGRAS 


A072 
ERR LOC 


0B73 
0OB77 
OB7B 
OBT7E 
OBB2 
OBaS 
OBBB 
OBSE 


0B91 
OB9S 
0598 
OB9C 
OBSD 
OB9E 
OBAO 


OBAZ 
OBAG 
OBAB 
OBAC 
OBBO 
OBBY 
OBB? 


OBBB 
OBBF 
OBC2 
OBCE6 
OBC? 
OBCD 
OBD4 
OBD4a 
OBDA 
OBDE 
OBF2 
OBE6 


OBES 
OBED 
OBFO 
OBF6 
OBFA 
OBPD 
0c03 
0c07 


OCOB 


Oc or 
0C13 
0C 17 
OCTA 
OC1E 
0C22 
0C 26 
OCc2a 
OC2E 
0C32 


DATE 
EC KO. 


READ 


OBJECT CODE 


34 
3D 
F2 
3c 
F2 
Cb 
F2 
F2 


38 
F2 
co 
c6 
13 


08 
00 
01 
FF 
87 
01 
81 
87 


06 
90 
87 


OB2E 
AOPA 


OCOE 
OB1B 
07 
OBTB 
oc 
OB18 
81 
3c 


O20A 
18 
O2TA 


T3HAR7O 


$71512 


DATA (DIAGNOSTIC) 
ADDR STST SOURCE STATEMENT 
110 TSTSPN ST TSTEXT+3, ARR 
111 CLI PASS,O 
112 JNE  SETSPH 
113 MVI PASS,X'FFt 
114 J TSTSW 
OBIA 115 SETSPN CLC RUNFIX(2) -TWOZR 
116 JE ZROCTR 
117 J SETRAV 
118 
119 TSTSH TBN SECTSW,X'06! 
120 JP TSTRMV 
121 B PRINT 
OB9C 122 DC XL1°C6! 
OB9D 123 pc IL1*19° 
OB9F 124 DC AL2 (IKVFLG) 
OBA1 125 DC XIL2°AOFA* 
126 
127 B HALT 
OBA? 128 DC XL2*AOFA? 
129 B TEST 
130 B TSTSB 
131 TSTRMV TBN  SECTSW,X*'0G! 
132 JT TSTFIX 
133 BVI RUNRHV,X'PF! 
134 
135 TSTFIX TBN  SECTS#,X'02! 
136 IT SETRMV 
137 CLI REMVDS,X'FF 
138 JE SETRMV 
139 MVI RONFIX,X*FF* 
140 SETRMV CLI RUXRMNV,G 
141 JE FIXED 
18FC 182 ALC TBLH(2) ,ONE 
143 MVI STEP,1 
144 NVI DISKTP,O 
185 BVI RUNRMY,O 
146 3 TSTEXT 
187 
148 FIXED CLI RUNFIX,0 
149 JE ZROCTR 
18FC 150 ALC TBiH(2),ONE 
151 CLI STEP,1 
152 JE #49 
18F2 153 ALC TBLH(2) ,ONE 
154 BVI DISKTP,X*08" 
155 MVI RUNFIX,0 
156 
157 TSTEXT B +--+ 
158 
159 ZROCTR CLI x*0203',05 
160 MVI  PASS,O 
161 INE #414 
162 MVI SETSW,0 
163 B 0 
164 MVI STEP,O 
165 CLI X*0A03',03 
166 BE CKEDER 
167 B LINK 
0C32 168 STEP DC XL1°08 
OL APR70 22mAY70 01A0G70 
571516 571513 $71531 


PART HO. 5128632 
PAGE 2 


STORE EXIT ADDRESS 

IS THiS THE FIRST TIME THROUGH ? 
JUMP IF NO 

SET SWITCH 

PROCEED TO TEST SWITCHES 

HAVE ALL DISKS BEER RUE? 

JUMP IF YES 

JUMP IF NO 


TEST FOR BOTH SSW'S 15 & 16 OF 
JONP IP BOTH NOT ON 

TO PRINT INVALID SSW SETTING 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 


TO DCP ERROR HALT 
HALT ID 
TO READ CONSOLE SWITCHES 


TEST FOR SWITCH 15 ON 
JUMP IF ON 
IF NOT ON, SET TO RUN REMOVABLE DISK 


TEST FOR SWITCH 16 ON 
JUMP IF ON 
TEST REMOVABLE DISK ONLY FLAG 
IF ON, NEVER RUN FIXED DISK 
IF NOT ON, SET TO RUN FIXED DISK 
DO WE WANT TO RUN ON REROVABLE? 
JUSP IF NO ; 
INCREMENT TABLE POCINTER 
SET SWITCH TO INDICATE SAME 
SET TO RUN ON REMOVABLE 
CLEAR RUN REMOVABLE SWITCH 
TO EXIT 


DO WE WANT TO RUN ON FIXED? 
JUMP IF RO 

INCRENENT TABLE POINTER 

TEST FOR PREVIOUS INCREMENT 
JUMP IP YES 

INCREMENT TABLE POINTER 

SET DISK TYPE TO FIXED 
CLEAR RON FIXED SWITCH 


EXIT 


CHECK FOR LAST ROUTINE 
ZERO SWITCH 

JUMP IF NOT LAST ROUTINE 
RESET SWITCH 


CHECK FOR COMPLETION OF ROUTINE 3. 
BRANCH TO CHECK ERRORS 
TO NEXT ROUTINE 


PROG ID O0A07-2 
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IBM MAINTENANCE DIAGNOSTIC PROGRASA 


BO72 


ERE LOC 


0c33 
0C34 
0c35 


0¢37 
OC3B 
OC3F 
0c43 
OC4&7 
OC4B 
0c51 
o0c55 
0c56 
0c57 
0cS9 
ocsD 
0c61 
0c65 
0c69 
Ocoa 
OCc6B 
Oc6D 
0c71 


0C73 
0c77 
OC7B 
OCTF 


0c83 
0c87 
ocss 
oc 89 
OCc8B 
Oc8F 
0c93 
0c97 
OC9B 
ocsc 
ocoD 
ocor 
0CA1 
ocas 


OcaA7 
OcaAS 


ocac 
OCBO 


OCBS 
OCBS 
ocs9 
OCBA 
OcBC 
OCBE 
occ2 


occ4& 


occs 


DATE 
EC wo. 


READ DATA 


OBJECT CCDE 


170 * 
171 
172 * 
173 
179 
175 
01 0c33 176 RTN1 DC 
30 0c38 177 DC 
ODE3 Cc36 «178 DC 
179 
3D 00 0B13 180 BEGIN CLI 
CO 81 OAOD 181 BE 
CO 87 OB73 182 RTNIA B 
3c 0C 1913 183 BVI 
3c 09 1ADB 184 BVI 
Oc 00 18F8 0B14 185 KYC 
CO 87 192C 186 B 
00 0cS5 187 pc 
00 0cS6 188 Dc 
16F7 0c58 189 DC 
CO 87 0C73 190 B 
Co 87 0C6i 191 B 
CO 87 1ABa 192 B 
CO 87 O21A 193 B 
06 0c69 194 DC 
35 Oc6a 195 DC 
OcrC OCc6C 196 Dc 
CO 87 0222 197 B 
A009 oc72 198 pe 
199 
CO 87 17E7 200 RTNIA1 B 
3C FF 18F8 201 BVI 
3c 00 18F9 202 nVI 
3C 00 18FA 203 BVI 
204 
CO 87 192C 205 B 
01 0c87 206 BC 
02 0c8s8 207 DC 
18F7 Oc8A 208 DC 
CO 87 0C97 209 B 
CO 87 0C93 210 B 
CO 87 OCA7 271 B 
CO 87 021~ 212 RTN1A2 B 
C6 OC9B 213 De 
46 ococ 214 Dc 
On42 OC9E 215 DC 
A030 OCAO 216 BC 
CO 87 0222 217 B 
4030 OcA6 218 pc 
219 
CO 87 18FD 220 RTNIB B 
02 OCAB 221 Dc 
222 
38 04 1913 223 TSN 
224 * 
CO 10 occs 225 BT 
226 
CO 87 021A 227 B 
C6 OcB8 228 DC 
50 OcB9 229 DC 
0D92 OCBB 230 DC 
A031 OCBD 231 pc 
co 87 6222 232 B 
4031 9CC3 233 DC 
234 ; 
CO 87 0C3F 235 RTBIC BO 
236 
E3CB8C540D7DSCSES OCF6 237 DC 
13HAR70  O6APR70 22MAY70 01AUG70 
571512 571516 571513 


571531 


(DIAGROSTIC) 


ADDR STMT SOURCE STATEMENT 


PART 
PAGE 


KO. 


ROUTINE NO. O1, CHECK FUNCTION OF NO RECORD FOUND 


ROUTINE PREFACE 


xXxL1'01° 
XL1'00° 
ALZ (RTN2) 


SETSW,0 
SETDSK 
TSTSPN 
STATUS-1,9 
SNSID,09 


RDDFC+1 (1) ,TRACKE 


STRTIO 
XL1¢008 
XL7*00! 
AL2 (RDDFC) 
RTNIA1 
44 
PRTSNS 
PRINT 
XL1*06" 
IL1*53* 
hL2 (ERRORQ) 
HALT 
XL2*A009* 


TSTSEK 
RDODFC+1,X'FF* 
RDDFC+2,0 
BDDFC+3,0 


STRTIV 
XL1°01" 
XL1°02¢ 
AL2 (RDDFC) 
RTNIA2 
s4Q 

RTN1B 
PRINT 
XL1°C6! 
IL1"79° 
AL2 (ERN1A) 
XL2*A030° 
HALT 
XL2*a030° 


SENSE 
AL1(STATO1) 


STATUS-1,X"°08 * 
KTRIC 


PRIW™ 
XL1°c6* 
ILieo* 
AL2 (ERE1B) 
XL2*a031° 
HALT 
XL2*a031°* 


RINWA 


SENSE BIT, (BYTE 0, BIT 5) 
USING THE READ DATA DIAGKOSTIC CORMAND 


ROUTINE NO. 
ROUTINE FLAGS 
ADDRESS CF NEXT BOUTIRE 


HAVE PARABETERS BEEN ENTERED? 
BRANCH IF XO 


ZERO SENSE AREA 

INSERT ID IW PRIRT 

SET TO SEEK THE CE TRACK 
TO I/O SUBROUTINE 
FUNCTION CODE (CONTROL) 
CONTROL CODE (SEER) 
CONTROL FIELD ADDRESS 
GOOD RETURR 


TO DECODE ERROR 
TO PRINT 

FLAGS 

LENGTH 

BESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO TEST FOR GOOD SEEK 

SET CYLINDER NO. TO FORCE A URP. 
SET TRACK & 

SECTOR VALUES 


TO I/0 SUBROUTINE 

FUNCTION CODE (READ) 

CONTROL CODE (DATA DIAGNOSTIC) . 
CONTROL FIELD ADDEESS 

GOOD RETORN, (NOT EXPECTED) 


NORMAL RETURN FROE EXPECTED FRROR 


TO PRIKT ROUTINE ERROR 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 
MESSAGE ID 

TO DCP RALT 

HALT ID 

TO SENSE I/O SUBROUTINE 


DEVICE STATUS BYTES 0 & 1 


TEST BYTE 0, BIT S FOR OF 
THIS IS "NO RECORD FOUND! 
BRANCH IF O8 


TO PRINT 
FLAGS 
LENGTA 
ADDRESS OF LAST PRINT CHARACTER 
MESSAGE ID 

TO DCP HALT 

HALT ID 


ERROR 


ROUTINE EXIT 


CL&7'THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE * 


PROG ID 
PAGE 


5129632 


2k 


o* 


OA07T~2 
2a 


ot 
aoe! 





©. 
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IBM MAINTEWAKCE DIAGNOSTIC PROGRAR 


A072 
ERB LOC 


ocpd 
ocDs8 
OCcEO 
oczs 
OCFO 
Ocr7 
OcFD 
opo5s 
ODOD 
OD15 
OD1D 
OD25 
On2D 
0D31 
0D39 
Ona) 
OD4&3 
ODUB 
0D53 
ODSB 
0D63 
OD6B 
0n73 
GD77 
OD7F 
oDs7 
oper 
0D93 
OD9OB 
ODA3 
OPAB 
ODB3 
ODBB 
ODBD 
opcs 
opcD 
ODDS 
ODpDD 
ODEZ 


DATE 
Ec NO. 


BEAD p 
OBJECT CODE 


CIDEESEZUOCSD9DI 
D6EDIEZUODECIC3ES 
DIDICSCHY OESTBCS 
D3CSHDE2ZC5C5D2C9 
D5C740E3C8CS40 
C3CS¥0C3EBD3 
DICSCICUUOCHC TES 
C140C4C9C1C7D5 D6 
E2E3C9C340E4E2C9 
D5C740C140D5DED5 
4 OCSETCIEZE3C IDS 
E340E2C5C3E3D6D9 
uOC9CUSB 
CHCICGHODSDEE3 40 
C7C9E5C54 OC5D9DI 
D6D9 

D5 D648 0D9C5C34B40 
C6 DS EY DSC&4ODSDS 
E340E2C5E340C2E8 
4OCT4OD9C5CICRYO 
CUCTE3SCINOCUCICI 
C7DS5D6E2E3C9C 380 
C3DEDRLO 
D¥CIDSC44 OEGE2C9 
D5C740T 1UDE2ZC5C3 
E3D6D94OC9ICRUODE 
C64 0C6CE 

DSCSC ICK4OCECICS 
D3C34OCUDECSEZKO 
D5D6E340C3D6D5E3 
CICIDS¥OCSETDICS 
C3E3C5C4R OCHCTES 
C140 
CICBE3C5D94OCTCS 
E5CSD5C74 0C140D9 
CSCICY4OCKCIE3C1 
8OCSC9CICTUBYOC3 
DOD4UDSCUYB 

00 


138 AR70 
$71512 


ATA 


( 
ADDR 


Oc FC 
0D30 


OD42 


OD76 


OD92 


ODBC 


ODEI 


ODE2 


062PR70 
5771516 


DIAGHO 
STST SOURCE 


237 
237 
237 
237 
237 
238 
239 
239 
239 
239 
239 
239 
239 
240 
240 
240 
241 
2491 
241 
261 
244 
241 
241 
242 
242 
242 
242 
243 
2483 
243 
243 
243 
243 
248 
248 
244 
244 
244 
245 


ERRORS 


ERRIA 


ERR1B 


ERRO2F 


EXPSEC 


22NaY7C 
5715713 


PART NO. 5129632 
PAGE 3 
STIc) 
STATERENT 
DC CLO6'CE CYL* 
pe CL52*READ DATA DIAGNOSTIC USING A NON EXISTANT SECTOR ID, * 
bc CL18*DID NOT GIVE ERROR’ 
pe CL52°NO REC. FOUND NOT SET BY A READ DATA DIAGNOSTIC COB® 
pe CL28*MAND USING A SECTOR ID OF FF* 
DC CL42*READ FIELD DOES NOT CONTAIN EXPECTED DATA * 
pe CL37*AFTER GIVING A READ DATA DIAG. COMND.* 
bc XxL1°O* 
O1a0G70 PROG ID GAO7-2 
$71531 PAGE 3 


0) 


0000600000000 0 0 0 0 0 8 =6 


t 
i 


Parente 


© 0008000600 008080%808908 0 0 0 G6 8 0 o 


QO oO 


9 O08 6 @® 


A072 


ERR LOC 


ODE3 
ODES 
ODES 


ODE7 
ODEB 
ODEP 
ODF3 
ODF7 
ODFB 
ODFF 
0£03 
OEO9 
OEOD 
0E11 


0E15 
0E19 
OEIA 
OEIB 
OE1D 
0E21 
0E25 
0E29 
GE2D 
OE2E 
OE2F 
0£31 
0£35 


0E37 


OE3B 
OE3F 


OESS 
OER9 


OEUF 
OE53 
0ES7 


OES5D 
0E61 


O£F65 
0£69 
OE6A 
OE6B 
OE6D 
0£71 
OE75 


OE79 
OE7D 
0E81 


O£87 
OE8B 


OFSP 
0E93 
OE98 
0Z95 
O£97 


DATE 
EC WO. 


READ 


OBJECT CODE 


02 
09 
10DE 


02 
02 
00 
81 
87 
02 
00 
00 
00 
00 
09 


175F 
175c 
0313 
OaoD 
0B73 
175D 
175D 
18F4 
18PS 
ODE2 
1ADB 


87 192C 


0E37 
0£25 
TABS 
O21A 


OCcFC 
co 87 
a009 


0222 


CO 87 17E7 
3c 


oc 


E7 
FE 


1DC2 
1DCc1 


3c 
oc 


00 
FE 


1EC2 
1EC1 


3c 
3c 
oc 


12 
00 
00 


IADB 
18F6 
18F5 


c2 
34 


01 
01 


1cc3 
1A70 


co 
02 
00 
18F3 
co 87 
co 87 
co 87 


87 192C 


CE79 
0E75 
OF6a 


3c 
3c 
oc 


32 
00 
00 


1ADB 
18F6 
18P5 


c2 
34 


01 
01 


1Dc3 
1470 
co 87 
01 

02 

18F3 
co 87 


192C 


OECA 


{3HAR7O 
5715142 


DATA 


OB14 


1DC2 


1EC2 


ODE2 


ODE2 


IBM MAINTENANCE DIAGNOSTIC PROGRAS 


(DIAGNOSTIC) 


ADDR 


ODE3 
ODES 
ODES 


0E19 
OEIA 
OEIC 


OE2D 
OE2E 
0E3) 


OE 36 


OE69 
CE6A 
OE6C 


0E93 
OE9S 
OE96 


O6APR70 
571516 


STMT SOURCE STATEMENT 


247 * 
248 * 


249 


250 RTN2 


251 
252 
253 
258 
255 
256 
257 


258 RIN2A 


259 
260 
261 
262 
263 
268 
265 
266 
267 
268 
269 
270 
271 
272 
273 
2748 
275 
276 
277 
278 
279 
280 
281 
282 
283 
288 
285 
286 
287 
288 
289 
290 
291 
292 
293 
298 
295 
296 
297 
298 
299 
300 
301 
302 
303 
308 
305 
306 
307 
308 
309 
310 
311 
312 
313 
318 


RITN2A1 


BTN2B 


RTR2B1 


22HAT70 
571513 


ROOTINE WO. 02, 
USING BEADS 0 & 2 


CHECK 


PART WO. 5129632 
PAGE 3A 
READ DATA DIAGNOSTIC FUNCTION * 


pe XL1°02* ROUTINE NUMBER 

oc XL1*00* ROUTINE FLAGS 

pce AL2 (RTN3) ADDRESS OF ‘KET ROUTINE PREFIZ 
LA HDTBL-1, XR2 SET POINTER 

St TBLH, XEB2 FOR HEAD 0, REMOVABLE DISK 

CLI SETSH,0 BRAVE PARAMETERS BEEN ENTERED? 
BE SETDSK BRAWCH IP WO 

5 TSTSPN 

LA SECTBL,XER2 SET ERROR TABLE POINTER 

AVI SECTBL,0 ZERO SECTOR ; 

avc WATDPC+1(1) ~-TRACKE SET SEEK ADDRESS TO CE TRACK 
“VI WRTDFC+2,0 SET FOR HEAD 0, SECTOR O 

BVI EXPSEC,0 SET EXPECTED READ & SECTOR KO. 
BVI SNSID,09 IKRSERT ID IH PRIST 

B STRTIO TO SEEK CE TRACK 

pc XL1°O* FUNCTION CODE (CONTROL) 

be XL1*O* CONTROL CODE (SEK) 

pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 

B ETN2Ai GOOD RETUBH 

B zey 

B PRTSNS TO DECOD=S ERROR 

B PERIST TO PRINT 

pe XL1*06* FLAGS 

be IL1* 53° LENGTH 

bc AL2 (ERROES) RESSAGE ADDEESS 

5 HALT TO DCP HALT 

be XL2*a009° HALT ID 

B TSTSEK TO CHECK FOR A GOOD SEEK 

AVI WORK+255, Ft E7* SET WRITE FIELD 

AVC WORK+258 (255) ,WORK+255 

AVI READ+255,0 SET READ FIELD 

vc READ+258 (255) ,READ*255 TO ZEROS 

RVI SNSID,X*12* PuT MESSAGE ID IN PRINT 

BVI WERTDFC+3,0 SET TO WRITE OKE SECTOR 

ayvc WRIDFC+2 (1) - EXPSEC SET SECTOR KO IN CONTROL FIELD 
LA WORK, XB1 SET WRITE DATA ADDRESS 

st DFDR, XB1 IK DATA CONTROL FIELD 

B STRTIO TO I/O SUBROUTINE 

pc xL1°02! PURCTION CODE (8RITE) 

oC XL1°O06* CONTROL CODE (DATA) 

Dc AL2 (WETDFC) CONTROL FIELD ADDRESS 

B RIN2Bi GOOD RETURN 

B +8 

3 WETER2 ERROR RETURSG 

BYI SESID,xX*32* PUT ID IN PRINT 

AVI BRTIDFC+3,0 SET TO READ ONE SECTOR 

RVC WRIDFC+2 (3) g EXPSEC SET SECTOR KO IN CONTROL FIELD 
LA BEAD, X81 SET READ DATA ADDRESS 

st DFDR, Xk? IN DATA CONTROL FIELD 

B STRTIO TC READ DATA 

pc XL1°O1* FONCTION CODE (READ) 

pc XL1*O62* COHTEOL CODE {DATA DIAGEOSTIC) 
pc AL2 (FRTDFC) CONTROL PIELD ADDRESS 

B RTR2ZB2 GOOD RETCRE 
O1ATG7TO PROG £5 OADT<-2 
571531 PAGE 3B 


gy 


fits 





+ 


pe 


= ae 


I 
cs | U3 - 
IRS MAINTERANCE DIAGNOSTIC PROGRAS PART NO. 5129632 IBS MAINTENANCE DIAGROSTIC PROGRAMS PART RC. 5129632 
PAGE 4 PAGE SR 
o16 . ¢ 
A072 KEAD DATA (DIAGBHOSTIC) A072 READ DATA (DIARBGAOSTIC) 
ERR LOC OBGECT CODE ADDR STMT SOURCE STATENERT Q & ERR LOC OBJECT CODE ADDP STHT SOURCE STATESERT i 
OE9B CO 87 OE9OF 315 B £48 OF4C CO 8&7 021~ 383 RTK2J 8B PRIET TO PRINT DATA COMPARE EEROR 
316 Go | 0 OF50 C6 OFSO 384 pc XL1'c6" FLAGS S 
CE9F CO 87 1c04 317 RTN2C 8B SHIFT TO SHIFT BITS FOR DECIMAL NUNBER OF51 4F OF57 385 pc IL1*79° LEEGTH 
OEA3 1873 OBAS 318 pC AL2 (WRT DFC) ADDRESS OF SOURCE OF52 ODE1 OF53 386 DC AL2(EBRO2P) HESSAGE aDDRESS 
OEAS CC 87 1C55 319 B cyD TO CONVERT TO DECIRAL NUABER >| G OF5% 2036 CF55 387 DC XL2'2036° RESSAGE iD 
ORAS 1059 GEAA 320 DC AL2 (CYLNO) ADDRESS OF SOURCE | OFS6 CO 87 6222 388 B HALT TO DCP ZRROR RALT 
DEAB OF 20 OEAC 321 DC AL2 (ERRG2A) ADDRESS OF DESTINATION OFSA 2036 OF5B 389 Dc X¥L2°3036* HALT ID 
OLEAD 3¢ UO OFDE 322 NVI ERROZA-2,C? * SET A BLANK IN PRINT IMAGE Oo a OFSC CO 87 16EB 390 STH2K 8B CRHED TO CHECK FOR ERROES 
GCEBI CGO 87 16CD 323 B SETEBR TO SET ERROR FLAG FOR THIS SECT. OF6G CO 87 ODF7T 39% B RTR22. 
OESS CO 87 TABG 328 B PBTSHS TO PRINT SENSE IRFO. OF68 3C i2 7ADB 332 ERTER? BYE SNSYZD,xX? 428 PUT ID IN SFEHSE FRIET 
CEES CO 87 0274 325 B PRINT TO PRINT THIBD LINE c. 9 OF68 35 841 475cC 393 L TBLE, XR 
CEEBD 06 OEBD 326 pc XL1FOGe FLAGS OF6C 1C OC 16DpD o4 39% RYO ERROVE(1} »&(, RE 4) ROVE HEAD EO. TO ERROR NSG. 
OEBE SA CEBE 327 pe ILitgos LERGTH 0P71 CG 87 1ABS 395 B PRISNS TO PRINT STATUS ERROES 
CEBF OFKO OzCO 328 c AL2 (ERROZA} BRESSAGE ADDRESS Oo a OF 75 CO S87 O24R 396 B PRINT TO PRINT BRITE ERROR 
GEC1 CO 87 0222 329 E HALT TO DCP HALT OF79 S86 SF7S 397 BC ZL1*06? FLAGS 
GECS A022 OEC6 330 pc XL2°2032¢ HALT ID OP7A 38 CFTA 398 DC TLiesge LENGTS 
CEC] #2 8B? 92 333 a RUTHER Oo o OF? TODD OF7C 395 pe AL2 (ERBO2E} HESSA&GE ADDRESS 
332 OF7D CG 87 0222 300 5 HALT TO DCE ERROR HALT 
OECA CO 87 1782 333 RTWZBZ B TSTDET TO TEST DATA ADDRESS OF81 2O12 OF82 401 pc XL2¢4072° RALT ID 
OECR ibc3 OECF 338 DC RL2 (READ) Go @ OF83 CO 87 OFSC 8G2 B BTEZK TG ROUTIRE ZZIT 
335 203 
D£DO 35 FP 18F6 336 RTN2CT CLI WRIDFC+3,X'FF! TEST SECTOR COUNTER POR STEPPING. OF87 ESCECSSOD7IDSICSES OFBR #64 DC CL52'THE PREVIOUS BEROES HERE PRESERT 2 Y°TER DOIEG & READ * 
OEDS Fi 81 10 337 JE - RT N2C2 PROCEED IF OK. oc Go OFSP CODSESE2ZNOC5DIDE 408 
O6D7 CO BF OZR 338 B PRINT TO PRINT SECTOR COURTER NOT STEPFED OFO7 DSDSEZUCEECHSDSCS 808 
GEDB CE COEDS 339 be ZL7°C6? FLAGS a OFSF 4OD7TDSCSE2ZCSD5SE3 808 
QEDC 25 OEDC 340 pc TL1%438 LERGTH Ne OFA? 4OCICEE2C5DSECCA 408 
QEDD Ti0B OEDE 341 Dc AL2 (EBROZB) HESSAGE ADDRESS OFAP D6C9OBSC7HOCISODS 808 
QOEDF ACh3 OEEG 342 BC XL2*ac33# MESSAGE IDENTIFICATION f OFB7 C5CI1Ca4sG B08 
PEEY Co 37 0222 343 B HALT TO DCP HALT G © OF BB CSCIESCTRO0CKCSC1 OFEG 805 EREBOZA DC CL3Q'DATA DIAG. COAND. USING HD. Z SECT. xx° 
GEES aG33 OBES 344 DC XL2* 2033? HALT ID OFC3 C7TEBROCIDEDADSCH &65 
345 a OPCB 4B40ESE2C9D5C740 805 
GEE? Of GO 48FS ODE2 346 RIN2C2 CLC WRIDFC+2{1),EXPSEC CHECK HEAD & SECTOR HO. APTER Gf OPD3 CSC&SBLOETZ0E2C5 #65 
347 + WRITE IS COMPLETED, {EXPECT NC CHG.) OPDB C3 EZ4BUCETE? 895 
GERD F2 &1 40 349 JE RTNOD PROCEED IF OK OFE1 E2CSC3E3DEDSUCC3 100B 406 FRROZB Be CL&31SECTOR COUNTER IN CONTROL FIELD HOYT STEPPED? 
OEFO CO 87 O21A 34S B PRINT TO PRINT ERROR Oo CG OFEQ DGESDSE3CSD94OCS &06 
GEFY CE OEFY 350 pe XL1°C6! FLAGS OFF? DSSOC3DED5E3DSD6 £06 
CEFS & OEF5 351 BC IL1* sys LENGTR OFFS D340CE6C9IC5D3C44O &06 
OEF6 1042 OEF7? 352 Dc AL2 (ERRG2D) MESSAGE ADDRESS CO 1001 DSD6E3R0E2E3C5SD7 406 
OETB AC34 CEF9 353 Dc XL2"a0345 MESSAGE IDENTIFICATION 1009 D7CSC4 406 
OEFA CC 87 0222 354 B HALT TO DCP HALT 100C E6D9CSIE3SCS540CECS 103E 407 pc CL51"WRITE FIELD WAS ALTERED APTER GIVIRG A READ DATA DI° 
GEFE AU38 OEFF 355 DC XL2*A038! HALT ID o 6 1014 CSD3ICU4OE6CTE2Z40 807 
356 101C CIDJE3C5D9ICSC44O 407 
OF0O C2 02 1cCc3 357 RTN2D LA WORK, XR2 SET XR2 TO POINT TO WORK AREA 1024 CIC6E3C5SD940CTCI 407 * 
OFON BL E7 00 358 RTN2F CLI 0(,XR2),X*E7* CHECK WORK AREA FOR NO CHANGE Oo © 102C ESCIDSC740C140D9 407 
OFO7 F? 01 18 359 JNE RIN2ZE JUMP TO PRINT IF WRT. FLD. IS CHG. 1034 CS5CICHHOCHCTE3CA 407 
OFOR Ez 02 01 360 LA 1(,XR2) ,XR2 NOT DONE, INCREMENT XR2 103C 40C4C9 407 
OrPOD 3& 02 1916 361 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE C © 103F CICTDSD6EZE3C9C3 10HE 808 ERROZC DC CLI6*° AGNOSTIC COHBABHD* 
OF11 01 01 1916 185E 362 CLC SNSXR2(2) ,WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. 1087 SOCIDEDSDYCIDSCS 808 
CF17 Fi 81 14 363 JE RTN2G TO RCUTINE END. 104F CBCSCICUNOSONGE2 1082 409 DC CL52*HEAD & SECTOR BYTE OF CONTROL PIELD CHANGED AFTER A ° 
OFTA CG 87 OFO4 364 B RTN2F CHECK NEXT BYTE Go oO 1057 CSC3E3D6D940C2E8 809 
365 105F E3C540D6C640C3D6 809 
OFIE CC.) 87 O21Az 366 RTN2E B PRINT TO PRINT DATA FIELD WAS CHANGED 1067 DS5E3D9D6D340C6C9 409 
OP22 Ci OF22 367 Dc XL1°C6! FLAGS Oo US 106F CS5D3C440C3C8C1D5 409 
OF23 4; OF23 368 DC IL1*67! LENGTH 1077 C7CSC4HNOC IC6E3C5 &09 
OF24 1 4E OF25 369 Dc AL2 (ERRO2C) MESSAGE ADDRESS 107F DS4O0C140 409 
OF26 2135 OF27 370 Dc XL2*a035° MESSAGE IDENTIFICATION G SC 1083 D6D5C54¥0E2CSC3E3 10A2 410 ERRO2D DC CL32°ONE SECTOR READ DATA DIAGHOSTIC?® 
OF28 Ci 87 0222 371 B HALT TO DCP HALT 108B D6DS40D9C5C1C440 810 
OF2C A935 OF2D 372 pc XL2*a035° HALT ID 1093 C4CTE3ICI4OCHCICI &10 
373 g oO 109B C7DSD6E2E3C9C340 210 
OF2E C2 02 1DC3 37% RTN2G LA READ, XER2 LOAD ADDRESS OF READ ARFA IN XR2 10A3 CSDSDIDED940DSC3 10D2 411 pc CLU8*ERROR OCCURRED WHILE DOING A WRITE DATA COND. 0° 
OF32 Bs E7 00 375 RTN2H CLI 0(,XR2) ,X*E7? CHECK EACH BYTE OF READ FIELD 1OAB C3 ESDIDICSC44OES $11 
OF35 Fi 01 18 376 INE RTN2J JUMP TO PRINT IF NOT CORRECT o ° 10B3 C8CID3ICSXOCaDECY ait 
OF38 E2 02 01 377 LA 1(,XR2) ,XR2 STEP READ AREA POINTER +1 10BB DSC74OCTYOE6DICIS 817 
OF3B 38 02 1915 378 ST SNSXR2,%R2 STORE POINTER VALUE 10C3 E3CSHOCKC1E3C140 411 
OF3F 0) 01 1916 1C03 379 CLC SNSXR2(2),READ1 COMPARE POINTER VALUE & UPPER LIBIT Cc S 10CB C3 D6DEDSC4EBUOES aii 
OF&5 F2 81 14 380 JE RTN2K JUMP IF FINISHED 10D3 E2C9DSC740C8C5C1 10DD 412 ERRO2ZE DC CL11'SIHG HEAD Xx? 
OF&8 CO 87 OF32 381 B RTK2B NOT FINISHED, CHECK NEXT BYTE 1ODB C4&0E7 412 
382 e 98 
DATE 13MAR70 O6 APR70 22H AY70 O1A0G70 PROG ID 0A07~-2 @ ©  oparez 13BAR70 O6APR70 22maY70 0 1A0G70 PROG ID OA07-2 
EC WO. §71512 571516 571513 571531 PAGE 4 EC BO. 571512 571516 571513 §71531 PAGE BA 
3 ! 
e 6 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS PART BO. 5129632 
PAGE 5 
GS 
A072 READ DATA (DIAGROSTIC) 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT G 
914 * ROUTINE NO. 03, CHECK READ DATA DIAGNOSTIC * 
a15 * USING HEADS 1 & 3 @ 
416 
10DE 03 10DE 417 RTN3 DC XL1*03* ROUTINE NUMBER 
10DF 09 10DF 418 Dc XL1°008 ROUTINE FLAGS oO 
10£0 12DC 10E1 419 pc AL2 (RTN4) ADDRESS OF NEXT ROUTINE PREFIX 
420 
10B2 C2 02 1761 421 LA HDTBL+1,XR2 SET POINTER oO 
1OEG 34 02 175C 422 st TBLH, XR2 FOR HEAD 1, REMOVABLE DISK 
10EA 3D 00 0B13 423 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED? 
10EE CO 81 OAOD 424 BE SETDSK BIANCH IF NO i) 
10F2 CO 87 0873 425 RTK3A R TSTSPR 
10F6 C2 02 175D 426 LA SECTBL, XR2 SET ERROR TABLE POINTER 
JOFA 3¢ 00 175D 427 MMVI SECTBL,O ZERO SECTOR GS 
1OFE OC 00 18F4 0B14u 428 MVC) WRTDFC+1(1) , TRACK# SET WRITE ADDRESS TO CE TRACK 
1104 3c 80 18F5 429 MVI  WRIDFC+2,x*80? SET FOR HEAD 1, SECTOR 0 
1108 3C 80 ODE2 430 MVI EXPSEC,X*80t SET EXPECTED HEAD & SECTOR NO. © 
110C 3c 09 1ADB 431 MVI  SNSID,09 INSERT ID IN PRINT 
432 
41110 CO 87 192Cc 433 B STRTIO TO SEEK CE TRACK a 
1114 00 1118 «#434 rc XL1*0! FUNCTION CODE (CONTROL) 
1115 00 1115 435 pc XL1°08 CONTROL CODE (SEEK) 
1116 18F3 1117 436 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS G 
1118 CO 87 1132 437 B RTN3A1 GOOD RETURN 
111C CO 87 1120 438 B *44 
1120 CO 87 1ABu 439 B PRTSNS TO DECODE ERROR Q 
1124 CO 87 021A 4&0 B PRINT TO PRINT 
1128 06 1128 441 pc XL17*068 PLAGS 
1129 35 1729 442 pe -—soWs IL 7*# $3" LENGTH o 
112A CCFc 112B 8&3 pC AL2 (ERROR) MESSAGE ADDRESS 
112C CO 87 0222 aug B HALT TO DCP HALT 
1136 A009 1137 945 pe XL2*a0098 HALT ID 9 
RUG 
1132 CO 87 1757 447 BTN3A1 B TSTSEK TO CHECK FOR A GOOD SEEK a 
4ua8 
1136 3c E7 1DC2 449 RTN3B BVI WORK+255,X°E7! SET WRITE PIELD 
113A OC PE 1DC1 1DC2 850 HVC) WOBK+258 (255) ,WORK+255 0 
451 
1140 3c 00 1£EC2 452 HVT READ+255,0 SET READ FIELD TO 
4188 OC FE 1EC1 1EC2 453 MVC READ+254(255) ,READ#255 ZEROS 6 
454 
114A 3C 16 IADB 455 MVI  SWNSID,¥*16* PUT ID IN PRINT 
119E 3c 00 18F6 456 NVI - WRTDFC+#3,0 SET TO WRITE ONE SECTOR 
1152 OC 00 18F5 ODE2 457 MVC =6WRTDPC+2(1), EXESEC SET SECTOR NO IN CONTROL FIELD S$ 
458 
1158 C2 01 1cC3 459 LA WORK, XR1 SET WRITE DATA ADDRESS 
115C 34 01 1A70 860 st DFDR, XB1 IN DATA CONTROL FIELD. © 
461 
1160 CO 87 192¢ 862 B STRTIO TO WRITE DATA 
1164 02 1164 463 pc XL1'02! PUNCTION CODE (WRITE) ° 
1165 00 1165 464 DC XL1°008 CONTROL CODE (DATA) 
1166 18F3 1167 4865 pc AL2 (WKTDFC) CONTROL FIELD ADDRESS 
1168 CO 87 1178 866 B RTN3B1 GOOD RETURN © 
116C CO 87 1170 867 B 44 
1170 CO 87 125F 468 B WRTER3 ERROR RETOUR 
469 Oo 
1174 3c 37 IADB 470 RTN3B1 BVI SNSID,X*37° PUT ID IN PRINT 
1178 3C 00 18F6 971 NVI -WRTDFC+#3,0 SET TO READ ONE SECTOR 
117c OC 00 18F5 ODE2 872 MVC WRTDPC+2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD ° 
873 
1182 C2 01 tDC3 &74 LA READ, XR1 SET READ DATA ADDRESS 
1186 34% 01 1a70 nt st DFDR, ZRi IN DATA CONTROL FIELD 3 
B76 
118A CO 87 792c &77 B STRTIO TC READ DATA 
{ise 01 17182 avs pc XLUO FUNCTION CODE (READ} a) 
118F 02 V1i8F a79 pc KL1°02: CONTROL CODE (DATA DIAGNOSTIC} 
1790 18P3 1191 499 pc AL2 (WETDFC} CCHTROL FIELD 
1182 CO 87 11¢5 aBi B RTH3B2 GOOD RETURH o 
DATE T3HARTOC OGRERTO 22MAY79 OTAUGTO PROG ID DAGT-2 G3 
EC BO. 571512 571516 577513 571531 PRGE 5 


anrth eli = setenv acne pnt 


mn 


Qo 9 8 OO o Oo O98 OO 9 | o Oo Oo 9 8@ 606 0 8 0 0 0808 0 9 8 0 


SSS C7T?TZ i ° "=~ eee 


@ 


O 


IBE MAINTENANCE DIAGNOSTIC PROGRAE 


a072 
ERR LOC 
1196 


119A 
119E 
7140 
11A4 
ViA6 
41A8 
11ac 
1130 
T1BS 
1138 
11B9 
T1BA 
11BC 
11C0 


11C2 
11c5 
11¢9 


11cB 
11CF 
11D2 
11D6 
11D7 
11D8 
TIDA 
T1Dc 
11E0 


T1E2 


11E8 
11Z5 
V1EF 
11F0 
VIF 1 
VWF 
11P5 
11F9 


11FB 
11FF 
1202 
1205 
1208 
120C 
1212 
1215 


1219 
121D 
I21E 
121F 
1221 
1223 
1227 


1229 
1223 
1236 
1233 
1236 
V23k 
3240 
1243 


DaTE 
EC NG. 


REA 


D 


DATA 


OBJECT CODE 


co 87 


co 87 
18F3 
co 87 
1c49 
OFEO 
3c 40 
co 87 
co 87 
co 87 
06 

SA 

OFEO 
co 87 
A037 


F2 87 
co 87 
1DC3 


3D FF 
F2 81 
co 87 
cé6 
2B 
1008 
A033 
co 87 
A933 


OD 00 


F2 81 
co 87 
c& 

54 

10A2 
A038 
cO 87 
A034 


C2 02 
BD E? 
F2 01 
E2 02 
34 02 
OD 01 
F2 81 
co 87 


co 87 
c6 

&3 

TOKE 
a035 
CO 87 
A035 


C2 G2 
BD E? 
F2 0% 
E2 02 
38 6&2 
OB 0% 
Fe $4 
ca 87 


1198 
1c08 
1¢55 


OFDE 
16CD 
TABS 
O21A 


0222 


92 
17B2 


18P6 
O27A 


0222 


18F5 


10 
O21A 


0222 


1cc3 
00 
14 
01 
1916 
1916 
18 
11FPFP 


O21A 


0222 


1DCc3 
695 
7a 
07 
1916 
1$76 


OP32 


T3RRRTG 


$71512 


ODE2 


185E 


1003 


(DIAGHOSTIC) 


ADD& 


1197 


T7a5 
VIAT7 


1188 
1159 
11BB 


31¢C1 


TICA 


11D6 
11D7 
11D9 
11DB 


V1E1 


11EF 
11F0 
11F2 
itFa 


T1PA 


121D 
121E 
1220 
1222 


3228 


OFAPETC 


571516 


ST&T SOURCE STATERSA7T 


882 
883 
&Ba 
y85 
486 
487 
888 
389 
890 
891 
892 
us3 
a9a 
895 
996 
&97 
R98 
499 
500 
501 
502 
503 
508 
505 
S06 
507 
508 
509 
510 
511 
512 
513 RTR3C2 
518 

515 
516 
517 
518 
519 
520 
521 
522 
§23 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
520 
5a 
542 
543 
568 
545 
546 
5a7 
568 
589 


RTN3C 


RTN3B2 


RTN3C1 


RTN3D 
RTN3F 


RTN°O? 


RTNS3G 


22H AY7FO 
571513 


B 
be 
B 
pe 
oc 
AVI 


O1R0G7O 
$77534 


eR 


SHIFT 

AL2 (WRT DFC) 
CcvD 
AL2(CYLRO) 
AL2 (ERRO24) 
ERRO2A-2,C* * 
SETERR 
PRTSNS 
PRINT 
XL1*06° 
IL1*90! 
AL2 (ERRO2A) 
HALT 
XL2*a037° 


RTN3K 
TSTDAT 
AL2 (READ) 


WRTIDPC+3,X'PFF!* 
RTN3C2 

PRINT 

XL1‘°c6‘ 

IL1*8 3° 

AL2 (ERRO2B) 
XL2*a033! 

HALT 

XL2*A033' 


WRIDPC+2(1) , EXPSEC 


RIN3D 
PRINT 
XL1°C6* 
IL1*ea° 

AL2 (ERRO2L) 
XL2*a034°* 
HALT 
IL2*a038° 


WORK, XR2 
0{,XR2) ,-X*E7* 
RTN3E 

1(,XR2) ,XR2 
SHSXB2, XR2 
SNSXR2 (2) ,WORK2 
ETN3G 

RTN3F 


PRINT 
XxL1'cé6* 
ILi*67* 

Al.2 (ERBRO2C) 
XL2? 2035? 
HALT 

XL2* 4035" 


READ, XB2 
0{,XR2) ,X*E?° 
RTR3J 

1¢,XR2) ,XR2 
SNSXEB2,XR2 
SHSEZR2 (2) ,REBD4 
RTN3K 

BTE2R 


PART 
PAGE 


no. 5129632 


Sa 


TO SHIFT BITS FOR DECIMAL BUMBER 
ADDRESS OF SOURCE 
TO CONVERT NOSBER TO DECIAAL 
ADDRESS OF SOURCE® 
ADDRESS OF DESTINATION 
SET A BLANK IM PRINT ISAGE 
TO SET ERROR FLAG FOR THIS SECT. 
TO PRINT SEESE INFO. 
TO PRINT THIRD LIBE 
PLAGS 
LENGTH 
BESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO TEST DATA ADDRESS 


TEST SECTOR COUKTER FOR STEPEING 
PROCEED IF OK me 
TO PRIBT SECTOR COUNTER BOT STEPPED 
FLAGS 

LENGTHS 

BESSAGE ADDRESS 

MESSAGE IDERTIFICATIOR“ 

TO DCP HAUT 

HALT ID 


CHECK HEAD & SECTOR RO. 
WRITE IS COMPLETED, 
PRGCEED IPF OK 

TO PRIST ERROR 
PLAGS 

LENGTH 

MESSAGE ADDRESS 
MESSAGE IDERTIFICATIOR 
TO DCP HALT 

HALT ID 


AFTER 
{EXPECT KO CHG.) 


SET XR2 TO POINT TO WORK AREA 
CHECK WORK AREA FOR NO CHAAGE 
JUMP TO PRINT IP WRT. FLD. IS CHG. 
NOT DONE INCRESENT XR2 

NO CRG, SET TO CHECK NEXT BYTE 
CHECK XR2 FOR REACHED UPPER LIMIT 
TO ROUTINE END 

CHECK BEIT BYTE 


TO PRINT CATA FIELD WAS CHANGED 
FLAGS 

LENGTH 

BESSAGE ADDRESS 

MESSAGE IDENTIPFICATIOB 

TO DCP HALT 

HALT ID 


LOAD RZAD FIELD ADDRESS IN XR2 
CRECK EACH BYTE OF 2EBD PIELD 
JUSP TO PRINT IP WOT CORRECT 
STEP READ AREA POIRTER +1 
STORZ POIKRTER YALOE. 

CCHPARE POINTER VALUE & OPPER 
JURP IP FINISHED 
HOT PENZSHED, CHECK 


LISET 


HEXT BYTE 


PROG IB 
PaGe 


OLO7-2 
SB 





IBA MAINTENANCE DIAGNOSTIC PROGRAB 


a072 
ERR LOC 


4aa7 
1248 
124C 
4 124D 
124F 
1251 
1255 


“4257 
125B 


 425F 


1263 
1267 
126C 


1270 
1278 
1275 
1276 
1278 
127C 
V27E 


7282 
128A 
1292 
1298 
1282 
I2AA 
1252 
1236 
I2BE 
12C6 
i2CE 
12D6 


DATE 
Frown 


571599 


R EAD 
OBJECT CODE 


CO 87 O2TA 
cé 

uP 
ODE 
A036 
co 87 
A036 


0222 


cO 87 
co 87 


J6EB 
10F2 


3c 16 
35 01 
ic OO 
co 87 


JADB 
175C 
TODD O08 
TABY 


O21A 


0222 
1257 


ESC8CSXODTDICSES 
CILEEGEZYOCSDSDS 
DSDGEZ4OE6CSD9ICS 
SOD7DEC5SE2ZCSD5SE3 
H¥OCICBEICSDS4 OC 
DO6CIDSCTLOC1INODS 
c5C1ckHo 
CHCTE3CISGCHCICA 
C7TUBYOCSDEDUDSCA 
SBUOEXE2COIDSC7TRO 
C8C&4 BSOFIROE2ZCS 
C3E340ETE7T&O 


TINART7O 


DATA 


{DIAGNOSTIC ) 


ADDR 


1248 
124C 
124E 
1250 


12 56 


1274 
1275 
1277 


127D 


1285 


12DB 


O6XPR76 
571816 


ParkT NGe 


5729632 
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GO PRINT DATA COHMPARZ ERROR 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESAAGE ID 

TO DCP ERROR HALT 

HALT ID 


TO CHECK FOR ERRORS 


TO PUT ID IN SENSE PRINT 


MOVE HEAD NO. TO ERROR ASG. 
TO PRINT STATUS ERRORS 


TO PRINT WRITE ERROR 
FLAGS 

LENGTHS 

BESSAGE ADDRESS 

TO DCP ERROR HALT 
RALT ID 

TO ROUTINE EXIT 


CLOZ*THE PREVICUS ZTRRORS WERE PRESENT AFTZR DOING A READ * 


STHT SOURCE STATEHF NT 

550 RTK3J B PRINT 

5514 pc XL1*C6t 

552 DC ELIN79# 
553 pc &L2(ERRO2PF) 
558 pc XL2"A036° 
555 B HALT 

556 be  X¥L2° 40362 
557 

556 RTN3K B CKHED 

559 B RTN3A 

560 

561 WRTER3 HVI SNSID,X' 16° 
562 LE TBLH,XR1 
563 AVC  ERRO2E(1),4(, XR1) 
564 B PRTSHS 

565 

566 B PRINT 

567 DC XL1"°068 

568 pc IL1'58! 

569 DC AL2 (ERRO2E) 
570 B HALT 

571 pc XL2"'A016° 
572 B RTN3K 

573 

574 DC 

574 

S574 

574 

574 

574 

574 

575 ERRO3A Cc CL3S°DATA DIAG. 
575 

575 

575 

575 

22HAY70 01A0G70 

_ 579593. 


be Anat: 


COMND. 


USING HD. 1 SECT 22° 


PROG ID 


OAO07-2 
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Qo 0 OO 9 © 6 


Qo 98 Oo 9 


© 


0 6 6 @ 6 8 8 8 8 8 
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RO72 


Prep 


ae 


Loc 


12DC 
12DD 
12DE 


-IZEO 
12E4 
12E8 
12EC 
1270 
12F4 
T2FA 
12PE 


1302 
1306 
1307 
1308 
130A 
120E 
1312 
1376 
IZA 
~131B 
137C 
I31E 
4322 


1324 


1328 
132C 
1332 


1338 
133C 


13480 
1344 


4348 
134C 
1348D 
IZ4E 
1350 
1358 
1358 


135¢ 
1360 
1364 


1368 
136C 
1372 


1378 
137C 


1380 
1384 
1385 
1386 
1388 


DATE 
Ec KO. 


Bz 


OBJECT CODE 


08 
00 
157 


a 


ae 


8 


02 
02 
00 
81 
87 
00 
00 
09 


87 


OCFC 


co 
ado 


co 


3c 
oc 
oc 


3c 
3c 


C2 
34 


co 
02 
00 
T8¥F 
ce 
co 
co 


3c 
3c 
3c 


3c 
oc 
oc 


c2 
34 


co 
01 
02 
18F 
co 


87 
9 


87 


3 

87 
87 
87 


35 
01 
00 


00 


FE 
FF 


91 
OF 


87 


3 
8T 


D 


73? 
175¢ 
6B13 
O20D 
0B73 
18F4 
18F5 
1ADB 


192C 


1324 
1312 
TABA 
O24, 


135¢c 
1358 
Or64 


TADB 
18F6 
18F5 
TEC2 
1EC1 
1DC2 
1pCc3 
1470 


192C 


T3AB 


13MAR70 


571512 


AT 


OB1S 


TEC2 
1DC3 


1EC2 
1DCc3 


125C 
12DD 
IDF 


3306 
1307 
7309 


I31A 
721B 
131D 


7323 


134C 
134D 
13 4F 


1388 
1385 
1387 


O6APR7O 


571516 


577 
578 


SCURCE 


* 


579 * 


580 
584 
582 
583 
58a 
585 
586 
587 
588 
589 
590 
$91 
592 
593 
594 
5¢5 
596 
597 
598 
539 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
671 
612 
613 
618 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 


RTRSY 


RTN4A 


RTVUAY 


RTRAB 


RTK"F4 


22maY70 
$71513 


PART WO. 5429632 
PAGE GA 
$$. 2 = :c} 
STATEMENT 
ROUTINE WO. O04, CHECK READ DATA DIAGNOSTIC ® 
USING MSULTIPLE SECTORS * 
HEADS 0 & 2 
pc XLi*O4? ROUTINE NUNBER 
pc XL1*008 ROUTINE FLAGS 
pe AL? (RTN5) ADORESS OP NEXT ROUTINE PREFIX 
LA BDTBL~1,XR2 LOAD HEAD NO. PCINTER 
st TBLH,XR2 STOFE 
CLI SETSH,0 HAVE PARAMETERS BEEW EWTERED? 
BE SETDSK BRAXCH IF KO 
B TSTSPR 
AVC WRIDFC+1(1) ,TRACK# SET WRITE ADDRESS TO CE TRACK 
MYI HRTDFC+2,0 SET FOR HEAD 0, SECTOR 0 
VI SNSID,09 INSERT ID IN PRINT 
B STRTIO TO SEEK CE TRACK 
bec XLi1'0! FUNCTION CODE (CONTROL) 
pe XL1°O? CONTROL CODE (SEEK) 
be AL2 (WETDFC) CONTROL FIELD AwDRESS 
B BIRGA1 GOCD RETURN 
B ey 
B PETSNS TO DECODE ERROR 
B FRINT TO PEINT 
pc XL17'06! FLAGS 
bc ILi'53* LENGTH 
pc AL2 (ERRORY) MESSAGE ADDRESS 
B HALT TO DCP HALT 
DC XL2*a009° HALT ID 
5B TSTSEK TO TEST FOR & GOOD SEEK 
AVI WORK?+571,X° 10? SET 
BYC WORK#510 (255) ,WOBE#511 2 SECTOR 
B¥C BORK+ 255 (256) , WORK +256 WORKARFA 
mvI SRSID,X* 12° pour ID IN PRI#T 
HVI WRTIDFC+3, 07 SET TO WRITE Zz SECTORS 
ZB TORK, XR1 SET WRITE ADDRESS 
st DFDR, XE1 IN DATA CONTROL FIELD 
3 STRTIO TO WRITE DATA, (2 SECTORS) 
pe XL171°02* FUNCTION CODE (WRITE) 
pe X1L1*00° CONTROL CODE. (DATA) 
pc AL2 (WRTDFC) CONTROL FIELD ADDRESS . 
B RTNB1 GOOD RETOER 
B +4 
B WRTER2 ERROR RETURN 
NVI SNSID,X*35° PUT ID IK PRINT 
AVI WRTDFC+3,01 SET TO READ 2 SECTORS 
MVI WETDFC+2,0 SET TO START AT SECTOR O 
NVI WORK+511,0 SET READ IN AREA 
MVC WORK+510 (255) , WORK4+511 TO ALL 
RVC WORK? 255 (256) , WORK#256 ZEROS 
LA KEAD, XB1 SET READ DATA ADDRESS 
Sst DFDR, XR1 IN DATA CONTROL FIELD 
B STRTIO TO READ DATA 
Dc XL1°O1* FONCTION CODE (EAD) 
pe XL1°02° CONTROL CODE (DATA DIAGKOSTIC) 
pe AL2 (GETDFC) CONTROL FIELD ADDRESS 
B RTN&BZ GOOD RETURN 
O1A0G70 PROG ID OA07-2 
571531 PAGE 6A 
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4072 
ERR LOC 
136C 


1390 
13948 
1398 
139D 
13h1 
13A2 
13a3 
13A5 
W3A9 


I3AB 
I3AF 


13B1 
1385 
13B8 
135C 
T3BD 
13BE 
13€0 
13C2 
13C6 


13C38 


13CC 
13CF 
13D3 
13D4 
13D5 
13D7 
13D9 
13DD 


13DF 
1353 
1356 
13E9 
13EC 
13¥F0 
13F6 
13¥F9 


13FD 
1401 
1402 
1403 
1405 
1407 
140B 


140D 
1843 
1417 
14 1F 
1427 
V42F 
1437 
143F 
VaaT7 
T4NB 
1453 
TN5B 
1863 
1463 
1473 


DATE 
EC WO. 


READ DATA 


OBJECT CODE ADDR 


co 87 1390 
87 
01 
00 


87 


co 
35 
ic 
co 
06 
SE 
14074 
co 87 
A035 


1ABa 
175C 
1467 
O21A 


08 


13A1 

13A2 

13AG 
0222 

T3AA 


co 87 
1DC3 


T7B2 
1350 


3D 
F2 
co 
c6 
2B 
S00B 
A033 
cO 87 
A033 


Fr 
81 
87 


18F6 


O2TA 
13BC 
13BD 
13 BF 
13C1 
0222 
13c7 
3D O& 18F5 
10 
O21A 
13D3 
13D4 
13D6 
13D8 
0222 
13DE 


Dc3 


14 
01 
1916 
1916 1003 
13E3 


O21A 
1401 
1402 
18098 
1406 
0222 
140C 


OF 01 175C 18FC 
CO 87 12F0 
EICSCSXODTDICSES 
COIDGELE2Z4OCSDIDI 
DEDIEZSOESCSD9ICS 
&SODTDICSE2C5D5E3 
4OCICHN3ICSD9ISOCH 
DECIDSCTHOCISOD9 
CSC 1C&4a0 
CHUCTE3SCTNOCUCICI 
C78B4OC3IDEDNDSCR 
QBSOESE2ZC9DSCTUO 
C 8C4YUBUOETEBYOE2 
CSCIEIUBAOFONNSO 
tS a 


144A 


1474 


TIRABRTO 
971512 


OGAPRTO 
571516 


STAT 


645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 RTNYC2 
671 * 

672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
700 
700 
700 
700 
700 
700 
701 
701 
704 
701 
701 
701 


RTN4C 


RTNYB2 


RTN4C 


RTN&D 
RINGF 


RTNGE 


RTN&G 


ERROWA 


22HAY70 
571513 





B 


8 


ALC 


bc 


bc 


OTAUG79O 
571531 


(DIAGROSTIC) 


SOURCE STATEMENT 


e4+h 


PRTSNS 

TBLH,XR1 
ERROGA-13 (1) ,4(,XB1) 
PRINT 

XL1°06! 

IL1"94° 

AL2 (ERRO4A) 

HALT 

XL2*A035° 


TSTDAT 
AL2 (READ) 


WRIDPC+3,X'FF* 
RTN4&C2 

PRINT 

xXL1'c6* 
IL1*4&3! 
AL2(ERRO2B) 
XL2'ag33° 

HALT 

XL2'a033! 


WRTDFC+2,04 


RINGD 
PRINT 
XL1'C6! 
IL1'96° 

AL2 (ERRO4 B) 
XL2'A038° 
HALT 
XL2'A038° 


READ, XR2 
0(,XR2),X*10° 
RTNGE 

1(,XB2) ,XR2 
SNSXR2,XR2 
SNSYR2(2) ,READ1 
RTNUG 

RTNGF 


PRINT 
XL1°C6! 
IL1'79! 

AL2 (ERRO2F) 
XL2'A0368 
HALT 
XL2°A036° 


TBLH (2) ,ONE 
RINGA 


CL52' THE PREVIOUS ERRORS WERE PRESENT 


CLU2*DATA DIAG. 


COMND. 


PART NO. 


5129632 
PAGE 7 


TO PRINT SENSE INFO 

LOAD HEAD NO. POINTER 

PUT HEAD NO. IN ERROR SSG. 
TO PRINT 3RD LINE 

PLAGS 

LENGTH 

MESSAGE ADDRESS 

TO DCP HALT 

HALT ID 


TO TEST DATA ADDRESS 
EXPECTED ADDRESS 


TEST SECTOR COUNTER FOR STEPPING 
PROCEED IF OK 

TO PRINT SECTOR COUNTER NOT STEPPED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


CHECK HEAD & SECTOR NO. AFTER 
WRITE IS COMPLETED, (SHOULD STEP) 
JUMP IF STEPPED COBRECTLY 


FLAGS 

LENGTH 

MESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 

HALT ID 


SET XR2 TO POINT TO WORKAREA 
CHECK EACH BYTE OF READ FIELD 
JUMP TO PRT. IF RD. DATA IS NG. 
SET TO CHECK NEXT BYTE 

STORE FOR COMPARE 

CHECK XR2 FOR UPPER LIBIT 

TO ROUTINE END IF DORE 

CHECK NEXT BYTE 


TO PRINT READ FIELD IS INCORRECT 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


STEP HEAD NO. 
ROUTINE EXIT 


POINTER 


AFTER DOING A READ * 
USING HD. X, SECT. 0 & 1° 
PROG ID OADT-2 
PAGE 7 
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ei 
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IBM SAINTENANCE DIAGROSTIC PROGRASB 


a072 
ERR LOC 


1875 
147D 
1485 
18BD 
1495 
149D 
14a5 
19,9 
14B1 
14B9 
18C1 
14C9 
14D1 
14p5 
14DD 
THES 
19ED 
14F5 
1GPD 
1505 
1509 
1511 
1519 
1521 
1529 
1531 
1539 
1581 


1549. 


1551 
1559 
1561 
1569 
1571 


DaTze 
EC WO. 


BEAD DATA 


OBJECT CODE 


CB&CSC ICSUO5SONOE2 
C5CIZ3IDED9LOC2E8B 
E3C5S4 OD6CE6R0C3D6 
DSE3D9DED3480CEC9 
C5SD3C44ODSD6E3480 
E2E3CSD7D7C5SC44O 
C3D6D9D9 
C5SCIEIDSEBYOC ICS 
EICSD9IVOCINOF2R0 
E2CSC3E3D6D9N0D9 
CSCIC 4K4OC4UCIE3C1 
SOCSCSCICTDSDEE2 
E3C9C340 
E3C8CSSODTDSCS5SES 
CIDEEYEZKROCSDIDI 
DEDIE2Z4OE6CS5DICS 
GODTDICSE2CSD5E3 
YOCICE6E3CSD940C4 
D6ECIDSCT4&OC 140D9 
c5c1c4ugo: 
CUCTE3CINOCKCICI 
C7&BUODECE4OF2FR 
ROE2ZCSC&E3DEDIE2 
CSECSCICNLOSOSOE2 
CSC3E3DEDS4LOC2EB 
EICS4ODECE40C3E3 
D3I&BYOCED3ICSRBYO 
DSD6E34O0E2ZE3C5D7 
D7C5C4&&OC3IDEDIDI 
C5C3E3D3E 84 0C1C6 
E3CSD9ROCI4OF2F4 
4OE2ZC5C3E3D6D940 
DYCSCICKAOCKCI1E3 
C14H0C4&C9C1C74HO 


138aR70 
571572 


O6APR7 
571516 





a 


PART KO. 


5729632 
PAGE : 


7A 


(dDTaGROSTI.IC) 


ADDB 


18A8 


14D4 


15 08 


1520 


1550 


1577 


0 


STHT SOURCE 


702 
702 
702 
702 
702 
702 
702 
703 
703 
703 
703 
703 
703 
704 
704 
704 
70a 
708 
708 
7048 
705 
705 
705 
706 
706 
706 
706 
706 
706 
707 
707 
707 
707 
707 


ERROSB 


ERROSA 


22K AY70 
5715743 


ERROSB 


STATES 


DC 


pc 


oc 


bc 


pc 


pc 


O7FAUG70 
571531 


ENT 


CL52*HEAD & SECTOR BYTE OF CONTROL FIELD NOT STEPPED CORR’ 


CLAN" ECTLY AFTER A 2 SECTOR READ DATA DIAGNOSTIC® 


CL52'*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A READ ° 


CL28'DATA DIAG. OF 2& SEDTORS® 


CL48'HEAD & SECTOR BYTE OF CTL. FLD. BOT STEPPED CORR® 


CL39'ECTLY AFTER A 24 SECTOR READ DATA DIAG* 


PROG 
PAGE 


TD OAOT<2 


7h 








IBM MAINTENANCE DIAGNOSTIC PROGRAH 


A072 


ERR LOC 


1578 
1579 
IS7A 


157c 
1580 
1584 
1588 
158C 


1590 
1596 
159A 
159E 
15a2 
1543 
TSA4u 
T5A6 
TSAA 
ISAE 
15B2 
1536 
ISBT 
1558 
TSBA 
15BE 


15c0 


15c4 
15c8 


ISCE : 


15p2 
15D6 


1SDA 
‘ISDE 
1SDF 
15E0 
15E2 
I5E6 
1SEa 


ISEE 
ISFS 
I5F8 
1SF38 


15FP 
1603 
1609 


160D 
1611 
1612 
1613 
1615 
1619 
16 1D 


(1621 


DATE 
EC NO. 


READ 


OBJECT CODE 


co 
00 


87 


18F3 


co 
co 
co 


3c 


87 
87 
87 


3A 


1760 
175¢C 
0B13 
OAOD 
0B73 


18F4 
18F5 


TADB 
192C 


15€0 
ISAE 
TABS 
O21 


0222 


TVET 


IDC2 
1DC 1 


18F6 


1cC3 
1A70 


192C 


15E£ 
1SEA 
OF 64 


18F5 
1BF5 


15CE 
1pe2 
1DC4 
18F6 


192C 


1621 
167D 
125F 


TADB 


T3INARTO 


571512 


DATA 


0B14 


1DC2 


185¢ 


1DC2 


(DIAGNOSTIC ) 


ADDR 


1578 
1579 
1578 


1SA2 
15A3 
15a5 


1586 
15B7 
1589 


15 BF 


15DE 
1SDF 
15E1 


OGAPR7O 
571516 
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STST SOURCE STATEMENT 

709 * ROUTZNE NO. OS, CHECK READ DATA DIAGNOSTIC FUNCTION * 
710 * WHEN READING TO END OF CYLINDER * 
711 * * 
712 * * 
713 

714 RTNS DC XL1°05# ROUTINE NUMBER 

715 DC XL7°00# ROUTINE FLAGS 

716 DC XL2°PFFF? LAST ROUTINE FLAG 

717 

718 LA HDTBL,XBR2 

719 ST TBLH, XR2 

720 SLI SETSH,0 HAVE PARAMETERS BEEN ENTERED? 

721 BE SETDSK BRANCH IF NO 

722 RLNSA B TSTSPN 

723 

724 BYC WRIDFC+1(1),TRACK# SET CYLINDER ADDRESS TO CE TRACK 
725 MVI WRTDFC+2,¥'80! SET POR HEAD 1, SECTOR O 

726 NVI SNSID,09 INSERT ID IN PRINT 

727 a: STRTIO TO SEEK CE TRACK 

728 ‘ pe  XxL1*o? FUNCTION CODE (CONTROL) 

729 DC XL1"'O8 CONTROL CODE (SEEK) 

730 DC AL2(WRTDFC) CONTROL PIELD ADDRESS 

731 B RTNSA1 GOOD RETURN 

732 B *+h 

733 B PRTSNS TO DECODE ERROR 

734 B PRINT TO PRINT 

735 pc XL1*06! FLAGS 

736 DC IL1*53' LENGTH 

737 pc AL2 (ERRORS) MESSAGE ADDRESS 

738 B HALT TO DCP HALT 

739 pc XYL2*a0098 HALT ID 

740 

741 RTNSAT B TSTSEK TO CHECK FOR A GOOD SEEK 

742 

743 RTNSB MMVI WORK+255,0 SET 

744 HVC WORK+254(255) ,WORK+255 FIELD 

745 

746 RTN5SB1 NYI WRTDFC+3,0 SET TO WRITE ORE SECTOR 

747 

748 LA WORK, XR1 SET WRITE DATA ADDRESS 

13 ST DFDR, XR1 IN DATA CONTROL PIELD 

751 B STRTIO TO 1/0 SUBROUTINE 

752 DC XL1*02! FUNCTION CODE (WRITE) 

753 pe XL1'00! CONTROL CODE (DATA) 

754 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 

755 B RTNSB2 GOOD RETURN 

756 B + 

757 B WRTERZ ERROR RETURN 

758 

759 RTNSB2 ALC WRTDFC+2(1),ONESEC STEP SECTOR NUMBER BY 1 

760 CLI WRTDPC+2,x'DC! TEST FOR LAST SECTOR ADDRESS 

761 JE RTNSB3 JUMP WHEN LAST ADDRESS REACHED 
es B RIN5SB1 TO WRITE NEXT SECTOR 

768 RTNSB3 NVI WORK+255,='°FF? SET 

765 BYC WORK4+254 (255) ,WORK+255 SECOND DATA FIELD 

aes NVI HETDFC+3,0 SET TO WRITE ONE SECTOR 

768 B STRTIO TO WRITE DATA 

769 DC XL1°O2! PUNCTION CODE (WRITE) 

770 b Ye XL1°00° CONTROL CODE (DATA) 

771 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 

772 B RTN5BS GOOD RETURN 

773 B 3G 

a B WRTER3 RETURN FOR WRITE ERROR 

776 RTNSBY BVI SNSID,X*3A° PUT ID IN PRINT 
22MAY70 0 7A0G70 PROG ID OR07-2 
571513 571531 PAGE : 8 


© 


oO 0 90 Oo © 


ee) 


S) 


0 8 @ © @ © 6 6 6 89 8 808 89 8 8G G&G GO 90 9 
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IBM MAINTENANCE DIAGHOSTIC PROGRAS 


A072 
ERR LOC 


1625 
1629 


16 2D 
1631 


1635 
1639 


163F 
1643 
1684 
1645 
1647 
16488 


164F 
1653 
1657 
1658 
1659 
7655 
165? 


1661 
1665 


1667 
1668 
166E 
1672 
1673 
1674 
1676 
1678 
167C 


167E 
1682 
1685 


1689 
168A 
168B 
168D 
168F 
1693 


1695 
1699 
169C 
16SP 
16A2 
1ER6 
16ac 
16AF 


16B3 
16B7 
t6B8 
16BS 
I6BB 
I6BD 
46C1 


16C3 
16C9 


DATE 
EC HO. 


REA D 


CBIJECT CODE 


3c 
3c 


c2 
3a 


3c 
oc 


co 
01 
02 


17 
80 


01 
01 


55 
FE 


87 


18F3 


co 
co 


co 
co 
06 
ac 


87 
87 


87 
87 


1520 


co 


87 


AO3A 


co 


87 


1DC3 


3D 


F2 


co 
C6 
2B 


FF 
81 
87 


1008 
A033 


co 


87 


A033 


3D 
F2 
co 


Ccé 
57 


pe 
84 
87 


1577 
B039 


co 


87 


A039 


c2 
BD 
F2 
E2 
34 
0D 
F2 
co 


co 
cé 
uy 


02 


01 
02 
02 
01 
81 
87 


87 


ODE 
A036 


co 


37 


A036 


OF 
co 


01 
87 


18F6 
18F5 


1DC3 
1470 


1EC2 
TEC 1 


192C 


1661 
164F 


TABS 
O21A 


0222 


17B2 


18F6 
30 
O21A 


0222 


18F5 
O21A 


0222 


1DC3 
00 
14 
01 
1916 
1916 


1699 


O21A 


0222 


175¢ 
158C 


138AR70 


$71512 


DATA 


1EC2 


1003 


18FC 


{ DIAGNOSTIC) 


1643 
1634 
16 46 


1657 
1658 
1658 


1660 


1666 


1672 
1673 
1675 
1677 


16 7D 


1689 
168A 
168C 
16 8£ 


1698 


16 B7 
1658 
16BA 
16 BC 


16C2 


O6APR70 
571516 


ADDR STHT 


777 

778 
779 
780 
781 

782 
783 
788 
785 
786 
787 
788 
789 
790 
791 
792 
793 
798 
795 
796 
797 
798 
799 
800 
801 
802 
803 
B04 
805 
806 
807 
808 
809 
8170 
811 
812 
813 
818 
815 
816 
817 
818 
819 
820 
821 
822 
823 
828 
825 
826 
827 
828 
8295 
830 
831 
832 
833 
8348 
835 
836 
837 
838 
839 
840 
841 
842 
8&3 


SOURCE STATEMENT 


RINSBS 


RTR5Ci 


BTN5C2 


RTNSD 
RTNSF 


ETNSE 


RTI5G 


228AY70 
$71513 


aVI WRIDPC+3,23 
MVI WRIDFC+2,X*80* 
LA READ, XR1 

st DFDR, x81 

BVI READ¢255,x°55S* 
vc RZAD+ 258 (255) ,READ*255 
B STRTIO 

pe XLi1°O7* 

pc XL171'02° 

Doe AL2(WETDFPC) 

B RINSBS 

B #4 

B PRITSES 

B PRIET 

pe XL1'O6! 

pe IL1*76? 

pe AL2(ERROSA) 

B HALT 

oe XL2* aAO3A? 

B TSTDAT 

pc AL2(READ} 

CLi WRTDPC+3,XK*FF* 
JE RT NSC2 

B PRIRT 

be ZLi'cé6* 

pe IL171*a@3! 

Doc AL2 (ERRO2B) 
pc XIL2*a033° 

B HALT 

pc XL2*A033° 

CLI WERTDFC+2,X*DC* 
JE EBTNSD 

B PRINT 

pce YL1°c6* 

pc IL1°87* 

de AL2(ERROSB) 

dc XL2*a0398 

B HALT 

Doc XL2° A039" 

LA EEAD, xR2 

CLI O(,XR2) ,X*Fr 
JHE HTNSE 

LA 1(,XB2) ,XR2 
st SNSXR2, IR2 
Cie SNSXR2(2) ,READY 
JE RTNSG 

B RINSF 

8 PRINT 

pc XL7°C6! 

pe ILi*79?* 

boc AL2 (ERRO2F) 
pc XL2*a036° 

B HALT 

pe XIL2*a036°* 

ALC TBLH (2) ,CNE 

B RTRSA 
01280670 

$71531 


PART WO. §129632 
PAGE BA 
SET TO READ 28 SECTORS 


SET TO START AT HEAD 1, SECTOR O 


SET READ DATA ADDRESS 
Iu DATA CORTROL FIELD 


SET HEAD ABEA 


TO READ 2&8 SECTORS 

PUNCTION CODE (READ) 

CONTROL CODE (DATA DIAGWOSTIC) 
CONTROL FIELD ADDRESS 

GOOD RETURE 


TO PRINT SENSE INFO. 
<O PRINT 3RD LINE 
PLAGS 

LENGTH 

MESSAGE ADDRESS 

TO DCP HALT 


HALT ID 
TO TEST DATA ADDRESS 
EXPECTED ADDRESS 


TEST SECTOR COUNTER FCR STEPPING 
PROCEED IF OK 

TO PRINT SECTOR COUSTER HUT STEPPED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATIONS 

TO DCP HALT 

HALT ID 


TEST EXDING HEAD & SECTOR ADDRESS 
PROCEED IP OK 

TO PRINT HEAD & SECTOR 
NOT STEPPED CORRECTLY 
FLAGS 

LENGTH 

HESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 

HALT ID 


ADDEESS 


SET XR2 TO POINT TO READ AREA 
CHECK READ FIELD FOR CORRECT DATA 
JUBP TO PRINT TF READ FLD. IS NG. 
HOT DORE, INCREMENT XR2 

SET TO CHECK FEXT BYTE 

CHECK XE2 FOR UPPER LIMIT 

IF DONE, GO TO ROOTINE ERD 

NOT DONE, CHECK WEXT BYTE 


TO PRINT DATA FIELD WAS CHANGED 
FLAGS 

LENRGTE 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION“ 

TO DCP HALT 

HALT ID 


PROG ID OA07-2 
PAGE BA 


COHOCCHOCHOOSCSOOCOOKTVOEHROSCOHOCHOSCECECEEES eS 


IBA AAINTENANCE DIAGNOSTIC PROGRAA 


AG72 


EsR Loc 


t6CD 
16D1 
16D7 
T6DB 
16 DE 
16E2 
16ET7 


16 EB 
16EF 


46 F3 © 


16F7 
16PA 
46 FD 
1700 
W708 
V7 OA 
T7O0E 
1711 
717 
17 1B 
T71E 
1724 
1729 
172D 
T72E 
V22F 
1731 
4733 
1737 
41739 


73D 
1743 
4787 
77458 
74Cc 
74D 
W74F 
1751 
1755 
1757 


1758 


1755 
VISE 
4760 
1761 
1762 
1763 
17648 
1765 
1766 
1767 
1768 
1770 
1778 
1780 
1782 
78a 
1792 
TT9A 
W7A2 


BATE 
Ec WO. 


BEAD DATA 


OBJECT CODE 


34 08 
00 
C2 02 
BC FF 
35 01 
1c 00 


co 87 


16EA 
16DD 
775D 
60 

V75C 
OFDS 
0000 


1c49 


Ou 


173C 
175¢ 
75D 
BD 00 00 
3c 
E2 02 01 
1916 
1916 
16F7 


175F 


1792 
TA6C 
06 
17SE 17A8 
1798 O& 
O21A 


I7AD 


0222 
0000 
1763 


0216 
O21A 


1781 


1A 
1781 
A087 
co 87 
A087 
cO 87 


0222 
0216 
0000 


00 

175D 

00 

00 

00 

00 

PO 

F2 

Fi 

F3 
E2D6D3C9C4u0CSDY 
DSDEDISOESBCIE3ICS 
&0C1D3D340C8C5C1 
CHE2 
E2D6D3C9CUROCSDS 
DSDEDIYOE6GCSE3CB 
KOC BCSCICUYOETYO 
EVE7TETETETUOCACS 
E2D2 


WIHARTO 
571512 


OSARPRT 
571516 


( DIAGHO 


ADDR STAT SOURCE 


172D 
17 2E 
1730 
1732 


1738 


17 4B 
174C 
17 4E 
1750 


1756 


175¢ 
175) 
175D 
175F 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1781 


17 a3 


8 


eas 
846 
Bul 
848 
B4&9 
850 
851 
852 
853 
8548 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
896 
899 
900 
901 
902 
903 
904 
908 
908 
goa 
905 
905 
905 
$05 
305 


s 


SETERR 


SETERA 


SETERX 


* 


CKHED 


CKHAEDA 


HDEXT 


CKHDER 


TBLH 
SECTBL 


TBLEND 
EDTBL 


ALLHED 


ORERED 


2284770 
5715473 


sT1Ic) 


STATEMENT 


ST 
AVC 


avi 


BYC 


bc 


O1A0G70 
571531 


SET AN ERROR FLAG FOR EACH SECTOR ERROR 


SETERX+3, ARR 
SETERA+2(1) ,CYLNO 
SECTBL,XB2 
*-*(,XR2) ,X'FF# 
TBLH,XR1 
ERRO2A~11,4(1,XR1) 
*-¢ 


PART NO. 5129632 
PAGE 9 
SAVE EXIT ADDRESS 
SET CURRENT CYL. NO IN MOVE 


LOAD XR2 AS POINTER 

SET A FLAG FOR THIS SECTOR 
LOAD HEAD NO. POINTER IN XB1 
INSERT HEAD NO. IN MESSAGE 
EXIT 


CHECK FOR ZBRRORS ON ALL SECTORS 


HDEXT+3, ARR 
TBLH,XR1 
SECTBL,XR2 
0(,XR2),0 — 

HDEXT 

1(,XR2),XR2 
SNSXR2,XR2 - 
SNSXR2(2) , TBLEND 
CKHEDA 

0(,XR1) ,X°FF* 
ONEHED-5 (5) , RMVDSK 
DISKTP,0O 

#49 
ONEHED-5(5) , FIXDSK 
ONEBED-11 (1) ,4(,XB1) 
PRINT 

XL1'C6t 

IL1*3a¢ 

AL2 (ONEHED) 

XL2* A086! 

HALT 


XL2*a086° 
-* 


HDTBL+3 (4) , FOURFF 
LINK 

PRINT 

XL1°C6" 

IL1*26* 

AL2 (ALLHED) 
XL2*A0878 

HALT 

XL2*a0878 

LINK 


XL2"08 
s 
XL1'0¢ 
AL2 (*-1) 
XL1"0¢ 
XL1"08 
XL1"0" 
XL1*08 
CLio8 
CLi*2* 
CLitit 
CL1*3* 


CL26*SOLID ERROR WITH 


SAV2 EXIT ADDRESS 

LOAD XR1 AS ERROR FLAG POINTER 
LOAD XR2 AS SECTOR FLAG POINTER 
CHECK EACH SECTOR FLAG 

JUMP WHEN FIRST ONE IS FOUND OFF 
STEP POINTER 

STORE 

CHECK FOR LAST ENTR 

BRANCH IF NOT DONE 

SET FLAG TO INDICATE DEFECTIVE HEAD 
SET MESSAGE FOR REMOVABLE 

TEST FOR RUN ON REMOVABLE 

JUNP IF YES 

SET MESSAGE FOR FIXED 

SET HEAD NUMBER IN MESSAGE 

TO PRINT HEAD ERROR 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 


HALT ID 
EXIT 


CHECK FOR ALL HEADS FAILING 
BRANCH IF NOT 


TO PRINT ALL HEADS FAILING 
FLAGS 

LENGTH 

BESSAGE ADDRESS 

MESSAGE ID 

HALT ID 


SECTOR ERROR RECORDING TABLE 


FOR 
FOR 
FOR 
FOR 


FEAD 0, 
HEAD 2, 
HEAD 1, 
HEAD 3, 


REMOVABLE DISK 
FIXED DISK 
REMOVABLE DISK 
FIXED DISK 


ALL HEADS® 


CL34*SOLID ERROR WITH HEAD X XXZXE DISK?® 


PROG ID 


OROT-2 
PASE 9 


o ® 0 0 0 0 606 06060 0 0 0 0 0060 0 00 0 060 0 0 60 0 0 06 


Bean emdrenne ates ann 
(4 


oOo oO 


Oo &@ 9 O09 8 oO ° Oo 9 0 0 0 0 0 0 0 0 0 09 9 86 G@ 8@ 0 


{2 


Q 
@ 


IBM MAINTENAKCE DIAGNOSTIC PROGRAS 


A072 
ERR LOC 


W7Au 
17a9 
J7AE 


17B2 
1786 
17BA 
17BF 
17cS 
17¢c9 


V7CA 
17D0 


17D3 
17D7 
17D8 
17D9 
17DB 
17DD 
17E1 
17E3 


VTE7 
17EB 
17EF 


17F0 
17F48 
17F8 
VIFC 


17°F 
1803 
1804 
1895 
1807 
180B 
180F 
1815 


1818 
181C 


18 1F 
1823 
1825 
1827 
182B 
182C 
182D 
18 2F 


1831 
1835 
1836 
1837 


DATE 
Ec 80. 


READ D 
OBJECT CONE 


C6C9E7TCSC4 
DICSDYESUB 
PYFFFFFF 


34 08 
35 02 
2c 01 
OE 01 
co 87 
Aa 


17E6 
17E6 
1858 
17E6 
18FD 


Op 01 1914 
F2 81 10 


co 87 
c6 

2B 

1889 
AO1F 
co 87 
AOI1P 
co 87 


O21A 


0222 
0000 


34 08 
CO 87 
02 


181B 
18FD 


38 10 
co 10 
38 01 
F2 10 


1918 
17EB 
1913 
20 


co 87 
07 

01 
181C 
CO 87 
co 87 
OD 00 
F2 01 


192C 


1808 
180F 
181D 
07 


co 87 
000000 


0000 


coO 87 1C55 
181D 

T8CA 

co 87 O21A 
ci 

2A 

1853 

AO3C 


CO 87 O21; 
014 

17 

18CA 


TSBARTG 
5771512 


ATA 
ADDR 
17A8 


17AD 
1751 


01 
185A 


17¢9 
1858 


17D7 
17D8 
17DA 
17DC 


17E2 


17EF 


1803 
1808 
1806 


OB14 


18 1E 


1828 
1826 


1828 
182C 
182E 
1830 


1835 
1836 
16 38 


OGAPR?O 
371516 


STST 


906 
907 
908 
909 
910 
971 
912 
913 
9148 
915 
916 
917 
918 
919 
920 
921 
922 
923 
928 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
959 
951 
$52 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
968 
965 
966 
967 
$68 
969 
970 
971 
372 
973 


(DIAGHNO 


SOURCE 
FIXDSK 


RNVDSK 
POURFF 


* 
* 


TSTDAT 


DATID1 


DATEXT 


= 


TSTSEK 
SKTSTA 


SEKEXT 
IDFLD 


Cd 
2 


SEEKER 


SEEKID 


22BBY70 
371513 


ra 


PART HO. $129632 
PAGE 9A 

STICc) 

STATEMENT 

pe CLS*FIXED?* 

Dc CLS* RESV.* 

DC XLQ' PPFFPFFF* 

SUBROUTINE TO DETERSINE IF DATA ADDRESS * 


ST 


ave 
ALC 


De 


cLc 
JE 


ST 
pc 
TBN 


TBN 
JT 


pc 


oc 
DC 
te 


S1iadG7E 
574531 


HAS NOT BEEN STEPPED 


DATEXT+3, ARR 
DATEXT#3,XR2 
WORK1(2) .1(,XB2) 
DATEXT+3 (2) ,TWO 
SENSE 

AL1 (DATA) 


STATUS (2) ,WORK1 
DATEXT 


PRINT 
XL1°C6? 
IL1*43¢ 

AL2 (DATPR1) 
XL2*AO1F® 
HALT 


XL2*AO1F* 
*-% 


COKE HERE TO TEST FOR 
SEKEXT+3,ABR 

SENSE 

AL1(STATO1) 


STATUS, xX* 10° 


SAVE RETORH ADDRESS 

LOAD XR2 WITH PARAMETER POINTER 
MOVE EXPECTED ADDRESS FOR COMPARE 
INCREASE EXIT ADDRESS 

TO STORE DATA ADDRESS 


CHECK DATA ADDRESS 

JUBP IF ADDRESS 

IS AT ORIGINAL VALUE 
TO PRINT DATA AVLDRESS NOT CORRECT 
FLAGS 

LENGTH 

ADDRESS OF SESSAGE 
BESSAGE IDENTIPICATION 
TO DCP HALT 

HALT ID 

EXIT 


A GOOD SEEK _ 


SAVE RETURR ADDRESS 
TO SENSE DEVICE STATOS 
BYTES 0 6 1. 


TEST THE SEEK BUSY SEKSE BIT 


SKTSTA IF ON DO AKOTHER SESSE 
STATUS-1,X°01! TEST POR SEEK CHECK 

SEEKER IF OB, GO TO SEEK ERBOR PRINT 
STRTIO TO READ ID 

XL1°078 

XL1°01° 

AL2 (IDFLD-2) 

+4 

ey 

IDFLD-1(1) ,TRACK® 

SEEKER * 

+-+ ExIT 

XL3"0* 

COBE HERE IF AN ERROR OCCURED * 
WHILE SEEKING THE CE TRACK * 
CVD 

AL2(IDPLD-1) 

AL2(ARIVED) 

PRINT T2 PRINT ERROR OW SEEK 
IL1°c1? PLAGS 

IL1*42¢ LENGTH 

AL2 (SEKER1) ADDRESS OP BESSAGE 

XL2"a03C® MESSAGE IDENTIFICATION 

PRINT TO PRI¥T SECOND LIBE 

XLi*O1® 

IL1*23° 


BL2 (RRIVED) 


PROG ID Oa0T-2 
PAGE oA 


K2 


ex 


3 


em 


IBA MAINTENANCE DIAGNOSTIC PROGRAM 


A072 


ERR LOC 


1839 
183D 
1832 
163F 


7844 
1845 
1849 
188d 
1851 
1853 


1857 
1859 
185B 
185D 


185F 
1867 
186F 
1877 
187F 
1887 
188A 
1892 
189A 
18A2 
ISAA 
18B2 
18B4 
18BC 
18C4 
18CB 
18D3 
18DB 
1853 
18EB 


DATE 
EC wo. 


READ 


OBJECT CODE 


cO 87 O21A 
06 

28 

18F2 


3c 00 
3c 00 
3c 09 
co 87 
A03C 

co 87 


OB1B 
0B13 
1A67 
0222 


0000 


oc00 
0002 
0004 
ipc2 


CHCTESCTNOCICHCY 
DICSE2ZE240F6C1E2 
GQE2ZE3CSD7D7ICS5C4 
KOE3D6ER0C9D5C3ID6 
DSDSCSC3E340ESC1 
D3E&C5 
CODIDSDEDSLODEC3 
C3ESDODSC5SCRHO EG 
CBCSD3CS4O0E2C5C5 
D2CS8D5C74 OE3C8C5 
HOC3ICS4OE3D9CIC3 
D26B 
CIBSIDICSESCTSCH4O 
CIEZJ4OC3E8D34B40 
DSDE4BLOETETE7 
DSESDSHOE2ZCSCSD2 
YOEICSEZE340E2C5 
CIEICIDEDS4OC1FO 
FISOCEDEDILODADS 
DSC54 OC9IDS5SCED54B 


TJSAR70 


$71512 571516 


DAT A&A 


(DIAGNOSTIC) 


ADDR 


183D 
183E 
1840 


1852 


1858 
185A 
185¢C 
185E 


1889 


1833 


18CA 


18F2 


O6APR70 


PRINT 
XL17°068 
IL1°408 
AL2(SEKER2) 


PASS,O 
SETS¥,0 
FRSTPS,0 
HALT 
XL2*A03C! 
0 


AL2 (*~*) 
XL2°02¢ 
XL2°'04' 


AL2 (WORK+255) 


CL43° DATA ADDRESS WAS STEPPED TO INCORRECT VALUDE* 


PART NO. 
PAGE 


TO PRINT SECOND LINE 
FLAGS 

LENGTH 

ADDRESS OF MESSAGE 


SET TO CAUSE A RECALI BRATE 
TO DCP ERROR HALT 
HALT ID 


CL42'* ERROR OCCURRED WHILE SEEKING THE CE TRACK,* 


CL23*° ARRIVED AT CYL. 


Wo. 


XEr* 


CL4O'RUN SEEK TEST SECTION AO3 FOR MORE INFO. * 


STMT SOURCE STATESENT 
974% 
975 B 
976 Dc 
977 pc 
978 be 
979 
980 AVI 
981 NVI 
982 AVI 
983 B 
984 pc 
985 B 
98E 
987 WORK? DC 
$88 TKO bc 
989 ONESEC DC 
990 WORK2 DC 
991 
392 DATPR1 DC 
992 
$92 
392 
992 
992 
993 SEKER1 DC 
993 
993 
993 
993 
993 
994 ARIVED DC 
994 
994 
995 SEKER2 DC 
995 
995 
995 
995 
22BAY70 01A0G70 
571513 571531 


PROG ID 
PAGE 


5129632 
10 


OA07-2 
10 


mo, 
tl 


O 


© 


o 80 ¢ 8 C€© 8G 868 989 6G G&G 8 868 6 806 0 60 49 90 © 


coment Cramer 
CG 


Oo oO 


Oo 9 Oo OG O 


o 8 8 8© @ ¢€ @ 8 6G 8 8 8 8D 9 


*) 


9 


IBM HAINTENANCE DIAGNOSTIC PROGRAS 


A072 
ERR LOC 


18F3 
18F4 
18F5 
18F6 


18F7 
18F8 
18F9 
18PA 
18FB 


18FD 
1901 
1905 
190A 
190£ 


1911 
1913 
1915 


1917 
1918 
1919 
1918 
191D 
1921 
1925 
1927 
1929 
192B 


DATE 
EC BO. 


READ 


OBJECT 


00 
00 
00 
00 


00 
00 
00 
60 


0001 


34 
35 
18 
30 
DO 


08 
01 
03 
00 
87 


0000 
0000 
0000 


00 
00 


0000 
00co 
00000000 
00000000 
0000 
0000 
0000 


00 


CODE 


1916 
1916 
1908 
1914 
01 


138AR70 


571512 


DATA 


00 


O6APR7 
571516 


( 
ADDR 


TEP3 
18FG 
18F5 
18 F6 


18F7 
1878 
18F9 
18FPA 
18 FC 


19142 
1914 
19 16 


1917 
19 17 
1918 
194A 
191C 
1920 
19 24 
19 26 
7928 
19 2k 
1928 


0 


DIAGHEOSTIC) 


PART WO. 5129632 
PAGE TOA 
FLAG 
CYLINDER 
TRACK & SECTOR 
RO. OP SECTORS OR RO. OF TRACKS 
PFLAG 
CYLINDER 
TRACK & SECTOR 
WO. OF SECTORS OR RO. OF TRACKS 


RHKSEESEKKKEKESSEKSESHEKSSTSKS SKSRSSESESSSESESHAKESSHSCSTHSSSSCSSSSSSISCHUSSCIDSESCSHEHTSOS 


STHT SOURCE STATEMENT 

997 WRIDFC Dc XL1*° 00° 
3998 pc XL1*O0? 
$39 DC XL1700! 
1000 DC X1.1700° 
1001 

1002 RDDFC pC XL1*00! 
1003 pc XL7#00' 
1008 DC XL1*°00# 
1005 pc XL7°O08 
1006 ONE pe XL2'01° 
1007 

1608 

1009 * SENSE I/0 ROUTINE 
1010 SENSE ST SNSXR2, ARR 
1011 L SNSXR2,XR1 
1012 MNN  SNS¢1,0(,XR1) 
1013 SHS SNS  STATUS,O 
1074 B 1(,XB1) 
1015 

1916 SETXR2 DC XL2°0? 
1017 STATUS DC XL2°0* 
1018 SNSXR2 DC XL2"0* 
1019 

1020 * ERROR RECORDING TABLE 
1021 ETABLE EQU) # 

1022 QCODE vc XL1°O! 
1023 CCODE DC XL1°O# 
1024 SKSO1 pC XL2°08 
1025 SNS23 DC XL2°08 
1026 DCFI onc XL4*08 
1027 DCFF npc XL4"O' 
1028 DFCRI DC XL2°0? 
1029 DFDRI pC XL2¢*0# 
1030 DFDRF pc XL2°0? 
1031 ROUTKO DC XL1°O! 
22NaY70 O1A0G70 

571513 571531 


SAVE ADDRESS RECALL REGISTER 
LOAD X81 WITH VALUE FROM ARB. 
MOVE IN FONCTION CODE 
PERFORM SENSE 

EXIT 


"QO" CODE 

CONTROL CODE 

STATUS BYTES 0 & 1 

STATUS BYTES 2 & 3 

DISK CONTROL FIELD, (IKITIAL) 
DISK CORTROL PIELD, (PIWAL) 
CONTROL REGISTER ADDRESS 

DATA REGISTER ADDRESS, (INITILL) 
DATA REGISTER ADDRESS, (PINAL) 
CURRENT ROUTINE BO. 


PROG ID 


OA07-2 
PAGZ 


10a 


a 


“ 
2 





IBA HAINTENANCE DIAGNOSTIC PROGRAS 


a072 


EER LOC 


192C 
3930 
1934 
1938 
193D 
1942 
1947 
194B 
194E 
1952 
1956 
1959 
135D 
1961 
1964 
1968 
196C 
1970 
1976 
197C 
1982 
1988 
198C 
1991 
1995 
1998 
199C 
1940 
i9A1 
T9A7 
19AB 
19B0 
19B4 
1985 
19BB 
ISBF 
19C0 
19C6 
cc 
19D0 
19D4 
19D9 
19DC 
19E0 
1SE3 
ISE6 


19E9 
19ED 
T9FO0 
19F3 
19F7 
V9FC 
ya00 
1A05 
1A09 
IAOD 
1A10 
VAG 
VA? 
TATA 
WATE 
JA22 


DATE 


EC 


NO. 


READ 


OBJECT CODE 


34 
BD 
F2 
3c 
2c 
35 
2c 
3c 
3D 
F2 
3c 
BB 
BC 
3c 
31 
F3 


IIRARTO 
577512 


08 
01 
01 
00 
01 
02 
00 
FF 
00 
01 
01 
01 
FF 
00 
A6 
AO 


DATA 


1912 
1912 
JAGA 
19 96 
1997 
1A6E 
VA6C 


00 
01 
03 


1996 


1A23 


1996 
1A23 


19E9 
1AGE 
1A70 
1917 
1918 
1926 
1928 
TAGE 
1920 
19C8 


1996 
1997 
JAGE 
1A70 


03 


1A77 
18FD 

19A0 
192A 
1A6E 
1924 
18FD 


1918 
03 
19 Ba 


ISTA 
18FD 


1914 


19 BF 
iitc 
192B 
TAGOA 
19E0 
03 1A69 


1914 
0A03 


1912 
oc 
08 
04% 


7A65 
01 
o4 
1A67 
¥A72 
1A72 
1A69 
1A6A 
1867 
15 
1467 
02 
03 
1A68 
TAGE 
00 


03 
03 


O6APR7O0 
571516 


1033 *# 

10348 

1035 STRTIO ST 
1036 L 
1037 RVI 
1038 ANN 
10 39 BYC 
1040 HYC 
1041 TBN 
1042 JT 
1083 <BP 
10484 SBF 
1045 J 
1046 SETFIX SBN 
1047 SBN 
1048 CKSEEK CLI 
1049 BE 
1050 LDFCR LIO 
1051 LDFDR LIO 
1052 MYC 
1053 MVC 
1054 SVC 
1055 MYC 
1056 L 
1057 NYC 
1058 LA 
1059 SIO sro 
1060 WAIT TIO 
1061 B 
1062 DC 
1063 MVC 
1064 L 
1065 RVC 
1066 B 
1067 DC 
1068 AVC 
1069 B 
1070 DC 
1071 BVC 
1072 BYC 
1073 CLI 
1074 BNE 
1075 AVC 
1076 SBF 
1077 L 
1078 TSTERR TIO 
1079 TSTSCKX TIO 
1080 B 
1081 

1082 * 

1083 * 

1088 

1085 SETADR ST 
1086 CLI 
1087 JNE 
1088 AVI 
1089 Avec 
1090 L 
1691 AVC 
1092 NVI 
1093 CLI 
1098 JNE 
1095 BYI 
1096 SBF 
1097 BVI 
1038 AVI 
1099 RLDFCR LIO 
1100 RSIO sro 
22HRY706 QO 1AT0G70 
571513 5775314 


{DIAGRHOSTIC) 


ADDR STAT SOURCE STATEMENT 


START I/O SUBROUTINE 


SETXR2, ARR 
SETYR2,XR2 
SAVSW,00 
SI0+1,0(,XR2) 
SI0+2(1),1(,XR2) 
DPCR (2) » 3 (~XR2) 
DISKTP,X'08! 
SETFIX 
SI10+1,X08! 
RBSIO+1,X°08" 
CKSEEK 
SI0+1,X*08! 
RSIO+1,X*08° 
0(,XR2) ,00 
SETADR 

DFCR, X'A6! 
DFDR,X*AG? 
QCODE (1) ,SI0+1 
CCODE (1) ,SI0+¢2 
DFCRI (2) , DFCR 
DFDRI (2) , DFDR 
DFCR,XR1 
DCFI(4) ,3(,XB1) 
6600,4£R1 
X'00",xX*A0! 
BUSY, X*a2?* 
SENSE 

XL1¢04t 
DFDRF (2) , STATUS 
DFCR, XR1 
DCFF (4) ,3(,XR1) 
SENSE 

XL1*02" 
S¥SO1(2) ,STATUS 
SENSE 

XL1'03° 
SNS23(2) ,STATUS 
ROUTNO (1) , RPPX 
SAVSW.X"PFFt 
TSTERR 

3(1,X82) ,DFC3SV 
2(,XR2) ,01 
SETXR2, XR2 
12(,XBR2) ,X*A0! 
8(,XR2) »X" Aa! 

4 (,XR2) 


2 


PART RO. 
PAGE 


5129632 
11 


SAVE ADDRESS RECALL REGISTER. 
LOAD XR2 WITH VALUE FRON ARR. 
ZERO SWITCH 

SET FUNCTION CODE 

SET CONTROL CODE IN SIG 

SET DATA ADDRESS FOR DFCR 
TEST FOR RGN ON LOWER DISK 
JUNP IF YES 

SET FOR REMOVABLE DISK 

SET FOR REMOVABLE DISK 

JUMP TO CHECK FOR SEEK 

SET FOR FIXED DISK 

SET FOR FIXED DISK 

TEST FOR SEEK 

IF YES, GO SET ADDRESS 

LOAD CONTROL REGISTER 

LOAD DATA REGISTER 


LOAD DELAY VALUE IN XB1 
START I/O OPERATION 
TEST FOR BUSY 


IS SWITCH ON? 

IF NOyg SKIP RESTORE 
RESTORE N BYTE 

TURN OFF THE FOR/ REV BIT 
RESTORE PARAMETER POINTER 
BRANCH IF ERROR 

BRANCH IF SCAN FOUND 

EXIT 


SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 
DIRECTION (FORWARD OR REVERSE), TO SEEK 


ADREXT+3, ARR 
1(,XR2) ,01 

*+7 

FRSTPS,0 

XR2WK (2), 3(,XR2) 
XR2WK ,XB2 
DFC3SV{1) .3(,XR2) 
SAVSH,X'*FF!* 
FRSTPS,00 
SETADA 

PRSTPS,01 
2(,XR2) ,01 
3(-XR2} ,255 
LASTAD,00 
DPCR, X? A6? 

60,x* aor 


SAVE EXIT ADDRESS 

IS THIS A RECALIBRATE? 

IPF NO, BYPASS SWITCH RESET 
RESET RECALIBRATE SWITCH 
SAVE ADDR. OF CTL. FLD. ADDR. 
LOAD XR2 WITH CONTROL FLD. ADDR. 
SAVE WH BYTE IN CONTROL PIFLD 
SET SAVE SWITCH 

IS THIS FIRST PASS 

SKIP RECALIBRATE IF NO 

SET PIRST PASS SWITCH 

SET FWD/REV BIT TO REV. 

SET SAXIMUNS TRACK CROSSING 
SET CLD ADDR TO 0 

LOAD DATA CONTROL REGISTER 
SEEK REVERSE 


PROG ID 
PAGE 


OADT-2 
V1 


0 909 0° G6 0 9 G O09 © O29 9 0808 0 0 G&G 


© 


6 8® 8 09 8G 0 8 G8 08 98 8 O 
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4 


V3 


oO 


2 
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IBM HAINTENARCE DIAGNOSTIC PROGRAN 


A072 


ERR LOC 


WA25 
TA2A 
TA2D 
7430 
1a33 
1439 
IA3E 


TAG 
TAQ 
TAaQ 
1ASP 


1A52 
1a55 


1A58 
1A5D 
1A62 
1A66 
1467 
1268 
1169 
1A6A 
1A6B 
1A6D 
1A6P 
1A71 
1A73 
1A75 
1477 
1A7B 
1A7F 
1483 
1485 
1087 
1A8B 
IASF 
1490 
1291 
1493 
1A95 
1299 
1A9B 
1A9F 
1AA7 
IAAP 


DATE 
EC KO. 


REA 


D DATA 


OBJECT CODE 


8D 
P2 
F2 
BB 
oc 
2F 
F2 


00 
81 
84 
01 
00 
00 
87 


04 
00 
00 
87 


BA 
2c 
OF 
F2 


Bc 
F2 


00 
87 


00 
60 
87 


8C 
2c 
co 
00 
00 
00 
00 
00 
0000 
0000 
1¢¢c3 
0000 
0294 
FFPF 
36 01 
co 84 
co 87 
0a03 
1AB3 
3c 40 
co 87 
c6 

15 
TAB3 
AOS8E 
co 87 
AO8E 
co 87 
E3C9D4 


01 1A68 
25 

11 

02 

1A66 1368 
1A66 01 
17 


02 

1A66 01 
1A66 1468 
06 


03 
OA 


03 1066 
1868 01 
9000 


1A76 
1998 
1¢€55 


1AB1 
O21A 


0222 


0009 
CSD6ESE340 


C9D54 ODIDE ES E3C9 
D5C54 OETE? 


T3RaRe 
5771512 


0 OSPR 
5715176 





PART BO. 5129632 
PAGE TIA 
(DIAGHROSTIC) 
ADDR STHT SOURCE STATENERT 
1101 
1102 SETADA CLC 1(1,XR2),LASTAD COMPARE PRESEKT ADDR. WITH NEW ORE 
1103 JE NOSEEK EQUAL, SEEK IS NOT NECESSARY 
9104 JH PUDSEK RWEW ADDR. HIGHER, DO FORWARD SEEK 
1105 SBF 2(,XBR2),01 KEW ADDR. LOWER, SET BIT FOR REV. 
1106 BYC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA 
1107 SLC SCBCH(1),1(,X2B2) SUBTRACT WES ADDR. PRON LAST ADDR. 
1108 3 SETADB PROCEED 
1109 
1110 PWDSEK SBN 2(,XR2),01 SET BIT ON FOR PORWARD SEEK 
1111 NVC = SCRCH (1) , 1(, X82) PLACE KEW ADDR. IN WORKAREA 
1212 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROM BREW ADDR. 
1113 3 SETADB PROCEED 
1114 , 
1115 NOSEEK MVI 3(,XR2),° SET 8O. OF TKS. CROSSED TO ZERO. 
1116 J ADREXT TO EXIT 
4117 
1118 SETADB HVC 3(1,XR2),SCRCB PLACE IN WC. OF TRACKS CROSSED 
1119 BVYC LASTAD(1),1(,X22) SAVE WEW ADDRESS 
1120 ADREXT B +-* EXIT 
1A56 1121 SCRCH pC XL1°00° 
1A67 1122 PRSTPS DC XL7°00* 
1A68 1123 LASTAD pC XL7*°00? 
1A69 1124 DFC3SV DC XL1"00* 
1A6A 1125 SAVSW DC XL17*°008 
1A6C 1126 DISKTP DC XL2"0# 
1AGE 1127 DFCR pC AL2 (*-#) 
1A70 1128 DFDR npc AL2 (WORK) 
1A72 1129 XR2WK DC XL2*O? 
1A74& 1130 SIXSIZX DC IL2*0660* 
1A76 1131 NEG1 pc XL2*PPFP? 
1132 BUSY A NEG1,XR1 DECREMENT DELAY COUNTER 
1133 BH WAIT RETORN TO TIO IPF KOT TIME OUT 
1138 B CVD TIME OUT OCCURED, CONVERT ROUT. HO. 
1A88 1135 DC AL2 (RPPX) CURRENT ROUTINE KO. 
1A86 1136 DC AL2 (TIHOUT) ADDRESS OF DESTISATION 
1137 AVI TIHNOUT~2,C* * 
1138 B PRINT TO PRINT TIMEOUT OCCURED 
1A8F 1139 pe XL1*°C6* FLAGS 
1490 1140 pc IL1*°21° LENGTH 
4A92 1181 DC AL2 (TIHODT) MESSAGE ADDRESS 
1A94 1102 pc XL2*AO8E* BESSAGE ID 
1143 THALT B HALT TO DCP ERROR HALT 
JA9A 1184 pc XL2*AOSE® HALT ID 
1145 B 0 
4AB3 1146 TIMOUT DC CL21*TIMEOUT IN ROUTINE ¥xX!* 
1146 
1146 
0A03 1147 RPFX EQUD- Xx*a~a03* 
0 22H AY7O O1AUG7O PROG ID ORO7-2 
571513 571531 PAGE ain 


oY 
e4 


IBN SAIRTENANCE DIAGROSTIC PROGRAS PART HO. 5129632 IBM MAINTEHANCE DIAGNOSTIC PROGRAN PART NO. 5129632 


PAGE 12 PAGE 12a . 
Cis . 

a072 READ DATA (DIAGNOSTIC) A072 READ DATA (DIAGNOSTIC) 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © | CG ERR Loc OBJECT CODE ADDR STET SOURCE STATERENT ae 

1199 © SOBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS . 1B8E CSDBESYCSD7DUCSDS 1B9F 1209 pc CLIS*EQUIPHENT CHECK ° ‘ 

1150 Cee 1B96 E340C3C8C5C3D240 1209 : 
1AB4 34 08 1B3A 1151 PRISNS ST PRTEXT+3,ARR SAVE ADDRESS RECALL REGISTER 1B9E 4040 1209 
1AB8 CO 87 18FD 1152 B SENSE TO PERFORM SENSE 1BAO C&CIE3C1480C3CB8C5 1BB1 1210 pc CLI8*DATA CHECK ° 2 
ABC 02 TABC 1153 DC AL1(STATO1) GET DEVICE STATUS BYTES 0 & 1. o'136 1BA8 C3D24040404804080 1210 < 
1ABD CO 87 021E 1154 B UNPACK TO UNPACK STATUS BYTES TBBO 4040 1210 
TACT 02 1aC1 1155 pc XL1"02¢ 1BB2 DSD64G0D9CSC3D6D9 1BC3 1211 DC CLi8*NO RECORD FOURD ° 
1AC2 1914 1AC3_ 1156 DC AL2(STATDS) O10 1BBA C4Y4OCEDEESDSCR4O 1211 
1AC4 1853 ACS 1157 DC AL2 (HEXSTA-4) 1BC2 4040 4211 

1158 1BC4 E3D240C3D6DSC4C9 1BD5 1212 pc CL18"*TK CONDITION CHECK® i 
1AC6 3C 01 1AF6 1159 NVI STPSNS41,01 SET FOR COMPLETION CF FIRST BYTE 0oO:' C6 1BCC E3C9D6D540C3C8CS 1212 a 
ACA C2 01 1869 1160 LA STATWD,XB1 SET XR1 TO POINT TO FIRST MESSAGE 1BD4 C3D2 1212 
ACE C2 O02 BPA 1161 LA STMASK, XR2 SET XR2 TO POINT TO TEST MASK 1BD6 E2CSC5D240C3C8C5 1BE?7 1213 pc CL18°SEEK CHECK 7 é 

1162 Cle IBDE C3D240404 04 0UNLO 1213 : 
1AD2 CO 87 O21A 1163 B PRINT TO PRINT SHS WITH HEADING | IBE6 8080 1213 
1AD6 C1 JAD6 1168 DC XL1°C1° FLAGS | 1BES EYD5SE2C1C6C54040 1BF9 1218 pc CL18" UNSAFE : od 
JAD7 01 TAD? 1165 DC IL1*01° LENGTH G | G TBFO 4080404040490480480 1218 oe 
1AD8 1B69 WAP” 5166 pc AL2 (STAT WD) ADDRESS OF LAST PRINT CHARACTER IBF8 4080 1218 
JADA A000 1AL3 1167 SKSID DC XL2*a0008 MESSAGE IDENTIFICATION 1BFA 1215 STMASK EQU *® 
1ADC 2C 00 1AE7 00 1168 MOVEBT SVC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS INSTRUCT. © | CG 1BPA 80802010 1BEPD 1216 pc XL4*80402010' 

JAE1 1C€ 1% 1¢C2 00 4169 NYC STATPR(18) ,0(,XB1) SET MESSAGE IN FIELD 1BFE 06080201 3C01 1217 pc XL* 08040201" 

1170 | 1C02 1EC2 1€03 1218 READ1 DC AL2 (READ+255) a 
1AE6 38 00 1913 1171 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR ON o,9o 1219 “ 
TAEA F2 90 08 1172 JF STPSNS BYPASS PRINT IF OFF | 1219 
1AED CO 87 O21A 1173 B PRINT TO PRINT SNS WITHOUT HEADING 1220 * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD ee 
JAF1 01 APY 1174 nc XE.17'018 FLAGS o'o 1221 “ 
AF2 12 WAF2 1175 pe IL7*18! LENGTH | 1€94 34 08 1c48 1222 SHIFT ST SHPFEXT+3,AREB STORE ADDRESS RECALL REGISTER 
IAF3 1¢C2 JAPR 1776 DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER 1c08 35 01 1C88 1223 L SHFEXT+3,XB1 LOAD EXIT ADDRESS IN XB1 . 

1177 Civ 1cOC 35 02 1C48 1228 z SHFEXT+3,XR2 LOAD EXIT ADDRESS IF 2a2 ‘e 
TAPS 3D 00 1AE7 1178 STPSNS CLI TSTBI+1,*-* TEST FOR FIFISHED 1€10 36 02 1852— 1225 a TRO, XR2 INCREASE BY 2 
1AF9 F2 81 OA 1179 JE SENSA JUMP IP FINISHED WITH THIS BYTE 1014 3% 02 1C48 1226 st SHFEIT+3,XR2 STORE FOR TRUE EXIT ADDRESS . 

1180 oO 6 1€18 3c 00 1¢49 1227 NVI CYLNO,0 ZERO WORK AREA S 
AFC E2 02 01 1181 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT IC1C C2 02 CUA 1228 LA SHFTBL, XB2 LOAD ADDRESS OF SHIFT TABLE IN XR2 
1AFP D2 01 12 1182 SENSB LA 18(,XB1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE 1c20 75 01 01 1229 L 1(,XR1),XB1 LOAD CONTROL FIELD ADDRESS IN XR? - 
1B02 CO 87 ADC 1183 B MOVEBT GO TEST NEXT SENSE BIT Q °C 1023 2c 00 1C22 06 1230 MYCTBR NYC TBN+1(1) ,0(, XB2) INSERT CORRECT MASK FOR TEST BITS an 

1788 1€28 2c 00 1¢34 05 4231 BYC SBN#1(1) ¢5(¢XR2) INSERT CORRECT BITS POR SET BITS 
1B06 3D 80 1AF6 1185 SENSA CLI  STPSNS+1,xX'80! TEST FOR COMPLETION OF 2D BYTE 1C2D 78 00 02 4232 TBR TBR 2(,XH1) ,*-* TEST ONE BIT FOR O” 7 
1BOA F2 81 22 1186 JE PRTHEX TO EXIT IF DONE CGC 0 1030 F2 90 O84 1233 JF #27 JUMP IF OFF * 
1BOD 3C 80 1AF6 1187 NVI STPSNS+1,x"80! SET FOR CHECK OF 2ND BYTE 1033 3A 00 1C49 1238 SBN SBR CYLNO, *-* SET ONE BIT ON IN DECIMAL PIELD 
1B11 34 01 1826 1188 st SENSC+3,XR1 SAVE XR1 1C37 3D &0 1C2E 1235 CLI TBN+1,X°490? TEST FOR LAST BIT 
1B15 CO 87 18FD 1189 B SENSE TO SENSE C OG 1C3B F2 81 07 1236 JE SHFEXT JUSP TO EXIT IF ALL DOKE 7 
1B19 03 1B19 1190 pc XL1"03! BYTES 2 & 3 1C3E £2 02 01 1237 LA 1(,XR2) -XR2 ROT DORE, STEP XR2 
1BIA CO 87 O21E 1191 B UNPACK TO UNPACK STATUS BYTES 1C41 CO 87 1C23 1238 B MVCTBN ~< TO TEST NEXT BIT 
IBIE 02 IBIE 1192 pc XL1'02* Oo 6 1C85 CO 87 0000 1239 SHFEXT B 2 EXIT 
1BIF 1914 1B20 1193 Dc AL2 (STATUS) 1240 
1B21 1B57 1B22 1194 DC AL2 (HEXSTA) 1¢49 00 1¢49 1241 CYLNO DC XL1°O8 : 
1B23 C2 01 0000 1195 SEWSC LA *-* ,XR1 RELOAD XR1 C Oo 1242 “ 
1B27 C2 02 1BPA 4196 La STHASK, XR2 SET BIT POINTER IC8A 08 1C4A 1243 SHPFTBL DC XL1°08" 
1B2B CO 87 1APF 1197 B SENSB TO PROCESS 2ND BYTE 1C4B 08 1C4B 12484 DC XL1* 08 
1B2P CO 87 027A 1198 PRTHEX B PRINT. TO PRINT STATUS IN HEX ec Oo 1C4C 10 1C4C 1245 Dc XL1°10° 
1B33 02 1B33 1199 pc XL1°02° 1C4D 20 1C4D 1246 pc XL1*20* 
1B34 1D 1B3& 1200 Dc IL17*29" ICKE 40 ICRE 1247 DC XL1#a0# : 
1B35 1B57 1B36 1201 Dc AL2 (HEXSTA) Co C6 1CuF 01 1CuF 1248 DC XL1#01° ; 
1B37 CO 87 0000 1202 PRTEXT B +-* SUBROUTINE EXIT 1€50 02 1050 1249 pc XL1¢02° 
1B3B E2E3C1E3E4E240C2 1B4YF 1203 Dc CL21'STATUS BYTES IN HEX, ° 1¢51 04 1€51 1250 pc XL1T#Ou! 
1B43 EBE3ICSE2U0C9D540 1203 oO 6 1¢52 08 1€52 1251 Dc XL1*°08° 
1B4B CBCSE76B40 1203 | 1€53 10 1053 1252 pc XL1°10° 
1B50 0000000000000000 1857 1204 HEXSTA DC XL8'O* 1253 * SUBROUTINE TO CONVERT A WOBBER TO DECIBAL ; 

1205 1254 “ 
1B58 DSD640D6D74O80N0 1869 1206 STATWD DC CL18*NO OP ' : i 1C5& 00 1¢54 1255 HIBYT DC XL1*0* 
1B60 404040804 0404040 1206 1c55 36 08 18FC 1256 cYD a OWE, ARR ADD OWE TO GET FIRST PARAMETER : 
1B68 4040 1206 210 1¢59 34 08 1°76 4257 ST FRON+S, ABR INSEST THE FROM ADDRESS € 
1B6A CODSE3C5D9E5C5D5 1B7B 1207 DC CLIS" INTERVENTION REQD.?* | ICSD 36 08 185A 4258 A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER 
1B72 E3C9D6D548 9D9C5DB 1207 1C61 34% 08 IC7C 42593 ST TYBOT+5, ARR INSERT THE TO ADDE ‘i 
TB7A C&4B 1207 Co G 1C65 34 08 1C82 1260 ST OTORZ+5, ARR ‘e 
1B7C D&CSE2ZE2C9DSC740 1BBD 1208 pc CL18'HISSING ADDR. MARK? 1C69 36 O08 18FC 1261 A ONE, ABR ADD ONE FOR £XIT ADDRESS 
1B8% C1C&C4D94 BUOD4C1 1208 1C6D 34 O08 1CA5 1262 st TIXE+3, ARR STORE EXIT ADDRESS 
1B8C DID2 1208 o 6 1€71 0C 01 1¢88 0000 1263 FROK VC FROBYT#¢5(2),*%-© & 

DATE 12MAR70 O6RPR70 22mAY70 01A0G70 PROG ID 0A07-2 O ©@ pare 13MAB70 O6APR70 22m2x70 01a0G70 PROG ID 0a07-2 t 
EC eC. 571512 571516 571513 $71531 PAGE 12 BC WO. 571512 571516 571513 571531 PAGE 12a 
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IB® MAINTENANCE DIAGNOSTIC PROGRAS 


A072 
ERR LOC 


ic77 
ic7D 
1c83 
1c89 
1C8F 
ic95 
1c98 
iC9E 
1CA2 
1CA6 
ICAT 


ICAP. 


1cB1 
1cc3 


1DC3 


DATE 
EC WO. 


READ 


OBJECT CODE 


oc 
oc 
oc 
O48 
OF 
F2 
06 
co 
co 
Fi 


01 
01 
00 
20 
00 
82 
20 
87 
87 


1C9OB 
1c8C 
1¢548 
0000 
1¢58 
OA 

0000 
ic8F 
0000 


DATA 


0600 
0006 
0000 
1CB0 
18FC 


1CAG 


FPIUF2F3FUPSP6F7F8 
F9OFO 


TIMARTO 


571512 


( 
ADDR 


1CA6 
1C BO 


1cC2 
1¢C3 
IDC2 
1DCc3 
1EC2 


' 0003 


OGAPR7 
571516 


0076 
0001 
0002 
0008 
C002 
0003 
00 a6 
OOAS 
0080 
0040 
0208 
020A 
0212 
0216 
021A 
O21E 
0222 
022A 
003¢ 
003F 
0c 37 


0 


DIAGRO 
STMT SOURCE 


1268 TYBOT 
1265 OTORZ 
1266 FROBYT 
1267 ZROTO 
1268 DECGAN 
1269 

1270 TOBYT 
1271 

1272 TIXE 
1273 DECONE 
1274 UNTTS 
1274 

1275 STATPR 
1276 WORK 
1277 

1278 READ 
1279 

1280 * 

1281 H1 
1282 H2 
1283 XR1 
1284 XR2 
1285 ARR 
1286 STATO 
1287 STAT23 
1288 CTRL 
1289 DATA 
1290 BITO 
1291 BIT1 
1292 SWITCH 
1293 SECTSW 
1294 TEST 
1295 LINK 
1296 PRINT 
1297 UNPACK 
1298 HALT 
1299 LOAD 
1300 HF 
1301 HA 
1302 


22H AY70 OTAUG7TO 


571513 


SsTICc) 
STATEMENT 

AVC TOBYT+¢3(2) ,*-* 
MVC ZROTO+#3(2) ,*-* 
MVC HXBYT(1),*-* 
ZAZ = *- * (3) , UNITS (1) 
SLC HXBYT (1) ,ONE 
JL TIXE 

AZ *-* (3) , DECONE (1) 
B DECGAN: 

B *—-% 

DC CLi"18 

Dc CL10* 1234567890! 
DS CL18 

EQN) * 

DS CL256 

EQU) 

DS CL256 

PROGRAM EQUATES 

FOO 3=- X03 

EQU =-X*768 

ZQU) O01 

EQU 02 

EQU) =O s«éO8 

EQU. = x*02* 

EOD x*03° 

EOD x*AG6? 

EQU X*aAKt 

EOD) x'80° 

FOU) -x*4or 

EQU _xX*208" 

EQU x*20,~A° 

EQU. -x*2128 

EQU) x*216° 

EQD xX*21a* 

EQD X*21E* 

EQDU. 8 x*222' 

EQU) x*22A' 

EQU) _x"3C? 

EQU) x'3F° 

END SEGIN 


571531 


PART WO. 
PAGE 


PUT BYTE IN WORK AREA 

ZERO THE TO AREA 

DECREMENT THE HEX BYTE 
JUMP IF BELOW 1 

INCREMENT THE DECIMAL COUKT 


EXIT 


HALT DISPLAY 1 
HALT DISPLAY 2 


HALT DISPLAY F 
HALT DISPLAY A 


PROG ID 
PAGE 


5129632 
13 


O0A07-2 
13 


oO 0 @ @ 0 9 606 0@ 90 8 9 9 08 090 9 OO O 09 0 CG 8&8 8G Go 6G DO OO 


eettrtnweeem niece 


oOo CG 8 9 O | 0 0 0 0 0 09 0 6G 9 90 0 @ 8 © 080 © 8@ 9 G6 8 8 OO 


en re 





IBS MAINTENANCE DIAGNOSTIC PROGRAS 


A072 READ DATA (DIAGHEHO s Tie) 


CROSS-REFERERCE 


SYSBOL T LEN VALUE DEFR REFERENCES 

ADREXT A 008 1462 1120 1085* 1116 

ALLHED A 026 1781 0908 0886 

ARIVED A023 18CA 09948 0963 0973 

ARB Cc 001 0008 1285 0025 0110 0847 0857 0918 0936 1010 1035 1085 
1257) «1258* 1259 1260 1261* 1262 

AQ? A 007 0000 0003 

BEGIN A 008% 0C37 0180 1302 

BITO Cc 001 9080 1290 

BIT! C 001 0080 1291 

BUSY R008 4A77 1132 1060 

CcCODE a 001 1918 1023 1053 

CKHDER A 006 173D 0881 0166 

CKHED A 008 16EB 0857 0390 0558 

CKHEDA A 003 16F7 0860 0865 

CKSEEK A 003 19617 1048 10485 

CTRL C 001 OOA6 1288 

CvD A008 1€55 1256 0319 0886 0961 1134 

CYLNO A007 1C89 1241 0320 0487 O888 1227% 12342 

DATA C 007 OOAS 1289 03919 

DATEXT A OO& 1723 0931 0914* 0915 0917% 0922 

DATID1 A 002 ‘%7DC 0928 

DATPR1 A O43 1889 0992 0927 

DCFF A 008 1928 1027 10654 

Dcri A 008 1920 1026 1057 

DECGAH A 006 1IC8F 1268 1271 

DECONE A 001 1CA6 1273 1270 

DFCR A 002 1A6E 1127 1040* 1050 1058 1056 1068 1099 

DFCRI A 002 1926 1028 1059 

DFC3SV A 00% 1A69 1124 1075 1091% 

DFDR A002 1A70 1128 0293* 0308* 04607 0475* 0618* 6637* 0749*% 0781* 1051 

DFDRF A 002 192A 1030 1063% 

DFDRI A 002 1928 1029 1085% 

DISKTP A 002 1A6C 1126 0148* 0154* 0668 1081 

ERRORS A 006 OCFC 0238 0196 0276 O843 G604 0737 

ERRC2A A 038 OFEO 0805 0321 0322* 0328 O888 0889 0895 0852% 

ERRC2B A 083 1008 0806 0381 0508 0665 0809 

ERRO2C A016 104E 0808 0369 0536 

ERRO2D A 032 1042 0810 0352 0519 

ERROZE A 0171 10DD 0812 0398* 0399 0563* 0569 

ERRO2F A 037 ODE1 0244 0386 0553 0693 0837 

ERRO3A A 038 12DB 0575 

ERROYA A O42 1478 0701 06489* 0653 

ERROSB A O88 apa 07C3 0076 

ERROSA A 0248 1520 0705 0797 

ERROSB A 039 1577 0707 ¢820 

ERBRIA A018 OD&2 0240 0215 

ERRIB A 028 0D92 0282 0230 

ETABLE A 001 1917 1021 0013 

EXPSEC A 001 ODE2 0245 0263* 0299 0305 0346 0430* 04857 O472 0513 

FIXDSK A 00S 17A8 0906 0870 

FIXED A 008 OBES 0188 0141 

POURFF A 068% 1751 0908 0881 

PROBYT A 006 1C83 1266 1263 

FRO A 006 1€71 1263 1257 

PRSTPS A 001 1A67 1122 0091* 0982* 1088* 1093 1095+ 

PWDSEK A 003 1A&1 1110 1108 

BA C 001 O03F 1301 

HALT C 001 0222 1298 0127) 0197 0217 0232 O277 0329 0343 0354 0371 
0896 0510 0521 0538 0555 0570 0605 0654 0667 
0738 0811 0822 0839 O87? 0888 0929 0983 1143 

EDEXT A 004% 1739 0879 0857 0861 

HDTBL A 001 1760 0896 0089* 0090 0090* 0258 0821 0585 0718 0881 

HEXSTA A 008 1B57 1204 1157) 1199 1201 

EP c 9901 903c¢ 1300 4 

HIBYT A 001 1C548 1255 1266% 1268+ ‘ 

#4 Cc 001 0003 1281 


DATE T3BHARTO O6APR70 22BAY70 O1AUG70 
EC BG. 571512 571516 571543 $71531 


1151 


1055 


0328 
0678 


PART HO. $129632 


PAGE W3A 
1222 1256¢ 
9900 O484 
0635 0738 
PROG ID OA0T-2 
PAGE 13k 


gS 
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IBM MAINTEHANCE DIAGHUSTIC PROGRAS PABT NO. 5129632 IBM BAIHTEHANCE DIAGNOSTIC PROGRAB PART WO. =—5 129632 
PAGE 18 | PAGE TSA . 
cise a 
a072 READ DATA (DIAGNOSTIC) | A072 RERD DATA (DIAGRFOSTIC) 
CROSS— REFERENCE © | G CROSS-~ REF EREECE i! 
SYMBOL T LEN VALUE DEFN REFERENCES 3 | O SYMBOL T LEN VALUE ODEPFH REFERENCES 
82 Cc 001 ©0076 1282 RTN3C7 A 004 11CB 0503 
IDFLD A 003 187E 0955 0948 0951 0962 ; RTH3C2 A 006 1322 0513 0504 : 
INVFLG A 019 OBZE 0106 0124 Co G RTN3D 2B 008 21FB 0524 0515 
LASTAD & 001 1868 1123 1098* 1102 1106 1172 11198 RTN3E A 008 1219 0533 0526 
LDFCR A 008 1968 1050 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 90073 RTR3F A003 11PF 0525 0531 = 
LDFDR a 008 196C 1051 0066* CG ' CG  rrxn3c a 008 1229 0541 0530 oe 
LIFK ¢001 0216 1295 0167 0882 0890 RTN33 A 008 1287 0550 0543 
LOAD € 091 022A 1299 0051 RTN3K A OOW 1257 0558 0499 0587 0572 
AOVEBT 2 00S ADC 1168 1183 © © eres a 001 12Dc 0581 0419 
SYCTBN A005 1€23 1230 1238 RTNSA A 008 12F0 0589 0699 
KEG? A 002 1A76 = 1131 1132 RTNSA1 A 00% 1328 0608 0598 
HOSEEK 2&2 003 1852 1115 1103 CG G  RtTnsB a 004 1328 0610 
HOUNIT A 026 OBOP 0094 0048 RTNGBT A 008 135C 0628 0624 
ONE a 002 18FC 1006 0142 0150 0153 0698 08482 1256 1261 1268 RTN4B2 A008 13AB 0657 0644 
GHEHED A 034 17A3 0905 0867* 0870* 0871* 0875 C CM  keTN4c aA 008 1390 0687 
ORESEC aA 002 185C 0989 0759 RTNYCT A 0O4 13581 0660 
OTORZ A006 4C7D 1265 1260* . RTN&C2 aA 008 13C8 0670 0661 
PASS A001 OB1B 0105 01141 0113* 0160* 0980+ QO © RTKGD aA 008 13DF 0681 0672 
PRINT C001 O21A 1296 0045 0081 0085 0121 0193 0212 0227 0273 0325 0338 0389 0366 RTNSE A 008 13FD 0690 0683 
0383 0396 0440 0492 0505 0516 0533 0550 0566 0601 0650 0662 RTNAF A 003 13E3 0682 0688 
0673 0690 0734 0794 0806 0816 0834 0872 0883 0924 0964 0970 eg .¢ RTRNYG A 006 180D 0698 0687 
0975 1138 1163 #1173 «1198 | RTNS a 001 1578 0718 0583 
PRTEXT A 00% 1837 1202 1151% | RTRSA A 008 158C 0722 0843 
PRTHEX A004 %B2F 1198 1186 G C = =RTKSA1 A 004 15C0 0781 0731 
PATSHS A O08 ABU 1151 0192 0272 0328 0395 0439 0891 0564 0600 0647 0733 0793 | RTNSB A OOK 15Cu 0783 
PRTSPH A 004 OADS 0081 0078 RTNSB1 A 008 1S5CE 07486 0762 
QCODE A£ 901 1917 1022 1052* G CG RIR5B2 A006 %15EE 0759 0755 
Z2DDFC a2 001 18F7 1002 0185* 0189 0201* 0202* 0203* 0208 | RTN5B3 A 00% 1SFF 0768 C761 
EERKD A007 1DC3 1278 0285* 0286 0286* 0307 0334 03748 O4852* 0853 0453* 0474 0501 0541 ETR5SBS A 008 1621 0776 0772 
0636 0658 0681 0780 0783* 0784 0784* 0802 0825 1218 CG .C RTNSBS A O04 1661 0801 0790 
READ? A 002 1c03 1218 0379 0546 0686 0830 RTN5C1 A 008 1667 O804 
RENYDS A 001 OB12 0097 0033* 0062* 0137 ETNSC2 A 008 167E 0814 0805 
BEDFCR A008 1A1E 1099 0072* Co CG RTN5D A OOS 1695 0825 0815 
RBYDSK A005 17AD 0907 0867 RTESE aA 008 1683 0838 0827 
BOOTRO A001 1928 1031 1072% RTNSPF aA 003 1699 0826 0832 
BPFX C001 OA03 1147 1072 1135 Qo oe RTN5G A OG6 16C3 0842 0831 
RSYO 2003 1822 1100 0073* 1084* 1047* RUNFIX A 001 OB18 0103 0775 0139* 0188 0155% 
#TR1 2 001 0C33 0176 0012 RURRMV A 001 OB17 0102 0133* 0140 0145* 
BTNIA &€ 004 OC3F 0182 0235 Cc Co SAVSW A 001 136A 7125 1037* 1073 1092* 
BTX1A1 2 008 0C73 0200 0190 * SBN A 004 1€33 1234 1231* 
RTRIA2 A008 O0C97 0212 0209 | SCRCH A 001 1A66 1121 1106* 1107* 11117*% 1112* 1118 
RTNIB A 008 OCA7 0220 0211 ce ¢ SECMSG A 04& O0B72 0108 008% 
ETRIC & 008 occ&’ 0235 0225 SECTBL A 0071 175D 0893 6259 0260* 0826 0427% 0849 0859 
RTK2 & 001 ODE3 0250 0178 SECTSW C 001 020A 1293 0119 0131 0135 
RTN2A A004 ODF? 0258 0391 O61. G SEEKER A 00% 2A1F 0961 0943 0952 
RTN2A1 2 0048 O0£37 0280 0270 SEEKID A 002 1830 0968 
RTN2B A 094 OF3B 0282 SEKER1 A G&2 1883 0993 0967 
RTN2B1 A O04 OF79 0303 0299 G oo SEKER2 A 080 18F2 0995 0978 
ETR2B2 A 004% OECA 0333 0318 SEKEXT A 004 1818 0958 0936* 
ETHZ2C & 004 OFSF 0317 SENSA A 008 1B06 1185 1179 
RTNZC1 A 004% OEDO 0336 G ,G  sEeNSB A 003 IAFF 1182 1197 
RTN2C2 A 006 OFE7 0386 0337 SENSC A 008 1523 1195 11888 
RTNZD A 004 OFOO 0357 0348 SENSE A 00% 18FD 1010 0074 0220 0918 0937 1061 1066 1069 1152 1189 
RTH2E A008 OFIE 0366 0359 Gi @ sera 2 006 0A68 0054 0037 
RTH2F a 003 OFOKN 0358 0368 SETADA A 005 1A25 1102 1098 
HTN2G 48 00% OF2E 0374 0363 SETADB A 005 1A58 1118 1108 1113 
RIN2ZH 2&2 003 OF32 0375 0381 0548 oe SETADR A 008 1929 1085 1049 
BTR2J 4&4 008 OFUC 0383 0376 | SETB A 006 OA7S 0058 0041 
RBTR2K A 004 OFSC 0390 0331 0380 0402 i SETBTH A003 OA89 0064 0056 0061 
RTN3 868 001 10DE 0417 0252 Oo - 6 SETDSK A 008 GAOD 0025 0181 0257 0828 0588 0721 
STNJA A 00% 10F2 0425 0559 SETERBA A 003 16DB 0850 08a38% 
BTN3A1 A 008 1132 04387 0437 SETERER A 008 6CD 0847 0323 0490 
RTN3B £004 1136 0449 @ ©  sererx A 004 1627 0853 0847% 
RTN3B1 A QOS 1176 0870 0466 SETEXT A 008 OAF2 0092 00258 
RTKRIB2 A 008 11C5 0500 0481 SETFIX A 008 1959 1046 1082 : 
RTW3C A 004 119A 0488 e@ ¢ SETERV & 00% OBCD 0140 0117 0136 0138 
DATE 13HAR70 O6APE70 22mHAY70 O1AUG70 PROG ID OA07-2 e@ ¢ DATE 13MART7O O6APR70 22NAY70 6 1A0G70 PROG ID 0a07-2 
EC 8O. 571512 571516 571513 571531 . PAGE 44 EC BO. 571512 571516 571513 §71531 PAGE TGR 
6 @ 





IBM HAINTENANCE DIAGNOSTIC PROGRAS 


a072 


SYMBOL 


SETSPN 
SETSW 
SETXR2 
SHFEXT 
SHFTBL 
SHIFT 
S10 
SIXSIX 
SKTSTA 
SNS _ 
SNSID 


SNSXR2 


SNSO1 

SNS23 

SPNDLA 
SPNDLB 
SPNAMSG 
STATPR 
STATUS 


STATWD 
STATO1 
STAT23 
STEP 

STMASK 
STPSNS 
STRTIO 


SWITCH 
TBLEND 
TBLA 


TBN 
TEST 
TRALT 
TIMOUT 
TIXE 
TOBYT 
TRACK# 
TSTBT 
TSTDAT 
TSTERR 
TSTEXT 
TSTFIX 
TSTRAV 
TSTSCN 
TSTSEK 
TSTSPN 
TSTSW 
TWO 
TWOZR 
TYBOT 
UDTPTR 
OFIND! 
UFIND2 
ONITS 
ONPACK 
OTAB 
WAIT 
WORK 


WORK1 
WORK2 


DATE 


eee oe ee ee ee ee ee ee oe ee ee ee 


pe be bs 0) OC) De 


we 


pe me 0) 0 pe De ote pe pe De De De ge oe ope be oD ope De Be De oe oe op op () 


READ 
LEN VALUE 
006 OB85 
001 0B13 
002 1912 
008 1C45 
001 1C4A 
0048 1C04 
003 1995 
002 1TA74 
004 I7EB 
004 190A 
002 tTADB 
002 1916 
002 191A 
002 191C 
001 OBIS 
001 OB16 
624 OBE 
018 tCC2 
002 1914 
018 1869 
001 0002 
001 0003 
001 0¢c32 
004 1IBFA 
0048 ‘4tAFS5 
004 192Cc 
001 0208 
6002 175F 
002 175¢ 
003 %iC2D 
001 0212 
008 1a95 
O21 1AB3 
008 1CA2 
006 1C98 
001 OB14 
004 t1AE6 
008 1782 
003 19E0 
004 OCcOB 
008 OBBB 
008 OBBO 
003 1983 
0048 17E7 
004 0873 
00a 0891 
002 185A 
002 OBA 
006 1C77 
002 08611 
00% OA24 
008 OA20 
010 1CBO 
001 O212 
004 0232 
008 1998 
001 1¢c3 
002 1858 
002 1855 

TIMNARTO 

571512 


DATA 


DEFH 


0115 
0098 
10 16 
1239 
1243 
1222 
1059 
1130 
0937 
1013 
1167 


7018 


1024 
1025 
07100 
0101 
0107 
1275 
1017 


1206 
1286 
1287 
0168 
W215 
4178 
1035 


1292 
0895 
0892 


1232 
1294 
1143 
1146 
1272 
1270 
0099 
1171 
0914 
1078 
0157 
0135 
0131 
1079 
0936 
0110 
0119 
0988 
0704 
1264 
0095 
0032 
0031 
1274 
1297 
0096 
1060 
1276 


0987 
0390 


O6RPR7O 
571516 


(DI 


AGR 


REFERENCES 


0412 
0026*% 
10358 
1222% 
1228 
0317 
0067* 


0941 
0071*# 
0184* 
0726* 
0361* 
0863 
1068 
1071* 
0054 
0058 
0055* 
1169* 
0977 
1193 
1160 
0221 


01434 
1161 
11594 
0186 
0751 
0034 
0864 
0142* 
0851 
12308 
0129 


1136 
1262 
12644 
0076# 
1168* 
0333 
0069* 
0110 
0132 
0120 
0070 
0200 
0182 
0114 
0917 
0050 
1259 
0028 
0029 
0084 
1267 
1154 
0030 
0068 
0282* 
0611 
0748 
0916* 
0362 


004 9% 
1036 
1223 


ousa 
1038* 


101z* 
0264 
0776 
0362 
0864 


0059% 
1176 
0183* 


1166 
0938 


0151 
1196 
1172 
0205 
0768 
0038 


0150* 
0858 


-1235 


1137% 
1269 


0079* 
1178 
0500 
1074 
0146 


0280 
0258 
0130 
1225 
0115 


0031* 


1191 


1133 
0283 
0612 
07648 
0921 
0529 


228 AY70 
571513 


ost 


Ic) 


CROSS~- REF ERENCE 


0162* 0180 
1077 

1224 1226* 
1039* 1043 
0288* 6303% 
0378* 0379 
1019* 1011 
0088 

0223 0921 
1753 

0164 

1185 1187% 
0266 0295 
0786 0945 
0153* 0255% 
1741 

0185 0261 
0657 0801 
O87 0608 
0825 0589 
1258 

0032 0050* 
0283* 0292 
0612* 0617 
0765S 0765 
O01AUG70 
571531 


0256 
1236 


1046* 


0392* 
0528* 


0940 


0310 


0393 


0428 


0741 
0722 


0065+ 


0357 
0632+ 
0390 


PART NO. 5129632 
PAGE 15 

0423 0587 0720 0981 

1052 1053 

0431% 0455* 0476* 0561* 0592* 0614* 0628*% 

0529 O545* 0546 0685* 0686 0829* 0830 

0982 1013* 1063 1068 1071 1156 1171 

0433 0462 0477 0598 0620 0680 0727 

0422* 0562 0586* 0648 0698* 0719* 0882# 

0590 0728 0951 

O889* 0450 0450* 0459 052% 0610* 0611 

0633 0633* 0634 0634* 0743 0744 O744s 

1128 
PROG ID OACT-2 
PAGE 15 


@ 


bo 0 © 09 60 8 8 6&6 G6 68 8 6 80 808 8 @ 606 6 9 8 090 8G 8@ 9 8 8 OO @G 
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IBM MAINTENANCE DIAGROSTIC PROGRAA 


a072 


SY#BOL 


WRT DFC 


WRTER2 
WETER3 
XR1 


XR2 


XR2WK 
ZROCTR 
ZEOTO 


tT 


A 


Q >» » 


A 


REA 


LEN V 


001 


00a 
004 
001 


001 


002 
Oc4u 
006 


D DATA 
ALUE DEFN 
18F3 0997 
OF64 0392 
125F 0561 
0001 1283 
0002 1284 
YA72 «1129 
OCcOF 0159 
1€89 1267 


(DTI 


AGN 


REFERENCES 


0261* 
0426 
0590* 
0730 
0301 
0468 
0030+ 
0292* 
0617* 
0858* 
1160* 
02544 
0378 
O0544% 
0826 
0916 
1086 
1118 
1231 
1089 
0116 
1265* 


0262% 
0429*% 
0591* 
074 6* 
0626 
0774 
0031 
0293 
0618 
0866 
1169 
0255 
042 1% 
0545 
0828 
10367 
1089 
1119 
1237 
1090 
0149 


OoSTIC) 


CROSS- REFERENCE 


0269 
0436 
0597 
0754 
0757 


00 32 
0307* 
0636* 
0871 
1182 
0259* 
0822 
0585* 
0828% 
1038 
1090 
1161* 
1237* 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DETE 
EC HO. 


i3HAR7 
$71512 


6 


O6APR70O 
571516 


22EAY70 
571513 


0289 
0456*% 
0615* 
0759% 


0036 
0308 
0637 
1011% 
1182 
0357* 
04264 
0586 
0829 
1039 
1091 
1168 


0180670 
571531 


0290 
04572 
0623 
0760 


0040 
0393 
0648 
1012 
1188 
0358 
0524 
0681* 
O8uge 
1040 
1096 
1181 


0298 
O4ES 
0629*% 
0756* 


0042 
0394 
0649 
1018 
1195 
0360 
0525 
0682 
0850 
1048 
1097 
118 1* 


030K¢e 
OT1¢ 
0630 
0771 


0043 
C4uS59s 
O748e 
10568 
1223% 
0360 
0527 
06848 
0859 
1075 
1102 
1196¢ 


0305¢ 
Ou729 
0643 
O77 7* 


0083 
C460 
0749 
4057 
1229 
0361 
0527* 
O68u* 
0860 
1076 
1105 
12244 


0313 
owed 
0660 
07 78¢ 


0060 
Ou74Ke 
0780 
1058¢ 
12298 
037464 
0528 
0685 
0862 
1077 
1107 
12256 


0318 
0465S 
0670 
0789 


0064 
0475 
0781 
1064 
1232 
0375 
oOSuts 
0716¢ 
0862* 
1078 
11106 
1226 


PART NO. 5129632 
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0336 0396 

0503 0513 

C7248 0725¢ 

0808 0818 

00648¢ 0065 

0562* 0563 

0851* 0852 

1065 11328 

0377 0377¢ 

0582 0548 

0719 0825* 

6863 0915¢ 

1079 1080 
1WV4400«9915 

1228® 1230. 

PROG ID 0n07-2 
PAGE 1S, 


ay 


at 
- 


© «& 


ey 


oy 


ae 


Amy 


7 


IBA HAINTENANCE DIAGNOSTIC PROGRAM 


RO72 BEAD 


THE CHARACTER 


cL 1 THROUGH 16 


T+-¥:YGH G& CC< 


T#-Z25 -2?2D R'AZ C 


T#-DO AV2B1080-_ 


T+-,,B1VZB  EG1Y 
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‘IBA BAINTENANCE DIAGNOSTIC PROGRAB PART HO. 5129632 IBM SAINTENANCE DIAGNOSTIC PROGRANS PART NO. 5129632 
PAGE 17 PAGE V7A 7 
2072 READ DATA (DERGRBEOSTIC) A072 READ DATA (DIAGHOSTIC) 
{ 
OBJECT CARD LISTING o 1. 68 OBJECT CARD LISTI¥G oO 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 8C CL 81 THROUGH 96 6 6 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 6&8 CL 65 THROUGH 89 CL 81 THROUGH 96 : 
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SOURCE STATEMENT 
2 DECK 4 
3 AVE START 0 
4 ORG X*OA00! 
GS EERE EEE KEKE SEES EEESEEESEESE STEELE EOE SEES SE EEEESEERHEEERES FHEKEEEESEEEE 
6 * SECTION PREFACE 
7 * 
8 DC XL2' A083! PROGRAM ID 
9 pc XL7*00°8 SFCTION FLAGS 
10 pc XL1° 01! CURRENT ROUTINE NOMBER 
11 DC XL2'00!8 RESERVED 
42 DC AL2(RTN1} ADDRESS OF FiRST ROUTINE PREFEX 
13 DC AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE 
14 pc X¥L3*A01000! 
15 * 
16 Se eEK Ot SSE CSEKKK KES HK SS KEKRKKKKHKHSECAKEKK*ACEK STKE KARE SEEKS HD SE KKSEKEEKRHEKSEKSCHKRSS KH 
47 
18 * OPERATING INSTRUCTIONS 
19 * 
20 * 4. SET SWITCH 15 TO BYPASS RUNNING ON THE REMOVABLE DISK 
21 * 2. SET SBITCH 16 TO BYPASS RUNNING ON THE FIXED DISK 
22 * 3. SET SWITCH 71E TO NEVER RUN ON DISK DRIVE 1 
23 * 4. SET SWITCH 1F TO NEVER RUN ON DISK DRIVE 2 
24 
25 SETDSK ST SETE XT+3 ,AFR SAVE EXIT ADDRESS 
26 MVI SETSW,X'FF! SET SETUP SWITCH 
27 
28 CLI UDTPTR,O HAS POINTER BEEN INITILIZED? 
29 JNE UF IND1 JUME IF YES 
30 LA UTAB,XR1 LOAD IF NO 
31 UFIND2 ST UDTPTR,XR1 
32 UFINDI L UDTPTR,XR1 
33 LA LDFCRt1,XR2 
34 NVI REMVDS,0O RESET SWITCH FOR REMOVABLE ONLY 
35 TBN SWITCH+3,X*02! TEST SSW 1E 
36 JT *49 JUMP IF ON, NEVER RUN DISK DRIVE 1 
37 CLI 0(,XR1),X7A0! TEST FOR A UNIT ADDRESS OF ‘a? 
38 JE SETA JUMP IF THERE IS ONE 
39 TBN SWITCH+3,X'"O1! TEST SSW IF 
80 JT *+9 JUMP IF CN, NEVER RUN DISK DRIVE 2 
41 CLI 0(,XR1),X' BO! TEST FOR A UNIT ADDREAA OF 'B! 
42 JE SETB JUMP IF THERE IS ONE 
43 TBN 1(,XR1) ,X*'10! TEST FOR LAST ENTRY 
a4 LA 3(,XR1) ,X81 STEP FOINTER TO NEXT ENTRY 
a5 BF UF IND2 CONTINUE IF NOT THE LAST ENTRY 
46 E PRINT TO PRINT ALL UNITS SELECTED 
a7 DC XL1'06! FLAGS 
as DC IL1*26! LENGTH 
4g pc AL2 (NOUNIT) MESSAGE ADDRESS 
50 MVI SETSW,0 
51 MVC UDTPTR(2),TWOZR 
52 B LOAD TO PRINT NO ENTRIES LEFT 
53 pc XL2*4o08# FLAGS 
58 
55 SETA NZZ 0(,XR2),SPNDLA SET FOR SPINDLE A 
56 MVI SPNMSG,C'1°* SET MESSAGE FOR SPINDLE '1* 
S57 J SETBTH PROCEED 
58 
59 SETB MZZ 0(,XR2),SPNDLB SET FOR SPINDLE B. 
60 NVI SPNMNSG,C'2?* SET MESAAGE FOR SPINDLE '2? 
61 TBN 2(,XR1),X" 01" TEST OPTION BIT FOR REVOVABLE ORLY 
62 JF SETBTH JUMP IF NOT ON 
o MVI REMNVDS,X'FF* SET BIT TO RUN REMOVABLE ONLY 
4 
65 SETBTH LA 3(,XR1) ,XR1 STZP POINTER TO NEXT ENTRY 
66 ST UDTPTR, XR1 
67 MZZ LDFDR+1,.0(,XR2) SET FOR CURRENT SPINDLE 
68 MZZ SI0+1,0(,XRZ) SET FOR CURRENT SPINDLE 
69 NZZ WAIT4+1,0(, XR2) SET FOR CURRENT SPINDLE 
22MAY70 01A0G70 010CT70 PROG ID OA08- 
571513 571531 571540 PAGE 1 
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IBS MAINTENANCE DIAGNOSTIC PROGRAN 


A083 
ERR LOC 


OAA1 
OAA6 
OAAB 
OABO 
OABS 
OABA 
OABE 


OAFF 
OAC3 
OAC? 
OACA 
OACE 
OAD2 
OAD3 
OADY 
OAD6 
OADA 
OADB 
OADC 
OADE 


oBOCc 


OBOE 
OB OF 
OB1T0 
0B14 
OB12 
OB13 
OB15 
OBI6 
OBIE 
OB26 
0B293 
08314 
0B39 
OB41 
OB4S 
0B51 
OBSS 
0B61 


DATE 
EC NO. 


READ 


CBJECT CODE 


DATA 


ADDR STST SOURCE STATEMENT 


28 00 1AE2 00 

28 00 1AES 00 

28 00 1862 00 

28 00 1Bic GO 

28 00 73820 06 

CO 87 1454 

02 OQRBE 

3C CH OBOE 

38 08 1A6B 

F2 90 08 

3C 67 OBOE 

cO 87 0218 

01 OAD2 

21 OAD3 

0B61 OAD5 

cO 87 O2TA 

06 OADA 

18 OADB 

OB4O OAD? 

3c 00 184uC 

0c O02 184B 184C 

3c 00 1864 

co 87 0000 

CIDID3ZYOESDFSC9E3 OBDS 

E240C8C1ESCS40C2 

CSC5DS4OE3CSE2E3 

c5c4 

0000 OEOB 
0232 

0c GBboCc 

00 OBOD 

00 OBOE 

AO OB80F 

BO OB10 

00 0571 

00 0812 

0000 OBi4 

00 0B1S 

CIDSESCIDSC9CUKO 0528 

EZ2ZE2ZFGXOE?CSE3E3 

c9D5C7 

CSPEEGLOEICSEZE3 OBO 

C3IDSCTHOCUC9E2 D2 

KOCRDICIESCSLOET 

C2C5C7C9D54O0D9C5 OBA 

CICKHYOCHECTE3C14U0 

COEXDSC3IEICIDEDS 

HOEZCSE2E340C 1F0 

r8 

138AR70 OSAPRT70 

571512 571516 


70 
71 
72 
73 
748 
75 
76 


109 
109 


SET203 


PRTC PN 


SETEXT 


ROUNIT 


UDTFTR 
UT AE 
REMYDS 
SETSW 
TRACK # 
SPNDLA 
SPNDLB 
RUNRAV 
RUNFIX 
THCZR 
PASS 
INVFLG 


SPNBSG 


SECSSG 


22H AY70 
571513 


PART XO. 5129638 
PAGE 1a 
MZZ  TSTERR+1,0(,XR2) SET FOR CURRERXT SPIADLE 
MZZ TSTSCN+1,0(,XR2) SET FOR CURRENT SPINDLE 
"ZZ SNS4+1,0(,XR2) SET FOR CURREKT SPINDLE 
ZZ  RLDFCR+1,0 (,XR2) SET FOR CURRENT SPINDLE 
SZZ  RS10+1,0(,X82) SET FOR CURRENT SPINDLE 
B SENSE 
DC XL17'02! ASK FOR DEVICE STATUS BYTES 0 & 1, 
MYI TRACK#,203 SET FOR FULL CAPACITY DISA 
TBN STATUS,X'O8! TEST CYL 100 BIT 
JF PRTSPH JUMP IF CFF 
AVI TRACK#,102 SET FOR 1/2 CAPACITY DISK 
B PRINT TO PRINT SECTIOW HEADING 
DC XL7'018 FLAGS 
Dc IL1* 33? LENGTH 
DC AL2(SECHSG) SESSAGE ALDRESS 
B PRINT TO PRINT SPIRDLE 
DC KL1"068 PLAGS 
DC IL1*24 LENGTH 
pc AL2(SPNMSG) MESSAGE ADDRESS 
NVI HDTBL+3,0 ZERO HEAL 
MVC HDTBL+42 (3) ,HDTBL+3 ERROR FLAGS 
AVI. FRSTPS,O SET SWITCH FOR RECALIPRATE 
B *-* EXIT 
DC CL26*ALL UNITS HAVE BEEN TESTEL* 
DC XL2°0° 
EQU = X*. 232 
DC XL1"0# 
rc XL1°O! 
pc XL1°00" 
pc XL 1° A0? 
DC XL1"BO! 
DC XL1"08 
pc XL1"0# 
pc XL 2°08 
pc XL1°O! 
DC CLI9*INVALID SSW SETTING* 
pc CL24"NOW TESTING DISK DRIVE x* 
pc CL33*BEGIN READ DATA FONCTION TEST AO8* 
01A0G70 010CT70 FROG ID 0A08- 3 
571531 5715480 PAGE 1A 


a 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


A083 
ERR LOC 


OB62 
OB66 
OBGA 
OB6D 
0B71 
OB74 
OETA 
OB7D 


ORBO 
OB84 
0B87 
OBSB 
OBSC 
OB8D 
‘OBS F 


0B91 
OB95 
OB97 
OEQE 
OB9P 
OBA3 
OBAG 


OBAA 
OBAE 
ORB 
OBBS 
OBBSB 
OF BC 
0 FCO 
OBC 
OBC9 
OBCD 
OBDA. 
OBDS 


OBDS 
OBDC 
OBDF 
OBES 
OBES 
OBEC 
OBF2 
0 BF6 


OBFA 


OBFE 
0c02 
0Cc06 
0c 09 
ocor 
0c71 
oci15 
0c19 
OCcir 
0Cc24 


DATE 
EC NO. 


READ 


OBJECT CODE 


34 
3D 
F2 
3c 
F2 
oD 
F2 
F2 


co 


3D 
3c 
F2 


co 
3c 
3D 
co 
co 
00 


08 
00 
01 
FF 
87 
01 
81 
87 


06 
00 
01 


87 
00 
03 
81 
87 


OBFPD 
OB1S 
07 

0B15 


13MAR7O 


571512 


DATA 


ADDR 


OBITS 


OBSB 
OBBC 
OBBE 
0B90 


OB9S6 


TA53 


TA53 


1A53 


oc21 


OGAPR7O 
571516 


STAT 


111 
112 
4113 
114 
115 
116 
417 
118 
119 
120 
127 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
449 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


SOURCE STATEMENT 


TSTSPNH 


SETSPN 


TSTSW 


TSTRSV 


TSTFIX 


SETRAV 


FIZED 


TSTEXT 


ZRCCTR 


STEP 


22MAY70 
571513 


ST 
CLI 
JNE 
BVI 
J 
cue 
JE 


BVI 


CLI 


ALC 
CLI 


ALC 
AVI 
MVI 


CLI 
BVI 
JNE 
mVI 


BVI 
CLI 
BE 


pc 


01A0G70 
571531 


TSTEXT+3, ARR 
PASS,O 

SETSPN 

PASS, X'PF* 
TSTSW 
RUNFIX (2) ,TWOZR 
ZROCTR 

SETRAV 


SECTSW,X' 06° 
TSTRHV 
PRINT 
XL1i*cé6! 
ILi*i9! 
AL2(INVFLG) 
XL2'AOFA® 


HALT 
XL2*AOPA* 
TEST 

TSTSW 
SECTSW,X'OU! 
TSTPIX 
RUNRMV,X* FFP 


SECTSW,X*02! 
SETRMYV 
REMNVDS, X'FF!? 
SETRMV 
RUNPIX,X'FF! 
RUNRMV,0 
FIXED 

TBLH (2) ,ONE 
STEP, 1 
DISKTP,O 
RUNRMV,0 
TSTEXT 


RUNPIX,0 
ZROCTR 

TBLH (2) , ONE 
STEP,1 

*4+9 

TBLH (2) ,ONE 
DISKTP,X'O8"* 
RUNFIX,9 


*-*% 


X'0A03?, 06 
PASS,0 
*4141 
SETSwW, 0 

0 

STEP, 0 
X'O0A03',03 
CKHDER 
LINK 

XL17* 08 


010CT70 
571580 


PART NO. 5129638 
PAGE 2 


STORE EXIT ADDRESS 

IS THIS THE FIRST TIME THROUGH ? 
JUMP IF NO 

SET SWITCH 

PROCEED TO TEST SWITCHES 

HAVE ALL DISKS SEEN RUN? 

JUMP IF YES 

SGMNP IF HNO 


TEST FOR BOTH SSW'S 15 6&6 16 ON 
JUMP IF BOTR NOT ON 

TO PRINT INVALID SS SETTING 
FLAGS 

LENGTE 

MESSAGE ADDRESS 

MESSAGE ID 


TO DCF ERROR HALT 
HALT ID 
TO REERD CONSOLE SWITCHES 


TEST FOR SWITCH 15 ON 
JUMP IF ON 
IF NOT ON, SET TO RUN REMOVABLE DISK 
TEST FOR SWITCH 16 OR 
JUMP IF ON 
TEST FOR RUN REMOVABLE ONLY 
JUMP IF NEVER RUN FIXED 
IF NOT ON, SET TO RUN FIXED DISK 
DO WE WANT TO RUN ON REMOVABLE? 
JUMP IF KO 
INCREMENT TABLE POINTER 
SET SWITCH TO INDICATE SANE 
SET TO RUN ON REMOVABLE 
CLEAR RUN REMOVABLE SWITCH 


TO EXIT 


DO WE WANT TO RUN 
JUMP IF NO 
INCREMENT TABLE PCINTER 
TEST FOR PREVIOUS INCREMENT 
JUMP IF YES 

INCREMENT TABLE POINTER 

SET DISK TYPE TO FIXED 
CLEAR RUN FIXED SWITCH< 


ON FIXED? 


EXIT 


CHECK FOR LAST ROUTINE 
ZERO SWITCH 

JUMP IF NOT LAST ROUTINE 
RESET SWITCH 


CHECK FOR COMPLETION OF ROUTINE 3. 
BRANCH TO CHECK ERRORS 
TO NEXT ROUTINE 


PROG ID 0a0s-3 
PAGE 2 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS 


A083 


ERR LOC 


0C22 
0c23 
0c24 


0C26 
Oc2A 
OC2E 
0C32 
0c36 
OC3A 
OC3FE 
oc4s 
0c4s 
oc4ags 
OC4A 
oOcK&Cc 
ocso 
ocs4 
oc58 
ocsc 
OCcSr 
OCSE 
0c60 
0C62 
OC6E 
0c68 
OC 6C 
OC6D 


0c71 
oc74& 
0c78 
oc79 
OC7A 
oc7c 
OCT7E 
0c82 


ucsy 


0C&8 
0c90 
ocg98 
NOCAC 
OCA8& 
OCBO 
OCB7 
OCBD 
occs 
NCCE 
OCDS 
ocDD 
OCES5 
OCED 
OCF 1 
ocrs 
oroo 
oDp08 
0D10 
0D18 
0D20 
Or28 
op2c 
OD34 


DATE 
' EC WO. 


READ 


OBJECT CODE 


o1 
co 
OD 3B 


3D 00 
CO 81 
cO 87 
3c 00 
co 87 
3c FF 
oc 01 
CO 87 
01 

00 
TAYE 
co 87 
cO 87 
cO 87 
cO 37 
C6 

3B 
OcPr7 
A040 
co 87 
A040 
cO 87 
02 

38 08 


OB0D 
OAOD 
0B62 
TA6R 
I8ED 
TAGFP 
1A51 
1A83 


OB14 


0c58 
ocs4 
0cé68 
O21A 


0222 
TA54& 
TAGA 


F2 710 10 
co §7 O21A2 
C6 

43 

OD 3A 
A041 
co 87 
A041 


0222 


CO 87 OC2E 


E3CB8C540D7D9CSES 
C9 L6EXE2UOCSD9ODI 
D6EDSE2ZRODEC3CIE4 
D9 DECSCH4OE6CBCI 
D3C5XO0E2C5SC5D2C9 
CSC7T4UOE3CB8C5S4O 
C3C54O0C3E8D3 
DICSCIC4BOCHCITE3 
C140EGE2C9D5C740 
C14ODSD6ED54OC5E7 
CIEZEICIDSESHOE2 
CS5C3E3D6D940C9C4 
4OCUCIOCS4ODSDEE3 
KOCTCSES 
CS¥OCSDIDIDEDY 
DS5DEXOD9IC5C34BHN 
C6 T6 EY CSCK4ODSDE 
E340 E2C5E340C 2E8 
4O0C140D9C5C1IC44O 
C¥CTE3ZCISOC3IDED4 
D&C1IDSC4H& OEXE2C9 
p5c74&0Ci 
E2C5C3E3D6D948 0C9 
C4 HO DECEYOCE6CE 


13MAR70 
571512 


DATA 


ADDR STMT 


0cus 
0ck9 
OC4&B 


ocsc 
CcSD 
OCSF 
0c61 
0Cc67 


OCcéC 


0c78 
0c79 
0C7B 
oc7D 


0c83 


OCBE6 


OcBC 
OCFO 


OCF7 
OD2B 


OD3IA 


O6APRT7O 
571516 


171 

172 

173 

178 

175 

176 

177 
178 

179 

180 

181 

182 

183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
208 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
215 
215 
215 
215 
215 
216 
217 
217 
217 
217 
217 
217 
217 
218 
219 
219 
219 
219 
219 
219 
219 
220 
220 


SOURCE STATEMENT 


* 
2 
* 
* 
RTN1 


BEGIN 


RINVA 


RTNIA2 


RTN1IB 


RTNIC 
ERFOR9 
ERRIA 


ERR1B 


22MAY70 
571513 


ROUTINE NO. O1, 


PART WO. §129638& 

PAGE 2a 

CHECK FUNCTION OF BO RECORD POUND ° 
SENSE BIT, (BYTE 0, BIT 5) s 
THE READ DATA COPMSAND e 

¢ 


ROUTINE PREFACE 


ROUTINE KO. 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 

HAVE PARAMETERS PEER FNTERED? 
BRANCH IF KO 


ZERO SENSE AREA 

TO SPREK THE CE TRAC? 

SET CYLINDER BO. TC FOPCE A WRF. 
SET FOR TRACK 0, SECT. O 

TC I/O SUBROUTINE 

FUNCTION CODE {READ} 

CONTROL CODE (LATA) 

CONTROL FIELD ADDRESS 

GCCD RETURKR, (KOT EXPFCTED) 


NORMAL RETORK FROS® EXPECTED ZPROR 
TO PRINT ROUTINE ERROR 

PLAGS 

LENGTH 

ADDRESS OF LAST 
MESSAGE ID 

TC DCP HALT 
HALT ID 

TO SENSE I/O SUBROUTINE 

DEVICE STATUS BITES 0 & 1 

TEST BYTE O, BIT S FOR O% 

THIS IS *NO RECCRD POUND® 

JUMP IF OF 

TO PRINT ERROR 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 
MESSAGE ID 

TO DCP HALT 

HALT ID 


sPRINT CHARACTER 


ROUTINE EXIT 


CL&7"THE PREVIOUS EFRORS OCCURRED WHILE SEEKING THE ° 


CL52*READ DATA DSING A NON EXISTANT SECTOR ID DID NOT Giv* 


De XL1°01°* 

pc XL1'00° 

pc AL2 (RTN2) 

CLI SETS#, 0 

BE SETDSK 

B TSTSPN 

AVI STATUS-17,0 

B SEEKCE 

AVI RDDFC+1,X*FF® 
MVC RDDFC+3(2) ,TWOZR 
2 STRTIO 

DC XL7°O1! 

Dc XL1*00° 

pc AL2(RDDFC) 

B RTNIAZ 

B +4 

Ez RTNVB 

B PRINT 

Dc XL1°*C6°* 

pc IL1*59# 

Dc AL2(ERRTA) 

pc XL2‘AO4O® 

B HALT 

cc XL2* A040? 

B SENSE 

DC AL1(STATO1) 
TBK STATOS-1,X°O4? 
JT RTWIC 

B PRINT 

DC XL 1'C6* 

pec ¥L1°67° 

pe AL2 (ERR1B) 

Dc XL2*AO4U1* 

B HALT 

cc XL2*a0a1* 

B RTNWA 

DC 

DC CLO6'CE CYL* 
pc 

pc CLO7°E ERROR® 
Dc CL52*NO REC. 
DC CL15*SECTOR ID OF FF* 
01A0G70 010CT7O 
571531 571540 


FOUND NOT SET 


BY A READ DATA COMMAND USIKG A® 


PROG ID 0a08-3 
PAGE 2A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 








PART NO. 5129638 IBM MAINTERANCE DIAGNOSTIC PROGRAB PART NO. §12963a8 
PAGE 3 Cc .@a PAGE 3a C 
A083 READ DATA c a BEA BD DAD BR 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ER& LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
222 * ROUTINE NO. 02, CHECK READ DATA FONCTION * G:oO ODF6 F2 87 92 290 J RT N2K 
223 * USING HEADS 0 & 2 291 
= 224 ODF9 CO 87 189B 292 RTR2B2 B TSTDAT TO TEST DATA ADDRESS 
OD3B 02 OD3B 225 RTN2 DC XL1°02¢ ROUTINE NUMBER C.ea ODFD 1FCO ODFE 293 Dc AL2 (READ*¢256) 
ODp3c 00 Or3C 226 Dc XL1°00! ROUTINE FLAGS 294 
OD3D 105B OD3E 227 pc AL2(RTN3) ADDRESS OF NEXT ROUTINE PREFIX ODFF 3D FF 1A4D 295 RTN2C1 CLI WRIDFC+3,X*FF? TEST SECTOR COUNTER FOR STEPPING. 
228 GS Cc 0£03 F2 81 10 296 JE RTN2C2 PROCEED IF OK. 
OD3F C2 02 1848 229 LA HDTBL- 1, XB2 SET POINTER OEO6 CO £7 O21A 297 B PRINT TO PRINT SECTOR CCUNTER ROT STEPPED 
OD43 34 G2 182E 230 ST TBLH,XR2 POR HEAD 0, REMOVABLE DISK OEOA C6 CECA 298 cc XL1'C6! FLAGS 
OD&7 3D 00 OBOD 231 CLI SETS¥,0 HAVE PARAMETERS BEEN ENTERED? Ce OEOE 28 OFO0B 299 DC IL1*43! LENGTH 
ODUEF CO 81 GADD 232 BE SETDSK BRANCH IF NO OEOC OFS OFOD 300 DC AL2(ERRO2B) MESSAGF ADDSESS 
OD&8F CO 87 0B62 233 RTNZA B TSTSPN OEOE A043 OEOF 301 DC XL2*a043* MESSAGE IDENTIFICATION 
0D53 C2 02 182F 234 LA SECTBL, XR2 SET ERROR TABLE POINTER Cc € 0£10 CO 87 0222 302 B HALT TC DCP HALT 
on57 BC 00 17 235 MVI 23(,XR2),0 ZERCG SECTOR OF14 A043 CE15 303 pc XL2* A043? HALT ID 
ODSA AC 16 16 17 236 MVC 22(23,XB2) ,23(-XR2) ERROR FLAGS 304 
ODSE 3c 00 1A4UC 237 MVI WRTDFC+2,0 SET POR HEAD 0, SECTOR 0 oO g 0E16 OD 00 1A8C 105A 305 RTN2C2 CLC WRTIDPC+2(1), EXPSEC CHECK HEAD & SECTCR KO. AFTER 
OD62 3c 00-105A 238 MVI  EXPSEC,0 SET EXPECTED HEAD & SECTCR NO. 306 * WRITE YS COMPLETED, (EXPECT NO CHG.) 
OD66 CO 87 18ED 2393 B SEEKCE TO SEEK THE CE TRACK OEIC F2 81 10 307 JE RTR2D PROCEED IF OK 
240 Cc ¢ OEIF CO 87 O21A 308 B PRINT TO PRINT ERROR 
OD6A 3C £7 1EBF 241 RTN2B MMVI WORK4+255,X'E7! SET WRITE FIELD 0£23 C6 0£23 309 Dc KL1"Cc6! FLAGS 
OD6E OC FE 1EBE 1EBF 242 MVC WORK+254(255) , WORK +255 GE24 43 OE24 310 pc IL1*67° LENGTH 
243 G € 0E25 OFCS OE26 311 Dc AL2(ERRO2D) SESSAGE ADDRESS 
Op74 3C 00 1FBF 248 MVI READ+255,0 SET READ FIELD O£27 A044 OE28 312 DC XL2*a04u? MESSAGE IDENTIFICATION 
OD78 OC FE 1FBE 1FBF 245 MVC READ#+254 (255), READ#255 TG ZEROS 0£29 CO 87 0222 313 B HALT TO DCP HALT 
246 ta 5 OF2D AO0us OE2E 314 cc XL2*aQuu? RALT ID 
OD7E 3C 12 1BD8 247 MVI  SNSID,X'12° PUT MESSAGE ID IN PRINT 315 
OD82 3C 00 TA4ND 248 MVI «=WRIDFC+3,0 SET TO WRITE ONE SECTOR OE2F C2 02 1DCO 346 RTN2D LA WORK, XR2 SET XR2 TO POINT TC WORK AREA 
OD86 OC 00 1AKC 105A 249 MVC WRTDFC+2 (1) ,EXPSEC SET SECTOR NO IN CONTROL FIELD <- 0E33 BD E7 00 317 RTN2F CLI 0O(,XR2),X*E7* CHECK WORK AREA FOR NO CRANGE 
250 0£36 F2 01 14 378 JHE &TN2E JOMP TC PRINT JF WRT. FLD. IS CHG. 
Op8c C2 01 1DC0 251 LA WORK ,XR1 SET WRITE DATA ADDRESS 0£39 E2 02 01 319 LA 1(,XR2) ,XR2 NOT DONE, INCREMEKT XR2 
Op90 34 01 1R6D 252 ST DFDP,XR1 IN DATA CONTROL FIELD C. -© O£3C 34 02 1A6D 320 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE 
253 OE4O OD 01 1A6D 1996 321 CLC SNSXR2(2) ,WORKI CHECK X82 FOR REACHED UPPER LINIT. 
OpD94 CO 87 1A83 254 E STRTIO TO I/O SUBROUTINE OEG6 F2 81 14 322 JE RTN2G TO ROUTINE ERD. 
0D98 02 op9s 255 DC XL1°02! FUNCTION CODE (WRITE) ee OE49 CO 87 0233 323 E RT H2F CHECK BEXT BYTE 
0p99 6O 0D99 256 DC XL1*00* CONTROL CODE (DATA) 324 
OD9OA TA4A OD9B 257 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS OE4r cO 87 O21A 325 RTN2ZE B PRINT TO PRIKT DATA FIELD WAS CHARGED 
ODSc CO 87 ODAS8 258 EB RTN2B1 GOOD RETURN SS O£51 C6 OES1 326 DC XL1'C6* FLAGS 
ODAC CO 87 ODAY 259 B *+h O£52 39 OE52 327 Dc IL1* 57° LENGTH 
ODA4 CO B87 OEFAY 260 B WRTER2 ERROR RETURN OE53 OFB2 OE54 328 pc AL2 (ERRO2C) BESSAGE ADDRESS 
261 GS «¢ 0E55 AOKS 0£S6 329 DC XL2* A04S* MESSAGE IDENTIFICATION 
ODAS 32 42 1BD8 262 RTN2B1 MVI  SNSID,X*'42° PUT ID IN PRINT 0£57 CO 87 0222 330 B BALT TO DCP HALT 
OPAC 3C 00 1A4D 263 NVI WRTDFC+3,0 SET TO READ ONE SECTOR OE5E aus OE5C 331 pc XL2*°a045* HALT ID 
ODEO OC OO 1A4C 105A 264 MVC WRTDFC+2 (1), EXPSEC SET SECTOR NO IN CONTROL FIELD ¢c ¢ 332 
265 OE5D C2 02 1ECO 333 RTN2G LA READ, XBR2 LOAD REALDFIELD ADDRESS 
OpDB6 C2 01 ECO 266 LA READ,XR1 SET READ DATA ADDRESS O£F61 BD E? 60 334 RTK2H CLI O(,XR2),X*E7* CHECK EACH BYTE OF READ FIELD 
ODBA 34 01 1B6D 267 ST DFDR,XR1 IN DATA CONTROL FIELD Sees Se OF64 F2 01 18 335 JNE R&TN2I JUMP TO PRINT IF ERROR 
268 0E67 E2 02 01 336 LA 1(,XR2) ,XR2 STEP XR2 TO NEXT BYTE OF READFIELD 
ODBE CO 87 1A83 269 B STRTIO TO READ DATA OE6A 38 02 1A6D 337 ST SNSXB2,XR2 STORE FOR COMPARE 
Opc2 01 ODcC2 270 DC XL1°01! FUNCTION CODE (READ) Ue OE6E OD 01 1A6D 1D00 338 CLC SNSXR2 (2) ,READ1 CHECK FOR FINISHED 
opc3 00 opc3 271 DC XL1"00? CONTROL CODE (DATA ) OE74 F2 81 18 339 JE RTN2K JUMP IF FINISHED 
ODCS 1A4A opcS 272 pc AL2 (WRTDFC) CONTFOL FIELD ADDRESS OE77 CO 87 O0F61 340 B RTN2H BRANCH BACK IF NOT DONE 
opc6 cO 87 ODF9 273 E RT N2B2 GOOD RETURN c¢ ¢ 341 
OLCA CO 87 ODCE 274 B 244 OE7B CO 87 O21A 342 RTR2I_ B PRINT TO PRINT DATA COMPARE ERROR 
275 OE7F C6 OETF 343 Dc XL1°C6* FLAGS 
ODCF CO 87 1D01 276 RTN2C B SHIFT TO SHIFT BITS FOR DECIMAL NUMBER Co 8 OESO 4A OF80 384 DC IL1*7a" LENGTH 
ODD2 1AGA ODD3 277 pc AL2 (WRTDFC) ADDRESS OF SOURCE OE21 1059 OF82 345 DC AL2(ERRO2P) MESSAGE ADDRESS 
OpDa CO 87 1D52 278 B CVD TO CONVERT TO DECIMAL NUMBER OE83 ADK6 OE84 346 DC XL2*a04a6* MESSAGE ID 
ODDB 1D46 ODD9 279 DC AL2 (CYLNO) ADDRESS OF SOURCE Cc “& OE85 CO 87 0222 347 E HALT TO DCP ERROR HALT 
ODDA OF 1E ODDB 280 Dc AL2 (ERRO2A) ADDRESS GF DESTINATION O£89 A046 OE8A 348 cC XL2' A046" HALT ID 
Orpc 3c 40 OFIC 281 MVI ERRO2a-2,C* ° SET A BLANK IN PRINT IMAGE 349 
ODEO CO 87 179F 282 B SETERR TO SET ERROR FLAG FOR THIS SECT. eS OESE 3D SC TASC 350 RTN2K CLI WRTDFC+2,x*5C? TEST FOR LAST SECTOR OF TRACK 0 
ODEY CO 87 1BB1 283 B PRTSNWS TO PRINT SENSE INFO. OE8F F2 01 28 351 INE BTN2S JUMP IF NOT DONE 
ODER CO 87 O21A 284 B PRINT TO PRINT THIRD LINE 0£92 CO 87 17BD 352 B CK HED TO CHECK FOR ERRORS 
ODEC 06 ODEC 285 DC XL1°068 PLAGS Cc 0£96 CO 87 ODUP 353 RIN2L B RTN2A 
ODED 58 ODED 286 pc IL1¢88? LENGTH OE9A OF 00 105A 199A 354 RIN2M ALC EXPSEC(1) ,ONESEC INCREASE EXPECTED HEAD & SECTOR KO. 
ODEE OP IE ODEF 287 pe AL2 (ERRO2A) MESSAGE ADDRESS OEAO CO 87 OD6A 355 B RTN2B REPEAT OB NEXT SECTOR 
r ODFO CO 87 0222 288 B RALT TO DCP HALT Oo @ 356 
ODF4 A04u2 ODF5 289 Dc XL2*a042" HALT ID OEAN 3C 12 1BD8 357 WRTER2 AVI SNSID,X°12° PUT ID IN PRINT 
C Cc 6S 
DATE 13MAR70O O6APR70 22MAY70 0 1A0G70 010CT70 PROG ID 0a08-3 DATE 13 MAR70 O6APR70 22MAY70 01A 0G 70 010CT70 PROG ID OA08-3 
EC NO. 571512 571516 571513 571531 571580 PAGE 3 EC NO. 571512 571516 571513 571531 5715480 PAGE 3a 
C Oo eo 
c o 98 
0: 8 


IBM MAINTENANCE DIAGNOSTIC PROGRAH 


A083 
ERR LOC 


OEA8 

OEAC 

OFB1 

OEBS 

OEBI 

OFBA 

OERPR 

OEBD 

OFC1 

OEC3 

OEC7 

QECF 

OED? 

OEDF 

OFE? 

. OEEF 

OEF? 

OEFR 

OFO3 

OFOB 

OF 13 

OFIE 

OF 1F 

OF27 

OF 2F 

OF 37 

OF 3F 

OF&? 

OF UA 

OF52 

‘ OFSA 
OF 62 

OF6A 

e OF72 
OFT7A 

OF7E 

£ OF83 
OF 8R 

OF93 

e OFOB 
OFA3 
OFAB 
OFB3 
OFB? 
OF BF 
2 OFCE 
OFCE 
OFD6 
OFDE 
OFE6 
OFFE 
OFF 6 
OFF? 
OFFF 
1007 
100F 
1010 
1018 
1020 
1028 
1030 
1038 
1032 


oe 


oy 


oe 


rn 


fn 


em 


1OWA 
1052 
¢ 105A 


DATE 
EC NO. 


c 


PART KO. 5129634 
PAGE 4 
READ DATA 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
35 01 1828 358 L TBLH, XR1 
ic 00 100F 04 359 MVC  ERRO2E(1),4{,XR1) MOVE HEAD NO. TO ERROR MSG. 
se a 1BB1 360 B PRTSNS TO PRINT STATUS ERFORS 
027A 361 B PRINT TO PRINT WRITE ERROR 
06 OFB9 362 pc XL1*06" FLAGS 
uA OEBA 363 DC ILi'74 LENGTH 
10 0F OFBC 368 pc AL2 (ERRO2E) MESSAGE ADDRESS 
CO 87 0222 365 z HALT TO DCP ERROR HALT 
A012 OFC2 366 pc XL2*A012! HALT ID 
Se eR: 367 B RTN2L 
D7D9CSES OEFA 368 DC CL52! 7 
Eee a8 52'THE PREVIOUS EPRORS WERE PRESENT AFTER DOING A READ 
D6D9EZ4OE6C5D9C5 368 
4OL7D9C5F2C5DSE3 368 
YOCIC6E3IC5D940C4 368 
[6 C9DSC740C140D9 368 
C5CICU4O 368 
C¥C1IE3C140C3D6D4 OF1E 369 ERRO2A ' : : 
Bye catees a 2A DC CL36"DATA COMMAND USING NEAD X, SECTOR XX 
P5C740C8C5C1C440 369 
E76B 4 0E2C5C3E3D6 369 
C9 4YOE7 E7 369 
E2C5C3E3D6D940C3 OF49 370 ERRO ' T . 
Peeteee ees 320 2B CC CL43'SECTOR COUNTER IN CONTROL FIELD NOT STEPPED 
D5 40C 3D6DSE3D9D6 370 
DI4OCECICSD3ICHHO 370 
D5D6E340E2E3C5D7 370 
D7CSC4 370 
E6DICSEICS4OCHC9 OFTD 371 ’ I 
eevee cere 7 DC CL52'*WRITE FIELD WAS ALTERED AFTER GIVING A READ DATA CO! 
C1D3E 3C5D9C5C4u40 371 
C1C6E3C5D940C7C9 371 
E5 C9D5C740C140D9 371 
CSCICUYOCHC1E3C1 371 
BOC3D640 371 
Direc Dees OF82 372 ERRO2ZC DC CLOS'*MMAND! 
C44OSONOE2 OFB6 373 ' z 
Eee Cro Oe OE? or DC CL52*HEAD & SECTOR BYTE OF CONTROL FIFLD CHANGED AFTER A * 
E3CS4OD6CE40C3D6 373 
D5SE3D9DED340CECE 373 
C553C840C3C8C1D5 373 
C7C5C440C1C6E3C5 373 
D940C 140 373 
D6D5CS40E2C5C3E3 OFCS 374 ERRO2D DC CL15"*ONE SECTOR READ! 
D6 P98OD9CcSc1cK4 374 
E3C8C540D7D9CSES OFF6 * 375 Dc 49s i 
Behe 0b 0seore a CL49'THE PREVIOUS ERRORS OCCURRED WHILE DOING A WRITE ' 
D5D9E240D6C3C3 E48 375 
DILICSCU’YOEBCBCY 375 
D3C540C4 D6C9DSC7 375 
YOCTUOEBDSCIE3CS 375 
texas re 
CIX0C3D6D4 100F 376 ERRO2ZE DC c.u25* ‘ 
eee CTaGe sp eps eae 25"*DATA COMMAND DSING HEAD 0 
D5C74OC8C5C1C840 376 
eC 4 ae 
C&’4OC6C9C5 1039 377 DC ' : 
Eoeoe ene ococses oe CL42"*READ FIELD DOES NOT CONTAIN EXPECTED DATA * 
D5D6E380C3D6D5E3 377 
CICODS4OCSE7DICS 377 
C3 F3CSCUYOCHCIE3 377 
c140 377 
CIC6E3C5D940C7C9 1059 378 ERRO2F DC CL32'aF , 
prcencconenccice a TER GIVING A READ DATA COMMAND 
C5CICU4OCACTE3C1 378 
40C3D6D4D4ac1D5C4 378 
00 105A 379 EXPSEC DC XL1°O8 
13MAR70 O6APR70 22MAY70 01A0G70 010 - 
571512 571516 571513 571531 Syisao. pice on ae 


o» © @ © 6 6 86 © 


Oo 


oy oO 


ry 


cy 


S 


oy 


ee) 


©) 


co © 


cy 


D 


oOo Oo O 


ao oOo aA 2 9 O02 0 @ &@ & @ 


Oo 0 Oo 9 


g-) 


oOo Oo ff 
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IBN MAINTENANCE DIAGNOSTIC PROGRAMS 


A083 


ERR LOC 


105B 
105C 
105D 


105F 
19063 
1067 
1063 
106F 
1073 
1077 
107A 
107E 
1082 
1086 


108A 
108E 


1094 
1098 


109E 
T0A2 
10A6 


TOAC 
10B0 


TOBY 
10B8 
1089 
iOBA 
10BC 
10CcO 
Toca 


10C8 
1OoCcc 
10D0 


10D6 
10DA 


1ODE 
TOE2 
10E3 
10E4 
10E6 
1OEA 


10FE 
10F2 
10F4 
10F8 
1OFA 
TOFC 
1100 
7104 
1108 
110C 
110D 
110E 
1110 
1114 


DATE 
EC NO. 


REA 


D DATA 


OBJECT CODE 


03 
00 
11E7 


C2 
34 
3D 
co 
co 


BC 
AC 
3c 
3c 
co 


3c 
0c 


55 

OP 1E 
co 87 
A047 


184A 
182E 
OBOD 
CAOD 
OB62 
182F 


16 «17 
TAaC 
105A 
Y8ED 


1EBF 
TEBE 


IFEBF 
IFBE 


iBD8 
TA4D 
TASC 


1DcO 
1B6D 


1A83 


10C8 
10C4 
11c4 


1BD8 
TA4D 
TASC 


1ECO 
1B6D 


7483 


1119 
10EE 


1D07 
1D52 
OFIC 
179F 


1BB1 
O21A 


0222 


13MART7O 
571512 


TEBF 


1FBF 


105A 


105A 


ADDR 


105B 
105¢c 
105E 


10B8 
10B9 
10BB 


10E2 
1053 
10E5 


10F3 


10F9 
10FB 


1710c 
110D 
110P 


1715 


O6APR70 
571516 


STNT 


381 

382 

383 

3848 

385 
386 

387 

388 

389 
390 

391 

392 

393 

394 

395 
396 
397 
3938 
399 

400 
401 

402 
403 
404 
405 

406 
407 
408 
409 
410 
411 

R12 
413 

814 
815 

416 
417 
418 
419 
420 
421 
822 
823 
428 
425 
426 
427 
428 
429 
430 
431 

&32 
433 
434 
435 
436 
437 
438 
839 
440 
ayy 
a4u2 
4&3 
UhY 
Q4s 
446 
yay 
848 


SOURCE 


* 
* 


RTNI 


RTN3A 


RTN3B 


RTN3B1 


RT N3C 


22M AY70 
571513 


53129638 


PAPT NO. 
PAGE GA 
STATEMENT 
ROUTINE KO. 03, CHECK READ DATA ® 
USING HEADS 1&6 3 
pc XL1°03' ROUTINE NOMBER 
Dc XL1°00° ROUTINE FLAGS 
pc AL2(RTH4) ADDRESS OF NEXT ROUTINE PREFIX 
LA HDTBL+1,XR2 SET POINTER 
ST TBLH,XR2 FOR HEAD 1, RENOVABLE DISK 
CLI SETSW,0 HAVE PARASETERS BFEN ENTERED? 
BE SETDSK BRANCH IF xO 
E TSTSPN 
LA SECTBL,XR2 SET ERROR TAELE PCINTER 
MVI 23(,X322),0 ZERG SECTOR 
MVC 22 (23,XR2) »23{ eXR2) ERRCR FLAGS 
SVI WRIDFC+2 ,X* 80? SET FOR HEAD 1, SECTOR 0 
NVI EXPSEC,X'80* SET EXPECTED HEAD 6 SECTOR FO. 
B SEEKCE TO SEEK THE CE TRACK 
MVI WORK+255,X*E7? SET DATA FIELD 
nYvC WORK +254 (255) ,WORK #255 
BVI READ+255,0 SET READ PIELD 
AVC READ+254& (255), READ#255 TO ZEROS 
NVI SNSID,X* 16? PUT ID IK PRINT 
BVI WRTDPC+3,0 SET TO WRITE CNE SECTCR 
MVC  WRITDFC+2(1),EXPSEC SET SECTCR NO IN COXTROL FIELD 
LA WCRK,XR1 SET WRITE DATA ALDRESS 
ST DFPDR,XR1 IK DATA CONTROL FIELD 
B STRETIO TO WRITE DATA 
pc XL1*02* FUNCTION CODE (WRITE) 
pc XL1*00* CONTROL CODE (DATA) 
DC AL2 (WRTDFC) CCNTROL FIELD ADDRESS 
B RTN3B1 GOOD RETURN 
B *+4 
B WRIER3 ERROR RETURN 
HVI SNSID,X'U7? PUT ID IN PRINT 
BVI WRTDFC+3,0 SET TO READ OKE SECTOR 
MYC WRTDPC+2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD 
LA READ, XR1 SET READ CATA ADDRESS 
st DFDR,XR1 IW DATA CONTROL FIELD 
B STRTIO TO READ 
pc X¥L1°01° FUNCTION CODE (READ) 
pc XL1'00* CONTROL CCDE (DATA} 
pe AL2 (WRTDFC) CONTROL PIELD 
E RT N3 B2 GCOD RETURNS 
B +8 
B SHIFT TO SHIPT BITS FOR DECIMAL RUMBER 
pc AL2 (WRTDFC) ADDRESS OF SOURCE 
BE cvp TO CONVERT NUMBER TO DECIMAL 
pc AL2 (CYLNO) ADDRESS OF SOURCE® 
pc AL2 (ERRO2 A} ADDRESS OF DESTINATION 
BVI ERRO2A-2,C* * SET A BLANK IN PRINT IMAGE 
B SETERR TO SPT ERROR FLAG FOR THIS SECT. 
B PRTSNS TO PRINT SENSE INFO. 
B PRINT TO PRINT THIRD LINE 
pc XL1°06° FLAGS 
pC TL7°85* LENGTH 
pc AL2(ERRO2A} MESSAGE ADDRESS 
B HALT TO DCP HALT 
pc XL2* A087? HALT ID 
01AUG70. 010CT7O . PROG ID 0A08-3 
571531 5715480 PAGE GA 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS 


a0 83 
ERR LOC 
1116 


1119 
111d 


T11F 
1123 
4126 
112K 
1128 
4712C 
112E 
1130 
1134 


1136 


113¢ 
413F 
1143 
T1448 
4145 
V147 
1149 
174d 


T14F 
3153 
17156 
1159 
415¢ 
1160 
T1I6€E 
1169 


116d 
41771 
1172 
1173 
4175 
1177 
1178 


117D 
1181 
1184 
1187 
T1BA 
VIBE 
7194 
4197 


1198 
T19F 
17A0 
ViA1 
F1A3 
TIAS 
11A9 


TTAB 
TIAF 
11B2 
11B6 
T1IBA 
41c0 


Tica 


DATE 
EC NO. 


REA To. 


OBJECT CODE 


F2 87 92 


co 


87 


1FCcO 


3D FP 


F2 
co 
c6 
2B 


81 
87 


OF 4Y 
A043 


co 


87 


A043 


QD 


F2 
co 


SA 


00 


81 
87 


87 


1059 
A046 


co 


87 


A046 


3D 
F2 
co 
co 
OE 
co 


3c 


be 
01 
87 
87 
co 
87 


16 


1898 


1A4D 
10 
O21A 


0222 


FANC 


16 
O21A 


0222 


1DCcOo 
00 
Vu 


TA6D 
TA6D 


7153 


O21A 


0222 


1ECO 


14 
01 
1A6D 
TA6D 


1181 


O27A 


0222 


TAUC 
08 

17BD 
106F 
105A 
108A 


1BD8 


T3NARTO 


571512 


DATA 


105A 


1996 


1D00 


199A 


ADDR 


VIVE 


172A 
1128 
112D 
112F 


1135 


1143 
+1u4 
1146 
1148 


TIE 


1171 
1172 
1174 
1176 


V17C 


119F 
41A0 
11A2 
T1A4 


TIAA 


OG6APR70 


571516 


STMT 


449 
850 
451 


454 


508 
509 
519 
57 
512 
513 
S14 
515 
5 16 


SOURCE 


RTN3IB2 


RTN3C1 


RT N3C2 
x 


RTN3D 
RTN3F 


RTN3E 


RTN3G 
RT N3H 


RTNSJ 


RIN3SK 


RTN3L 
RTN3E 


WRTERZ 


22M AY70 
571513 


STATEMENT 

J RT N3K 

B TSTDAT 

pc AL2 (READ+*256) 
CLI WRIDFC+3,X'FF! 
JE RT N3C2 

B PRINT 

Dc XL1°C6* 

DC IL1*43" 

PC AL2 {ERRO2B) 
DC XL2*A043? 

E HALT 

DC XL2" A043" 

CLC WRTDFC+2(1),EXPSEC 
JE RT N3D 

B PRINT 

DC XL 14° C6t 

DC IL1°67° 

DC AL2(ERRO2D) 
Dc XL2*a0 Gy" 

B HALT 

DC XL2"a0u4? 

LA WORK, XR2 

CLI O0(,XR2),X*E7" 
INE RIN3E 

LA 1(,XK2) ,XR2 
ST SNSXR2,XR2 
CLC SNSXR2(2) ,WORK1 
JE RIN3G 

B RTN3F 

B PRINT 

DC XL1°C6! 

DC IL1*57* 

DC AL2(ERRO2C) 
DC XL2* 0045 

B HALT 

pC XL2' A0uS!# 

LA READ, XR2 

CLI O(,XR2),X"ET7®* 
SNE = -RTN3G 

LA 1(,XR2),XR2 
ST SNSXR2,XR2 
CLC SNSXR2(2),READ1 
JE RT N3K 

B RTN3H 

B CRINT 

Dc XL1"C6! 

pc IL1'7u¢ 

pc AL2(ERRO2F) 
DC XL2*A046* 

B RALT 

pe XL2* AO46* 

CLI WRTDFC+2,x'pc! 
JNE RTN3S 

B CK HED 

B RTN3A 

ALC EXPSEC(1),ONESEC 
B RIN3B 

NVI SNSID,X*16! 
01A0G70 010C1T70 
571531 571540 





oo 2 


PART NO. 


5129638 
PAGE . 5 


TO TEST DATA ADDRESS 


TEST SECTOR COUYTER FOR STEPPING 
PROCEED IF OK 

TO PRINT SECTOR COUNTER NOT STEPPED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TG DCP HALT 

HALT ID 


CHECK HEAD & SECTOR HO. 
WRITE IS COMPLETED, 
PROCEED IF CK 

TO PRINT ERFOR 
PLAGS 

LENGTH 

MESSAGE ADDEESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 

HALT XD 


AFTER 
{EXPECT NO CHG.) 


SET XR2 TO POINT TO WORK AREA 
CHECK WORK AKEA FOR NO CHANGE 
JUNP TO PRINT IF WRT. FLD. IS CHG. 
NOT DONE INCREMENT XR2 

NO CHG, SET TO CHECK NEXT BYTE 
CHECK XR2 FOR REACHED UPPER LIMIT 
TO ROUTINE END 

CHECK NEXT HITE 


TO PRINT DATA FIELD WAS CHANGED 
FLAGS 

LENG TH 

MESSAGE ADDRESS 

MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 


LOAD ADDRESS OF READIN AREA IN XR2 
CHECK EACH 3YTE OF READ PIELD 

JUMP TO PRINT IF ERROR 

STEP XR2 TO NEXT BYTE OF READ FIELD 
STORE FOR COBPARE 

CHECK FOR FINISHED 

JUMP IF FINISHED 

BRANCH BACK IF NOT DONE 


TO PRINT DATA COMPARE ERROR 
FLaGs 

LENGTH 

MESSAGE ADDRESS 

MESSAGE ID 

TO DCP ERROR HALT 

HALT ID 


TEST FOR LAST SECTOR OF TRACK 1 
JUMP IF NOT DONE 
TO CHECK FOR ERRORS 


INCREASE EXPECTED HEAD & SECTOR NO. 
REPEAT ON NEXT SECTCR 


PUT ID IN PRINT 


PROG ID OA08-3 
PAGE 5 


wy 


oOo oOo 08 08 8 08 © © G6 6 6 696 0 5 & &© 6&6 8 OO BO 


Oo oO 


Oo 


eo 8 0 9 9 9 9 





o oO ° Oo 0 090 909 © 0 0 9 808 8S 09 8 @ 08 6 8 8 © 8 89 08 9 8 GO 8 08 @ 





IBS MAINTENANCE DIAGNOSTIC PROGRAS 


A083 
ERR LOC 


11C8 
11cC 
11D1 


11D5 
11D93 
TIDA 
11DB 
VIDE 
V1E1 
11E3 


DATE 
EC NO. 


READ D 
OBJECT CODE 
35 01 


1c 00 
co 87 


18 2E 
100F 
IBB1 


O21A 


0222 


11B6 


13MAR70 
571512 


ATA 


04 


O6APR7 
571516 


ADDR 


11D9 
11DA 
Vibe 


V1E2 


0 


STEHT SOURCE 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 


22MAY70 
571513 


STATEMERT 
L TBLH,XR1 
BVC = ERRO2E(1) ,4(,XR1) 
B PRTSNS 
B PRINT 
pe XL7"06! 
DC IL1*748 
DC AL2(ERRO2E) 
B HALT 
DC XL2"A016! 
B RTN3L 
@ 
0 1A0G70 010CT70 
571531 5715480 


PART HO. 51296348 
PAGE SA 
MOVE HEAD NO. TO ERROR MSG. 
TO PRINT STATUS ERRORS 
TO PRINT WRITE ERROR 
FLAGS 
LENGTH 
MESSAGE ADDRESS 
TO DCP ERROR HALT 
BALT ID 
| 
| 
= 
FROG ID Oa08-3 
PAGE 5A 


IBS MAINTENANCE DIAGNOSTIC PROGRAMS 


A083 


ERR LOC 


T7127 
TIES 
T1E9 


V1EB 
VIEF 
V1F3 
VIF? 
TIPE 
T1FF 
1203 


1207 
1208 
4211 


1217 
1218 


121F 
1223 


1227 
122E 
122C 
122E 
122F 
1233 
1237 


1238 
123F 
1243 


1207 
1248 
1251 


1257 
125B 
125¢ 
12507 
125F 
1263 


1267 
1268 
126F 
1274 
1278 
1279 
127A 
127C 
1280 


1282 
1286 


1288 
128C 
128F 
1293 
1294 
1295 


DATE 
-EC wo. 


~ 


r 


R EA D 


CBJECT CODE 


1848 
182E 
OBOD 
OAOD 
OB62 
TAUC 
IBED 


IFBF 
IPBE 
TEBF 


1BD8 
JA4SD 


ice 
1B6D 


1A83 


123B 
1237 
OEAY 


1BD8 
TA4SD 
TANC 


IF SF 
1FBE 
TE BF 


1A83 


1282 
1267 


1BB1 
182E 
1339 
O2TA 


0222 


1A4&D 
F2 81 10 
O21A 


13MAR70 
571542 


1PBF 
1ECO 


1FBF 
1ECO 


o4 


1898 


DAT A 


ADDR 


V1E7 
11E8 
11EA 


1228 
122C 
J22E 


1258 
125¢ 
125E 


1278 
1279 
1278 


1281 


1287 


1293 


1298 
1296 


O6APR70 


571516 


STMT 


529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
54& 
545 
S4E 
547 
548 
549 
550 
551 

552 
553 
5548 
555 
556 
557 
558 
559 
560 
561 

562 

563 
564 

565 
566 

567 
568 
569 
57¢6 
571 

572 
573 
5748 
575 
576 

577 
578 
579 
580 
581 

582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 


SOURCE STATEMENT 


* 
x 
* 


RING 


RTNGA 


RTLAIB 


RTNUBI 


RT NLC 


RIN&B2 


RTN&CI 


22MAY70 
§71513 


ROUTINE NO. 0&8, CHECK 
USING 
HEALS 

DC XL1° 048 

DC XL1*00! 

pc AL2 (RTN5) 

LA HDTBL-1,XR2 

ST TBLH,XR2 

CLI SETS#,0 

BE SETDSK 

B TSTSPN 

MVI WRTDFC+2,0 

B SEEKCE 

BVI WORK+511,X'10! 

MVC WORK+#510 (255) , WORK 4511 
MVC WORK+255 (256), WORK +256 
uVI  SNSID,X*12! 

MVI WRIDFC+3,01 

LA WORK ,XR1 

ST DFDR,XR1 

B STRTIO 

DC XL1*02! 

DC XL1'00! 

DC AL2 (WRTDFC) 

B RT NG BI 

B *4+4 

B WRTER2 

MVI  SNSID,x'u2! 

BVI -WRIDFC+3,01 

MVI WRTDFC+2,0 

MVI  WORK4+511,0 

MVC WORK4510 (255) , WORK 4571 
MVC =WORK* 255(256) , WORK+256 
B STRTIO 

pe XL1°O1! 

pc XL1*00! 

DC AL2(WRTDFC) 

B RT NU B2 

B *+4 

B PRTSNS 

L TBLH ,XR1 

MVC  ERROSA-13(1),4(,XR1) 
B PINT 

Dc XL1' 06! 

pc IL1'89" 

DC AL2 (ERROUA) 

B HALT 

pc XL2"A042" 

B TSTDAT 

DC AL2 (WORK+512) 

CLI WRTIDFC+3,X*FF 

JE RTN4C2 

B PRINT 

DC XL1'c6? 

Dc IL1* 43! 

pc AL2(ERRO2B) 
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POINTER 
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TO SEEK THE CE TRACK 


SET 
2 SECTOR 
WOR KAREA 


PUT ID IN PRINT 
SET TO WRITE 2 SECTORS 


SET WRITE DATA APDRESS 
IN DATA CONTROL FIELD 


TO WRITE DATA, (2 SECTORS) 
FUNCTION CODE (WRITE) 
CONTROL CODE (DATA) 
CONTROL FIELD ADDRESS 
GOOD RETURN 


ERROR RETURN 


PUT ID IN PRINT 
SET TO READ TWO SECTORS 
SET TO START AT SECTOR 0 


SET READ 
TO 
ALL ZEROS 


AREA 


TO READ DATA 

FUNCTION CODE (READ) 
CONTROL CODE (DATA) 
CONTROL FIELD ALDRESS 
GOOD RETURN 


TO PRINT SENSE INFO 

LOAD HEAD NO. FOINTER 

PUT HEAD NO. IN ERROR MSG. 
TO PRINT 3RD LINE 

FLAGS 

LENGTH 

MESSAGE ADDRESS 

TO DCP HALT 

HALT ID 


TO TEST DATA ADDRESS 
EXPECTED ADDRESS 


TEST SECTOR COUNTER FOR STSPIING 
PROCEED IF OK 

TO PRINT SECTOR COUNTER NOT STEPPED 
FLAGS 

LENGTH 

MESSAGE ADDRESS 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS PART ¥O. 5129638 
PAGE 6A 
a083 READ DATA 
ERa LOC OBJECT CODE ADDR STAT SOURCE STATEMENT 
1297 A083 1298 597 pc XL2*a043* SESSAGE IDENTIFICATION 
1299 CO 87 0222 598 B HALT TO DCP HALT 
129D A0u3 129E 599 pc XL2*A043! HALT ID 
600 
129F 3p 08 1A4C 601 RTNUC2 CLI WRTDPC+2,08 CHECK HEAD & SECTCR WO. AFTER 
602 * WRITE IS COMPLETED, {(SROULD STEP) 
1283 F2 ®t 10 603 JE RTNUD JUMP IFSTEPPELD CORRECTLY 
12A6 CO 87 0212 604 B PRINT 
12AA C6 12AR 605 pc XL1°C6! PLAGS 
12AB 54 12AB 606 pc IL1*84? LENGTH 
12AC 139A 12AD 607 pc AL2(ZRROGB) SESSAGE ADDRESS 
12AE A0u8 12AP 608 pc XL2* AOUSt SESSAGE IDENTIFICATION 
12B0 CO 87 0222 609 B HALT TO DCP HALT 
12B4 aA0Us 12B5 610 pc XL2*a048! HALT ID 
611 
12B6 C2 02 DCO 612 RTN4D LA WORK, XR2 S2T XR2 TO PCINT TC WOPKAREA 
12BR BD 10 O00 613 RTRKAF CLI QO(,XR2) ,X* 108 CHECK EACH BYTE OF READ FIELD 
12BD F2 01 18 614 JNE BTRGE JOSP TO FRT. IF RD. DATA KG. 
42C0 E2 02 01 615 LA 1(,XR2) ,XR2 SET TO CHECK NEXT BYTE 
42C3 34 02 1A6D 6 16 ST SNSXR2,XR2 STORE FOR COMPARE 
12C7 OD 01 TA6D 1996 617 CLC SNSXR2 (2) , RORKY CHECK XR2 FOR UPPER LINIT 
12CD F2 81 14 618 JE RTKAG TO ROUTIKE END IF DONE 
12D0 CO 87 I2BA 619 B RTNUF CHECK NEXT BYTE 
620 £8 
12D4 CO 87 021A 621 RTNSE B PRINT TO PRINT READ FIFLD IS INCORRECT 
12D8& C6 12D8 622 rc XL1'*C6* PLAGS 
12D9 GA 12DS 623 DC ILi"7u# LENGTH 
12DA 1059 12DB 6248 rc AL2(ERRO2F) MESSAGE ADDRESS 
12DC AO&E 12DD 625 pc XL2°a0u6s MESSAGE IDENTIFICATION 
12DE CO 87 0222 626 B BALT TC DCP RALT 
12F2 A046 12E3 627 pc XL2* A046" HALT ID 
628 
T2E4 CE 01 182E 1853 629 RTNUG ALC TBLA (2) ,ONE STEP HEAD EO. POIRTER 
12EA CO 87 11FB 630 B RTINGA ROUTINE EXIT 
12EE E3C8CS80D7DSCSES 1321 631 pc CL52°*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A READ * 
12F6 CSL6EVE240C5D9D9 631 
12FE D6EDSEZYOE6CSDICS 631 
1306 4OD7DICSE2ZCSDSE3 631 
130E S0C1C6E3C5D94 0C4 631 
1316 T6C9D5SC74OC14OD9 631 
131E C5CICH4O 631 
1322 CUCTE3CI4O0C3D6D4 1346 632 ERROSA DC CL37"DATA COMMAND USING HD. XxX, SECT. 0 & 1° 
1324 DACIDSCR4OEYEZCI 632 
1332 [SC74 OC8CUSB4OET 632 
133A 6BYHYOE2CSC3IE34BH0 632 
1342 FOSO5O40F1 632 
1347 CB8CSCICU4YOSOUOE2 137A 633 pc CL52°HEAD & SECTOR BYTE OF CONTROL FIELD NOT STEPPED CORR® 
134F CSC3E3D6D940C2E8 633 
1357 E3C540D6C640C3D6 633 
135F D5E3D9D6ED 340C6C9 633 
1367 C5D3CS4ODSD6E340 633 
136F E2E3CSD7D7C5C4H4D 633 
1377 C3D6DSD9 633 
137B CSC3E3D3E840C1C6 139A 634 ERROSB DC CL32*ECTLY AFTER A 2 SECTOR READ DATA* 
1383 E3C5D940C140F240 634 
138B E2C5C3IE3DED94U0D9 638 
1393 C5C1ICU4OCUC1E3C1 634 
DATE 13MAR70 O6APR70 22MAY70 01AU0G70 010CT70 PROG ID 0aA08-3 
EC NOj. 571512 571516 571513 571531 571540 PAGE 6a 
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IBS SAINTENANCE DIAGNOSTIC PROGRAB PART RO. 5129638 | IBS SAINTENANCE DIAGNOSTIC PROGRAS PART BO. 5129638 
. PAGE 7 ° | Qe : . PAGE 7a 
A083 READ DATA eae REAB DATA 
“f 
ERR LOC OBJECT CODE ADDR STHET SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATERERT 
636 * ROUTINE NO. 05, CHECK READ DATA FUNCTION * 6G 14857 1FCO 1458 7048 pc AL2(WORK+5$12) EXPECTED ADDRESS 
637 * USING FEAD SWITCHING * 7 705 
638 * , BEGIN WITH HEAD 0, SECTOR 23, * ‘ 1859 3D FF 1A&8D 706 RTNSC1 CLI BWRIDPC+3, 32°F Ft TEST SECTOR COUNTER FOR STEPPING 
639 * END WITH HEAD 1, SECTOR 0 * 9! CS W4SD F2 81 10 707 Jz RTNSC2 PROCEED IF OK 
1398 05 139B 680 RTKS ~ 0DC XL1°05* ROUTINE NUMBER 1460 CO 87 O21A 708 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED 
1397 00 139C 641 pe XL1*00! ROUTINE FLAGS 1464 C6 1468 709 pc XL1°C6" FLAGS 
139D 1578 139E 642 DC AL2 (BT NE) ADDRESS OF NEXT ROUTINE PREPIX a: ¢ W465 2B 1465 710 pc IL 1* 43° LENGTH 
643 1466 OFU9 1467 «(711 pc AL2 (ERRO2B) MESSAGE ADDRZSS 
139F CZ 02 71849 648 LA HDTBL,XB2 1868 A043 1469 712 DC XL2* a0 43! MESSAGE IDENTIPICATION 
13243 34 02 1828 645. ST TBLH ,XP2 c.°6hU°S 146A .CO 87 0222 713 B HALT TO DCP HALT 
43A7 3D 0O OBOD 646: CLI SETSR,O HAVE PARAMETERS BEEN ENTERED? INGE A083 186P 718 DC XL2* A083! HALT ID 
13a2 CO 871 OAOD 647 BE SETDSK BRANCH IF NO 715 
1V3AF CO 87 0B62 648 RTKSA 8 TSTSPN G °o 1870 3D 80 124C 716 RTNSC2 CLI WRIDFC+2,x'80* TEST ENDING HEAD 6 SECTOR ADDRESS 
13B3 3c SC 1AuC 649: BVI WRTDFC+2,x°SC* SET FOR HEAD 0, SECTOR 23 1474 F2 81 10 717 JE RTN5SD PROCEED IF OK 
13B7 CO 87 18ED 650 — B SEEKCE TO SEEK THE CE TRACK 14877 CO 87 027A 718 B PRINT TC PRINT HEAD & SECTOR ADDRESS 
13EB 3C E? IFBF 651 RTNSB SVI WORK4511,X*E7® SET Cc S$ : 719 * NOT STEPPED CORRECYLY 
13BF OC FP IPBE 1FBP 652 MVC WORK#+510 (256), WORK4511 DATA 147B C6 147B 720 DC XL1"C6° FLAGS 
43c5 0C PE 1EBE 1EBF 653: MVC WORK4254(255),WORK*255 FIELD 1a7c SP 1u7c Oo 72T Dc IL1* 95* LENGTH 
13CE 3C 18 1BDS8 654: MVI SNSID,x*18* PUT ID IN PRINT Gc ¢ 17D 1577 TETE 722 pc AL2(ERROSB) MESSAGE ADDRESS 
13CF 3c OF 1A48D 655: NVI - WRTDFC+3,1 SET TO WRITE TWO SECTORS V47F AGUg 1480 723 DC XL2*A0uS* MESSAGE IDENTIFICATION 
13D3 c2 01 DCO 656 LA WORK ,XR1 SET WRITE DATA ADDRESS 1481 CO 87 0222 7248 B HALT TO DCP HALT. 
13D7 34 01 1B6D 657 ST DFDR,XR1 IN DATA CONTROL FIELD Cc 1585 A0&9 1486 725 pc XL2*A0N9* RALT ID 
13DE cO 87 1A83 658 B STRT1O TO 1/0 SUBROUTINE 726 
13DP 02 13DF 659 DC XL7"02¢ PUNCTION CODE (WRITE) 1487 C2 02 1DCO 727 RTNSD LA WORK, XR2 SET XR2 TO POINT TO WORK AREA 
13E0 00 13E0 660 pe XL7'00° CONTI ROL CODE (DATA) Saee ® 148P BD E7 00 728 RTNSF CLI O(,XR2),X*E7° CHECK EACH BYTE OF READ FIELD 
1351 1A 0A 13E2 661 DC AL2(WRTDFC) CONTROL FIELD ADDRESS TUBE F2 01 14 729 JNE RINSE JUSP TO PRINT IF RD. DATA NG. 
13£3 CO 87 13EF 662 B RTN5SB1 GCOD RETURN 1491 E2 02 01 730 LA 1(,XR2),¥P2 NOT DONE, INCEEMENT XF2 
1327 CO 87 13EB 663 B *+h to 2 1494 34 02 1A6D 731 ST SNSXR2,XRZ SET TO CHECK REXT BYTE 
13EB CO 87 OEAS 664 B WRTER2 ERROR RETURN 1498 GD 01 1A6D 1996 732 cL SFSXR2 (2) ,WORK% CHECK ¥R2 FOR UPPER LIMIT 
#& 13EF 3C 09 13D8 665 RTNSB1 MVI = SNSID,X'09" PUT ID IN PRINT T49E F2 81 14 733 JE RT XSG I¥ DONE, GO TO ROUTINE END 
1383 3¢ 5€ 1aAac 666 BVI «-WRTDFC42,X'"SC! SET TO START AT TRACK O SECTOR 23 CC 6¢ T4A1 CO 87 1488 738 B RTNSF NOT DONE, CHECK NEXT BYTE 
13F7 CO 87 1A83 667 B STRT1O TO SEEK 735 
13FB 00 13FB 668 pe XL1°0O° FUNCTION CODE (CONTROL) 18A5 CO 87 021A 736 RTNSE B PRIWT TO PRINT DATA FIELD WAS CHANGED 
13Fc CO 13FC 669 pc XL1°O? CONTROL CODE (SEER) & € 14AS C6 14A9 737 DC XL1°C6* FLAGS 
13FD TAB °3FE 670 DC AL2 (WPTDFC) CONTROL FIELD ADDRESS THAR GA 1GAR 738 DC IL1"*7a" LENGTH 
13FF CO 8&7 1819 671 RB RTNSB2 GOOD RETURN 14AB 1659 14acC 739 DC AL2(ERRQ2F} MESSAGE ADDRESS 
1803 CO 87 1407 672 B *+4 oO ea 14AD AOUG 14AE 740 DC XL2" A046" MESSAGE IDENTIFICATION 
1407 CO 87 1BB1 673 B PRTSNS TO DECODE ERROR 14AF CO 87 0222 744 B HALT TO DCP HALT 
140B CO 87 021A 674 B PRINT TO PRINT 14B3 A0U6 1HBR 742 DC XL2* A06* HALT ID 
THOF 06 140F 675 pc XL1°06° PLAGS oa Ca 793 
1410 34 1410 676 Dc IL1#52! LENGTH 14B5 OF O71 182E 1A53 744 RTNSG ALC TBLH{(2),ONE 
1417 ocBC 1412 677 DC AL2 (ERROR) MESSAGE ADDRESS 14BB CO 87 13AF 785 B RTNSA 
1413 CO 8&7 0222 678 B HALT TO DCP HALT oO 746 ‘ 
1817 2009 1818 679 Dc XL2*a009" HALT XD 18BF E3ICBCSSOD7TDOCSES 14P2 747 DC CL52*THE PREVIOUS ERRORS WERE FRESENT AFTER DOING A READ ¢ 
680 14C7 CIDEESE2NOCSD9ODE 747 
1419 3C SA 1BD8 681 RTRSB2 MVI SNSID, X'UA? PUT ID IN PRINT Cc Cc TCP L6DIEZUOEECSDICS 747 
141D 3¢ OV 1A4D 682 BVI WRTDFC+ 3, 1 SET TO READ 2 SECTORS 14D7 YOD7TDICSE2ZCSDSE3 747 
683 INDE 4OCICBE3CS5DO4OCA 747 
1421 3c 00 1FBF 684 MVI  WORK4+511,0 SET READ AREA oO Ca TET DECIDSC7TLOCI4“ODS 747 
1425 0C FE IFBE 1FBF 685 MVC WORK4510 (255), WORK*+511 TO TQEF C5C1C440 747 . Soot 
1428 OC FP 1EBF 1ECO 6 36 MVC WORK+255(256),WORK+#256 ALI. ZEROS 14P3 C4CTE3CIGOD6CF4O 1518 748 ERROSA DC CL38*DATA OF 2 SECTORS USING HEAD SWITCHING? 
687 ff. <S IWFRB F2NOE2C5SC3E3IL6D9 748 
1431 CO 87 1A83 688 B STRTI) TO READ 2 SECTORS 1503 E280E4E2C 9D C740 748 
1435 01 1835 689 Dc XL1"01" FUNCTION CODE (READ) 1SOE C8CSCICUMOEZEECS 748 
1436 CO 1436 690 pc XL1"'00° CONTROL CODE (DATA) — fa 1513 E3C3C8C9DSC7 748 
1437 JA4A 1438 691 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 1519 C8C5SCICKYOSONCE2 154C 749 DC CL52*HEED & SECTOR BYTE OF CONTROL FIFLD NOT STEPPED CORR* 
1439 CO 87 1853 692 B RTNS E3 GOOD RETURN 1521 CSC3E3D6D ONO IEE 749 
1432 CO 87 1441 693 B *+U Cte 1529 E3CE4OL6CE4OC3DE 749 
694 1531 DSE3D9DED 340C6C9 749 
14617 CC 87 1RB1 695 RTNSC B PRTSNS TO FRINT SENSE INFO. 1539 CED3CHUODSDFEE3RO 749 
1445 CO 87 O21A 696 B PRINT TO PRINT 3RD LINE Ce. “GQ 154% E2ZE3ICSD7DICSCKUO 749 
1449 06 1449 697 Dc XL1° 06? FLAGS 1549 C3DELIDYI 749 
TQNA SA 14UA 698 DC IL1°90! LENGTH 1SUD CSC3F3IDIJESYOL Ice 1577 750 ERROSB DC CL&93*ECTLY AFTER a READ DATA USING HD. SWITCHING® 
1448 1518 144Cc 699 PC AL2(ERROSA) MESSAGE ADDRESS Cc 3 T55© FICSNSVOCILODIACE 750 
144D CO 87 0222 700 B HALT TO DCP HALT ISSD CICUYOCUCIE3CINO 750 
1451 ROUR 1452 701 pe XLZ'aACSAt HALT 1D 1565 EX EZ2CSDSC74OCELY 750 
702 CG Go 156D 4EROE2 F6CSE3C3ICB 750 
1853 CO 87 12898 703 RINSB3 B TSTDAT TO TEST DATA ADDRESS ’ 1575 CSDSC? 750 
C | 
DATE TZERRTO CEaTETG 22MAxX70 0 1A0G70 010CT70 FROG ID OR0E-3 DATE 12KRETC OGATE7O 22MAY70 0120670 C1OCTTC PROG ID OA08-3 
EC KO. 571612 5771516 571513 571531 5715480 PAGE 7 EC KC. 571812 S71516 571513 571531 STISEO PAGE 7R 
G 2 6S 
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- IBS MAINTERARCE DIAGNOSTIC PROGRAS _ PART WO. 5129638 33. IBM BAINTENANCE DIAGNOSTIC PROGRAN ; PART NO. 5129638 
ee tg ae | . ges PAGE 8 a) | hi , PAGE 8a 
/ aQ83 READ DATA ¢ ge READ Dawrta 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE | ADDR STST SOURCE STATESENT 
752 ¢ ROUTINE NO. 06, CHECK FUNCTION OF END OF CYLINDER * € Q 160EF CO 87 0222 820 B -BALT TO DCP HALT 
535 SEWSE BIT, (BYTE 1, BIT 2) * { 1612 AOWE 1613 821 DC XL2°aQuE? HALT IDERTIFICATION 
754 © USING THE READ DATA COMMAND * a 822 
755 ; < eis 1614 CO 87 1893 823 RTW6D B TSTDAT TO TEST CATA ADDRESS 
756 © ROUTINE PREFACE 1618 1£C0 | 1619 828 Dc AL 2 (WORK+256) EXPECTED ADDRESS 
757 . 825 ba 
1578 06 1578 758 RTN6 DC XL1* 06" ROUTINE KSUNBER @ 1a 161A 3D 00 1auD 826 CLI wWRTDPC+3,00 TEST SECTOR COUNTER FOR STEPPING 
cs 1579 CO 1579 759 PC XL1°00". ROUTINE FLAGS 161E F2 81 10 827 JE RTNGE JUNP IF CORRECT 
+ IS7A FFFF 157B 760 pc XL2‘FFFF® LAST ROUTINE FLAG 1621 CO 87 021A 828 B PRINT TO PRINT SECTOR COUNTER 20 
x ? 761 Cie 829 * STEPPED CORRECTLY | 
157C C2 C2 1849 762 1A HDTBL, XR2 1625 C6 1625 830 pc XL1' C6" FLAGS 
15A0 34 02 182E 763 ST TBLH,XR2 1626 58 1626 831 pc IL1°88* LENGTH : ; ‘ 
1584 3D CO OBOD 7648 CLI SETSW,O HAVE PARAMETERS BEEN ENTERED? CO1@e 1627 1789 1628 832 3c &L2 (ERRO6C) BESS AGE ADDRES ; ne ge 
1588 CO 81 OAOD 765 BE SETDSK BRANCH IF NO. 1629 A04&3 162A 833 DC XL2* a0g3° MESSAGE IDENTIFICATION Fas aoa 
766 838 So Eels seg EES 
158C CO 87 OB62~ 767 RTNGA B TSTSPN . Cle 162B CO 87 0222 835 B HALT TO DCP HALT a 
4590 3¢ DC AGC 168 AVI «-WRIDFC+2,x*DC* SET FOR BEAD 1, SECTOR 23 162F A0u3 1630 836 DC XL2* A083 * HALT ID ; 
1594 €O 87 18ED 769 2 SEEKCE TO SEEK THE CE TRACK 837 
770 Clg 1631 3D DC 1A4C 838 RINSE CLI WRIDFC+2,X'DC* CHECK HEAD & SECTCR NO. APTER 
1598 3C EV IFBF 771 RTN6OB BVI WORK4511,X*°E7* SET 839 * WRITE IS COMPLETED, (SHOULD ROT STP} 
159C OC FE 1PBE 1FBF 772 MVC) WORK¢510 (255) ,WORK#511 2 SECTOR 1635 F2 81 10 B40 JE RTNEF JUNP IF NO CHANGE 
15A2 OC FP 1EBF 1£ECO 773 MVC © WORK+4+255 (256), WORK #256 WRITE FIELD Cie 1638 CO 87 O21A 841 B PRINT _ TO PRIWT ERROR sag ie 
7748 . 163C C6 163C 842 pc XL1°C6¢ FLAGS oe : 
15A8 3C 00 1A4D 775 “SVI ~WRTDPC+3,00 SET TO WRITE 1 SECTOR 163D 55 163D 843 Dc IL1°85* LENGTH 
776 Cie. 163E 179E 163F 844 pc AL2 (ERRO6D) BESSAGE ADDRESS 
ISAC C2 01 1DCO 777 LA WORK ,¥R1 SET WRITE DATA ADDRESS | 1640 AO&UF 1641 845 DC XL2' AOUF?® MESSAGE IDENTIFICATION 
15B0 34 01 1B6D 778 ST DFDR,XR1 IN DATA CONTROL FIELD Bas 
779 Cre 1642 CO 87 0222 847 B HALT TO DCP HALT 
15B4 CO 87 1883 780 | B STRTIO TO WRITE DATA 1686 AOSF 1687 848 DC XL2* aoure HALT ID 
75B8 02 15B8 781 cc XL1°02¢ FUNCTION CODE {R8RITE) 1648 OE 01 182F 1453 B49 RTN6P aALc TBLH (2) ,ONE = - 
15B9 00 15B9 782 DC XL1*00° CONTROL CODE (DATA) Cc e 164E CO 87 18ED 850 ae) SEEKCE SEEK TO CLEAR THE END OF CYL. 
15BA JAUA 15BB 783 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 1652 CO 87 158C 851 B RT NGA Lee ; 
15BC CO 87 15c¢8 784 B RTN6B1 GOOD RETURN 852 ee ek ee eee 
15C0 CO 87 15C4u 785 B 4h Cc @ 1656 C140E3C5SE2ZE340C9 1689 853 pe CL52*A TEST I/O ON ERROR DID NOT BRANCH AFTER ATTENPTING=# — 
15C4 CO 87 OFAS 786 B  WRTER2 ERROR RETURN 165F 615640D6D540C5D9 853 _ - 
ae 787 1666 D9IDED98DC4CICHNO 853 
15C8 3C SC 1BD8 788 RTN6B1 NVI SNSID,X*4c? PUT ID IN PRINT S38 166E DPSD6E380C2D9C1DS 853 
15CC 3c 01 1A4D 789 AVI WRTDFC+3,1 SET TO READ 2 SECTORS 1676 C3C880C1CE6E3C5DS 853 
' ¥5D0 3c pC AUC 790 AVI WRIDFC+2,X"*Dc* SET FOR HEAD 1, SECTOR 23 167E SOCTE3E3C5SDSDTE3 853 
15Du CO 87 1A83 791 B STRTIO TO READ DATA, (EXPECT END OP CYL.) oO 9 1686 COD5C740 853 oa, s . 
15D8 01 15D8 792 pc XL1° 01° . FUNCTION CODE (READ) 168A E3T64OD9CSCIC4S4O 1645 858 ERROGA DC CL28'TO READ DATA PAST ERD OF CYL* (| _ Oe gies Sera 
15D9 00 15D9 793 DC XL1°00* CONTROL CODE (DATA) 1682 CYCTE3C1INOD7C1E2 8548 ae a es re 
ISDA 1AGA 15DB 794 BC AL2 (WRTDFC) CONTROL FIELD ADDRESS Cc} 6 169A E3S0CSDSC44ODECE 854 eee 
i5DC CO 87 15E8 795 B RT N6 B2 GOOD RETORN, {NOT EXPECTED) 16A2 4O0C3E8D3 858 é tags 
15EO CO 87 15E4 7196 B +h 16A6 CSDSCUSDD6CE40C3 16D9 855 pc CLS2*END OF CYL. SENSE BIT NOT SET AFTER ATTEMPTING TO RE 
15E% CO 8&7 15F8 797 B RT N6C ERROR RETURN, (EXPECTED) Cie 16AE E8D34B40E2C5D5E2 855 os 
15F8 CO 87 021A 798 RTN6B2 B PRINT TO PRINT NO ERROR FROM TIO | 16B6 C5 &0C 2C9E340D5D6 855 
15SEC C6 15EC 799 Dc XL1' C6! FLAGS 16BE E340E2C5E340C1C6 855 
15ED SO 1SED 600 rc IL1* 30° LENGTH C16 16C6 E3ICSD9K0CIEZE3C5 855 
1SEE 16Aa5 15EP 801 DC AL2 (ERRO6A) NESSAGE ADDRESS 16CE D&D7E3C9IDSC7HUDE3 855 
15P0 AOC 15F1 802 DC XL2* AQUC® MESSAGE IDENTIFICATION 16D6 DE4OD9CS 855 
803 Cia 16DA CICS4OCUCI1E3C140 16F1 856 ERROGE DC CL28*AD DATA PAST EXD OF CYL.* 
15P2 CO 87 0222 804 B ALT TO DCP HALT 16F2 CICIEZE346C5DSCa 856 
15F6 AOUC 15F7 805 DC XL2* a04c? HALT 1D T6EA 4OD6CE40CIEBD34B 856 
806 C!ea 16F2 E2CSC3E3D6D940C3 1725 857 pc CLS52*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CCRRECTL* 
15F8 CO 87 1A58 807 RTN6C B SENSE TO SENSE DEVICE STATUS | 16FA D6E4DSE3C5D94 0C9 857 
15FC 02 15FC 808 pc AL1(STATO1) BYTES O & 1. 1702 D5S4OC3D6DSE3D9IDE 857 
809 CG 170A D340C6C9C5D3CHSD 857 
- 15FD 38 20 1A6R 810 TBK STATUS,X*20° TEST BYTE 1 BIT 2 FOR OK, 1712 DSD6E340E2E3C5D7 857 
vy 811 * (THIS IS "END OF CYLINDER‘) 171A D7CS5SC44S0C3DED9D9 857 
1601 F2 10 10 812 JT RTN6D JUMP IF ON Cc. 86 1722 C5SC3E3D3 857 
813 1726 E840C1ICEE3C5D940 1749 858 ERROGC DC CL36"Y AFTER A READ DATA PAST END OF CYL.* 
1604 CO 87 O21A 814 B PRINT TO PRINT SENSE BIT NOT OF 172E C140D9C5C1Ce40CY 858 
1608 C6 1608 815 Dc XL1'C6! FLAGS C 6 1736 C1E3C 14OD7C1E2E3 858 
1609 4c 1609 816 pe IL1*76° LENGTH 173E YOCSDSCYRODSCEN0 858 
160A 16F1 160B 817 DC AL 2(ERRO6B) MESSAGE ADDRESS 1746 C3E8D34B 858 : 
160C AOE 160D 818 pe XL2*AQUE? MESSAGE IDENTIFICATION © Co 174A C8CSCICYXOSO“OE2 177D 859 pc CL52"HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A 
819 1752 C5C3IE3IDED940C2E8 859 
Pan Oo 9 | sas 
~ DATE T3MARTO O6APR7O 22MAY70 01A0G70 010CT70 PROG ID 0a08-3 DATE 13MAR70 O6AFR70 22BAY70 01A0G70 010CT70 PROG ID a ‘ 
BC NO. 571512 571516 571513 571531 571540 PAGE 8 0 EC NO. 571512 571516 571513 571531 571580 PAGE A 
eo. 





©eeeeeeeeeeeeseeeoeseeeeeeeeoeeneneneen 





ee 


YBN MAINTENANCE DIAGNOSTIC PROGRAS 


“$083 «READ 
ERR LOC OBJECT CODE 


© 475A E3CSUCNECELOCIDE 


pata 


ADDR STET 


1762 DSEIDIDEDI4OCECS - 


IVER CSDICRNOC3CECIDS 
1772 C7CSCURDC ICEE3CS 
A774 DIKOCIHO 
“APTE FZUOE2CSC 3E3DEDI 
1786 SODICSCICKuOCECT 
VIBE E3C 1WOC1E340C5D5 
1796 CUSODECELOC3EBD3 
A79E UB 





4 08 178C 
- 00 17aF 

02 182F 
FF 60 — 
01 182E 
00 OF13 
87 9000 


TDA 





Ga 
V7BS co : 


7BD 34 
We 35 
47CS C2 
4709 BD 
V7Ce F2 
VICK E2 
> T3D2 34 
I7DE OD 
ye PE co C1 
VFECG TC 
VWEZ OC 
IES 3D 
VIED F2 
VFO GC 
-VIFE TC 
VTFE cS 
TTF cé 
1600 22 
VERT Teec 
1603 ROLE 
1eLS CO ET 
T8CS ROE 
1E0B CO EF 


1BOE 
182E 
182¥ 
00 
3¢ 
01 
TAGD 
JAGH 
17¢$ 


TELE 


1867 
1SE9 


T8396 


A eh a ee 


18BT 16514 
1861 Gs 
O2Z14 


0222 
cooe 


TéOY OD 
18615 co 
1813 CO 
181D Ccé 
IBIE 
181F REA 

1821 AORTF 

1823 CO E7 
1827 ACaT 

1829 CO 87 


03 
01 
€7 


184ac 
0216 
O27A2 


T89R 


0222 
0276 
182D OCCO 


18zF COCceCcocoOcoccEOG 
1837 COCGCCCCOCOCC COE 
183¥ COCOLGOOOCLOOC OO 
TEXT TEKE 
TELS CE 
1€er Ho 
TELE CO 
TELE 06 
Wear FO 


TIB2ETO 
571512 





179E 


VIFF 
1800 
1802 
1804 


180A 


V81D 
T81E 
1820 
1822 


1828 


182E 
182F 
TENG 


1848 
Teas 
TEMA 
TEaB 
184uC 
184D 


OGAPRTIO 
ST 18% 


SOURCE STATEBENT 


859 

859 

859 

859 

859 | 

860 EERCE6D DC 
860 

860 

860 

860 

861 ¢ 

862 

863 SETERR ST 
864 AvC 
865 LA 
B66 SETERA NVI 
867 L 
868 mvc 
869 SEIERK B 
870 

8714 * 

872 

873 CKEED sT 
874 L 
875 LA 
876 CKEEDA CLI 
877 JE 
878 LA 
879 ST 
880 cLC 
881 BNE 
882 avi 
883 MVC 
BBu CLI 
885 JE 
886 BYC 
887 VC 
888 B 
&89 pc 
890 pc 
894 pc 
892 pe 
893 B 
894 nce 
895 HDEXT B 
896 

897 CKHDEK CLC 
898 BRE 
899 B 
300 pc 
301 pe 
902 DC 
903 pc 
908 B 
905 pe 
906. E 
907 

$08 TPE pc 
909 SECTEL EOD 
310 DL 
3910 

910 

S11 TEIFND DC 
812 HDIsi DC 
913 DC 
944 pc 
9156 rc 
91€ DC 
22KN2Y70 012 0G70 
571513 571531 





t 


PART HO. 


C1L33"2 SECTOR READ DATA AT END OF CYL. * 


SET AN ERROR FLAG fOR EACH SECTOR ERROR 


SETERX+3, ARR 
SETERA4 2 (1) ,;CYLNO 
SECT BL, ¥R2 

*-* (,XR2) ,X*FF* 
TBLH,XRi. . 
ERRO2Aa~+11,4( 1, XR1) 
e-% 


5129638 
PAGE | a) 
SAVE EXIT ADDRESS | 
SET CURRENT CYL; NO IN MOVE 


LOAD XR2 AS POINTER 

SET A FLAG FOR THIS SECTOR 
LOAD HEAD NO. POINTER IN XR1 
INSERT HEAD NO. IN MESSAGE 
EXIT 


CHECK FOR ERRORS O8 ALL SECTORS 


HDEXT+3,ARK 
TBLH,XR1 
SECTBL , XR2 
0(,XR2),0 

HDEXT 

1(,XE2) ,XR2 
SNSXRZ,XB2 
SNSXR2 (2) , TBLEKD 
CKREDA 

0(,XR1) ,X*FE* 
ONEHED-5 (5), BUVDSK 
DISKTP,0 

*495 
ONERED-5(5) , FIXDSK 
ONEHED-11(1) ,4(,XB1) 
PRINT 

XL1°C6* 

IL1*34* 

AL 2 (ON EHED) 
XL2*AOAG! 

EALT 


XL2* 20 A6° 
*-—¢ 


HDTBL+ 3(4&) , FOURFF 


AL2 (ALLBED) 
XL2* AOR? 
HALT 


 XL2* AOAT7# 


LINK 


YL2*0* 
* 
XL28°G6? 


AlL.2 (*- 1) 
XL1°O8 
XL7eC# 
xXxL17°O°* 
XL1° O08 
CL1*O8 


c10cT7C 
5715&0 


SAVE EXIT ADDRESS 

LO2ZD XR1 AS ERROR FLAG POINTEE 
LOAD XR2 AS SECTOR FLAG POINTER 
CHECK EACH SECTOR FLAG 

JOMP WHER FIRST ONE IS FOUND OFF 
STEP POLNTER 

STOKE 

CHECK FOR LAST ENTE 

BRAKCE IF NOT DONE 

SET FLAG TO INDICAT! DEFECTIVE HEAD 
SET MESS&GE FOR RESOVABLE 

TEST FOR RUN ON NEMOVABLE 

JSUEP IF YES 

SET MESSAGE FOR FIXED 

SET HEAD NUMEER IN NESS? CE 

TO PRINT HEAD EREOR 

FLAGS 

LENGTH 

BESSAGE RDDRESS 

BESSAGE ID 


HELT ID 
EX1it 


CHECK FOR ALL READS FAY LING 
ERANCH IF NOT 

TO FRINT ALL HERDS FAILING 
FLAGS 

LERGTE 

MESSAGE ADDRESS 

MESSAGE YD 


HALT ID 


SECTOR ERROR RECOREING TABLE 


FOR HERD 0, REMOVABLE DYSK 
FOR HERD 2, FIYEP DISK 
FOR HERD 1, REFOULBIE DIEK 
FORK BREAD 3, FILED BGIsSk 


PROG IV 0208-3 
TAGE 3 


2 © 6000000 0 6. 


Q 


O oO 


oO oO 


ty 


oO 


a) 


a: 


O 


o oO oO 


o © © © © @ @ @ © 8 © 6 8 8 @ 
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IBA SAINTEWAECE DIAGNOSTIC PROGRAS- PART 20. 5129638 
126. * PAGE oa 
a083 READ DATA 
ERR LOC OBJECT CODE BEDR STAT SOURCE STAT TNENT 
188E 72 188E 917 pc cL4*2* 
18aF F1 188F 918 DC CLi* 48 
3850 F3 185G 919 DC CL1# 3t 
1851 E2PED3ICICULOCS5DS 186A 920 ALLHED pc CL26*SOLID EFKOR WITH ALL HEADS* 
1859 DODEDISOEKBCIEICS 920 . 
4861 &0C1D3D340C8C5C1 920 
1869 CaE2 $20 . 
1868 E2L6D3CICHROTSDS 188C 921 ONEHED pC CL38*SOLID EKROR WITH HEAD X XXXXX DISK* 
1873 DSDSD9S40E6CSE3CB 921 : 
1878 YOCBCSCICAUOETNO 921 
1883 EVEVEVTEVE740CaC9 921 
188B E2D2 921 ; 
BBD C6C9E7C5Ca 1891 922 FIXISK pC ALS FIXED. - 
1892 [TOCSDUESaB 1896 923 RH VDSK DC ‘CLS* RERV.* 
1897 FFFFFFFF 189A 928 FOURFF DC XLS* FFFFFFFF* 
925 
$25  « 
926 *- SUBROUTI RE TO DETERMISE IF DATA ADDRESS * 
927 * IS STEPPING CORRECTLY - 
928 
929 . 
189B 34 08 18EC 930 TSTDAT ST DATEXT+3 , BRR SAVE RETURN ADDRESS 
189F 35 02 13EC 931 L DATEXT +3,X R2 LOAD XR2 WITH PARANETER POINTER 
18A3 2c 01 1996 01 932 AYC WORK1(2} ,1(,¥R2) HOVE EXPECTED ALDRESS FOR CONPARE 
18A8 OF 01 18EC 1998 933 ALC DATEXT 43 (2} , TWO INCREASE EXIT ADDRESS : 
I8AE CO 87 1255 934 B SENSE TO STORE DATA ADDRESS 
18B2 Aa 18B2 935 DC AL1(DaTa} 
936 
18B3 OD 07 1a6B 1996 937 cLC STATUS (2) , WORK CHECK DATA ADDRESS 
1859 F2 81 2D 938 JE DAT EXT JGMP IF ADDRESS HAS STEPPED CORRECT 
939 + DATA ADDRESS DID NOT STEP CORRECTLY 
18BC OD 01 1A6B 199C 920 CLC STATUS (2), BORK2 CHECK DATA ADDRESS 
941 * FOR ORIGINAL VALUE 
18C2 F2 81 18 942 JE DATOIA JUMP IF DATA ADDRESS IS 
943 * STILL AT ORIGINAL VALUE 
18C5 CO 87 O2Z1A 944 B PRINT TO PRINT DATA ADDRESS NOT CORRECT 
18C9 CE 18cS «945 pe XL1'*ceét FLAGS 
18CA 2E 18CA 946 pc IL1*43t LENGTH 
18CB 19C7 18CC 947 DC AL2 (DATFI1} ADDRESS OF #ESSAGE 
18CI 203B 18CE 988 DATID1 DC XL2*AC3E* MESSAGE IDENTIFICATION 
18CF CC &7 0222 9&9 z HALT TO DCP HALT 
18D3 AO3E 18D8 950 BC XL2*a035* HALT If 
18D5 CO 87 18ES 951 B DRETEXT TO EXIt 
35 
18D9 CO 87 O21:A aaa DATOIA B PRINT TO PRINT DATA ADDRESS NOT STEPPING 
18DD Cc6b 18DD 954 Dc XL1*CE* FLAGS ae 
I8BDE 13 48DE 955 DC IL17*25¢ LENGTH 
18DF 19§h9 48EO 956 DC AL2 (DATPE2} ADDRESS OF MESSAGE 
IBEW 203F 18E2 957 DAIID2 DC XE 2*a0 35 * BESSAGE IDENTIFICATION 
18E3 CO &7 0222 958 B HALT TC DCP HALT 
18E7 aO3¥ 18EB 959 DC XL2* aQ3F* HALT ID . 
18ES CC 87 0000 9€0 DATEXT B +-+* EXIT 
961 
18ZD 324 08 1924 S62 SEFKCE ST SEEKEY22 FRE SAVE EXIT ADDRESS 
18F1 0C OO 1A88F ULCE 963 AVC WRIDFC*UT TRACKS SET SEEK ADDRESS TO CE TRACK 
18F7 3C OS 1BD8 S64 BVI SNSID,OS INSERT ID IN PRINT 
965 
YBPE CO 87 1283 966 B STRTIO TO SEEK CE TRACK 
I8FF OC 18FF 967 pc XL1*O8 FUNCTION CODE (CONTROL) 
1900 CO 1960 368 pc XL1*Ot CONTROL CODE (SEEK) 
1901 12 R82 1902 969 DC AL2 (WETDEC] CONTROL FIELD ADDRESS 
1803 cO &€3 191D 970 2 SEEKTS GOOD RETURN 
1907 CO 8&7 iseE 971 B *4+Q 
1966 CO 87 1BE1 972 B PRISES TC DECODE ERROR 
ISOF CO &) 6212 973 B PRIN TO PRINT 
1913 06 1913 $748 DC XL1* GE* FLAGS 
1314 35 1914 975 Dc ILItS3t LEKGTHA 
I8i& OCEC 1916 976 Dc AY. 2 €BLRCESS HESSAGE ADDRESS 
DATE I2EERTO OCCRTE70 22ma 170 C taUC TC CtocT7e FROG ID ;. oe 
EC BO. 531512 S71£16 571513 571531 STISEE PaGE : ‘ 





+ 


Ce RR 


of ag AE 
alg nk a 
c %) ey se 


EOE PE By 





aE 


“tt. 


ee MOR oe SR 


SPR DOT FET OY 





a 


ee 






IBS MAINTENANCE DIAGNOSTIC PROGRAZ 


A083 READ DATA 
ERR LOC OBJECT CODE ADDR 
1917 CO &7 0222. 
197F A009 191C 
191D CO 87 1925 
1921 CO 87 0000 
1925 38 08 1959 
1929 CO 87 1254 
192D 02 192D 
192E 38 70 1A6B 
1932 CO 10 1929 
1936 38 01 1A6A 
1934 F2 10 20 
1935 CO 87 183 ee 
1941 01 1944 
1982 01 1982 
19&3 T95A 194u4 
1945 CO B87 1949 
1989 CO £7 194D 
198D OD OC 195B OBOE 
1953 F2 01 07 
1956 CO 87 0000 
195a (00000 195C 
195rt CO 87 1D52 
1961 195B 1962 
1963 4A21 1964 
1965 CO 87 O21A 
1969 C1 1969 
196A 2A 196A 
1963 1A0A 196¢ 
196D a203C 196E 
196F CO 87 C21A 
1973 01 1973 
1974 17 1974 
1975 1421 1976 
1977 CO B7 O27A 
197B 06 1973 
197C 28 197C 
197D 1A49 197E 
197F 3c 00 0B15 
1983 3c 00 OBOD 
1987 3¢ CO 1B6u 
198E CO 87 0222 
198F aAO03C 1990 
1991 CO 87 0000 
1995 0000 1996 
1997 0002 1998 
1999 0008 199A 
1998 1DCO 199¢ 
199D C&CTE3C1T40C1C4C’ 19C7 
19285 Lr9OCSE2F2U0F6C1E2 
T9AD ROEZE3C5D7D7C5C& 
19B5 4OE3D640C9DSC3D6 
‘DATE 13MAR70 O06 APR70 
EC NO. 571512 57151€ 


PART NO. 5129634 
Pace 10 
STST SOURCE STATEMENT 
977 B HALT TO DCP HALT 
‘978 pc XL2*a009°* HALT ID 
979 ¥ 
980 SEEKTS B TSTSEK TO TEST FOR A GOOD SEEK. 
981 SEFKEX RB *-8 EXIT 
982 
983 * COME HERE TO TEST FOR A GOOD SEEK * 
984 ‘ : 
98S TSTSEK ST SEKEXT +3, ARR SAVE RETURN ADDRESS 
986 SKTSTA B SENSE TO SENSE DEVICE STATUS 
987 Bc AL1(STATO 1) BITES 0 6 1. : 
968 : 
989 TBN STATUS,X*10* TEST THE SEEK BUSY SENSE BIT 
990 BT SKTSTA IF ON DO ANOTHER SENSE 
' 991 
$92 TBH STATUS~1, X*01# TEST FOR SEEK CHECK 
993 Jt SEEKER IF ON, GO TO SEEK ERROR PRINT 
994 8 STRTIO TO READ ID 
995 be . XL*O18 
996 bc XL1°O1t 
997 Dc AL2 (IDFLD-2) 
998 B *+¥ 
999 B *44 
19000 cCLc IDFLD-1(1) , TRACK@ 
1001 JNE SEEKER : 
"1002 
1003 SEKEXT B -* Exit 
1004 IDFLD npc XL3*O8f 
1005 
1006 
1007 * COME HERE IF AN ERROR OCCURED * 
1008 * WHILE SEEKING THE CE TRACK ® 
1009 
1010 SEEKER E cvD 
1011 pc AL2 (IDFLD-1) 
1012 tc AL2(ARIVED) . 
1013 B PRINT TO PRINT ERROR ON SEEK 
107148 Dc XLI'ct# FLAGS 
1015 poe IL1*'42* LENGTA : 
1016 pc AL2 (SEKER1) ADDRESS OF MESSAGE 
1017 SEEKID pc XL2*a03C! MESSAGE IDENTIFICATION 
1018 
10179 B PRINT TO PRINT SECOND LINE 
1020 Dc XL1*O1!* 
1021 pe IL t* 23° 
1022 pc AL2 (AEBIVED) 
1023 
1024 B PRINT TC PRINT SECOND LINE 
1025 pe XL7* 06° FLAGS 
1026 pe ILi "aot LENGTH 
1027 be AL2(SEKER2) ADDRESS OF MESSAGE 
1028 
1029 mVI PASS,0 
1030 MVI SETS#,0 
1031 AVI FRSTPS,0 SET TO CAUSE A RECALIBRATE 
1032 B HALT TO DCP HALT 
1033 Dc XL2*a03c!* HALT ID ‘ 
4034 B 0 
1035 
1036 RORK1 pe AL2 (*- *) 
1037 TWC Be XL2*02" 
1038 ONESEC DC XL2'O@? 
1039 WOFK2 DC AL2 (WORK) 
1080 . 
10471 DATPRI DC CLU3"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE? 
1041 
TOG 
1081 
22mAY70 017A0G70 010CT70 PROG ID OaA08-3 
571513 871531 571540 PAGE 10 
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IBM SAINTERANCE DIAGHOSTIC PROGRAS 


: PART HO. 5129638 
: PAGE OR 


HOT STEPPING* 


CLU2*ERROR OCCUFRED WHILE SEEXING THE CE TRACK,* 


CL4O'RUN SEEK TEST SECTION AO3 FOR BORE INFO. * 


FLAG 


a 


CYLINDER | 
TRACK & SECTOR 
NO. OF SECTORS OR NO. OF TEACKS 


FLAG 
CYLINDER 

TRACK & SECTOR 
NO. 


OF SECTORS OR NO. OF TRACKS 


FEEKKHEK EK EE EKEKEREREEESEEE ERE SESE PEERS S £ERE ES SKEREEEEOREE DSERSEESEOENSVETESES 


SAVE ADDRESS RECALL REGISTER 
LOAD X81 WITH VALUE FROM ARR. 
MOVE IN FUNCTION CODE : 
FERFORS SENSE 

EXIT 


"QO" CODE 

CONTROL CODE 

STATUS BYTES 0 & 1 

STATUS BITES 2 & 3 

DISK CONTROL FIELD, {INITIAL) 
DISK CONTROL FIELD, (FINAL) 
CONTROL REGISTER ADDRESS 

DATA REGISTER ADDRESS, (XNITIAL) 
DATA REGISTER ADDRESS, (FINAL) 
CURRENT ROUTINE KC. 


PROG ID 0a08-3 


2083 READ DATA 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESENT 
19BD DODICSC3ESH0ESE? 1084 
19C5 D3E8cs : 1081 
19CB C&CIEICIROCICUCK I9ED 1042 DATPR2 DC CL25'DATA ADDRESS 
19D0 D9ICSE2ZE24 0DSD6E3 21042 
19D8 SOE2ZE3CSD7D7C9D5 | 1082 
19E0 C7 1082 
19E1 CSLSDIDEDS4OD6C3 1A0A 1043 SEKER1 DC 
19E9 C3ERDSDICSCAHOES 1043 
19F1 C8C9D3C58OE2CSCS 10483 
19F9 D2C9DSC7EDE3C8C5 1043 
1A01 40C3C54023D9C1C3 1083 
1A09 D26B 1083 
TAOB CIDODSCIESCSC4HO 1321 1044 ARIVED DC  -CL23*ARRIVED AT CYL. WO.. xxx°- 
1A 13 CIEZXOC3EBD34BS0 10448 
TATE DSL6SBAOETETET. 1044 
JA22 DIESDSROE2ZCSC5D2 1049 1085 SEKER2 DC 
1A2A SOE3CSE2ZE300E2CS 1045 
1A32 C3E3C9D6D580C1F0 10485 
TA3A FIUOCEDEDOKO DADE 10485 
IAN2 DOCSUOCODSCEDE4B 1045 
1086 . 
1AGA 00 TAQA 10487 WRIEFC DC XL1'00# 
1ANB 350 JA4B 1088 pc XL17°00°* 
IASC 00 FAUC 1089 pc X¥L1"00* 
JAUD 00 1A4D 1050 pc XL1°00! 
1051 
TAUE 00 IAUE 1052 RDDFC pC XL1"00* 
1A4P 00 TAUP 1053 pe XL17°008 
1A50 00 1A50 1054 DC XL1"00* 
1A51 00 1A51 1055 DC XL1°00? 
1A52 0001 1A53 1056 ONE DC XL2*01° 
1057 
1058 
1059 * SENSE I/0 ROUTINE 
1A54 34 08 1A6D 1060 SENSE ST SNSXR2, ARR 
1A58 35 01 1A6D 1061 L SNSXR2,XR1 
1A5C 18 03 1062 00 1062 MNN SNS+1,0(,XR1) 
1A6% 30 00 1A63 1063 SNS SNS STATUS,0 
1A65 DO 87 01 1064 B 1(,XR1) 
1065 
1A68 0000 1A69 1066 SETXR2 DC XL2* 08 
1AGA COO0O 186B 1067 STATUS DC XL2* 0° 
1A6C CO00 FA6D 1068 SNSXR2 DC XL2"0°* 
1069 
1970 ERROR RECORDING TABLE 
TAGE 1071 ETABLE ECU * 
WAGE CO WAGE 1072 QCCDE DC XL1*O* 
1A6F 00 1A6F 1073 CCOLE xc XLT#08 | 
7A70 0000 4A71 1078 SNSO1 DC XL2*08 
JA72 COCO 1A73 1075 SNS23. DC XL2*"0* 
4A7% CO0D0000 1A77 1076 DCFIY oC XL4'08 
1A78 COC00000 1A7B 1077 DCFP Dc XL&*0" 
YA7C COCO 1A7D 1078 DFCRI DC XL2*°08 
TA7E 0000 TA7F 1079 DFDRI DC XL2¢*O* 
1A80 0006 1A81 1080 DPDRPF pc XL2'0# 
1a82 00 1A82 1081 ROUTNO DC XLT*O# 
DATE 13MAR70 OGAPR70 22MAY70 01A0G70 010CT706 
EC NO. 571512 571516 571513 571531 571540 


PAGE TOA 








eeeooegeo0020202080688080080 © 


Oy 


a“ 


os 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


4083 


ERR LOC 


1A83 
1A87 
1A8B 
VAGF 
VA9U 
1A99 
VASE 
TAA 
TAAG 
TARA 
TAARD 
TAB 1 
TABS 
TABB 
TARB 
TABF 
JAC 3 
VAC? 
VACA 
FACE 
TADZ 
TAD5 
YADA 
VATD 
VAE1 
TAEG 
VAET7 


VAEA 
JAED 
1AFO 
TAFG 
VAFI 
TAFD 
1B02 
1BO6 
1BOA 
IBOD 
1B11 
1B14 
1B17 
IB1E 
IBF 


1B22 
1B27 
IB2A 
1B2D 
1B30 
1B36 
iB3B 


IB3E 
1B44 
TB46 
IBUC 


TE4F 
1B52 


1BS5 
TBSA 
1BSF 


DATE 
EC NO. 


READ DATA 
OBJECT CODE ADDR STMT SOURCE 
1083 * 
1084 
34 08 1269 1085 STRTIO 
35 02 1A69 1086 
3C 00 1367 1087 
28 03 1AC8 00 1088 
2c 00 1AC9 01 1089 
2C 01 1B6B 03 1090 
3B O08 1ACH 1994 TSTIP 
3B 08 1820 1092 
39 08 1869 4093 
F2 10 08 1094 
3A 08 1ACB 1095 SETPIX 
3k 08 1820 1096 
BD 00 00 1097 CKSEZEK 
F2 81 2F 1098 
31 A6 1B6B 1099 LDFCR 
31 BY 186D 1100 LDFDR 
c2 01 19C8 1101 
F3 a0 00 1102 SIc 
C1 A2 1874 1103 WAIT 
3D FP 1B67 1704 
F2 01 0C 1105 
c O60 03 1866 1106 
BB 01 02 1107 
35 02 1A69 1108 
E720 OC 1109 TSTERR 
E1 A4 08 1110 TSTSCN 
EO 87 04 1911 
1112 
1113 © 
11714 * 
1115 
ED 01 01 1116 SETADR 
F2 07 08 4117 
3C 00 1364 1118 
2c 01 1B6F 03 1119 
35 02 1B6F 1120 
2C 06 1866 03 1121 
3C FF 1367 1122 
3D 00 1B64 1123 
F2 01 15 1124 
3C 01 1B64 1125 
FB O01 02 1126 
BC FP 03 1127 
3¢ 00 1B65 1128 
31 A6 1B6B 1129 RLDFCR 
F3 AO 00 1130 RSIO 
1131 
8D 00 01 1865 1132 SETADA 
F2 81 25 1133 
F2 84 11 1134 
BB 01 02 1135 
Oc 00 1D63 1B65 1136 
2F 00 1863 01 1137 
F2 87 17 1138 
1139 
BA 01 02 1140 FWDSEK 
2c 00 1863 01 1184 
OF 00 1863 1B65 1142 
F2 87 06 1143 
1144 
BC 00 03 1145 NOSEEK 
F2 87 OA 1146 
1147 
8c 00 03 1B63 1148 SETADB 
2c 00 1865 01 1149 
CO 87 1ABB 1150 ADREXT 
13MAR70 O6APR70 22MAY70 
571512 571516 571513 


PART NO. 5129634 
PAGE 11 
STATEMENT 
START 1/0 SUBROUTINE 

ST SETXR2, ARR SAVE ADDRESS RECALL REGISTER. 

L SETXE2,XB2 LOAD XR2 WITH VALUE FROM ARR. 

MVI  SAVS¥,00 ZERO SWITCH 

ANN  SIO+1,0(,XR2) SET PUNCTION CODE 

MVC =S¥O+2(1),1(, XR2) SET CONTROL CODE IN SIO 

MVC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR 

SBF SI0+1,x?08° SET FOR RESOVABLE DISK 

SBF RSIO+1,X?08 SET FOR REMOVABLE DISK 

TBF DISKTP,X¥‘O3° TEST FOR RUN ON LOWER DISK 

aT CKSFEK SUMP TO CHECK FOR SEEK 

SBR SIO+?,x'Gs' SET FOR FIXED DISK 

SBN  RSIO+1,X'08 SET FOR FIXED DISK 

CLI 0(,XR2),00 TEST FGR SEEK 

JE SETADR IF YES, GO SET ADDRESS 

LIO  DFCR,X*A6? LOAD CONTROL REGISTER 

LIQ DFDR,X'AM? LOAD DATA REGISTER 

LA 6600, X21 LOAD DELAY VALUE IN REGISTER 

SIO =X'00',X*AOt START I/C OPERATION 

TIO BUSY,xX*A2! TEST FOR BUSY 

CLI SaAvVSW,X'FF! IS SWITCH ON? 

JNE  TSTERR IF NO, SKIP RESTORE 

KVC 3(1,XR2) ,DFC3SV RESTORE N BYTE 

SBF 2{,XR2),01 TURN OPP THE FOR/ REV BIT 

L SETXR2, XR2 RESTORE PARAMETER POINTER 

TIO 12(,XR2),X*A0* BRANCH IF ERROR 

TIO 8(,XR2),X" AU! BRANCH IF SCAN FOUND 

B 4(,XR2) EXIT 

SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 

DIRECTION (FORWARD GR REVERSE), TO SEEK 

CLI 1(,XR2),01 IS THIS A RECALIBRATE? 

INE #47 IF NO, BYPASS SWITCH RESET 

MVI.  FRSTPS,0 RESET RECALIBRATE SWITCH 

MVC =©XR2WK(2) ,3(,XR2) SAVE ADDR, OF CTL. FLD. ADDR. 

5 XR2EK, XR2 LOAD XRZ2 WITH CONTROL FLD. ADDR. 
MVC DFC3SV(1),3(,XR2) SAVE N BYTE IN CONTROL PIELD 

MVI  SAVSW,X' FF? SET SAVE SWITCH 

CLI FRSTPS,00 IS THIS FIRST PASS 

ONE SETADA SKIP RECALIBRATE IF NO 

MVI ¥FRSTPS,01 SET FIRST PASS SWITCH 

SBF 2(,XR2),01 SET FWD/REV FIT TO REV. 

BVI 2(,XR2),255 SET MAXIMUM TRACK CROSSING 

MVI LASTAD,OO SET OLD ADDR TO 0 

LI DPCR,X*AG! LOAD DATA CONTROL REGISTER 

SIO 00,X*AO® SEEK REVERSE 

CLC 1(1,XR2),LASTAD COMPARE PRESENT ADDR. WITH NEW ONE 
JE NOSEEK EQUAL, SFEK IS NOT NECESSARY 

JH FWDS EK NEW ADDR. HIGHER, DO FORWARD SEEK 
SBF 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REV. 
MVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA 

SLC  SCRCH(1),17(,XR2) SUBTRACT NEW ADDR. PROM LAST ADDR. 
J SETADB PROCEED 

¢ 

SBN 2(,XR2),01 SET BIT CN FOR FORWARD SEEK 

MVC =SCRCH(1) ,1(,XR2) PLACE NEW ADDR. IN WORKAREA 

SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. PROMS NEW ADDR. 
J SETADB PROCEED 

NVI 3(,XR2),0 SET NO. OF TKS. CROSSES £0 ZERO. 

3 ADREXT TO EXIT 

NVC =. 3 (1, XR2) , SCRCH PLACE IN NO. OF TRACKS CROSSED 
MVC = LASTAD(1) , 1{, XR2) SAVE NEW ADDRESS 

B LDPCR EXIT 
0 140670 010CT70 FROG ID 0A08~3 
571531 5715480 PAGE 11 
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A083 
ERR LOC 


1563 
1B64 
1B65 
1B66 
1867 
13B68 
TBOA 
1B6c 
TB6E 
1870 
1B72 
1B74 
1B78 
1B7C 
1B80 
126 2 
IBS 
1388 
1B8C 
1B8D 
1B8E 
1B90 
1892 
1B96 
1B98 
1TE9C 
1BA& 
TBAC 


DATE 
EC WO. 


READ DATA 


OBJECT CODE 


00 

60 

50 

00 

oO 
O00 
00 60 
1DCcO 
0000 
FFFP 
0294 
36 01 
cO 84 
co 87 
0A 03 
1B BO 
3c 40 
cO 87 
c6 

15 

1B BO 
AOQ8E 
cO 87 
LOSE 
cO 87 0000 

E3C9 DYCSDE6EUE340 
CIDS4OLIDEELE3CY 
C5CSYUDETET 


1B71 
TACA 
1D52 


IBAE 
O21A 


0222 


13MAR70 
571512 


O6APR7 
571516 


ADDR 


1B63 
1B64 
7R65 
1 B66 
TB6T 
TESS 
TBEB 
1B6D 
1B6F 
1B71 
1B73 


7381 
1383 


¥BSC 
TRED 
1B8F 
1B91 
1B97 


1EBO 


0A03 


0 


STHT SOURCE 
1151 
1152 
1153 
1754 
1155 
4156 
1157 
41158 
1159 
7160 
11671 
1162 
1163 
71164 
1165 
1166 
1167 
1168 
1169 
1170 
4171 
T172 
1173 
11748 
1175 
1176 
1176 
1176 
1477 


SCRCH 
FPRSTPS 
LA STAD 
DFC3S¥ 
SA VSW 
DISKTP 
DFCR 
DFCTR 
XR2WK 
NEG 
SIXSIX 
BUSY 


THALT 


TIMOUT 


RPFX 


22mAY70 
571513 


STATESENT 

pc XL1"00* 
pc XLI°O0O# 
DC XL1*O0* 
be XL1*008 
be XL1°O0! 
DC XL2'0° 


bec AL2 (#-*) 
bc AL2 (WORK) 
BC XL2*Q? 


PART 
PAG? 


KO. 5129634 


TIA 


BC XL2*FFFF?* 

pc IL2'0660°* 

A NEG1,XR7% DECREM ENT DELAY COORTER 

BH WAIT RETURN TO TIO IF KOT TIRE OCT 

B cyD TIE OUT OCCURED, CORVERT ROOT. NO. 
pe AL2 (RPFX) CORRENT ROUTIRE KO. 

BC AL2(TINOUT) ADDRESS OF DESTIRATIO“R 

EVI TIHOUT-2,C* * 

B PRINT TO PRINT TYSEOCUT OCCURED 

be XL7°C6? FLAGS 

pe IL?*21° LENGTH 

pce AL2 (TI BOUT) SESSAGE ADDRESS 

DC XL2*a08E! MESSAGE ID 

B HALT TO DCP ERROR HALT 

pc XL2'AOBE® HALT ID 

B 0 

DC CL21'TIB®ECUT IR ROUTINE Xx* 

EQU X*A03* 
01A0G70 0710CT70 PROG ID 0a 08-3 
571531 571580 PAGE 13a 


aa! 


aR: 


mr 


ON 


C 


IBM MAINTENANCE DIAGNOSTIC PROGRAS 


A083 


ERR LOC 


1BB1 
1BB5 
1RB9 
TBBA 
IPBE 
IBC 2 
1BC3 
18C5 


1BC7 
IBC B 


1BCE 
TBD3 
TBD 
TBDS 
IBD? 
1ED9 
TBDE 


IBE3 
1BE7 
TEEA 
IBFE 
1BEF 
IBF O 


1BF2 
1EBF6 


1BF9 
‘BFC 
1BFF 


1c03 
1c07 
1COR 
TCOE 
1C12 
1C16 
1017 


1C1B 
IC TF 
1€20 
1C22 
1C2u 
1C28 
1c2c 
1€30 
1c31 
1032 
ic34 
1038 
1c4a0d 
1c4u8s 
C&D 


1c55 
1¢5D 
1c65 
1C67 
1C6F 
1077 
1c79 
1c81 


DATE 
EC NO. 


READ 


OBJECT CODE 


34 08 1C37 
CO 87 1A54 
02 

3C 01 1IBP3 
CO 87 O21E 
02 

1A6B 

1¢50 


C2 01 
C2 02 


1C66 
1CPr7 
co 87 
c1 


O27A 


1C 66 
A000 
2C 0G TBE& O00 
1C 3° IDBF 00 


38 O00 AGA 
F2 390 08 
CO 87 O21A 
01 

12 

1D BF 


3D 00 1BE4 
F2 81 OA 


E2 92 01 
D2 01 12 
cO 87 1BD9 


3D 80 1BF3 


3C 80 1BP3 
34 01 IC1A 
co 837 1A54 


C2 01 0000 


CO 87 O2Z1E 


C2 02 1CF7 
CO 87 1BFC 
cO 87 Q21A 


1¢ 548 

co 87 0000 
F2E3CTEZS EXE240C2 
EB8E3C 5E240C9D540 
C8CSE76B4 0 
00C0000600000000 


D5D640DED 7804040 
8040404040804 000 
4040 

CIDSE3C5D 9ESCSDS 
E3C9D6D54 0D9C5D8 
Cuup 

C&CIEZE2C9ID5SC7HO 
CIC4CND94 BUODYCI 


13MART7O 


$7 1512 571516 


DATA 


ADDR 


IBBI 


1BC2 
TBC4 
TBC6 


1BD3_ 


TBDS 
1BD6 
13D8 


1BEE 
1BEF 
IBF 1 


1016 


1C1P 
1¢21 
1C23 


1€30 
1¢31 
1€33 


1C&C 


1c54 


1C66 


1078 


1C8A 


OG APR70 


STNT SOURCE STATEMENT 

1179 * SUBROUTINE 
1180 

1181 PRISNS ST 

1182 B SENSE 

1183 DC AL1(STATO1) 
1784 

1785 B UNPACK 
1186 DC XL1°02! 
1187 DC AL 2 (STATUS) 
1188 

1189 

1790 LA STATWD,XR1 
1191 LA STMASK, XR2 
1192 

1193 B PRINT 

1194 Dc XL1'C1# 
1195 DC IL1'O1°* 
1196 DC AL2 (STATWD) 
1197 SNSID DC 

1198 MOVEBT MVC 

1199 

1200 

1201 TSIBT TBN 

1202 JF STPSNS 

1203 B PRINT 

1204 DC XL1*O1! 
1205 DC IL1*18? 
1206 DC AL2(STATPR) 
1207 

1208 STESNS CLI 

1209 JE SENSA 

12 10 

1271 LA 1(,XR2) ,XR2 
1212 SERSB LA 

1213 B MOVEBT 

1214 

1215 SENSA CLI 

1216 JE PRTHEX 
1217 

1218 ST SENSC+3,XR1 
1219 B SENSE 

1220 DC XL1°03* 
1221 SENSC LA *-*, XR1 
1222 

1223 B UNPACK 
1228 DC XL17*¢2?* 
1225 pc AL2 (STATUS) 
1226 rc AL2 (HEXSTA) 
1227 LA STMASK,XR2 
1228 B SENSB 

1229 PRTHEX B PRINT 

1230 DC XL1'025 
1231 DC IL1*29# 
1232 DC AL2 (HEXSTA) 
1233 PREXT B *-+* 

1234 

1238 

1238 

1235 HEXSTA DC XL8'O# 

1236 

1237 STATED DC 

1237 

1237 

1238 

1238 

1238 

1239 DC CL18* MISSING 
1239 

22BAY70 01A0G70 

571513 571531 


mVI STPSNS+1,X*O1* 


DC AL2 (HEXSTA-4) 


BVI STPSNS+1,X* 80! 


PRTE XT+3 ,ARR 


XL2* A000! 
TSTBT+1(1),0(, XR 2) 
NVC STATPR(18) ,0(,XR1) 


STATUS-1 ,*-* 


TSTBT+1, ¥-* 


48 (,XB1) ,XR1 


STPSNS+1,X'"80! 


PART NO. ‘5129634 
PAGE 12 
TO PRINT THE CONTENTS OF DEVICE STATUS * 


SAVE ADDRESS RECALL REGISTER 

TO PERFORS SENSE 

GET DEVICE STATUS BYTES 0 & 1. 
SET FOR COMPLETION OF FIRST BYTE 
TO UNPACK STATUS BYTES 


SET XR1 TO POINT TO FIRST NESSAGE 
SET XR2 TO POINT TO TEST MASK 


TO PRINT SNS WITH HEADING 

FLAGS 

LENG TH 

ADDRESS CF LAST PRINT CHARACTER 
MESSAGE IDENTIFICATION 

SET MASK BIT IN TEST BITS INSTRUCT. 
SET MESSAGE IN FIELD 


TEST CURRENT BIT FCR ON 

BYPASS PRINT IF OFF 

TO PRINT SNS WITHOUT HEADING 
FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 


TEST FOR FINISHED 
JUMP IF FINISHED WITH THIS BYTE 


STEP XR2 TO POINT TO NEXT SASK BIT 
STEP XR1 TO POINT TO NEXT MESSAGE 
GO TEST NEXT SENSE BIT 


TEST FOR COMPLETION 
TO EXIT IF DONE 

SET FOR CHECK: OF 2ND BYTE 
SAVE XR1 

TO SENSE 

BYTES 2 & 3 

RELOAD XR4 


CF 2ND BYTE 


SET BIT POINTER 
TO PROCESS 2ND BYTE 
TO PRINT STATUS IN HEX 


SUBROUTINE EXIT 


pC CL21'STATUS ttks IN HEX, * 


CL18*NO OP 


bc CLI8* INTERVENTION REQD.! 


SARK* 


PROG ID 0a08-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB 


A083 
ERR LOC 


1c89 
1083 
1093 
1C9OB 
1c9D 
TCA5 
1CaAD 
iCAF 
1CB7 
1CBF 
icc 7 
icc9y 
1CD1 
1CD3 
1CDB 
1CE3 
1CB5 
TCED 
1cP5 


1CF7 
1CFE 
ICFP 


1D01 
1D05 
1D09 
TDOL 
1D11 
1D15 
1D19 
ID1D 
1D20 
1D25 
1D2Aa 
1D2D 
1D30 
1D34 
1D38 
1D3B 
ID3E 
1D42 


1D46 


Da? 
1D&s 
IDUY 
TDaAa 
IDSB 
1D&C 
ID4D 
TDUE 
ID4F 
1D50 


DATE 
EC NO. 


READ 
OBJECT CODE 


D9D2 
CS LT8ESCIDTDUCSDS 
E340C3C8C5C3D246 
4O40 
C4H¥CTE3C140C3C8CS 
C3D24804040404040 
8040 
DST640D9CS5C3D6D9 
Cs HOC6EDEENDS CHAD 
4040 
E3D240C3D6D5C4C9 
E3CIDEDS5S40C3C8BC5 
€3D2 
E2C5C5D240C3C8C5 
C3D240404 0404040 
4040 
EXDSE2C1C6C54 040 
8O 40808080 4048040 
4040 


80402010 
08080201 
iF BF 


2C 00 1D2B 00 
2c 00 1D31 05 


13MAR70 
571512 


DATA 


ADDR 


1c9c 


ICAE 


10C0 


1cD2 


ICE 


1CF6 


1CF7 
1CFA 
1CFE 
1D00 


1Du6 


1D47 
1D48 
1p4a9g 
IDSA 
1D4&B 
1TD4C 
1D4D 
IDE 
1D4P 
1350 


O6APR70 
571516 


STST 


1239 
1240 
1240 
1240 
1241 
1241 
1201 
1242 
1242 
1242 
1243 
1243 
1243 
1244 
1248 
1244 
1245 
1245 
1245 
1246 
1247 
12488 
1289 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1268 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
12748 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 


SOURCE STATEMENT 


STMASK 


READ1 


* 


SHIFT 


MYCTIBN 
TBNK 


SBN 


SHFEXT 
CYLNO 


SHFTBL 


22MAY70 
571513 


bc 


nc 


DC 


oe 


bc 


SUBROUTINE TO SHIFT 


CLIB*EQUIPRENT CHECK 


CL1I8*DATA CHECK 


CL18*RO RECORD POUND 


CLi8*TK CCNDITIOR 


CL18*SEEK CHECK 


CL18* UNSAFE 


s 

XL&*804020108 
XL4*08040201' 
AL2(READ+255) 


ST SRPEXT+3, ARR 
L SHFEXT+3 ,IR1 
L SHPEXT+3,XB2 
A TRO,XR2 

ST SHFEXT+3 ,XR2 
NVI CYLNO,0 

LA SHFTBL,XR2 

L 1(,XB1) ,XR1 
RVC TBN+1(1) ,0(,XR2) 
MVC SBN+1 (1) ,5(,XR2) 
TBN 2(,XR1) ,#-* 
JF #47 

SBN CYLNO, *-* 
CLI TBN+1,X°U0° 
JE SHPEXT 

LA 1(,XR2) ,XR2 
B MYCTBE 

B e—t& 

pc XL1*O* 

DC XL7"'08* 

pc XL1*08* 

DC XL1" 108 

DC XL1'20° 

pc XL1* 40° 

Dc XL1°01° 

pc XL1"O02° 

DC XL1°0a08 

pe XL1*08* 

DC XL1'10° 
01A0G70 010CT76 
571531 5715.46 


PART WO. 5$129638 
PACE 12a 


CHECK? 


BITS IW CONTROL FIELD 


STORE ADDRESS RELALL REGISTER 
LOAD EXIT ADDRESS IW XR? 

LOAD EXIT ADDRESS IN XR2 

INCREASE BY 2 

STORE 7CR TRUE EXIT ADDRESS 

ZERZ WORK AREA 

LOAD ADDRESS OF SHIPT TATLE IN XR2 
LOAD CONTROL FIELD ADDRESS IN XR1 
INSERT CORRECT MASK FOR TZST BITS 
INSERT CORRECT BITS YOR SET BITS 
TEST OWE BIT FOR OF 

JUMP IF OFF 

SET ONE BIT ON IN DECISAL FIELD 
TEST FOR LAST BIT 

JUAP TO EXIT IF ALL DONE 

NCT DONE, STEP xXR2 

TO TEST NEXT BIT 

EXIT 


: PROG ID 0a08-3 
7 PAGE 124 


ry 


zy 


IBM SAINTENANCE DIACNOSTIC PROGRAM 


‘2083 


ERR LOC 


1D51 
1D52 
1D56 
IDSA 
1DSE 
1D62 
1DE66 
ID6A 
ID6E 
1D74 
ID7A 
1D8C 
1D86 
yD8C 
iDgy2 
1D95 
ID9B 
1DSF 
1DA3 
TDAS 
IDAC 
IDAE 


ipco 


1ECO 


DATE 
EC WO. 


READ DATA 

OBJECT CODE ADDR 

00 1D51 

36 08 1A53 

34 08 1D73 

36 08 1998 

34 08 1D79 

34 08 1D7F 

36 UB 1A53 

34 08 IDA2 

0c 01 1D85 0000 

0c 01 1D98 0000 

OC 61 1D89 0000 

cc CO 1D51 oC00 

04 20 0000 1DAD 

OF 00 1D51 1A53 

F2 82 OA 

06 20 0000 1DA3 

cO 87 1D8C 

CO 87 6000 

PI 1DA3 

FIF2F3FUFSF6F7F8 1DAD 

FOFO 
1DBP 
1DCcO 
1EBF 
1ECO 
1F BF 
0003 
0076 
0001 
0002 
0008 
0002 
0003 
OOA6 
OOA4 
0080 
0040 
0208 
0202 
0212 
0216 
O21A 
O21 
0222 
022A 
003c 
003P 
0c26 

13MAR70 O6APR7O 

571512 571516 


SOORCE 
1285 * 


HXBYT 
CVC 


FRCR 
TYBOT 
OTOCRZ 
FRCBYT 
ZROTO 
DECGAN 


TOBYT 
TIXE 
DECONE 
UNITS 


STATPR 
WORK 


READ 
H1 


H2 
XE 1 


22MAY70 
571513 





PART 
PAGE 


wo. 5129634 


13 


STATEMENT 


SUBROUTINE TO CONVERT A NUMBER TO DECIMAL 


DC XL1*O# 

A ONE, ARR ADD ONE TO GET FIRST PARAMETER 
ST FROM+5, ARR INSERT THE FROM ADDRESS 

A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER 
ST TYBOT+5,ARR INSERT THE TO ADDR 

ST OTORZ+5, ARR 

A ONE, ARR ADD ONE FOR EXIT ADDRESS 

ST TI XE+3,ARR STORE EXIT ADDRESS 

MVC FROBYT+5(2),*-* 

MYC TOBYT+3(2) ,*-* 

MYC ZROTO+3 (2) ,*-* 

HVC HXBYT(1) ,#-* PUT BYTE IN WORK AREA 

ZAZ  *-¥*(3) , UNITS (1) ZERO THE TO AREA 

SLC HXBYT(1),ONE DECREMENT THE HEX BYTE 

JL TIXE JUMP IF BELOW 1 

AZ *-+ (3) , DECONE (1) INCREMENT THE DECIMAL COUNT 
B DECGAN 

B *-* EXIT 

DC cL1¢18 

DC CL10'1238567890' 

DS CL18 

ECU. * 

DS CL256 

EQU) * 

DS CL256 

FOR x"03! HALT DISPLAY 1 

EOD) Xx'76! HALT DISPLAY 2 

EQU. 01 

EQU 02 

EOD 08 

FOO x*02! 

EQU  xX*03! 

EQU X* a6! 

FOU x*ay? 

EQU) x*80! 

FOU x*4o! 

EQU =x" 2088 

EQD) X*20A* 

EQU) x'2128 

EQU X*2176! 

EQU xX*21TAP 

EQU  X*"21E? 

EQU  Xx*"222" 

EQU X*22A‘ 

EQU x#3Cc! HALT DISPLAY F 

EQD X*3F! RALT DISPLAY A 

END BEGIN 

@ 

01A0G70 010C7T70 PROG ID 0aA08-3 
571531 571540 PAGE 13 
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IBS MAINTENANCE DIAGNOSTIC PROGRAS 


a0 83 


SYMBOL 


ADREXT 
ALLNED 
ARIVED 
ARR 


408 
BEGIN 
BITO 
BIT 


DATE 
EC NO. 


3 


Q > =» mw 


CO pe De be De pe be De pe DD De be be De pe Be pe De ee De be De be pe ee be pe ee pe De De ee De ee) ee De ee OD) 


REA D DATA 
LEN VALUE DEFN 
005 ‘BSF 1150 
026 186A 0920 
023 1A27 1084 
001 OCOB 1317 
901 0000 6003 
CO& O0C26 0179 
001 0080 1322 
001 OO46 1323 
004 B74 1162 
001 <A6F 1073 
006 %180F 0897 
004 147BD 0873 
003 17C9 0876 
003 ‘TABS 1097 
O0C1 OOA6 1320 
008 1D52 1288 
007 ID46 1272 
001 OOA&S 1321 
008 18E9 0960 
002 18CE 0988 
002 1%8E2 06957 
O43 19C7 7041 
025 19FE0 1042 
o04 18D9 0953 
004 1A7B 1077 
004 ‘TA77 1076 
006 DSC 1300 
001 DAZ 1305 
002 1B6B 1157 
002 ‘A7D 1078 
001 1B66 1154 
002 1B6D 1158 
002 1A81 1080 
002 ‘A7F 1079 
002 1869 1156 
O0C6 OCBC 0216 
036 OFTE 0369 
043 OF4S9 0370 
005 OF82 0372 
015 OFCS 0374 
025 100F 0376 
032 1059 0378 
037 1346 0632 
032 139A 0634 
038 $1518 9748 
043 1577 0750 
028 416A5 0854 
024 16F7 0856 
036 1749 0858 
033 4179E 0860 
007 OCF7 0218 
015 OD3A 0220 
001 1A6E 1071 
001 105A 0379 
ocS 1891 0922 
004 OBDS8 0149 
O08 189A 0524 
006 i1D80 1298 
006 1D6E 1295 
001 B64 1152 
003 1B3E 1140 
001 O003F 1333 
001 0222 1330 
13MA R70 O6APR70 

571512 571516 


CROSS- REFERENCE 


REFERENCES 
1146 
0902 
1012 1022 
0025 0111 0863 0873 0930 0962 0985 1060 
1289 1290*% 1291 1292 1293% 1294 
7334 
4103 
0167 
0352 0511 
0881 
1098 
0278 0837 106010 1168 
0279 O438 0868 1258* 1265 
0935 
0930* 0931 0933* 0938 0951 
0947 
0956 
0942 
1303 
1302 
1090* 1099 1129 
1106 1121* 
0252* 0267* 0411# 0426* 0553¢ 0657* 0778* 1100 
0745* 0155* 0884 1093 
0677 0976 
0280 0281* 0287 6439 O48480* 0846 0868* 
0300 0459 0596 0711 
0328 O48? 
0311 0470 
0359* 0364 0518* 0524 
0345 0504 0624 0739 
0580* O584& 2 
0607 % 
0699 
0722 
0801 
0817 
0832 
OBu4 
0196 
0208 
0013 
0238* 0289 0264 0305 0358* 0397% 0408 0423 
0886 
0142 
0897 
1295 
1289* 
0092* 10371 1118% 1123 1125% 
1134 
0128 0198 0210 ©0288 0302 06313 0330 0347 
0489 O5C6 0525 0585 0598 0609 0626 0678 
0804 0820 0835 Ges7 0893 0904 0949 0958 
22NAY70 OTAUG70 010CT70 
571513 571531 5715490 


1085 


Ou64 


O3€5 
0700 
0977 


1781 


0513* 


O4an7 
0713 
1032 





PART WO. 5129638 
PAGE 13: 
1253 12888 
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es 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


A083 


€ SYMBOL 


HDEXT 
HDTBL 
HEXSTA 


ey 


ey 
x 
» 
wm 
og 
4 


ro 


°° PRTEXT 
PRTHEX 
PRTSNS 
‘  PRISPN 
CODE 
RDDFC 
* READ 


READ1 
REMvDS 
RLDFCR 
RMVDSK 
ROUTNO 
RPFX 
RSIO 
RTN1 
RINVA 
RTNITA2 
RTN1B 
RTNIC 
RTN2 
RTN2A 
RTN2B 
RTN2E1 
RTN2B2 
RTN2C 
RTN2C1 
RTN2C2 
RTN2D 
RTN2ZE 
RTNQF 
RTN2G 
RTN2H 
RTN2J 
RTN2K 
RTN2L 
RTN2S 
RT N3 


DATE 
Ec NO. 


4 


@e0254aeaee50nueaueanueeeeenenenes eee e 08808886 @ @ 


T 


pr > pe YD On Erp Pe ee POOP Se PY Ow DP 


be te be oe oe oe oe oe oe oe oe Oo oe OO oe eo 


REATL 
LEN VALUE 
004 1808 
001 1849 
008 C54 
001 003c 
Oot 1D51 
0ci 0003 
O01 0076 
003 195¢ 
019° 08B28 
001 1865 
004 ABB 
OO& IABF 
O01 02 16 
001 O22A 
C05 BDI 
005 %4D20 
002 1371 
C03 1B4F 
026 OBO9 
002 1253 
O34 18&8C 
002 199A 
006 ‘ID7A 
001 OB15 
00% O27A 
004 1¢34 
004 1¢2C 
004 1BB1 
OC4H OACE 
001 1AG6E 
001 AYE 
007 1ECO 
002 1D00 
001 OBOC 
O04 1B1B 
005 1896 
C01 1A82 
0071 OAD3 
003 IBF 
001 0c22 
004 OC2E 
004 0c5B 
0cu 0C68 
O04 oOCc8&4 
001 OD3B 
004 OD&F 
OCcu OD6A 
004 ODA8 
004 ODFI 
004 ODCE 
OC4 ODFF 
006 OE16 
004 OE2F 
O04 OED 
003 OF33 
O08 OESD 
003 O0£F61 
O0&8 OE7B 
OCu OEFSB 
008 OF96 
006 OE9A 
001 1058 
13MAR70 
571512 


DATA 


DEFN 


0895 
0912 
12353 
1332 
1287 
1313 
1374 
1004 
0107 
1153 
1099 
1100 
1327 
1331 
1198 
1261 
1160 
1785 
0035 
1056 
0921 
1038 
4297 
0106 
1328 


1233 
1229 
17181 
0082 
1072 
1052 
1310 


1249 
0098 
1129 
0923 
1081 
_ 1177 
1130 
0175 
0781 
0193 
0200 
0213 
0225 
0233 
0241 
0262 
0292 
0276 
0295 
0305 
0316 
0325 
0317 
0333 
0334 
0342 
0350 
0353 
0354 
0384 


OG6APR70 
571516 


REFERENCES 


0873 
0090* 
1188 


0877 
0091 
1226 


1298 


0997 
0125 
1128 
0033 
0067* 
0768 
0052 
1213 
1269 
1162 
1133 
00489 
0143 
0883* 
0354 
1292 
0112 
0046 
0443 
0708 
4013 
1187 
1216 
0283 
0080 


1800 


1132 
7150 


0898 


0151 


0513 


0082 
0456 
0718 
1019 


036C 


0184 
02404 
1249 
0338 
0034 
0073 
0883 


C245 


0497 


1165 
0074 
0012 
0213 
0190 
0192 
02048 
0177 
0353 
0355 
0258 
0273 


¢ 


0296 
0307 
0318 
0323 
0322 
0340 
0335 
0290 
0367 
0351 
0227 


0339 


22MAY70 
$71513 


1300% 


O8B6* 


071.4% 


0185* 


006 3* 


1092% 


CROSS- REFERENCE 


0091* 0229 
1232 

1011 

113E€ 1742 
0906 

0154 0629 
0887* 0891 
0161* 1029*% 
0086 0122 
O467 O8B4 
0736 0798 
1024 1168 
O442 0519 
0189 

0245* 0266 
0138 

10 96 * 
OTAUG70 
571531 


0388 0537 
1149% 

0744 0849 
0193 0205 
0501 0521 
0814 0828 
1193 1203 
0578 0673 
0293 0333 
010CT70 
571540 


0644 


1288 


0234 
0581 
0841 
1229 


0695 


0403* 


0762 


1293 


C297 
0593 
0888 


0972 


0404 


0897 
1300 
0308 0325 
0604 0621 
0899 0944 
O4CE* 0425 


PART NO. 
PAGE 

0342 0361 
0674 0696 
0953 0973 
0852 0492 
PROG ID 
PAGE 


5129638 
14 


OCA0B-3 
14 


Ce 


cN 


oy 


om 
7 


o 


O 


oO Oo of Af OO OO 8 8&8 © 8B @ 


O 


A) 


9 


a) ey im > ? a) ¢> 


é 


xX © 


oO 


Qo 9 


o 


IBS MAINTENANCE DIAGNOSTIC PROGRARA 


A083 


SYSBOL 


RTNZA 
RTN3B 
RITN3B1 
RTN3E2 
RTN3C 
RTN3C1 
RTN3C2 
RTN3D 
RTN3E 
RTN3F 
RTN3G 
RTN3H 
RTN30 
RTN3K 
RTN3L 
RTN3A 
RTNY 
RING A 
RTNYB 
RTNGE1 
RTN4&YB2 
RTNSC 
RTN&CT 
RTN&C2 
RTN&D 
RTNGE 
RTNGP 
RTNYG 
RTNS 
RTNSA 
RTNSB 
RTNSE1 
RITNSE2 
RTN5 E3 
RTN5C 
RTNSCi 
RTN5C2 
BT NSD 
RTNSE 
RYTNSF 
RTN5SG 
RT N6 
RTN6A 
RTNOB 
RTN6B1 
RT N6 E2 
RTN6C 
RTN6D 
RTNOE 
RT N6OF 
RUNFIX 
RUNRAV 
SAVSW® 
SEN 
SCRCH 
SECMSG 
SECTBL 
SECTSW 
SEEKCE 
SEEKER 
SEEK EX 
SEEKID 
SEEKTS 
SEKER1 
SEKER2 
SEKE XT 


DATE 
Ec NO. 


® EAD DATA 
T LEN VALUE DEFR 
A 004 106F 90392 
2 008 108A 04800 
A 004 10C8 0421 
A 008 1119 0451 
A CO& 1T0EE 0435 
A004 117F O45S8 
A 006 1136 O864 
A 004 114F 0475 
A 008 1716D O484 
A G03 1153 0476 
A 004 117D 0492 
A 003 1181 0493 
A 004 119B 0501 
A 008 11AB 0509 
A 008 141B6 0512 
A 006 11BA 0513 
A 001 11E7 0533 
A 004 11FB 0541 
A 004 1207 05485 
A O08 123B 0563 
A 0048 1282 0588 
A004 1267 0578 
A 008 1288 0591 
A 004 129F 0601 
A OC& 12B6 0612 
A008 12D4 0621 
A 003 12BA 0613 
A 006 12E4 0629 
A 001 139B 06490 
A 008 13AF 0648 
A 008 13BB 0651 
A 004 13EF 0665 
A 008 1419 0681 
aA O08 1453 0703 
A 008 1481 0695 
A 004 1459 0706 
BR 004 1470 0716 
A004 1487 0727 
A 008 14A5 0736 
A 003 148B 0728 
A 006 1485 0744 
A 001 1578 0758 
A 0048 158C 0767 
A 004 1598 0771 
A C04 15C8 0788 
A 004 15E8 0798 
A 004 15F8 0807 
A 008 1614 0823 
A 004 1637 0838 
A 006 1648 O849 
A 001 OBI2 0704 
A 001 0811 0103 
A 001 1B67 1155 
A 004 1D30 1265 
A 00141 1863 1151 
A 033 O0B61 0109 
3 001 182F 0909 
c¢ 001 O20kR 1325 
A004 ‘I8ED 0962 
A 008 195D 1010 
A 008 1921 0981 
A 002 196E 1017 
A 004 191D 0980 
A 042 ‘AOA 1083 
A040 TAKS) 1085 
A 0048 1956 10063 

T3MART7O O6APR70 

571512 571516 


REFERENCES 


0512 
0544 
0417 
0432 


0455 
0466 
0877 
0882 
0481 
C899 
04894 
ound 
0527 
0510 
0386 
0630 


0498 


0559 
0575 


0592 
0603 
0674 
0619 
0618 
0535 
0745 


0662 
0671 
0692 


07 07 
0717 
0729 
0734 
0733 
0642 
0851 


0784 
0795 
0797 
0812 
0827 
0840 
0116 
0134 
1087 * 
1262* 
1136 
0085 
0238 
0120 
0183 
0993 
0962* 


07281 
1104 


0393 
0132 
02393 
100 1 


0970 
1016 
1027 
0985* 


22m AY70 
571513 


0440 


1137% 


0149 0156% 


0146* 
1122* 


CROSS-REFERENCE 


1141* 17862¢ 1148 


0865 
0136 
0398 


0875 


0543 


01A0G 70 
571531 


0650 0769 0850 


OtocT70 
571580 


PART HO. 5129638 
PAGE IGA 
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PROG ID OAOB-3 
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€©CCCCCCCHCCCCCHCCOCCSEHSECSEESESESESCECEEEEeE 


ey 





fs 


ee 


7 


ite) ry 


ws 


es 


v4 


ot 


mo 


“a 


© 
IBA MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129634 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129638 
PAGE 15 € | @ PAGE 154 
A083 READ DATA © | ‘s a083 READ DATA 
| 
CROSS- REFERENCE i CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES © | @ SYsBOL T LEN VALUE DEFN REFERENCES 
SENSA A 008 1€03 1215 1209 TSTSPN A OOU OB62 0111 0181 0233 0392 0541 0648 0767 
SENSB A 003 BFC 1212 1228 G iG <sts# a 00% oOBs0 0120 0115 0131 
SENSC A008 1€17 1221 12184 TSTTP A O08 1A9E 1091 
SENSE A008 1A58 1060 0075 0200 0807 0934 0986 1182 1219 THO A 0U2 1998 1037 0933 125€ 1290 
SETA 2005 OA6C 0055 0038 © | @ gTwozR A 002° 0314 0105 0051 0116 0185 
SETADA A 00S 1822 1132 11248 TYBOT A006 1D7& 1296 1291% 
SETADB A 005 1855 1188 1138 1143 UDTPTR A 002 OBOB 0096 0028 0031* 0032 0051* 00664 
SETADR A 003 AEA 1116 1098 © | & UFIND1 A O68 OA24 0032 0029 
SETB A OCS OA78 0059 0042 UFIND2 A 00% 0A20 0031 0045 
SETBTH A063 OA8B 0065 0057 0062 ONITS A 010 DAD 1306 1299 
SETDSK A 0C& OAODD 0025 0780 0232 0391 05450 0647 0765 O @ ONPACK C 001 021E 13295 1185 1223 
SETERA 8 003 17AD 0866 0864u% UTAB C001 0232 0097 0030 
SETEPR A OCH 179F 0863 0282 0441 SAIT aAOOU ACA 1103 0069* 1163 
SETERX A 004 1739 0869 0863+ G @ WORK a 001 1DcO 1308 O02871* 02482 0242* 0251 0316 O400* 0407 O801* 0810 O475 0585 0596 
SETEXT A 004 OREC 0693 0025* : 0546* 0547 0547* 0552 0567* 0563 0568* 0569 0569 0589 0612 0651¢ 
SETFIX A004 JAAD 1095 0652 0652* 0653 0653* 0656 068G* 0685 0685* 0686 O686* 0706 0727 
SETRMV A 008 OBBC 0141 0118 0137 0139 Ge 0771* 0772 0772* 0773 0773 0777 0828 1039 4158 
SETSPN A 006 OB74 0116 0113 WORK? A 002 1996 1036 0321 O88C 0617 0732 0932* 0937 
SETSW A001 OBOD 0099 0026* 0050* 0163* 0173 0231 0390 0539 0646 07648 1030% WORK2 A 002 199C 1039 0940 
SETXR2 A 002 1A69 1066 1085* 1086 1108 © @ wWRIDFC A001 1ASA 1047 0237* 0288* 0249* 0257 0263* 0268* 0272 0277 0295 0305 0350 0396¢ 
SET203 A 004 OABF 0078 0407* O4FO8* 0816 0422* 0423% 0431 0836 O855 046% 9509 05462¢ 95508 
SHFEXT A 00% 1D&2 1270 1253* 1258 1255 1257*® 1267 . 0558 0564* 0565* 0574 0591 0601 0689* 0655" 0661 0666* 0670 0682¢ 
SHFTBL A 007 IDG7 1274 1259 G @6 0691 0706 0716 0768* 0775* 0783 0789* 0790* 0798 0826 0838 0°63 
SHIFT A 004 1D01 1253 0276 0835 0969 
SIO A 003 1AC7 1102 0068* 108&* 1089* 1091* 1095* WRTER2 A 008% OFAS 0357 0260 0561 0664 0786 
SIXSIX A 002 18373 1161 CG @ wWRIER3 A008 11C4 0516 0419 
SKTSTA A 004 1929 0986 0990 XR1 Cc 001 0001 1315 0030* 0037 0032* 0037 -0041 0043 O04N O0088* 0961 0065 0065" 0066 
SNS A 008 1461 1063 0072* 1062* | 0251* 0252 0266* 0267 0358* 0359 0810* 08117 (C4&25* 0426 0517 0518 
SSID A O02 1BD8 1197 0287* 0262* 0357* O406* 0421* 0516* 0549* 0563* 0654* 0665* 0681* 0788* GS lg 0552* 0553 0579* 9580 0656* 0657 ©777* O778 0O867*% 0868 08782 0882 
0964* 0887 1061* 1062 1068 1101* 1162 1190 1199 1212 1272 1218 12218 
SNSXR2 A002 1A6D 1068 0320* 0321 0337* 0338 O0479* 0480 04896* 0497 0616* 0617 0731* 0732 1254%* 1260 1260* 1263 ; 
O0879* O88C 1060* 1061 Gi @ xr2 ¢c 001 0002 1316 033+ 0055 0059 0067 0068 0069 0070 06671 0072 0073 C078 02299 
SESO1 A002 4A71 1074 9230 0234* 0235 0236 0236 0316* 0317 0319 0319% 0320 0333 03338 
“SNS23° A002 1873 1075 0336 0336* 0337 0388* 9389 0393* 9394 0395 0395 0575" 0376 0578 
SPNDLA A O0C1 OBOF 0101 0055 6190 0478* 0479 0C492* 0493 0895 0895* 0896 0537* 0538 0612 0633 0615 
SPNDLB A 001 0B10 0102 0059 0615* 0616 O6448* 0645 0727* 0728 0730 0730* 0731 0762* 0763 o865¢ 
SPNMSG A 024 OB4O 0108 0056* 0060* 0089 0866 0875* 0876 0878 0878* 0879. 0931* 0932 1086*% 1088 1089 1090 
STATPR A018 DBF 1307 1199% 120€ Cle 1097) 1106 1107 11708* 1109 12719 1121 #1116 #1119 #11208 1121 1126 
STATUS A 062 1A6B 1067 0079 0782* 0202 0810 0937 0380 0989 0992 1063* 1187 1201 1225 | 1127) 1132 «©1135 «©1137 1180) «411810 «127850 «1188 «61189 1191* 1198 1231 
STATWD A018 1C66 1237 1190 41196 1211* 1227 1255* 1256* 1257 1259* 1261 1262 1268 1268* 
STATO1 C 001 0002 1318 0201 O808 0987 1183 CG G@ XxXR2WK A002 1B6F 1159 1119* 112C 
STAT23 C 001 0003 1319 ZROCTR A OC4 OBFE 0160 0717 0150 
ST EP A&A 001 O0C21 0169 01784* 0152 0165 ZROTO aA C06 I>DS6 1299 1297% 
STMASK A 001 CFV 1286 1991 1227 C 4 
STPSNS A004 1BF2 1208 1188* 1202 1215 1217# TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = o 
STRTIO A 004 1883 1085 0186 0254 0269 0413 0428 0555 0571 0658 0667 0688 0780 0791 i 
0966 09948 GC @e 
SWITCH C 001 0208 1324 0035 003¢ 
TBLEND A 002 1848 0911 08380 
TBLH A002 182E 0908 0143* 0151* 0154* 0230* 0358 0389* 0517 0538* 0579 0629% 0645* O744* Cc ¢g 
0763* 0889* 0867 0874 
TBN A 003 1D2A 1263 1261* 1266 
TEST C001 0212 1326 0130 2 96 
THALT A 004 1892 1173 
TIMOUT A021 ‘BBO 1176 1166 1167* 1171 
TIXE A CON DOF 1304 1298* 1391 Co 6 
TOERYT A006 1D95 1302 1296* 
TRACK# A 001 OBOE 0100 0078* 008 7* 0963 1000 
TSTBT &€ 004 %1BE3 1201 1198* 1208 Oo 9 
TSTDAT A 004 189B 0930 0292 9851 0588 0703 0823 
TSTEFR A003 1AE1 1109 0070* 1105 
TSTEXT A 008 OBPA 0158 0177* 0187 cia 
TSTFIX A O08 OBAA 0136 0133 
TSTRAV A O04 OB9F 0132 0121 
@STSCN A003 AES 1140 0071* Gc @ 
TSTSEK A008 1925 0985 0980 
0:16 
DATE 13HAR70 O6APR70 22MA¥70 071A0G70 010CT70 PROG ID 0A08-3 DATE *3MAR70 O6APR70 22m AY70 01A0G70 010CT70 . ~ PROG ID 0a08-3 
EC NO. 571512 571516 571543 571531 5715480 PAGE 15 | EC NO. 571512 571516 571513 571531 571580 PAGE ISA 
: Q '@ 
CG °o 
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IBS MAINTENANCE DIAGNOSTIC PROGRAMS 


A083 R EAD 


THE CHARACTER 


CL 1 THROUGH 16 CL 17 THROUGH 32 


T+-¥:YH< & CBH 


T+-Z5-K@8 GH.2/ 


T+-DOV1+H .DC3 


T+-,, A&* B- F2 
T+-S%WOH*® <GLUUC 
T+-_/S5*-5N5>R BaP 


T+->*( -. "LG BIP 
T+-?PB8 BA HHO/ 
T+-OK]& .D?HAGOB 


T+-V(CBD* OYCOHD 


T+-2HCET /O01MOH* 


- Tt-3C2<N S'XEV*Y 


T+-3=8aE 94.15%) 
T4+-49E<$09 (PDE (P 
T+-5U1-H DE?B // 
14-62 A="C}B57/= 
T+-73C ELAAEO-D 
T+-8VF-ROC1# /0H 
T+-9- 1EADOH*®BEDA 
T+-:$2;* @-DMB-H 
T+-#OD EY RWEBGCOY 


DATE 
EC NO. 


13MARTO 
571512 


DATA 


ESD & CESHB>Za"0% 


Fx$ @YD>;A AU-D 


2B4A8 5.20 6a"0% 
“OH*EN Ha20%e+ - 
U5*XTBUCHO; PES<. 
S8@XN 14CD2;-KE<L 
2 &*O" ORNDY*<CED 
D{1@.DL-B -,2D % 
AF F8EM34 ACBG2-50 
oc@Bs vo. & (+34 
<E<BG /,P+037YDC 
0941 1) XR5_XSE($ 


OMCNS_N 1;718>} 


suNGeie os) Wae 
H( HOTS BO7 -6Y 
"}AHS6CO FUG< AZ 
;0CEAF67 /1DC & 
SYD.2/9. /1S$G2_ 
DO-H) 0.7X | HAE+H 
A( HESE4AFWS) (Hi 


@D/20(&D0Q./0 D @ 


O6APR70 
571516 


22BaY70 
571513 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


(18 -BYHABCHA TH 
CCI HH<BG /YFF-% 
<4-DC( D.B2- PR 
EFVHEACIXBO# /0H 
E1)N 8aPS8aPD 
R2;PEG+7B1*-I58C 
.D-SM@YFAaY*a+ 0 
*HOK<@YDD] | @. DTU 
+ J->FV<@BA_Z} 
“BO? -6Y (OH*. QTO 
" /OHSYDC /12M T- 
CO=LR6 *PDE+$H2) | 
AS; ( BXPCB *SRE<X 
RI#GDECLABAE O'S 
(OH*. ORHBFB=a_ AS 
<CE,B J7 ( DS3*B 
EK%BGC+X /0740H* 
* "12 (@YDSO0R* BPSO 
B LEBFRU( JZ_PRS 
MECBGCWG /OHE1UY 


DOH*S%*BG /YFK/ 


OTA0G70 
571531 


CL 49 THROUGH 64 


4 &%. (ED. BaHBF, 0 


I] ~CE0ABO%.E<B 


H E2 Y Ayes 3B- 
E KD.Q*BG /YFF _ 


eeoamewve 2 


B-% 2) P 
R1*GDECLAB@E 1>L 
BB?HEF<BG /, FDO% 
"B1G2-JM+ J->FV< 


o¢ ee 


~D&BG "A-YC| 


“FW, /1T_1}OELCO 
DPW, 2DAC /OHEWK< 
E+. E1).15*) 8aT 
DE<LIIDCNS>( 1X 
MS<GNIDCUSKXNT4C 
RE/OP} ELCO DE, 
GFY<B AZHOH* (D<B 
) JZHOH*) H/SFC18 
,CUW-E@BG SH-604 
2-JL /0830H* BF%Q 


G6OEAFOH*BHDAFING 


{OH*BHD KOH*+y>} 


010cT70 
571540 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NOMERIC SHIFT. 


CL 65 THROUGH 80 


@ %<+ HBB"HEAXE 


G SY GH- &494D 


FH H £96 Y AZ 


° o 


1 QL OBFDSOLCO 
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CASE F2 81 25 a2 JE SETB JUSP IP THERE IS ONE 102 ¢ ROUTINE KG. OF, CHECK WRITE ID FUECTIOR © @ 
4 0a51 78 10 01 a3 TBR 1(,XR1),X°10° TEST POR LaST euTRyY e , 103 © ° USISG HEAD 0 © 
a be 01 03 au LA 3(,XR3) ,XB1 STEP POLETES TO WEIT Estar r “ 108 ” 
i 0a57 CO 90 OA2B a5 SF OF ISD2 CONTINUE IP SOT THE LAST ENTRY * = 
: OASB 3C CO 0812 a6 AVI SETSW,0 ¢ 2 cae re arn - 
aaee = re yeas ORI? ee BAVC) 8 =—s:; UD TPT R(2) , TUCZR = CeS1 01 ORS? 107 RTWY 8 DC XL°01°¢ ROUTINE #0. , 
: =e B RTEBGO TO. RUM ROUTINE 8 OfS2 00 C852 108 pc XL1*°00* BOUTISE FLAGS : 
- - 0BS3 Oc 5a 
r 0269 08 00 1725 OBiR $0 SETA "ZZ «= LDPCROT,SPNDLA SET TO RUS ON SPIEDLE *a* e Se ee a 6 ce cree Be reg an 
peer 45 y On20 23 SVX SPNSSG,C*?* SET MESSAGE POR SPIXDLE °¥° OFSS 3D CO 0R12 191 BEGIN CLI SETSY,0O HAVE PARAMETERS BEER ENTERED? 
: = 3 SET STH PROCEED c 2 0B59 CO #1 OADD 112 BE SETDSK BRASCH IF #O 
“a 0 e s 
OA76 08 00 17E5 0B15 $8 SETB ZZ LDPCR¢1,SPREDLB SET FOR SPINDLE 8. nae ea i ate ie < a vs ie on ereiie HEAD 0 
i OA7C 3C F2 0830 - §5 SVI SPNASG,C*2°* SET MESRAGE FOR SPINDLE *2° - 9B65 3C 09 1963 115 uVI SNSID,09 INSERT ID I8 PRIRT 
pace ue = e2 =. aes eles ek ne ie oo ce am os REBOVABLE OLY e OB69 OC 00 1789 0813 416 SVC WRTDPC*1(1) - TRACKS SET TO SEEK THE CE TRACK 
: OPSP 3C CO 178A 117 AVI WRT DFC*#2,0 SET FOR HEAD 0 
: OA86 3C FP 0811 ee BVI BENVDS,X*PPre SET BLT TO SPECIPY REAOVABLE OBLT 2: = CR73 3C CO 189P 118 AVI DISKTP,0O SET POR UPPER DISK 
; 0B77 CO 87 17A8 119 B STRTIO TO I/0 SUBROUTIRE 
: oun i a teas a SETBTH ea gtoe ere STZP POINTER TO NEXT ENTRY OB7R 00 0278 120 pc XL1*°00° PUNCTION CODE (CO#TROL) 
= OB7Cc CO CB7C 121 *00 8 
0a91 08 00 1729 1785 62 AZZ LDPDR¢1, LDPCR6} SET POR CURREET SPISDLE 7 aBqD 1788 OBTE 132 Se jue iwarore) COWTEGL FIELD apbaxes 
| OA97 08 00 17F5 1725 63 RAZZ =. ST. O0#1, LDPCR+¢1 SET POH CURRENT SPIBDLE OP7P CO 87 CB99 123 B RTN 1A GOOD RETOUR 
} OASD Of OO 17F8 1785 64 MZZ 4 =-WAIT¢1,LDPCRON SET POR CURREST SPIEDLE - ORR3 CO 87 ORBT 12a 8 o+8 
t OAA3 08 GO 1810 1725 v5 AZZ TSTERR¢1,LDFCRe1 SET POR CURREST SPIKDLE = OF87 CO 87 193C 125 B PRTS#S TO DECODE ERROR 
; OA29 08 OO 1813 1785 66 AZZ 8 TSTSCH¢1,LDPCREI SET POR CUREEST SPINDLE OPAB CO 87 O271A 126 B PRIET TO PRINT 
eo OAAP 08 OO 179C 1725 67 MZZ SNS¢1,LDPCR¢1 SET POR CURRENT SPINDLE c : ORSP 06 OF8P 127 pc XL1°06* FLAGS 
OABS 08 CO 188E 17P5 68 AZZ RLDPCB¢¥,LDPCRO1 SET POR CORRENT SPISDLE : 0R90 35 CB90 (128 pc IL1*53°¢ LENGTS 
; OABE 08 00 1852 17F5 69 422 RSI001,LDFCR¢1 SET POR CURRENT SPINDLE 0891 OCA OP92 129 pc AL 2 (ERRORS) BESSAGE ADDEESS 
Is. S % ~ 
'. DATE O6APRT70 22" A170 01A0G70 OTAPR71 ISHART72 PROG ID Oa09-8 CATE C6APRT7O 22M AY70 01A0G70 OVAPR71 1SHARI2 P 
‘ ROG ID oacg-8 
FC WO. 571516 571513 571531 571565 571591 PAGE ’ £ - EC WO. 571516 $71513 571531 571565 571591 PAGE ta 
tf. ele coe ’ 





PRET HO. 5129636 - TAB MAINTEMASCE DIAGNOSTIC PROcRAS 








"TBs sate SWOSTIC PROGRAS : PART HO. 5129636 
a 8 PETEuANCE DIAGHOSTIC R tens . se ST as = 
, aose DISK BRITE TD TEST Bal O98 DISK BRITE ro TEST 
EPR LOC CBJFCT CODE ADDR STAT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STMT SOUNCE STATEARERT . 
0B93' CO 87 0222 130 B HALT TO DCP HALT pe? 20 9C33 1738 ecza 198 BC 8 - AL 2 (WRPDFC) ‘COWTEOL FIELD ADDBESS ¢>. ox: 
OR97 ADCS cB98 431 DC XL2* a00g* HaLT ID DCSS CO 87 IADE 199 8B CVD TO CONVERT SECTOR RO. 
432 ae 0Ca9 TACP OCSA 200 DC AL2 (CYLWO) SOURCE 
©0899 CO 87 71705 133 RTRIA B TSTSEK TO TEST POR GOOD SEEK ocsB OfCr ocac 201 DC AL2(ERRO2E) DESTINATION 
. 138 . OC&D CO 87 O27A 202 8 PRIST TO PRINT ERROR ON VERIFY 
OB9ID 3c OO WAC 135 AVI WORK,O ZERO THE BRITE AREA at Oct? 66 0C54 203 pc XL1°06* PLacS — 
OBA1 3C 17 1788 136 SVI  @RTDFC+3,23 SET TO #RITE ONE TRACK >. 0C52 4p 0CS2 208 pe IL1°77° LENGTH 
OBAS 3C 9C 1963 137 A¥X  SNSID,x*9C* PUT MESSAGE ID IW SERSE PRIET : 0C53 OFCP 0c54 205 pc AL2 (EERO2E) SESSAGE ADDRESS 
OBAQ 3C FO OCET 138 BVI ERRIA,C*O* SET HEAD O IN MESSAGE Pa 0c55 CO 87 0222 206 B-~—s« HALT TO DCP ERROR Salt 
OFAD CO 87 T7848 139 b STRTIO TO I/O SUBROUTINE. a 0cS9 A022 OCSA 207 oc XL2¢a022* Hal? ID 
0BB1 62 “ORB 180 DC XL2°02¢ FUNCTION CODE (WRITE) ' 208 
OBB2 01 OFB2 181 DC XL1°O1~ CONTROL CODE {1D} OCSB 3D SC 1782 209 RTNIG CLI wRTDPC+2,x*SC* TEST POR LAST SECTOR VZRIPYED 
ORB3 1788 OER’ 142 pc AL2 (WRT DPC) CONTROL FIELD ADDRESS , OCSP CO 81 0216 - 270 RE LINK TO DCP LF FISISHED 
OEBS CO 87 OBCP 143 8 _ #TMI1B GOOD RETURN, (BRPECTED) 0C63 02 00 178A 175D 217 ALC. ‘@RTDFC+2(1) fONESEC- ROT DONE, STEP TO BEXT SECTOR: =: = 
OPB® CO 87 ORBD 188 B #48 id ‘ 0C69 CO 87 OCIP 212 8 RTN IP TO VERIPY TSE NEXT SECTOR 
OBED CO 87 193c 185 8 PRTSHS ZRROR RETURE, (NOT EXPECTED 5 : OC6D E3CSCS4OD7DICSES OCSB 243 pc CLO7°TRE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE *° 
CFC1 CC 87 O2tA 486. B PRIST TO PRINT ROUTIBE ERROR 0C75 CODHFLE280C5D9D9 213 ; 
OBcS 06 oBcS 147 pc XL1*06! FLAGS OC7D DODIE2bO DECICIES 213 
OBC6 80 CBC6 188 pc ILT*oae LENGTH OCB8S DIDICST4SBORGE SCD 217 
OBC7 OCE! eBce 1489 pc AL2 (ERR 1A) ADDRESS OF LAST P#INT CHARACTER OCBD DICSSOE2ZCSCSD2C9 233 
OBcs CO B87 0222 150 B HALT TO DCP HALT ok 0C95 £5C780FICBCS4O 213 
escp a0gc OBCE 151 pc XIL2*a09c* BALT ID Pd OC9C C3CSAOC3EBD3 OCA? 2138 ERRORS DC CLO6"CE CYL* 
152 . OCA2 E3CRC580D7DICSES GCCC 245 DC CLU&3"THE PREVIOUS ERRORS OCCURRED WHILE DOIEG Qa ° 
OBCF 3D FP 1788 153 RTW1B CLI wRTDPC+3,xX‘°FF® TEST SECTCR COUNTER FOR STEPPIRG. q OCAA COL6EGE2SOC5SD9IDI 215 : 
OBD3 F2 81 10 158 JE RTH IC PROCEED IF OK. OCB2 DEDIF2ZG0DEC IC JES 215 
OBD6 CO B67 O27A 155 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED PCBA DICICSC&4OEECECI 235 
ORDA C6 OEDA 156 DC XL 1°C6? PLAGS i OCC2 £3C580C8DEC9DSC7 215 
OBDB 2B OBDB 157 DC TL1°43¢ LENGTS OCCA 80C180 215 
OBDC OE£2C OBDD 158 pc AL 2 (ERRO2B) MESSAGE ADDRESS OCCD E6P9C9F3ICS4OC9CR OCE1 216 ERRIA DC CL2U°SRITE ID USIBG HEAD Z* 
OBDE 2016 OBDF 159 pc XL2°A016° MESSAGE. IDENTIFICATION 3 OCDS 9OF8E2C9DSC780CB 216 
OBEO CO 87 0222 160 B HALT TO DCP HALT . OCED C5C1C84OR7 216 
OBES 2016 OBES 161 pc XL2*A076* HALT ID 
162 “4 
OFF6 CO 87 1782 163 RTNIC B SENSE TO SENSE DEVICE STATUS ag i 
, OPEA 06 OBEA 168 pc XL1"08* GET THE DATA CONTROL ADDRESS 
a OBEB OD 01 17A5 16A3 165 CLC STATUS (2) ,DFDR CHECK DATA ADDRES AFTER ce | 
of 166 * WRITE IS COMPLETED, (EXPECT #O CHG.) ~ | 
i OBF1 F2 861 10 167 JE BTW1D PROCEED IF OK ; 
Pat OBFS CO 87 O21A 168 B PRINT TO PRINT ERROR a i 
. OBFS8 C6 OBF8 169 pc XL1°C6* FLAGS . = 
&  OBP9 25 OBF9 170 pc IL1°37¢ LENGTA 
>< ss OBPA OFB2 OBFB 171 pc AL2 (ERRO2D) MESSAGE ADDRESS Ph Bg 
a OBFC A03E OBFD 172 DC XL2*A03E* SESSAGE IDENTIFICATION ae 
OBFE CO 87 0222 173 B HALT TO DCP ERROR HALT | 
he 0CO2 A03E 0co3 174 pc XL2* aO3E* HALT ID g 
: 175 ~ 3 
' OcOS 38 SC 176A 176 RTNID TBR WRIDPC+2,xX°SC* TEST SECTOR ADDRESS POR LAST SECTOR \ 
‘. 0cos F2 10 10 177 IT RTNIE J0SP IP IT STEPPED CORRECTLY - 4 
; OCOB CO 87 O21A 178 B PRINT TO PRINT SECTOR ADDRESS ISCORRECT ? ~ 
i OCcOF cé OcOF 179 pc XL7°co6® PLAGS 
I. oc 31 0c10 180 pc IL1*ag¢ LENGTR “ : 
i 0C11 OFSD oc12 181 pc AL 2 (ERRO2C) MESSAGE ADDRESS . 7 
[ 0C13 A026 0c1a 182 pc XL2*a026* MESSAGE IDEXTIPICATION 
0C1S CO 87 0222 183 B HALT TO DCP HALT - : 
e 0C19 A026 OCTA 184 pc XL2*A026° HALT ID 7 ~ 
i 185 
P OC1B 3c 00 178A 186 RTNVE AVI 8 WRTDFC+2,0 SET TO USE HEAD 9 c a 
& OCIF 3C CO 1788 187 RINIP AVI WRIDFC+3,0 SET TO VERIFY ONE SECTOR > . 
% 0C23 CO 87 17A8 188 B STRTIO TO VERIFY ONZ SECTOR 
% 0c27 01 0c27 189 pc XL1°01° FUNCTION CODE, (READ) - 
$ 0c28 03 0c28 190 Dc XL1*03° CONTROL CODE, {VERIPY) : 
‘ 0C29 1788 Oc2a 191 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS 
:. 0c2B CO 87 OC5B 192 B RTE 1G GCOD RETURN - < 
: OC2F CO 87 0C33 193 B #44 hs 
: 0C33 3C 22 1963 194 NVI SWSID,X*229 PUT ID IW SENSE PRINTOUT 
be 0c37 CO 87 193 195 B PRTSNS TO PRINT STATUS ERRORS ie * 
“ OC3B 3C FO OECS 196 AVI  ERROZE-10,C*°O* SET HEAD 5O. IN MESSAGE : . 
OC3F CO 67 1A8A 197 B SHIFT TO SHIFT SECTOR HOUSBER FOR CONVERT 
et . . 
CATE OG6APRT70 22may70 0140670 O1APRT1 15MAR72 PROG ID Oa09-8 : DATE O6APR70 22B8AT70 0 1A0G70 OTAPR71 ISHART2 PROG ID Oa09-8 
EC NO. 571516 571513 571531 571565 571591 PAGE 2 « z FC NO. 571516 571513 571531 571565 571591 is SE 2a 
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IBM BAINTENASCY DIAGNOSTIC PROGRAA 


4098 ~ 


BRR Loc 





OcE2 
0CE3 
OCES. 


OCES 


_OCEA 


QCFE 
OCP2 
OCF6& 
OCFC 
oD00 
ODboa 
oDO8 
opoc 


“ODOD 


ODd0E 
Op10 
OBA 
on18 


opic 


2D20 
OD21 
0D22 
OD24 
0Dz28 


OD2A 


OD22E 
6D32 


Ob36 ; 
“OD3A 


OD3E 
0Ds2 
0D8&3 
ODas 
ODk6 
ODSA 


ODUE 
0D52 
0n56 
OD57 
0D58 
OD5A 
ODSE 


OD60 
OD6a 
OD67? 


| ODGEB 


opé6c 
ODpéD 
OD6F 
Op71 
0D75 


ODI77 
OD7B 
OC7C 


OD82 
op85 
0D89 
ODBA 
OD8B 


CATE 
Ec RO. 


OBJECT CODE 


02 
00 
OEDO 


3n 00 
co 81 
38 On 
co 10 
cc 60 
3¢ 8&8 
3c 00 
3¢ 89 


CO 87 


00 
eo 


cG 87 
co 87 
co 87 
co 37 
06 

35 
Ocal 
co 87 
A009 


CO 8? 


FP2 81 
co 87 
cé 

25 
OE82 


7788 * 


OB12 


OAOD 


O208 


(0216 


789 
IBA 
189F 
1963 
V7A8 


QOD2A 
Opa 
193C 
O2 1a 


0222 


1705 


TBac 
1963 
1788 


OCE1. 


TTAB 


OD60 
OD4E 


193¢ 
Q21a 


0222 


178B 


O21A 


0222 


T78E 
T7a5 


10 
O2TA 


O6APR70 


571516 


aire 


Sa 


ORT3 


18a 3 


DY SK WRITE 


ADDR STatT 


OCE2 
OCE3 
OCES 


ODSC. 


opoD 
oper 


0D20 
cp21 
0D23 


cp2g 


OD42 
OD4s3 
oDus 


0D56 
OD57 
op59 


ODS? 


CD6éB 
on6c 
OD6E 
0D70 


OD76 


OD7B 


O0D89 


ODS8A 
ODsC 


22RAY70 
§$71513 


PART #0. 


51296 36 
PAGE 3 
ID TBST 
SOURCE STAT ESENT 
218 ROUTINE NO. G2, CHECK WRITE ID FUNCTION s 
219 ; USISG READ 1 ; s 
220 RTH2 pc XL9*02° ROOTINE SCUABER 
221 oc XL1*00* ROUTINE FLAGS 
222 pC AL2 (2TH 3) ADDRESS OF HEXT ROUTERB PREPIE 
223 
224 CLI SETSE,O HATE PARAMETERS BEEN ERTERED? 
225 BE SETDSK BRANCH IF KO 
226 TSN SECTSH, X*° O48? TEST SSR 15 
227 BT LIBK JUNP IP O8, BYPASS SEAD 1 
228 aAvC WRT DPC+17 (1) , TRACKS SET @RITE ADDRESS TO CE TRACK 
229 AVI WRT DFC+2,xX°80* SET POR HEAD 1, SECTOR 0. - 
230 MYX CBYSKEPP,O0°5 «°° SET POR UPPER DISK’ “" 5555 ©- 
231 aVI SRSID,09 INSERT ID IM PRIBT 
- 232 B STRTIO TO SBEBK CE TRACK 
233 pc XL17°0¢ FONCTION CODE (CORTROL} 
2348 pc IL1¢O! — CONTROL CODE (SEEK) 
235 pe AL2 (RTDFC) COMTROL FIELD ADDRESS 
236 B RIN 2A GOOD RETURN 
237 B weg 
238 B PRTSHS TO DECODE ERROR | 
239 8 PRINT TO PRINT 
280 DC XL1°O6* PLAGS 
241 pc IL1°53° LENGTA 
2402 pc AL2 (ERRORQ) MESSAGE ADDRESS 
283 B HALT TO DCP HALT 
244 pc XL2* 20098 HALT ID 
24S 
286 RTH2ZA 8B TSTSEK TO CHECK FOR A GOOD SEEK 
287 
248 NVI WORK,O ZERO THE WORK AREA 
2489 NVI SNSID,X*'9C? PUT MESSAGE ID IW PRIAT 
250 NVI WRT DPC+3,23 S2T TO WRITE ONE TRACK 
251 AVI ERRTA,C*1& SET HEAD 1 IN ERROR KESSAGE 
252 B STRTIO TO I/O SUBROUTINE 
253 pc XL 79028 FONCTION CODE {WRITE) 
2548 pe XL1*O1? CONTROL CODE (ID) 
255 pc AL2 (WET DFC) CONTROL PIELD ADDRESS 
256 B RTN2B GOOD RETURN 
257 8 *4Q 
258 
259 B PRTSNS TO PRINT SENSE INFO. 
260 B PRINT TO PRINT THIRD LINE 
261 DC XL1*06°* PLAGS 
262 pc IL1*6a8¢ LENGTH 
263 pc AL2 (ERR1A) MESSAGE ADDRESS 
264 B HALT TO DCP HALT 
265 pc XL2*a09C? HALT ID 
266 
267 RTN2B CLI WRTDPC¢3,X°FP* TEST SECTOR COUNTER FOR STEPPIRBG. 
268 JE RTN2C PROCEED IF OK. 
269 B PRINT TO PRINT SECTOR COUNTER HOT STEPPED 
270 pe XL1°C6* PLAGS 
271 pc ILt*43° LENGTH 
272 pc AL2 (EBRO28) MESSAGE ADDRESS 
273 DC XL2*A016¢ MESSAGE IDENTIFPICATICH 
274 B HALT TO DCP HALT 
275 DC XL2°a016°¢ HALT ID 
276 
277 RTN2C OB SEWSE TO SENSE DEVICE STATUS 
278 Dc XL 1° 09° GET THE DATA CORTROL ADDRESS 
279 CLC STATUS (2) ,DPDR CBRECK DATA ADDRES AFTER 
280 * WRITE IS COMPLETED, (EXPECT NO CHG.) 
281 Je RTN 2D PROCEED IF OK 
282 B PRINT TO PRINT ERROR 
283 DC XL1*C6t FLAGS 
288 pc IL2°37° LENGTH 
285 pc AL 2 (ERRO2D) MESSAGE ADDRESS 
01A0G70 O1APR71 15MABR72 PROG ID 0a09-8 
571531 571565 571591 PAGE 3 


ae 


69 


ea 


ea 


a> 


«> 


gy 


aye se area 


one 


#46 


eet 


ACDR STMT SOURCE STATENENT  —=——.._. - 


XL2°a03E* 
HALT 
XL2*a0388 
WRTDPC#2,X"DC* 
RTHZE 
PRINT 
XL7°co* 
IL1*4ge 

AL2 (ERRO2C) 
IL2°a026¢ 
HALT 


EL2°AO26* 2; 
WRT DFC+2,1°80" 


WRT DFC+3,0 
STETIO 
XL7°01° 
XL1°93¢ 

AL2 (WRT DPC) 
BTN2G 

*e4 
SHSID,X*27° 
PRTSRS 
ERRO2ZE-10,C"1? 
SHIFT 

AL2 (WRT DFC) 
CVD 
AL2(CYLWO) 
AL2 (ERRO2E) 
ERRO2ZE~2,C* * 
PRINT 

XL1°06* 
IL1*77° 

AL2 (ERRO2E) 
HALT 
XL2*a027° 
WRIDPC+2,xX*DC* 
LINK 


WRIDFC#2(1) , ONES EC 


RTR2P 


PART #O.. 


PAGE 3a 


ee ee ee me 


BESSAGE IDESTIFicaTIoN 

TO DCP HALT 

HALT ID ae: 
TEST SECTOR ADDRESS FOR LAST SECTOR 
JUSP IP XT STEPPED CORRECTLY ; 

TO PRINT SECTOR ADDRESS IscoRREcT 
FLAGS i 
LEWGTH 

MESSAGE ADDRESS 

BESSAGE IDESTIPICaT ION 

TO DCP HALT ; 

~BALT IYD« ee Og Re Wee: 
SET TO USB HEAD 1 : 
SET TO VERIFY OWE SECTOR 

TO VERIFY OFZ SECTOR. 

PUNCTION CODE, . (READ) 

CONTROL CODE, (VERIFY) 

COBTEROL FIELD ADDRESS 

GOOD RETURE 


PUT ID IN SENSE PRIBTOUT 
TO PRIST STATUS ERRORS 

SET HEAD NO. If MESSAGE 

TO SHIFT SECTGR WUMBER FOR 
CONTROL FIELD ADDRESS 
TO CONVERT SECTOR WO. 
SOURCE 

DESTINATIO“ 

POT A BLANK I8 MESSAGE 

TO PRINT ERROR OH VERIFY 
FLAGS 

LEEGTS 

BESSAGE ADDRESS 

TO DCP ERROM HALT 

HALT ID 

TEST FOR LAST SECTOR VWERIPIED 
TO DCP IF FINISHED a 
NOT DONE, STEP TO WEXT SECTOR 
TO VERIFY THE NEXT SECTOR 


CORVERT 


CL&3*SECTOR COUNTER IK CONTROL FIELD NOT STEPPED* 


vr o® 


CL&9*°SECTOR ADDRESS NOT STEPPED TO SC AFTER A WRITE rp 


CL37*DATA ADDRESS STEPPED APTER A WRITE ID* 


CLSO‘THE PREVIOUS ERRORS OCCURRED WHILE DOING A VERIFY ? 


CLZ7*DATA USING HEAD XK SECTOR XxX* 


ISHAR72 
371591 


ge 2 

I5% BAISTEMANCE DIAGNCST?< PROGRAR 

aoas DISK WRITE FR TEST 

FRR LOC ORJECT CODE 
OLSD aAC3E ODBE 286 pc 
OD8P CO 87 0222 287 B 
0D93 AO3F : O0DS9&% 288. - DC 
CD95 38 pc 478A 289 RTN2D TBR 
0D99 F2 10 19 290 st 
ODSC CO 87 O2Z1A 0 294 RB 
Onaod cé& ODAO 292 DC 
ODA 24 ODR4 293 pc 
ODA2 OFSD ODA? 279% Dc 
ODRG AOZ6 OLAS 285 DC 
Onas& CO 87 0222 296 B 

. ce . SDAA BO26 sos -ga 2 CDAB. 299 Lee OC os 
“-" “pic 3c"Ro 78a 298 RTRZ2E YI 

OLPO 3c 00 1788 299 RTN2P NYT 
ODBS CO 87 1748 300 8B 
ODBS 01 CDBS 301 pc 
ODRY 03 ODBa 302 pC 
ODPA 1788 ODRB 303 pc 
OpBC CO &7 ODFO 304 8 
OCCcO CO A? ODCa 305 B 
ODCyY 3C 27 1963 306 NVI 
ODC8 CO 87 133C '. 307 B 
Orcc 3C FT OFCS 308 AVI 
ODDO CO 87 ASA 309 B 
ODDe 17288 ODDS 310 pc 
ODD6 CO 87 IADE 311 B 
ODDA 1ACP ODDB 312 pc 
OLLC OFCF ODED 313 pc 
CDDE 3C 8&0 OECD 314 avVI 
ODE? CO 87 O27A 315 B 
ODE6 06 ODEG 316 pc 
ODE? aD ODE? 317 pc 
ODES OECF ODES 318 pc 
ODEA CO 87 0222 319 B 
ODEE a027 ODEZP 320 pc 
CDFO 3D DC 178A 321 RTN2G CLI 
ODF&’ CO BT 0276 322 BE 
ODFB OF 00 178K 175D 323 aAic 
ODFE CO 87 ODBO 324 B 
OFO2 E2CSC3E3D6D940C3 OE2C 325 ERRO2B DC 
OLOA DOESDSEICSD9UCCY 225 
CE12 DSYOC3DEDSE3D9 D6 325 
ORIA DIG0CEC9CSDICe4S 325 
O£22 CSLC6EIBOE2F2CSD7 325 
OPF2A CICSCA 325 
O£F2ZD £22C5C3E306D940C1 OFSD 326 ERROZC DC 
O£35 CUCULOCSE2ZE290D5 326 
OE3D DEE3SOF2ZE3CSNIDI 326 
OESS CSCUSOFIDSGOFSC 326 
OF8D SOCIC6E3CSD9R0CI 326 
CESS BOFEDSICIE3CS40C9 326 
OFSD ca 326 
OPSE CUCTEICIZOC 1C4UCS OF82 327 BRROZD DC 
OF66 DSCSE2E2ZU0F2F3C5 327 
OE6E DIDTICSCALNC 1C6B3 327 
CE76 CSD94GOCTUOFEDSC9 327 
OF7TE E%cSHOC9ICa 327 
OER3 EICRCSSODTICICSFS OFS 328 DC 
OP8BB CSL6ELE240CSD9N9 328 
OF93 D6EDIEZ8ONEC3ICIFY 328 
OFOR DILICSC4USOPEC ECS 328 
OFA3 DICS8OCSL6C9DSC7 328 
QCEAP SOCINOESCSD9CICE 328 
OEB3 E840 328 
OEBS C&CTEICI“OFRYE2ZCS OBCP 3279 ERROZE DC 
OFBD DSC780CB8CSCICRAO 329 
OECS £E7S80E2C5SC 3E3D6D9 329 
OFCD SOF7ET? 329 

DATE O6APR70 22NAY70 01A0UG70 O1APRT1 

PC WO. 571516 571513 571531 571565 


PROG ID OaA09-4 
PAGE 3a 


tilt 
hee 


stot 





TBR RAINTERANCE DIAGNOSTIC PROGHAT 








4 PAGE 8 OG 
“poog. DESH w®RIT E. ¥ D a z st $ 
_ BRR LOC OBJECT Copz ACDR STST SOURCE STATENERT 
a Oa a : 331 * ROUTINE RO. 03, CHECK USITE Ip PONCTION a 2 
a Oh ; 332 @ ne OSING HEAD 2. ° 
OEDO 03 OFDO 334 RTH3 dC XL7*03" ROUTINE SBNBBR 
OEDT CO OFDt 335 DC XL 17.00" ROUTIBE PLAGS 
OLD? OFFS: OED3S 336. _ oe AL2 (BT NR) ADDRESS OF EBIT ROUTIBE PREFIX 
337. - ; ov. Feta ; . 
3. SEDY 3p 00 8B 12 - * 338 ' CLI . SETSH,0 HAVE PARANETSRS BEEN BNTERED? 
*; @OBBS CO 81 GAtD 339 BE SETDSK : BRANCH IF RO 
.° @EDE 3D FF OB11 - 320 CLI RESYDS,X°PP?* TEST PGR RUX REMOVABLE ONLY 
SEBO CO 81 O21 384 BE LINK Exit IPF YES. 
«6 EES 28°02 0200 3a2 TBN «= SECTS&,X*02" TEST SSW 16 
> GEEB CO 10 6276 33 Br, LER. BRANCH IF O8, BYPASS TEST OF HEAD 2 
OfeC GC 00 T1789 0B13 — aaa ave WRT DPC< 1 (7), TRACKS SET WRITE ADDRESS TO CE TRACK 
OLF2 3¢ 00 178A 385 _ S¥I: @RTDFC+2 ,0 SET FOR READ 2, SECTOR © 
CEF6 3c 08 T89F 356 AVE - DISKTP,%*08¢ SET POR LOWER DISK 
OEFA 3c 69 1963 387 AVY SNSID,09 IRSERT ID IW PRINT 
‘OEFE CO 87 71788 399° oe :) STRTIO TO SEER CE TRACK 
Ore2 oo . OPO2 350 pe XLI°O* FUHCTION CODE {CONTROL 
@?7o3 00 OF03 «357 pc XLi‘9¢ CONTROL CCDE (SEEK) 
 OFrea 1788 OFOS 352 pc AL2 (@RTDFC) CONTROL FIELD ADDRESS 
’ F706 CO 87 0F20 353 B RTH3A GCOD RETURR 
OFPOA CO 87 OFOE _ ‘35a B ‘S44 : 
OFOE CO 87 193Cc 355 Bo PRTSNS ‘TO DECODE SRROR 
GFI2 CO 87 021A 356 8 PRINT TO PRIST 
OPI6 06 ; OF16 357 pC XL 7°06! PLAGS 
Or17 35. Or17 358 DC IL1*S3* — LENGTH 
OF18 OCAi : OF19. «359 BC AL2 (ERROB9) BESSAGE ADDRESS 
OFTA CO 87 0222. 360 B HALT TO BCP HALT 
OFTE aco9o CFIF 361 boc EL2* a009¢ HALT ID 
362 a 
OF20 CO 87 1705 363 RTN3A B TSTSEXK TO CHECK POR & GOOD SEEE 
364 
Or28 3c CO 1BaC 365 AVI #ORK,O ZERO TRE DATA ARBA 
OF28 3¢€ 9C 1963 366 SV¥I  SNSID,x*9Cc* POT ID IN PRIUT 
OF2Z€ 3c 17 1788. 367 . AVI WRTDPFC+3,23 SET TO WRITE OWE TRACK . 
OP30 3C F2 OCE1 368 AVI EBR7A,C*2° SET BEAD 2 IN ERBOR BESSAGE : 
OF38 CO AT 17A8 369 B STRTIO TO WRITE DATA 
OF36 02 OF38 370 Dc XL1*°02¢ FOXCTION CODE {#RITZ) 
OF39 01 OF39 371 pc XL1°0918 CONTROL CGDE (ID) 
OF3A 1788 OF3B 372 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
OFIC CO 87 OFS56 373 B RTN3B GOOD RFTURS : 
OFSO CO 87 OFAS 378 B ren 
. : 375 i 
OFsa CO 87 193¢€ 376 B PRTSHS TO PRIRT SENSE INFO. a 
OFS CO 87 021A 377 B PRIST TO PRINT THIBD LIRE i 
OFaC 06 ' OFaC 378 pc 1L1°06* PLAGS 
OFLD 480 Oran 379 oc IL 1* 64" LENGTH 
OFSE OCEI OraPp 380 pc AL2 (ERR1A) MESSAGE ADDRESS 
OF50 CO 87 0222 331. B HALT TO DCP HALT an 
OFSS AN9C OF55 382 pc XL2*avusc* HALT ID a 
383 i 
OF56 3D FF 1788 384 RTN3B CLI &RTDPC+3,X*PF* TEST SECTOR COUNTER FOR STEPPING. 
OFSA F2 81 10 385 JE RT W3C PROCEED IF OK. ~ 
OFSD CO 87 O21a 386 B PRINT TO PRINT SECTOR COUHTER NOT STEPPED 
OF61 C6 OF61 387 pc XL1'C6° FLAGS 
Or62 2B OF62 388 pc IL1*93# LENGTH 
OF63 OF2C OF64% 389 Dc AL 2 (EBRO2B) MESSAGE ADDRESS 
OF65 A016 CP66 390 pc XL2*A016* BESSAGE IDENTIFICATION - os 
Or67 CO 87 0222 391 B HALT TO DCP HALT } 
OF6P A016 OF6C 392 pc XL2*A0 16 * HALT ID 
393 
OF6D CO 87 178E 394 RTN3C OB SEBSE TO SENSE DEVICE STATUS rs 
OF71 04 OF71 395 Dc XL1¢Qg! GET THE DATA COETROL ADDRESS 
OF72 OD 01 1745 1843 396 CLC STATUS (2) ,DFIR CHECK DATA ADDRES AFTER 
. 397 * WRITE IS COSPLETED, (EXPECT BO CHG.) 
OF78 F2 81 10 398 JE. RTH 3D PROCEED IF OK 
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pe XL2*aO3E° | 
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pc XL2°a0SE*. 
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af #TRSE- 
8 PRINT 
_ be EL7°*cO*®) |; 
Bec FL 2289 © 
pc AL2 (ERRO2€) 
pc BL2* ao26* 
B HALT 
Bc EL2° a0z6° 
VI WRT DPES2,X780¢ 
NVI «- SRTOPC+3,0 
B STSTIG 
DBC IL1*o 
BC XL7*°O3* 
Dc AL2 (WRTD?PC} 
B RTBLG 
B eK 
RVI SNSID, ¥°27* 
B "PRTSHS 
NVI ERRO2£-10,€* 3° 
B SHIPT 
pc AL2 (@RTDFC) 
B CFD 
DC AL2 (CYL#O) 
Dc ALZ{ERRO2E) 
AVI ERRO2E-2,C* * 
B PRIBT 
pc XL 2*O6? 
Bc IL1*778 
BC AL 2 (EBRO2EB) 
B HALT 
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CLI WRTDPC+2,X* DC* 
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ALC WRI DPFC+2 (1) , ONES EC 
B BTAGF. 
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FLAGS «- - > om 

LERGTR 





FLAGS | 

LENGTE: 3 

BESSAGE ADDRESS 
HESSAGE IDENTIPICETION 
TO DCP HALT 

HALT ID. 


TEST SECTOR ADDRESS FOR LAST SECTOR 


RESSRGE ADDRESS 
RESSSGB IDERTIFICATION 
TO DCP HALT 

BaLT 1D 


SET TO USE HEAD 3 

SET TO VERIFY OE SECTOR 
TO VERIFY ONZ SECTOR 
FUNCTION CUDE, (READS 
CONTROL CODE, {FERIFT) 
CONTROL FIELD ADDRESS 
GOOD RETORE 


PUT ID IN SENSE PRISTOOT 
TO PRINT STATUS ERTORS 
SET HEAD #0. I HESSAGE 
TO SHIPT SECTOR BUSBER FOR CONVERT 
CORTROL FIELD ADDRESS 
TO COSVERT SECTOR #0. 
source 

DESTIBATIOS 

PUT A BLAEK IS ESSAGZ 
TO PRIET ERROR ON TERIFY 
PLAGS 

LENGTH 

HESSAGE ADDRESS 

TO DCP ERROR HALT 

HALT ID 


TEST POR LAST SECTOR VERIFIZD 
TO DCP IF FIRIS BED 

SOT DONE, STEP TO HEXT SECTOR 
TO VERIFY THE HEXT SECTOR 
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& 
aon DIS kK @R I t eo Ip ft Est 
Baw Loc OBI ECT CODE “ADDR STAT SOURCE STATEVEST . 
$61 * ROUTIRE NO. as, CRECK THE ABILITY ‘20 SELECT , - 
562 * BOTH THE UPPER AED LOWER DISK . °. 
‘ 563. - 
Tt20 O05 1120° $68 RTHS DBC xL1¢05° ROUTINE SOSBER 
1124 GO 1121 $65 ac XL1°CO° ROUTISE FLAGS 
1422 1336 1723 566° ac aL2 {ETN6) ADDRESS OF NEIT ROUTINE 
. =e? 
{$428 3D 00 Oft2 $68 CLI SETSH,0 SAVE PARASETERS BEER EUTERED? 
‘4 TIZ8 CC 81 OROD - $69 BE SETDSK BEARCH IF NO 
Zw f12C 3D FF 6811. 570 CLI REnvDS, 3°? F* TEST FOR RUS REMOVABLE ONLI 
ie 7930 CO 81 0216 S71 BE LISK EXIT iP YzZS ; 
3138 38 08 O76, 572 . Ten SECTSH,x* OG" TEST SSH 15 
T3138 CO O 02146 573 BT Lrax BRACE IP O8, BYPASS ROUTIBE 
123¢ 34 02 O20: 57a TSu «6 SECTSH,Z°02* TEST SSU 16 
7480 CO 10 0216 575 ST LI8K BRANCH IF ON, BYPASS ROUTERE . 
1184 3c 00. 189F 576 AVI DESKTP,o SET POR RESOVABLE DISK 
7788 GC 00 1789 0873 577 nvC eee SET CYLINDER ADDRESS TO CE THACK 
T78E 3c OO T78K 578 VI 0 ERTDPC+2,0 S8T POR READ 0, SECTOR 0 
4452 3€ 99 1963 579 SVI «=SHSTD,09 INSERT ID IM PRIBT 
580 : 
1156 CO 87 1788 581 B STRTIO TO SEEK CE TRACK 
1752 00 315A 582 pc IL1*9* PONCTION CODE (CONTROL) 
t458 00 1158 583 pc XL 1°98 CONTROL CODE (SEEK) 
T15C 1788 1115p See pc AL2 (S8T DFC) .COSTROL FIELD ADDRESS 
14SE CO 87 1178 585 B RTESA GOGD RETURE 
1162 CO 87 1166 586 B 248 
1966 CO £7 193¢ 587 B PRTSHS TO DECODE BRROR 
1264 CO 87 O2TA 588 B PRIUT TO PRINT 
T96E 06 1162 S89 pc XL1*06* PLAGS 
T16F 35 116P 590 pc IL 1#$3* LENGTH 
4170 OCAT 1771 «5:91 BC AL2 (ERROR9) MESSAGE ADDRESS 
19472 CO 87 0222 592 8 SALT TO DCP HALT 
1976 A009 1777, «4593 pc XL2*a009! HALT ID 
598 
1478 CO. 37 1705 595 RTHSA 8B TSTS EK TO CHECK FOR A GOOD SEEK 
596 
117¢ 3c DO 1C4aR 597 BVI «= WORK#255,C*R* SET WRITS 
1780 OC FE 1C4A 1C83 598 AVC = BORK*# 254 (255) ,WORK*255 PIELD 
1986 C2 02 1BEeC 599 LA BORK, IRZ SET DATA ADDRESS 
118a 38 02 1843 600 ST DFDR,XR2 IW DATA CONTROL PIELD 
601 
VIBE 3C 12 1963 602 NVI | -SESID,X*12¢ PUT ID Is PRIST 
1492 3C 00 1788 603 AVI WRIDFC+3,0 SET TO WRITE GHE SECTOR 
1196 CO 87 1748 604 8 STSTIO TO I/0 SUBROUTINE 
11Sa 02 1198 605 pe XLt*02° FUNCTION CODE (WRITE) 
119B 00 1198 606 pc XL2°00° CONTROL CODE (DATA) 
119¢ 1788 119D 607 pc AL2 (WRT DFC) CONTROL FIELD aDDRESS 
VI9E CO 87 1188 608 B RTNSB GOOD RETOR® 
T1A2 CO 87 11A6 609 B 2e5 
610 
7106 CO 87 193C 611 B PRTSHS TO PRINT SENSE INFO. 
—T1AA CO 87 021A 612 B PRIUT TO PRINT 38D LINE 
1IAE 06 TAE 613 pc XL1°06° PLAGS 
TAP 41 11AP 618 pc IL 1*65* LENGTH 
11B0 12FP3 11B1 615 Dc AL2(ERRO5SA) BESSAGE ADDRESS 
' 1982 CO 87 0222 616 B RALT TO DCP RALT 
- VIBE A012 11B7 617 pc XL2*a012¢ HALT ID 
618 
11B8 3c 08 189F 619 RTNSB VI DISKTP,X'08* SET FOR FIXED DISK 
ITBC OC CO 1789 0813 620 NVC) = @RTDPC+1(1) ,TRACKE SET CYLINDER ADDRESS TO CE TRACK 
11C2 3C 00 178A 621 NVI «- WETOPC+2,0 SET FOR HEAD 0, SECTOR 0 
11C6 3c 09 1963 622 VI = S#HSID,09 INSERT ID IN PRIST 
€23 
11CR CO 87 17288 624 B STRTIO TO SEEK CE TRACK, FIXED DISK 
Tice 00 11CE 625 DC XL17°0° FUNCTION CODE (CORTROL) 
11CF 00 11CP 626 pc XL1*08 CONTROL CODE (SEEK) 
11p0 1788 11D1 627 pc AL2(WRTDPC) CONTROL FIELD ADDRESS 
T1D2 CO 87 11EC 628 B RTUSC GOOD RETUR® 
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pant gO. 5729636 
Pacz oe he MR! SO ee 
‘e@rite# iD TES t. : 
ADDR STAT SOURCE STATEREST : 
629 B tog 
630 8 PETSWS ~~ ‘ct TO DECODE ERRoR 
631 B PRINT TO PRIEST 
1922 632 Bc XL 4°96* FLAGS 
V1ZB3 633 Bc ILi*s2° LESGTHs 
2325 638 pc AL 2 (ERRORS) SESSAGE ADDRESS 
635 B SALT TO DCP SALT 
W1FB 4636 pc XL2*°a009* HALT iD 
637 
638 RTNSC OB TSTSEK TO CHECK FOR a GOOD SEEK 
639 
680 AvI #ORKe255,C*F* S&T wRITzZ 
1C8B 621 NVC WORK ¢258(255) ,WORK*255 PIELD 
$Q2 
683 VI SwSIp,X*12* - PUT ID IN PRIST 
684 VI WRT DPC* 3,0 SET TO WRITS ONE SECTOR 
6&5 3 STBTIO TO £/0 SUBROSTIRE 
1206 6486 DC %L1*02° PORCTION CODE (@R ITE) 
1207 687 BC XL 1°00" CONTROL Cope (DATA) ee 
1209 648 pc &L2 {eRT DPC) CONTROL FIZLD ADDRESS Saree 
689 B RTRSD GOOD RETORE os fo eS a ee 
659 8 78 , 
651 a. PRTS ES TO PRINT SENSE IBFO. 
652 B PRINT TO PRIST 3BD LINE 
12%a 653 DC XL1°Q6* PLAGS 
121B 65a DC IL t* 65* LESGTa 
121D 655 BC AL2{ERROSA) MESSAGE ADDRESS 
656 B HALT TO DCP HALT “ 
1223 657 DC XL 2*a012¢ HALT ID 
6$8 
659 RTNSD STI DISKTP,0 SET FOR RESOVABLE DISK 
0B 13 660 NYC WRT DFC+1(1) TRACK? | SET CYLINDER ADDRESS fO CE TRACK 
661 NVI ¥RTDPC?2,0 SET POR HEAD 0, SECTOR 9 
662 avr SNSID,09 INSERT ID If PRIBT 
663 
668 B STRTIO TO SEEK CE TRACK . 
123A 665 pc XL1*°9¢ FUNCTION CODE (CO#TROL) a 
31238 666 pc XL1*9°* CONTROL CODE (SERK) 
123D 667 bc AL 2 (WRTDFC) CONTROL FIELD EDDRESS 
668 B RT RSE GOOD RETURN 
669 B 2 
670 B PRTS#S TO DECODE ERRITR = 
671 B PRINT TO PRINT 
128B 672 pc XL 1°06° PLAaGS 
128P 673 pc IL17*53¢ LENGTH 
1251 674 pc AL 2 (ERRORS) MESSAGE ADDRESS 
675 B HALT TO PCP HALT 
1257 676 pc XL2* a0o9* HALT ID 
677 
678 RTNSE 8B TSTSEK TO CHECK FOR A GOOD SEEK 
679 
680 AVI WORK¢511,0 CLEAR READ 
1D4uB 681 avC WORK45 10 (255) ,WORK¢512 AREA 
682 LA WORK? 256,XR2 SET DATA ADDRESS 
683 ST DFDE, XR2 IW DATA CONTROL FIELD 
684 
685 avi SNSID,X*°4&2* POT ID IN PRINT 
686 mVI @RT DPCe 3,0 SET TO READ ONE SECTOR 
687 B STRTIO TO I/0 SUBROUTINE 
127A 688 pC XL1°O18# FUNCTION CODE (READ) 
127B 689 pc XL 1°00? CONTROL CODE (DATA) 
127D 690 pc AL2 (WRT DFC) CONTROL FIELD ADDRESS 
691 B RTNSP GOOD RETURN 
632 . 5 sey 
693 B PRTSHS TO PRINT SEHSE INPO. 
694 B PRINT TO PRINT 38D LINZ 
128E 695 DC XL1*06° FLAGS 
128F 696 Dc TL 14*65* _ LESGTR 
22MAY70 C1A0G70 OVAPR71 ISHAR7Z PROG ID 0009-8 
571513 571531 571565 571591 PaGE 6A 
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“9293 ¢6 87 6222 [688 8 “Hagr . 
1296 AOR2 - 1297 699 BE. -XL2*2082* - 
é “. F760 
4298 3D BY iDes 701 RTRSP eLi- PORKES11,.C78° 
F290 F272 81 10 702° 38 8Trxss 
420F CO 87 021A 703 Bg: PRINT 
42B3 C6 _ W2a3 FOR 2c. RLi*ce* 
“42a8 82. T2A8 «6705 pe 0 _-« EE 9° 6B 
97a 13.35 . 1286 706 SC AL2 (ERROS Bp 
¥2a7 2098 es _ 12RK8 «707 pC +s EE2*ange* 
12a3 CO. 87 0222 708 2  $aLT 
Y2ED 1096 ‘12a8 709 - pe £L2¢Q090* - 
128F CO 87 0216 270 RTNWSS 8 LIK 
426 DICSCICSLEDEDSSO 2260 7110 oc 
12BB EEDOCSESCSHOCECY 711 
1203 Bsc te0cSsssp opens att 
“¥QOR BpROcscecsc3pzZaa. FAB 
91203 CSCIDIER#OCSCaaR 711 
12DB- QOFAF2COCIE[6ODI . 90 
1283 cse3C4E8 9 ; : 
1287 SOPIF240C9E240E6 1273 712 ERROSA DC CL143° 
WEF SVceEIcSaen . 712 
72Pa CSDIDSNEDIAORECE 1328 713 oc 
_ T2FC CSES40c 1B 3E3CtDA 713 
“$308 D7EICIPSCTAOEIDS ' 993 
-930C BOF2CSD 30SC'3E 380. . 943 
‘4348 CSCIEICECSDIGOES 713 
a31¢ CACSHCCECIETC SCS 713 
“432e 20 713 
1325 DELSHONSC SDEDEES 3335 798 ERROSB DC 
(932D CIczpD3cSeOcacs#2  « 774 
9335 D2 ; + Fae 
t~ a9 
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be PS? 
wa Se 
i. E Mee 
£. fetta 
DATE O6APR70 22NAY70 01A0G70 OVAPR71 15 8aR72 
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“Tee MAINTERANCE DIacuosT IC PROGRES a 
D r Sk a R 1? E “yp sist 3 
BRR Loe ¢ oBsreT cope ace appr stat ‘soprce STATEREDT is 
OOM oy eee Ze *. Rovrine BO. 06, 2ST CF LOGECAL. 2up or crarena 
1336 06. 1336 778 RTN6 3 DC XL1°06¢ BEBE: 
$337 600 - 41337 «719 pe XL1*008 aoorins oe 
1336 18SF 1339 ot pC AL Z (RTHT} ABDRESS OF BEIT ROUTIRE 
133A. 3D 00, 0812 722. °° CLI. setse,o HAVE PARA BEE 
1332 CO 87. OAOD 723 | BE eres pe & panice rata 
1382 36 O08 O20A 728 . TBN SECTSW,X*04* TEST ssw 1S, 
13286 CO 10 0216 725," _ Bt LI WK. . IF O8, BYPaSS HEAD. o 
1344 3C 09 7963. 726 AVI SwSID,09 INSERT ID XB PRIAT 
‘138B OC 00 1789 0813 - 327 BvC ¥ETDPCe1 (1) ,TRACKE SP? TO SEES TEE Ck THACK 
4354 3C CO 178a - 728° BVI WRT DPC*+2,0 St Por nex 0 
3358 3C 00 189F 729 AVI «= DESKTP,O SET FOR BPPER DISSE. 
135¢ CO 87 1748 ; 73060~C*«* B STRTIO TO I/O SUBROUTTNR ~ 
4360 00. 1360 (737. ~— DC. IL1*00* FuNCTION cone «€< 
_ 9367 00  1369..9732~- ~—C pc mLte90* CONTROL .cOpE cents 
. 9362 1788 1363. 733 pe AL2 {@RTDPC) prado FIELD ADDRESS 
1368 CO P87 S372 . 73a B éRTW6A GOOD RETORE 
1368 CO 87 336C - 735 B £44 ne 
136¢€ CO 87 393C 7% B PRTSNS TO DECODE gERron 
1370 CO BF G21:A- 737 8 PREUT '2O PRINT yee eas 
1378 06 1378 «6738 pt ¥L 1°06 FLAGS : Oe pnd 
1375 35 $375 «739 Dc ¥L1°53° LENGTS , - 
1376 Ocal | 1377 780. oc AL 2 (EREOB9} BESSAGE ADDRESS 
1398 CO 87 0222 : a1 8 HaL_t To DCP BALT 
137c A009 137D a2 Fa 2L2* a009* BAaLT ID 
Fa3 : 
372 cD 87 2705 Jaq HTNGA 8B TSTSEK TO TEST FOR GOOD SEEK 
7985 
1382 3c 00 1BeC 786 aYI BORK 0 ZERO THE WRITE aRea ves 
1386 3C 8C 178A 2a? - SVI SRT DPC4+2, X* 804 SET 70 WRITE ID*S FOR TEAC 7 
438A 3C 17 1788 748 VI os WRT DPC*3,23 S£T TO WRITE OWE TRACK 
1382 3¢ 9C 1963 789 SV¥I SHSID,2*9SC° PUT HESSAGE ID IN SENSE PEIST 
1392 3C FO OCE1 750 AVI #£BR1A,c*O* SET HEAD 0 In SESSAGE 
1396 CO 87 77a8 751 B STRTIO | TO 1/0 SUBROUTIRE 
139A 02 1390 «752 pC XL1*02¢ FUNCTION CODER {WRITE} 
739R 01 71398 753 DC XL7°01° CONTROL CODE {ID} 
139c 1788 139D 758 pc AL2 (WRT DPC) CONTROL FIELD ADDESFSS 
1392 CO 87 3388 755 B RTHOB GOOD RETURN, (EXPECTED) 
13a2 CO 87 1346 756 B 228 
757 
1306 CO a7 793C 758 8 PRTSYS ERROR RETURN, (NOT EXPRCTPD ) 
TIAA CO O87 O27A 759 B PRINT TC PRINT ROUTINE ERs 
W3aZE 6 ; 23AE 760 DC XL2*G6* PLAaGS 
V3aP a0: 13AP 761 DC TLIt6gt LEsGTr “ 
1380 OCE1 13B1 762 pc AL2 (ERRY2? ADDRESS OF LAS1 PRINY CHARACTER 
73B2 CO 8&7? 0222 b 763 ) HALT TO DCF BALI 
13P6 a09C 13B7 768 pc XL2* a09c* HALT ID 
765 Sa Ae 
13R8 3C RO 178A 766 RTN6OB NVI WRI DFC#Z,xX*80* SET TO DSE HEAD O & ID*S vOR HEAD 1 
138C 3C 716 1788 767 AVI wWRTDFC+3,2% SET TO PORCE END OF CYLINDER 
13C0 CO 87 1748 768 B STRTIO TO VERIFY 
13c8 01 13Ca «4769 pc XL 1°01" FUBCTIGK CODE, (BPaAD) 
1305 03 13c5 770 Dc XL1°O93* CONTROL CODE, (VERIFY) 
13C6 1788 13C7 «(771 DC AL 2 (WET DEC) CONTROL FIELD ADDRESS 
13C8 CO 87 138F 772 B RTNOC GOOD RETURN, (NOT EXPECTED) © 
13CC CO 87 13D0 773 B #48 
13D0 CO 87 178F 7748 B SEXSE TO SENSE DEVICE STATUS 
13D’ 02 13D8 «(775 pc XL1°02* GET BYTES 0 AND 1 
13D5 38 20 17Aa5 776 _ TBR STATUS, x*20* TEST POR ESD OF CYLINDER 
13D9 F2 10 23 777 JT RT HOD JUaP IF OF 
13DC CO 87 021k 778 B PRINT TO PRINT ERROR 
13E0 Cé 13E0 779 Dc XL1°C6* FLAGS 
1381 53 13E1 786 DC IL 1*°e@3¢ LENGTH 
1322 %4BD 13E3 781 pc AL2 (ERRO6GA) BESSAGE ADDRESS 
13EB8 aod2Cc 1325 782 pc XL2*a02c* SESSAGE ID 
1386 CO 87 0222 783 B HALT TO DCP ERROR SALT 
DATE O6APR70 22maY70 017A 0670 OVAPR71 1SHAR72 PROG ID. Oa09-4 
EC HO. 571516 571513 571531 57 1565 571591 PAGE 7a 
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LeecTe 
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TO DCP HALT 
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SET TO WRITE OWE TRACK 

POT SESSAGE ID If SERSE PRIEST 
S2T HEAD O I8 HESSAGE 

TO 1/0 SUBROUTI EE 

PURCTION CODE (#RITE) 
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CONTROL FIELD ADDRESS 
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TO PRINT ROUTINE ERROR 

PLAGS 

LESGTE 

ADDRESS OF LAST PRIST CHARACTER 
TO DCP SALT 

HALT ID 


ROUTINE EXIT 

ROUTISZ ROABER 

ROUTISE FLAGS 

ADDRESS OF NEIT ROUTINE 
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ZRF LOC OBJECT CODE == ADDR STAT SOURCE STATERERT 
132A a02C ~ 132B 6788 oc ZL2*a02C* 
13EC F2 87 10: - 785 a BTHOD 
ts ee : ; 786° 
I3FF CO 87 0212 787 aTHec 8B PRIET 
 13F3 C6. oS 1373 788 DC IL1'co? 
13F8 99. 13Fr%° 789 oc 1L1*73* 
_37P5 42506 13F6 790 DC = —_—so AL (EBROG B) 
43F7 AO2E 2378 791 DC XL2°a02E* 
13F9 CO 87 0222. 792 B HALT 
13FD RO2ZE IPE 793 DC XL2*a02E* 
f : feces 8 
+3PP. 3C 00 178A FOS RTD BVI BETOFC!2,0 
4803 3C 09 1963 786 “SVE SESID, 509° 
$a07 cO 87 TTA8.- . Ww. 8 . STRIZe 
FAB 00 0B 798 | ec 896 -BL 1 86 
-$80c 00 aoc 6799" pe x1L1*90* 
' ¥aOD 1788 - . . $80B° 800 pC. -—-: AL-2. (URT DPC) 
-§RbP-cO e? te7R"" ~~ BOT 8. RT ROE 
1813 CO 87 1917 * 802. 8 +4 
19817 CO'.87 193C - 803 - 8B PRTSES 
~~ $81B CO 87 O21a-- 808 B PRINT 
121F 66. TOtF 805, pe s«CEL’ 1° 068 
(i - 9820 35 4820 806 - oc ¥E1*53° 
cy 9824 OcAd 1422 807 pc AL 2 (ERROB9) 
“9823 CO 87 0222 808 - B SALT 
4427 2009 1428 809 DC XL2* 009° 
810 
1429 CO 87 1705 811 RTHGE B TSTSEK 
812 
72D 3C 17 « 178B 813 AVI «=«- BETDPCe 3, 23 
1831 3C 9C 1963 874 aVI | -SHSID,1°9C* 
1835 3C FO SCEt 815 avi ERR1a,CtO* 
1839 CO 87 1748 816 . B STETIO 
7183p 02 143D 0 817 - BC XL1°O2¢ 
1Q3E 01 783E B18 pc XL 1°01 
183P 1788 1880 ©6819 Dc AL2 (NBT DPC) 
1481 CO 87 1958 820 8 RTNGF . 
BES. CO 87 1849 821 B +8 
1089 CO €%.193C 822 B PRTSES 
$98D CO 87 O2tA 823 8B PRINT 
W570 060 © 1951 828 pe XL1'06* 
1852 80 | 1852 825 pc TL 1*6a* 
1853 OCE1 1858 6826 pe AL2 {ERR1A) 
ss 3855 CO 87 0222 827 B HALT 
“. 4859 AOSC 145a «828 pe XL2°a09C* 
ae 829 
ls ¥85B CO 87 0216 830 RETN6F B LINK 
ee 831 
831 
145" 07 185P 832 RTN7 DC XL1°07° 
1860 00 14860 6833 pc XL1° 00° 
1461 1507 1862 834 pc AL2 (RTS) 
1463 3C CO OBT2 835 AVI 8 SETS#,0 
1467 CO 87 0216 836 8 LIBK 
a , 837 
“T86B CSISC8KOD6CE40C3 149% 838 ‘DC 
W473 EBL3CSLDSCICSDS80 838 
147B E2CSDSE2C5480C2C9 838 
1483 E340DSD6E3480DEDS 836 
188B S0C1C6E3C5D980C1 638 
1993 SOESCSDICSCEEBA0 838 
1898 C&CTE3C1 - 838 
189F SOE3DER0E3C8C580 18BD 839 ERROGA DC 
14A7 D3LE6C7C9C3C1D380 839 
_ IAF CSDSC84ODECE8NC 3 839 
18B7 ESD3CODSCYCSDY 839 
14BE CINCE3CIDEXOCODG I1GEB 8&0 
14C6 DISOC5SDIDIDEDSHO 840 
ATE O6APR70 22MAY70 01440670 O1APR71 
571531 


2C WO, $71516 = 971813 
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DATE 
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DISK BRITE 


OBJECT CODE: 


appr STs source statemesr 





Ie TEST. 


C&C9CLHODSDEE 340 880 
C 2B 9C 1D SC 388 6C* 880 
‘COE3CSDINODIC5CI 840 
€3C 8C9DSC 740 ae B80 | te Yd ; 
E3ICBCSHOD3IDECTCY 1506 B41 ERROSB PC CL27*THE LOGICAL EMD OF CYLIBDER®. 
C3C 1D IUOCSDSCAKO 641 
DOCEGNCI ESDICIDS eat 
cacsp9 687 
\ 
O6APRT0 22maY70 0180670 OIAPRIT 15HAB 72 
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1509 


-1S08- 
1S0F 
+813 

717 
157A 
YS1E. 
1S1F 
1520 
4822 
1526 
152A 

9870 

9538 


4538 

“453¢ 
153D 
 - $532 
15486 
$548 
1848 
1586C¢ 
715508 
9851 
7552 
1558 
1858 


1SS5A 


1552 
1562 
1568 
156C 


1570 
1578 
1878 
157¢ 
157D 
ISTE 
1580 
TSR 
1888 
158¢ 
$90 
1591 
1592 
1596 
1598 


159A 
1595 
159F 
1540 
1542 


15488 
15a8 


DATE 











g 
DISK #RITE ID TEST 
| OBIECT CODE ‘AEDR STAT SOURCE STAT ERERT »., 2 . 2 ee 
(Baz ©. ROUTINE BO. C8, CHECK TSE FUNCTION GF THE * 
Ban * FILE @RITE S¥ITCA. ae * 
845 : 
08 1507 886 RTRS pC IL1°08" ROUTINE BERBER 
00. 1598 B8a7 pc ZL 00" | ROUTIAE FLAG 
Yrrr 1502 888 pc XL2*PPPPS LAST BOUTINE FLAG 
: «gag Be he 5, . a 
3D CO 0812 850 “CLI sEtsw,0 HAVE PARARETERS BEEN ERTERED? 
€8 61 OAOD 657 BE SETDSK SRANCH IF BO 
38 20 0208 852 RTW8CO TBH . SWITCH,Z*20¢ PEST SS 2 
¥2 89 OC "953 OF RTN BR JUAP IP THIS SWITCH IS OFF 
cO 87 O21A 85a B PRINT TO PRERT BYPASS HESSAGE 
<6 1572 855 _ pe ‘SL 2* 06° FLAGS 
24%: 151P 856 be IL1*36? L2NGcTs 
46502 $21 857 “.. pe aL 2 (BYPAS 6) BPSSAGE ADDERSS 
ce 87 1659 858 B RIN GP ; ; 
3¢ 00 189F. @59 RTRGR AVI DISETP,O SET POR RENOVABLE DISK 
oc 00 4969 08173 860. ~ SPC <- BETDPCe1 (1), TRACKS SET CYLINDER ADDRESS TO CE TRACK 
3c 00 4764 66.1 AVI WETDFC+2,0 SET FOR BEAD 0, SECTOR O 
3¢ 09 1963 862 SV¥I 4 «6SESID,09 IUSERT ID 18 PRIBT 
Ce os 
CO 87 1748 864 a STRTIO TO SEEK CE TRACK 
oo 153¢ 496865. - pe ZL7°0° FURCTION CODE (COETROL) 
oo 153D 866 pe XL1*08 CONTROL CODE (SEEK) 
1768 153P 87 | pc AL2 (FRT DPC) CONTROL FIELD ADDRESS 
co 87 7155a . . 868 B RTBSA GOOD HETORN 
CO 87 15488 869 B sen 
co e7 193¢ 870 8 PRTSES TO DECODE EREOR 
ce 87 021A. 871 B PRINT TO PRINT 
06 1550 3872 pc XIL1*06¢ FLAGS 
35 1857 873 BC IL 1°53* LEucts 
Ocat 1583-878 _ be AL2 (ERRORS) HESSAGE ADDR&SS 
CO 87 0222 875 _— B HALT TO DCP RALT 
acos 1559 876 ‘pC XL2*a009¢ HALT ID 
877 
CO 87 1705 878 RTHBA 8B TSTSEK TO CHECK FOR A GOOD SEEK 
879 
3c FF 1caB 880 AVI SORK+255,X°PPF* SET DATA 
OC FE 1CSa 1048p 881 MVC = WORK 258 (255) ,WORK4¢255 FIELD 
c2 02 188¢ 882 LA WORK, XR2 SET DATA ADDRESS 
34 02 18A3 883 ST DPDR, XB2 IN DATA CONTHOL FIELD 
8385 
3C 12 1963 885 AVI «= SHSID,x*12¢ PUT ID IB PRINT 
3¢ 00 1768 886 NVI «=. WRTDFC+3,0 S2T TO BRITE ONE SECTOR 
cO 87 1748 887 B STETIO TO.I/0 SUSROUTINE 
02 157¢ 4888 pc IL12*02* FOERCTION CODE (#8ITE) 
00 157D 889 pc XL1‘00° CONTROL CODE (DATA) 
1768 157P 890 pc AL 2 (@RTDFC) CONTROL FIZLD ADDRESS 
CO 87 1598 691 B RTHBB GOOD RETORS 
co 87 1588 892 B eeu 
cO0 87 193Cc 893 B PRTSNS TO PRINT SENSE INFO. 
cO 87 021A : 89a B PRINT TO PRIBT 3RD LINE 
06 1590 895 -- DC XL1*06* FLAGS 
a1 1591 896 pc IL1*6S¢ LENGTH 
12F3 - 1593 897 DC AL 2 (ERROSA) SESSAGE ADDRESS 
cO 87 0222 898 B HALT : TO DCP SALT 
a012 1599 899 Dc XL2*a012° HALT ID 
900 
CO @7 O21A 901 RTNGB B PRINT TO PRIST OPERATOR INSTRUCTIONS 
as 159E 902 Dc XL1°@5¢ FLAGS 
32 159PF 903 DC IL1*50° LENGTS 
1708 ISAT 908 pc AL 2 (RTN6S@) MESSAGE ADDRESS 
acre 15a3 905 pc XL2*aOrs* HALT ID 
906 
907 
CO 87 0222 908 B HALT HALT TO TURN ON WRITE IWAIBIT SH. 
AOF8 1539 909 Dc XL2*a0re* HALT ID 
910 
O6APR70 22mAY70 01ADG70 OlAPR71 15a 72 PROG ID 0a09-4 
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BRR Loc 


1SAA. 


75az8 
1588 
1588 
95BC 
45C0 
75ca 
¥5C5 
15¢6 
15C8 
a5cc 
15D0 
157ra 
15pRa 
15D9 
15DA 
1SDC 
75E0 


tSE2 
1586 


1S #C 
1570 
1578 
15PS 
15P6 
1558 
1SFC 
1600 
1608 
1608 
1609 © 
1608 
160 


1610 | 


1612 
1676 
161A 
WATE 
1622 
1626 
W628 
1625 
16 2¢ 
1622 
1632 
16 26 
TE3A 
163F 
163F 
1680 
1682 
1686 
1688 
168C 
160P 
1653 
1658 
1655 
1657 
1659 
165D 
165F 
1663 
1668 


DATE 
EC WO. 


DIS 


OBJECT CONE 


3c 00: 
oc PE 


1c4aB 
1C4a 


3¢ 12 
3c 00 
3c 08 
CO 87 
02 

oo 
1788. 
co 87 
co 87 
co 87 
co 87 
6 

u1 
1273 
co 87 
A9t2 


T7688 
T78A 


1SE2 
15D0- 
193C 
O21A 


0272 


3C AA 
Oc FE 


1D&B 
IDSA 


1963 
W788 | 


1612 
16906 
193¢ 
O2TA 


8222 


co 87 
C2 02 
34 02 
3C 82 
3c (00 
co a7 
01 

09 
1788 
co 87 
co 87 
co e7 
co 87 
06 

ai 
12F3 
co 87 
A0&2 
3D FP %D4B 
F2 81 10 
CO 87 O2TA 
co 

2B 
16AE 
AOQA 
co 87 
AOSA 
co 87 
06 

TA 


1705 
1cac 
1843 
1963 
1788 
1748 


1688 
1636. 
193C 
O21A 


0222 


0222 


O6APR70 
571516 


1963 


Aa 


021A 
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ee 92 
x 8 R It 8 12 ‘TE sft 
“Appr STHT ‘source STATEREST 7 
. 911 avi WOEK4+255,0 SET Data 
Ices. 912 nvC WORK +254 (255) ,VORKZ5S FIELD 
913 
9494 avr SNSID,1*12° POT ID If Rie? 
915 SVE WRTDFC?3,0 SET TO WRITE ONE secror ; ee 
946 N¥I « WRTDPFC+2,0 SET FOR HEAD GO, SECTOR 0 ; } 
. 917 B STRTIO TO I/O SUBROOTISE | Re a 
isca. 918. oc EL1°92° FUBCTION CODE (#RITE) i 
C5 979 BC XL1¢90¢ COETROL CODE {DATA) 4 
15C7 920 Be aL2 (WRT DPC) COETROL FIELD ADDEESS . 
921 8 RT BBC GooD RETUEE 3 
922 | B S64 bin hs t's Oe 
923 8B PRTSES tO PRINT SENSE I8FO. ar 
928 B PRINT TO PRINT 3ED LINE 4 
W5DR 925 Dc XL 17°06? PLAacS 
1509 926 oc IL1°%6S* LEeecra 
%SDB 927 bc -AL2 (ERROSA) BESSaGE ADDRESS 
928 8 HALT TO DCP HALT 
15£2 929 BC XL2°2012° HALT ID 
930 
931 RTNBC NVI wWORK+S17,X°aa* S&T READ 
1D&h 932 MVC WORK45120 (255) ,WORK¢519 AREA : 
933 
934 MVI  SNSID,09 ISSERT ID Iu PRIET 
935 8 STRTIO TO SEEK CE TRACK 
ISPS 6936 pc XL17*°0° FONCTION CODE (COETROL) 
1575 937 DC XL7*°O# COBTROL CODE (SEEK) 
1577 938 DC AL 2 (WRT DPC) CONTROL FIELD ADDRESS 
939 B RT SSD GOOD RETURE 
980 8B 24g 
981 8 PETSES TO DECODE ERROR 
982 B PRINT TO PRIsT 
1608 983 so XL1°06* FLAGS 
1609 924 DC IL1#53° LENGTA 
160B 985 DC AL2 (ERRORY) SESSAGE ADDRESS 
986 B HALT TO DCP HALT = 
1611 987 pc XL2* a009* HALT ID 
948 
949 RTN8D B TSTSEK TO CHECK FOR A GOOD SEEK 
950 La WORK 4256, X82 SET DATA ADDRESS 
951 ST DFDR,XE£2 IN DATA CONTROL FIELD 
952 AVI SNSID,X*82* PUT ID IN PRINT 
953 SVI «6 WHTDFC#3,0 SET TO READ ONE SECTGR 
954 B STRTIO TO 1/0 SUBROUTINE 
162A 955 pC XL1*01° FUNCTION CODE (READ) 
162B 956 Dc IL7* 00° CONTROL CODE (DATA) 
162D 957 pc AL2 (#RT DPC) CONTPOL FIELD ADD&ESS f 
958 B RTNGE GOOD SETURA : 
959 8 toy , 
960 B PRTS"S TO PRINT SENSE INFO. 
961 B PRINT TO PRINT 32D LINE - 
163E 962 pe XL7*Co* FLAGS 
163P 963 pc ¥L1°65°* LENGTH 
1681 968 Dc AL2 (ERRUSA) HESSAGE ADDRESS 
965 B HALT TO DCP HALT 
1647 966 pc XL2*a0a2* HALT ID 
967 RTNBE CLI WORKE5S11,X°RPR* TEST FOR ORIGINAL DATA STILL PRESENT 
968 JE RT NSF JosP IF YES 
969 B PRINT TO PRINT SELECT PRPOR 
1653 970 pc XL1*Co? FLAGS . 
1658 971 pc IL1 "938 LENGTE 
1656 972 pc AL 2 (ERRO 6A) BESSAGE ADDRESS 
1658 973 pc XL2°aAO9A° MESSAGE ID 
974 B HALT TO DCP ERROR HALT 
165E 975 pc XL2*Aa09A¢ HALT ID 
976 RTNSP B PRIUT TO PRINT all OWITS SELECTED 
1663 977 Dc XL 1° 06° FLAGS 
1668 978 DC IL1*26¢ LENGTH 
22mAT70 01A0G70 O1APR71 1588872 PROG ID 0a09-8 
571513 571531 571565 571591 | PAGE 9, 





“SAM MAINTENANCE DIAGROSTIC PROGRAN ta See BO gid OE, Oe oer tee 





IHR RAINTPRANCE DIAGNOSTIC PROGPAS a ae te oe «PRT NO. 5728636. 
. PAGE ; . o - oe ee Ss pact 0—“(<i<‘“‘(<‘é ll 
SpOse BES K WRIPFE TD TEST A098 DISK B®WRIPSE TS Test 
2. ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT — . : ERR LOC OBJECT CODE ADDR STAT SOURCE STATESERT 
1665 OBOE. 1666 979 DC AL2 (ROUNIT) BESSAGE ADDRESS 995 * . CONE HERE TO TEST FOR A GOOD SEEK * 
1667 38 20 0208 980. TEN SWITCH, X*20° TEST SSH 2 O58 | . > tr, 906 
7668 CO 10 %67P 981 B HO REND EXIT IP YES : 4705, 38 08 7720 997 TSTSERK St SEKEIT¢3, ABR SAVE RETURH ADDRESS 
*, I66F CO BF OZTA 982 5 PRINT ~ « 1709 CO 87 178% 998 SKTSTA B SERSE TO SENSE DEVICE STaTos 
* 1673 9519 1678 983 pe XL2°8579° ; . 470D 02 — 170D 9399 DC O—sd ALA (STATO) BYTES 0 6 1. 
ip 1675 1739 1676 988 DC AL 2 (DODO) 1000 : 
“ 1677 AOFS. — 1678 985 pc XL2°A0F8! VOR 38 10 T7A5 1007 TBM STATUS,X* 10° TEST THE SEEK BUSY SENSE BIT 
» . ¥€79 CO 87 0222 986 _ 28 BALT y 4712 CO 10 1709 1002 BT SKTSTA iP Of DO AWOTHER S2RSE 
* 167D acral 1672 987 De EL2°*acrs? ZALT TO RETURKR SSTPCE 1716 38 01 T7A6 4003 TBH STATUS~7,2°O 7° TEST FOR SEEK CHECK 
167P CO 87 922; 988 NORERD B Load TERMINATE SECT IO“ . -¥7IR P2109 1D 1004 JT  SEBKER -IP OW, GO TO SEEK ERROR PRIET — 
4683 08. as Va 7683 989 pC XLI°o* | . I7ID CO 87 C000 1005 SEKEXT B e—% Exit re 
1688 CECODICSSOLEDICS 1622 990 ZRROSA BC CLO3°FILE URIVE SWITCH FAILED TO IBRIBIT BRITIBG? 1721 EZ3JESDINSLODODS8O 1739 1906 DODO DC CL25*TUBN OR FILE @RITE serTcHt — 
TEC EICSHOEZESCIEICS 990 dee } 1729 COCIDICS4HDESEDICS 1006 a 5 
1698 CBSOCEC 1C9D ICSCH 990 ates a : 3731 E3CSHOE2E6CIE3C3 1006 
169C SOF DHUNCIDSCSCY 999 . 1739 CB 1006 
WAN CZCVEFEDESDICIEI 990 . , 1007 
6aC CODSC?7 $36 1008 * CONE HERE IF AN EREOR CCCURRED * 
TG6AF DODEEAEICIDSCSYO 16D2 997 BYPASS DC CL36'ROUTIHE 8 BYPASSED WHILE Ss¥ 2 IS on? 1009 * . WHILE SEEKING THE CE TRACK ; * 
4687 FESOCZES DIC TEZE2 991 . pk? 173A CO 87 O21A 1010 SEEKER B PRI ET “TO PRIBT ERROR ON. SEEK 
Mi6pr c5casor6cecgp3cs 991 2732 C6 173E 1011 Dc XL1°C6? FLAGS * 
16C? SOEZE2 FOS0P26 0C9 991 - I73F 2A 173P 1012 pc IL1T*a2¢ LENGTH - 
T6CF E2HOD6D5 . 991 _ 3 1780 1787. 1781 1013 pc AL2 (SEKER 1) ADDRESS OF SESSAGE 
16D3 ESEUPIPSGODECECE 16F5 9592 | pc CL35*TURN OFF THE PILE @RITE SUITCH AnD * 1782 AIC 1743 1018 DC XL2*a03C* BESSAGE IDENTIFICATION 
1GDP SOEICACSHOCEC 9D 3 992 : + 7015 
16E3 C54 0E6DICIEICSHO 992 - 1744 3c 70 0818 10 16 NVI PASS,O 
- 16EB E2E6COE3IC3ICBLOCT 992 1788 3C 00 GB12 1017 RVI SETSH,0 
2 16F3 DS5Ccas0 $92 . : 3 T74C 3C CO 189A 1018 AVI PRSTPS,O SET TO CAUSE A RECALIBRATE 
' (6F6 LICSE2ZCSE3S0R3CB 1708 993 RTNESD DC CLIS*RESET THE HALT. * . ; 1750 CC 87 0222 1019 B HALT TO DCP ERROR HALT 
1G6FE C5G0C8C1IDIE34B 993 1758 AO3C 1755 1020 Dc XL 2*a03c* HALT ID 
1786 CO 8&7 0000 1021 B 0 
> 1752 0002 1758 1022 TWO pe XL2°02¢ 
V7SC OChL 175D 1023 ORESEC DC XL2°08" 
oe 1752 CSDSDIDENILODEC3 1787 1028 SEKER1 DC CLS2*°2RROBR OCCURRED SHILE SEEKING TRE CE TRACK. * 
i 1766 CIEGDIDICECELORE 1028 
: VIBE CB8CILTICSHOE2ZCSCS 202% 
ae 1776 D2C9D5C 74 08 3C 8CS 1028 
; WIIE GOC3CSROEIDICIC3 1028 
1786 D245B 1028 
¢ « 7788 00 1788 1025 WRTDPC DC XL1°00° FLAG 
1789 00 1789 1026 pc XL1°00° CYLIBDER 
a 178a 00 178A 1027 pc XIL1*008 TRACK & SECTOR 
eto 1788 00 1788 1028 DC XL27°00° HO. OF SECTORS OR BO. OF TRACKS 
7 * 178C 0001 178D 1029 ONE pc XL2*017° 
; 1030 
es ae 1031 * SENSE 1/0 ROUTIBE 
os : ae TT8E 36 08 I7AT7 1032 SENSE ST SNSXR2, ARR _ SAVE ADDRZSS RECALL REGISTER 
ra \ 1792 35 01 1747 1033 L SHSXR2,XR1 LOAD X81 WITH VALUE FROM ARR. 
; E 1796 18 03 179C 00 1038 ANN SNS¢1,0(,XR1) MOVE-IN PUSCTION CODE 
a 7 179B 30 90 1725 1035 SNS SNS  STATUS,O : PERFORA SENSE ‘ 
179F DO 87 01 1036 B 1(,X81) Exit 
4 F7A2 COCO 17A3 1037 SETXR2 DC XL2*0° 
iad 17a8 OCO0O 17A5 1038 STATUS DC XL2*O* 
17a6 0000 17A7 1039 SNSXR2 DC XL2*°0* 
é 1080 * ERROR RECORDING TABLE ee RGR 
1728 1081 ETABLE EOD # Ms 
$$: 
gs Bie ss 
ee i % 
i 
ae 
- | ¥ 
! ( 
f hast « 
i : 
di a ae 
i, , = ~ 
r DATE O6APR70 22mAY70 01A0G70 OTAPR71 1SMAR72 PROG ID OA09-8 DATE OGAPR70 22H AY70 O4AUG70 O1APR71 1SSAR72 PROG ID OACI-& 
EC NO. 571516 571513 571531 571565 571591 PAGE 100 = EC RO. 571516 571513 571531 57 1565 571591 PAGE 10a 
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IBG NAINTERARCE DIAGNOSTIC PHOSAAN 


RODS 


“ger toc 


T7AS 

WAC 

47B0 

F788 

| VES 
V7BE 

- 7e3 
PICT 

Or 4 T9CAK 
ka VICE 
as Wpe 
T7D5 
T7D93 
T7?oD 
. 1720 
“17E8 
17E8 
ITEC 
17FO 
VIPS 
ATE? 
17FB 
T7FP 
1803 
1808 
1808 
180F 
1812 
1815 


18 1B 
1B1C 
te 48 1F 
1822 
1826 
1828 
182F 


1838 ° 


1838 
183C 
183P 
1843 
1846 
1849 
189D 
1851 
1854 
1858 
185D 
1860 
1863 
1866 
186C 
1874 
1874 
1877 
187C 
1882 
1885 
1888 
188B 
1890 
1895 
1899 


DATE 
Ec no. 


DISK GRIT 


OBJECT CODE ADDR STMT SOURCE STATEMENT ; 
1083 * START I/O SUBROUTIRE 
; : 1085 , 
38 O8 1743 1085 STRTIO ST $SETXR2,AaRR 
35. G2 1743 1086 | L | * SETXR2,AR2 
3¢ 60 189D~—sC;: 10487 BVI | SA¥S¥,09 
28 03 17F5 CO 1088 SNR 8 =6SIO0¢1,0(,ER2) ' 
2¢ 00 17P6 OT 1089 SVC = SIG@* 241) ,14,X82) 
2¢ 01 T8A1 03 7050. - _8¥C | -DPCR (2}.3(,2% 82) 
36 C8 169P 1051 TEN DISKTP,X*O8* - 
F2 10 OB 1052 3f SETPIX 
38 O8 T7P5 1053 SBP) STO+7,xX°0S* | 
38 08 4852 1053 SBP 811001, 2°96" 
F2 87 08 1055 a CRS EER 
3A O8 I7P5 1056 SETFIX SSH S1O+1,x*°O8¢ 
3a O08 1852 10S7 Saw 8 RSTO+1,x* 08" 
BD 00 00 1058 CXSEEK CLI ©(, 582} ,00 
‘CO 8t 1818 1059 BE SETADR 
3% AG 18at 1060 LDPCR LIO: pPrcR,x*ac? 
37 A8 1823 1064 LDPDR LIO DFDR,X* as? 
3c CO 18A8 1062 AVY  ENDIPL,O 
c2 01 19¢8 1063 . oa 6600,ZR1 
F3 ad 00 7064 STO SIO —- X*O0* , xX*a0* 
Cl A2 18A9 1065 WAIT TIO BUSY,X*A2* 
3D FF 189D 1066 CLI SAVSH,X* PF! 
CO 01 180B 1067 BNE LDXR2 
8c 00 03 789C 1068 AVC) 8 =—- 3 (T, XR2),, DFCISY 
BROT 02 1069 SBP 2 (,XB2},01 
35 02 1743 1070 LDXR2 L SETXIE2, KR2 
£1 a0 OC 1071 TSTERR TIO 12(,XB82),X*A0* 
E1 AY 08 1072 TSTSCH TIO 8(,XR2) Xt aut 
FO 87 Cu 1073 B @ (,XR2) 
1074 . 
1075 * SUBROUTINE TO SET TRE 
1076 * DIRECTION 
38 08 1898 1077 SETADR ST ADREXT+*3, ARR 
BD 07 01 1078 CLI 1(,XR2),01 
F2 01 04 1079 INE = #07 
3C 00 1894 1080 AVI = FRSTPS,0 
2C 01 1845 03 1081 avC 8 8=«KR2WK(2),3(,XE2) 
35 02 18A5 1082 L XR2WK,XR2 
2cC 00 189C 03 1083 M¥C = DFC 3S ¥(1) 5. 3, XR2) 
3C FF 189D 1088 . BVI SAVSU,X*PF* 
3D CO 189A 1085 CLI FRSTPS,00 
F2 01 19 1086 INE SETADA 
3cC 01 189A 1087 AVI = PRSTPS,01 
BB OT 02 1088 SBP 2(,XR2),01 
BC FF 03 1089 SVI | -3(, XR2),255 
3¢ CO 1898 1090 NVI LastTap,00 
37 A6 18,41 : 1097 RLDFCR LIO DFCR,X*a6* 
F3 AO 00 1092 RSIO SIO 00,xX*a0* 
C1 A2 1858 1093 RWAIT TIO *,X*A2* 
8D 00 01 1698 109% SETADA CLC 1(1,XR2),LASTAD 
F2 81 25 1095 JE HOS EEK 
F2 89 11 1096 J8 FDSEK 
BB 01.02 1097 SBP 2(,X82),01 
Oc 00 1899 1898 1098 MVC 8 ©SCRCH (1), LASTAD 
2P 00 1899 01 1099 SLC SCRCH(1),1(,XR2) 
¥2 87 17 1106 3 SETADB 
BA 01 02 110% FYDSEK SB¥ 2(,XR2),01 
2c 00 1699 01 1102 M¥C = SCRCH(1) ,1(,X%82) 
OF 00 1899 1898 1103 SLC SCRCH(1),LASTAD 
F2 87 C6 1108 3 SETADB 
BC 00 ¢3 1105 WOSEEK AVI 3(,XR2),0 
F2 87 OA 1106, J ADREXT 
8c 00 03 1899 1107 SETADB SVC 3(1,XR2) ,SCRCH 
2c CO 189B 01 1108 SVC) =LASTAD(1),1(,X82) 
co 87 0000 . 1109 ADREIT B o-% 
CO 1899 1110 SCRCH DC XL1*"008 
O6APR70 22NAY70 01A0G70 OTAPR71 1SHAR72 
571516 571514 571531 571565 571591 


‘Ip TEST. 


| Paet no. © 5129636, 


‘PAGE. at 


SAVE ADDRESS RECALL REGISTER. 
LOAD XR2 WITH VALUE PRON ABR. 


-ZERO SWITCR. 


SET FuSCTIOR CODE 

SET CONTROL CODE IB sro 
SET DATA ADDRESS FOR BFCR 
TEST FOR RON ON LOBER DISK 
JUAP IF YES . Ree 27e 
SET FOR RESOTABLE DISK 

SET POR REHOVABLE DISK 
PROCEED ee eS 
SET POR PIZED DISK 

SET FOR FIXED DISK | 

TEST POR SEEK 

IP TES, GO SET ADDRESS 
LOAD CONTROL REGISTER 
LOAD DATA REGISTER _ 
RESET ILHDEX PULSE SWITCE 
LOAD DELAY VALUE IM ZR1 
START I/O OPERATION 

TEST FOR BUSY 

IS SWITCH ON? 

IF NO, SKIP RESTORE 
RESTORE N BYTE 

TURNS OFF THE FOR/ REV BIT 
RESTORE PARAMETER POLNTER 
BRANCH IP ZRROR 

BRANCH IF SCANS FOURD 

EXIT 


NUMBER OP TRACKS AND TLE 
(FORWARD OR REVERSE), TO SEEK 


SAVE EXIT aDDRESS 

IS THIS A RECALIBRATE? 

IF BO, S5YPASS SWITCH RESET 

RESET RECALIBRATE SHITCE 

SAVE ADDR. OF CTL. FLD. ADDR. 

LOAD XR2 SITH COMTROL FLD. ADDR. 
SAVE W BITE IW CONTROL PIELD 

SET SAVE SUITCH 

IS THIS FISST PASS 

SKIP RECALIBRATE IF nO 

SET PIRST PASS SWITCH 

SET PYD/KEV BIT TO REV. 

SET SAXIBUS TRACK CROSSING 

SET OLD ADDR TO 0 

LOAD DATA CONTROL REGISTER 

SEEK REVERSE 

WAIT 

COMPARE PRESENT ADDR. SITH SEW ORE 
EQUAL, SEEK IS HOT NECESSARY 

SEW ADDR. HIGHER, DO FOR@&RD SEEK 
SEW ADDR. LOWER, SET BIT FOR KEV. 
PLACE LAST ADDR IM WORKAREA 
SUBTRACT NEW ADDR. FROAS LAST ADDB. 
PROCEED 

SET BIT OM FOB PORWARD SEEK 

PLACE NEW ADDR. I WORKAREA 
SOBTRACT LAST ADDR. FROM HEB ADDR. 
PROCEED 
SET KO. 
TO EXIT 
PLACE IN HO. OF TRACKS CROSSED 
SAVE EW ADDRESS 

Exit 


OF TKS. CROSSED TO ZERO. 
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he 


yy 
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eee Seep 


ea 


oe 


ea 


Inn MAT# 


A098. 
ERP LOC. 


1894 
1898 
189¢ 
189D 
1898 
TBROC 
18Aa2 
18a9 
T6A6 
48A8 
TRA 
BAD 
9881 
71882 
1BR6 
18B9 
188D 
18c3 
v8CS 
18¢9 
78CD 
18D0 
18D8 
78D5 
18D6 
18D8 
VADA 
18DE 
18E0 
18F4 
18F6 
18FB 
1BEC 
1APO 
13F1 
18P2 
18F4 
18P6 
16RA 
18FC 
1900 
1908 
1910 
1915 
194D 
1925 
192D 
1935 
193A 


DATE 
EC WO. 


TERAUCE BTRGHOSTIC PROGRAA. 


PIS k RITE 


OBJECT CODE _ ADDR STNT SOURCE 

00 189A 1111 ERSTPS 

00 i 189R 1212 LASTAD 

00 189C 14113 DFC3SY 

00 | 189D 1114 SAVSW 

OOorr 189P 1115 DISKTP 

000d 18A% 17796 DFCR 

TB AC 18A3 1747 DFDR 

0000 1805 17928 XR2UK 

FRFF : WA7 1719 NEG 

00 178A8 1120 INDXPL 

38 904 12338 ; 1127 BUSY 

co &7 1788 9122 

03 18B1 2123 

39 O08 T7A4% 1128 

F2 90 ne 1125 

3C FP 7848 1126 

35 Ci 1938. 1127 | 

36 01 18A7 4428 

CO 8& 17P7 7129 

3D PF 18A8 1730 

FP? 81 10 2131 

CO '87 O27a 1132 

C6 De 1133 

25 18DS 1134 

1939 VED? 17235 

ao0s9 18D9 1136 

cO 87 9222 - 9137 

a089 18DP 1138 

CO 87 TADE 1139 TCVD 

OA03d 1825 7140 

1914 18E7 1191 

3c a0 1912 1142 

cO 8&7 O21A 4143 

C6 T8PO 11488 

15 18P1 1785 

1948 18P2 1146 

aC8E 18P5 1147 

CO 87 0222 1148 

AOBE 18FB 117489 

cO 87 OC0D 1150 

E3ICIDUCSDELSERUO 1914 1151 TIAOUT 

COLCSHODIDSRAEICS 1151 

CSCSYOETE? 1751 

D5SPDENOCIDSCUCSE? 1939 1152 MYNDEX 

QOD7ESD3E2ZCSE280 1152 

£2C5SDSE2CS5C8&40C2 1152 

CSC6D6D9C540£3C93 1752 

CUCSDEESE3 1152 

0000 193B 1153 TISE 
OA03 1158 RPPX 

O6APR70 22mayv70 01A0G70 

571516 571513 571531 


ID Tes? 





er 


STATESE RST 

BC. 3L1*90* 

ac ZL7° 00° 

BC =s-s XL.°00* 

pc _XKL17° 006° 

pe XL2‘Fre 

pe aL 2 (#-8) 

DC AL2 (WORK) 

be XL2*0* 

BC XL2‘Prrré 

pe XL1°O* 

ST TIGE, XRi SAVE COULTER 

B SEaSZ ‘TO SESE DEVICE SATAUS 
_ be XL7°O3°* . mg = 

TBN STATUS-1,%*°08* TEST POR IBDEX BIT 

JP 247 , : 

avI ENDEPL,X*PP*. SET S¥ITCH TO SAT INDZ #CYD. 
L TINE, IR? RELOAD TIAE YALUE 

A NEG1,1B1 DECREBRNT DELAY COURTER 

BSH WAIT RETURN TO TLIO LIP WOT TIRE OCT 
cut INDIPL, X*P?P* CHECK POR INDEX RCYD. : 
JE TC WD JOSP IF THERE @AS a8 INDEX 

B PRIST TO PRINT AISSISG IWDEX PULSE 
oc XL1*°C6* FLAGS : 

DC IL1¢ 37° LESGTE 

Bc AL2 (MI WDEZ) BESSAGE ADDEESS 

bc. XIL2* A089* BESSAGE ID 

8 ALT TO DCP ERROR HALT 

ac XL2° a089° HALT ID 

8B cvp TINE OUT GQCCURED, CORVERT ROUT. HO. 
pc AL2 (8PFX) CORREST ROUTINE BO. 

pc AL2 {TINODT) ADDRESS OF DESTIWATIOR 

AVI TISOUT-2,C* * 

B PRIST TO PRINT TISEGUT OCCURED 

pc XL 1*C6* FLAGS 

poe IL1*21° LERGTS 

boc AL2 {TISOUT) BESSAGE ADDRESS 

DC IL2'AQSE* HESSAGE ID 

B HALT TO DCP ERROR RAL 

pc IL2*AOBE* HALT ID 

B 0 

pc CL21*°*TISEOOT I8 ROUTIBE XX* 

oc CL37°NO INDEX PULSES SEHSED BEPORE TIAEODT® 

pc XL2*O" 

EOU x*a03* 
OTAPR71 1SHABR 72 PROG ID 0a09-48 
571565 $7159% PAGE ata 
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“ Pack 38 
BISK FRETS FB VEST : 
AOR STAT SOURCE STATESERT 
$356 ¢° ; SUBROUTIER TO PRIST TRE CONTESTS GF DBVICE STATSS * 
Vis? , 2 S 
38 G8 7C2 4758 PETSES SY PRTEIT? 3, ARB SAVB ABB@ESS RECALL REGISTER 
we . 3159 B SEESE TO PEEPORA SEESE 
02 10s 1160 | BC ALVTESTATON GET DEVICE STATOS BYTES 9S 1. 
m8 1161 
cd CY e2tE 4462, B BWP ACK TO BEPACE STATIS BYTES 
a9 02-2 S29 7163 BC ZL1°028 : 
& F7AS WAS 7466 DC 0s AL 2 (STATES 
soe TSR 7eED 4765 BC &L2 (HEXSTE~33 
' +368 : 
NE 3C OF 197E | 7167 AVI sTPsase1,87 SET POR COBPLETION OF FIBST BITE - 
€2 Of 19P1 7168 LA STATED, XEY SET X#1 TO POIET TO PIRST BESSAGE r 
©2 $2 7A082 1369 La STARSK, RB2 SET ER2 TO POIRT TO TEST #ASK 
co BF o2%a - 4970 B PRINT TO BREST SES BITH BEADIAG - 
ci W9SE T1713 - Be XLIC1? FLAGS : 
eT. 19% 27°72 Bt IL?707° LENGTH 
49F1 4962 7473 BO. ALZSTATHD) ADDRESS OF LAST PRINT CHARACTER 
. 7963 7778 SESID DC ZL2*a060" HESSAGE IDEWTIFICATICES 
2C 08 T98PF 00 . 9178 SOVEDT AVC TSTET<1£1),0 4,.xXR2} SET MASK BIT IB TEST BaTS IESTEDCT. 
WC 12 1BGR 60 T1768 HVC STATPR(13) .0(, 287 SET BESSAGE IN FYIELD ‘ 
36 00 +748 2177 £STsT TSH STATUS-1,+%-+ TEST CUBREAT BIP FOR OF i 
£2 90 s8 4178 3F STPSHS BzIPaSS PRIBT IP CPF 
co 8? O2TR 3479 8 PRI RT TO PRIHT SHS FITHOCT READIEC 
@1 1379 7486 oe KLi°ov ¥LAaGS , 
TZ 97a 2181 pc ELI°18* Leuct s- 
1BaB 19% 1182 Bc AL 2 (STATPR) ADDRESS OF LAST PRIET CHARACTER 
3D CD 196F 1163 STPSBS CLI TSTBT+1,%-2 TEST POR PENISHED 
F2 81 Ca W188 Jz SEHSA JOMP IP FINISHED SITE THIS BYTE 
#2 02 91 21185 Ba 1{, ER2) ER STZP XR2 TO POLST TO BEIT #HASK BIT * 
p2 87 12 4186 SENSB LA 18 ¢, 481) -XB% STEP XR1 TO POINT TO FEXT KESSAGE 
CO 87 1964 1187 8 NOVEST GO TEST WET SENSE BIT 
3B 80 TS7E 1788 SENSA CLI STPSKS+1,Z° 80° TEST POR COANPLETION OF 22D BYTE © 
P2 873 22 1189 SE PRTREX TO PRINT AED EXIT IP DOSE 
3c 80 1972 1190 AVI STPSHS<1,x*8O* SET POR CHBCK OF 28D BYTE 
38 01 1948 4191 ST SENSC+3,XRi SAVE X87 2 
‘€O 8&7 1782 1792 B SENSE TO SENSE 
03 ISAT 73193 pc ZL2°O3* BYTzs 26 3 
CO 87 021E 7798 B OEPACK - TO URPACK STATES BYTES 2 
02 1986 17195 pc EL1°92° 
TIRS 4F9AS 7196 pCO s«ALL2 (STATUS) 
tSDF- T9RA 7197 pe AL2 (REXST a) 2. 
£2 07 0000 4198 SENSC La e—* X81 RELDAD x81 ~ 
? £2 02 1282 7199 ba STHASK,XE2 SET BIT POLET ER : 
£0 €7 1987 4200 8B SENSB TG PROCESS 28D BrTzF = 
7 €O0 87 621A 3201 PRT#EZ 8B PRINT TO PRIST STATUS IB BEx a 
92 T9BB 4202 bc XL17*O02* 
aD 39BC 2203 pe TL 1* 298 r 
Toor T9BE 71208 Bc AL2 (HEXSTA) = 
ce 87 0000 3205 PRTEIT B r+ SUBROUTINE EXIT 
. 4206 = 
E2E3C1P3ESE2Z80C2 19D7 1207 pc CL21*STATUS ETTES I8 BEX, * 2 
ESP3CSP280C9D540 1207 
C8CSE7EBS0. 1297 2 
POCTCOCCONNOCCNNN WSDF 1208 HEXSTA PC XEe* of 
DSESSODEDTECKORD 1974 1209 STATED DBC CLI8*#O OP s . 
‘8080402080900080 1209 ¢ 
8080 - 1209 
CSDSESCSDIESCSDS 1203 7270 i CL76*INTERVERTION REDD. * 
E3C9D6D580N9CSD8 1210 e 
C&sB 1210. a 
DSCIEZE2CINSCIGO 1215 1271 pc CLIS*BISSING ADDR. SAEK* 
CICSCHDIURSODECI 1211 
D9D2 1211 
CSDEESC9D7DACSDS WA2Z7_ 2212 BC CLI@*EQUIPHERT CHECK ¢ 
-EB380C3C8C5C3D280 1212 
8080 2212 
COCTEICIBOC3CECS5 1039 2213 pc CLI8*DATA CHECK s 
O6APR70 2284Y70 0 7A0G70 OTAPR71 1SHAaR 72 
571516 571533 571537 $7565 571591 


eeo5eeeee eee 


@.. 


Pant re. 


5129635 





en en mene (ORE OI me! 





’ ‘ ee 1 
OR ate ke A Lp tae eon rcbtlaanaminee ne DNA ORTH fa UE ALOR INR AL HOO COCA nant RI PRNONEBNAO TSS rs 


ta 


iy 


we 


>, 


ec 


2098 


PRR ioc 


7030 
TA38 
TAA 
1AaZ 
TASA 
TARE 
A532 
‘tase 
TRSE 
1AabS 
TAO? 
1A70 
+ATS 
+a60 


VRSQ 
TASE 


JASA 
FABE 
Va92 
TASS 
tHBR 
TROE 
VRAD 
Tane 


JAAD 


ISAT 
1aB3s 
TABS 
TABS 
YRED 
FACF 
FACa 
Vac? 
TacB 
TaACP 
TADS 
IAD 
IAD] 


IAD. 


TADS 
TABS 
TADS 
tad? 
¥aDS 
7aD9d 
Fada 
ads 
Vapc 


DATE 
20. 


DIS K 


gar 


FR 


Stet 


12793 
22143 
tats 


4238 


OSIec?T coODR ADDR 
€3D28080408 60620 
8085 
DSLSSODSCSC IDEDY 44 3B 
CRHOTEDS £4 DS CHS B 
a8 5D 
EIDPADCIDEDSCBCI TASD 
F3C SPODSNOC WSs 
C3Bz . 
Ercecspesor 3cacs Mer 
CINZ 404 608980 2G 
B0ED 
EXDSEZCVCHSCHWMOND MSF 
GOLOSMAOAGHOsHAD 
BOSC 

3282 
BOsG20tS TBaS 
sone 2D kB? 
3% OS FACE 
35 Of Wace 
35 02 WaACE 
3% 02 1758 
2% 82 TaRCE 
3C OD WacP 
cz 02 Wwbe 
7S C1 03 
2¢ 00 FABa 00 
2c TO BABA DS 
78 C8 02 
2 ¢D GR 
3a 08 Sacer 
3D 80 WBeR 
F2 874 69 
22 02 93 
CO B87 32a9 
co 87 3000 
90 qWacr 
oa qaD0 
o8 4aDI 
29 TRDZ 
20 TaD3 
a0 TABS 
o1 IRDS 
o2 JADE 
04 VADT 
os FADS 
70 12D9 
26 WADA 
26 IADB 
B80 FADC 
CGAPR7TO 27h a779 
577516 571513 


12748 
4215 
3245 
1275 
3216 
4296 
4246 
1237 
1297 
1237 
3248 
1299 


"TBH SAINTERANCE DIAGNOSTIC PROCRAR 


22. 





ttst 


SOURCE STATERERT 


STMESK 


1226 ° 
. 41223 


3222 
1223 
1224 
4225 
1226 
1227 
1228 
9229 
4230 
7231 
1232 
71233 
12348 
1235 
1236 
32379 
41238 
1239 
1240 
4283 
1282 
7283 
7288 
2285 
7286 
1247 
12728 
4249 
1250 
1259 
3282 
1253 
1258 


SHIFT? 


StCTSR 
TER 


$688 


SaPEXT 
CYLAo 
SEPT SL 


OIADGTO 
971531 


C£L18*RO RECORD POUND 


sen, ag. siesese 
. Za 


2 


SUSROUTI NE Te SHIFT BITS Tz cowr Ren FIELD 


STORE ADDRESS RECLLL REGISTER 
BOSD BAIF aBDRESS FE IRI 

LOAD EIT ARBRESS Iz LR2 
ZBCHEASE BY 2 

STORE POR TRYS EXIT SSDEESS 

ZERO TORE BREA 

LOAB ADDRESS OF SHIFT TABLE iu ZB2 
LOAD COBTEOL FIELD ADDRESS IR X84 
XIHSERT CORRECT BASK FOR TEST BITS 
IRSERP CORRECT BITS FOR SET BITS 
TEST OBE BIT FOR O83 

JES? IF OFF 

SET ORE BIT EER ORCISAL FIELD 
TZST POR LEST SIT 

JUSP TO ELIT “xF ALS DORE 

ROT DONE, STEP XEZ 

TO TEST HEET BIT 

Exiz 


PROG iD GaGd-—6 


ot 

pc CLiI@t*ETK CONDITION CHuEcK* 
pc CLIB*SEEK CHECE 
BC CLt8* GUSAFE 

209 * 

ac XLS* 80802070" 
ac XLS DSSGSROTS - 
Sf SHPEITSZ, ARR. 

L SHPEAT+ 32S 

L SHFEXT+3, 222 

a TSO, XR2Z 

st SHFEST+ 3 RZ 
Vi CTFLNO,9 

LA SEFTBL, X22 

L 4(, R74) .XEt 

atc THRO 7 (9) 04, IRZ} 
aw SHH 1 (1) »D (, XH2) 
TBE Z2{.XR1) -F-2 

a? se? 

SHH CYLHO,*—* 

CLI THA27,F°SO* 

JE SHFEZT 

La 4 4,%R2) XRZ 

B SICTBA 

B Dw 

DC XL2°O? 

pc XL 1° Ge? 

ac XL1°038° 

pc XL ¥* $99 

oc IL7720* 

- pc XL 7* @p* 

oc XLY*Oee 

ac XE 7* 02° 

oe XL 2°OR* 

oc XL 2° O3* : 
BC XL7*190¢ 

pc IL 1° 20° 

pc XL1¢s9° 

pe EL 4° 80° 

OTAPRT1 TSHART2 
571565 $712597 
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“TBR RATWTERANCY DIAGHOSTIC PROGEAS - 


i 2096 
FRR. LOC 


“VADD 
FADE 
VAEZ 
. TAES 
TAZA 
AEE 
TaAP2 
TAPE 
TAFA 
7800 
7806 
tece 
BY 
PBIB 
Las 1821 


1827. 


1B28 
1B2F 
1B 30 
1B38 
1B3a 


1BAaC 
icac 


DATE 
Ec wo. 


a 


pIseR 


BRIT 2 


1D 


TES 


Tt 


ADDR STAT SOURCE STATEMERT 


1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1268 
1265 
1266 
1267 


- 1268 


OBJECT CODE 

00 TADD 

36 08 178D 

34 O08 IAFF 

36 OF 1758 

38 C8 1TBO5 

38 08 BOB 

36 08 178D 

3n OF TRIE 

oc 01 18771 CO00 

oc 01 1828 9000 

OC 07 1875 C006 

Gc 00 1ADD 0000 

08 20 080G0 1839 

OF CO TADD 178D 

FP? €2 OA 

06 270 0000 t82P 

CO 67 1818 

co 87 CC0D 

Ft 1B2P 

FIE2FP3PGPSPEPIPS 1839 

P9FO 
1845 
TEAC 
IC4B 
1C48B 
0003 
CO76 
0001 
co02 
0008 
CCO2 
0003 
COA6 
OOAS 
ccso 
0040 
0208 
O20A4 
0212 
0216 
O2TA 
O21E 
0222 
022A 
00x 
003F 
0855 

OGAPRTO 22m AY70 

571516 571513 


1269 
1270 
1271 
1272 


s 
HX BYT 


‘CYD 


PRON 
TYSOT 
OTORZ 
FROSTT 
ZROTO 
DECGAN 


TOE TT 


1273 . 


1278 
T2TS 
1276 
1276 
12779 
1278 
1279 
1280 
1281 
1282 
1283 
1288 
3285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 


TIZE 
DECONE 
GRITS 


STATPR 
WORK 


01a0G70 
571531 


5129636 
13. 


PAST HO. | 
PAGE 


- 


SUBROUTINE TO CONVERT A WOABER TO DECIMAL 


oe. ZL7°O?* 

A ONE, ARR 

st PROR¢5, ARR 

a TWO,ARR 

ST TY BOT+5, ARR 
ST. OTORZ*5S , ARR 

A ONE, ARR. 

st TI XEO3 ARB 

a7C PROBYT*5 {2}, -* 
aYCc TOB ITs 3 (2) , e-F 
“vc SROTSH+* 3 (2) oF 
aywc BX BYT{ 1) . *-¢ 
ZAZ e-*% (3) ,ORITS (1) 
sie¢ HXBIT (1) GE 
JL TIZE 

Az &—-t (3) , DECONE (3) 
8B DECGAR 

p Buns 

BC CL i# 2 

pe CL 10 ° 1234567890" 
Ds C118 

ECU. 2 

DBs CL256 

ds CL 256 

E00 x*a38 

roU0 xX* 76* 

E£o0 at 

£0u 02 

£00 08 

200 xX*oO2* 

rou x* 038 

EQU x*a6* 

Eou X° age 

£00 x*6e0° 

rou x* aoe 

EQU x*208° 

EOD x*20a° 

EQU z*212¢ 

EQU xX*216¢ 

EoD Z*2Q tae 

£Qoo0 X°21E°* 

EQU xX*222° 

EQU xX*22a¢ 

£Q0 x*3c°¢ 

Zou x* 3F¢ 

ERsD BEGIR 

OTAPR71 TS5H8AB 72 
571565 571591 


STORE EXIT 


ADD ONE TO GET FIRST PARASETER 
INSERT THE FROM ADDRESS 

aDD THO TO GET TRE SECO™D PARABETEG 
INSERT THE TO ADDR 


ADD ONE POR BXIT ADDRESS 
ADDRESS 


POT BYTE IN WORK AREA 

ZERO THE TO ABEA 

DECRESERT THE HEX BYTE 
JUNP IF BZLO¥ 1 , 
FECRENENT THE DECIBAL COUNT 


£xIT 


HALT DISPLAY 1 
HALT DISPLAY 2 


HALT DISPLAY P 
HALT DISPLAY A 


PROG ID 0009-8 
PAGE 13 


t- 


es 


t> 


ey 


ia 


dre 


> 


““n090 


- 


SYMBOL 


ADREXT 


ARR - 


AQ9 


BEGIN 


BITO 
PITT. 
BUSY 
BYPAS6 
CKSEPK 
CTRL 

cup. 

CYLRO 
DATA 

DECGAR 
DPCONE 
DFCR 
CEC3S¥ 
DPDR 
DISKTP 
pobpo 
EPRORG 
FRROSE 
EPROGA 


EPPO 2B - 


ERRO2ZC 
FRRO2D 


PRPRO2E: 


EPROSA 
PRROGA 
EPPRO6P 
FRRVA 
ETABLE 
PROP YT 
FRO" 
PRSTPS 
FWDS 2K 
RA 
RALT 


REXSTA 


of 


OO» 


» > wy Dm em em ow OL ee ee 710 


AAs » ww yp >» yw» 


oe wt - Benen mek) 


prPrs > rrr wr 


LEW 


ong 
001 


004 
608 
001 
C01 
00% 
036 
003 
601 
0G8 
001 
007 
006 
C02 
002 
C1 
C02 
CC2 
025 
C06 
017° 
0a3 
042 
089 
037 
027 


013 
031 
027 
021 
001 
006 
006 
001 
C03 
001 
001 


ocs 
001 
001 
001 
001 
001 
001 
008 
Coa 
004 
C01 


co 
037 
005 
005 
002 
cog 
003 
C26 
002 
002 
006 


O6APR?7 
5715 16 


DIS Kk 


ALUE DEFR 
1895 1109 
0008 12285 
0000 0002 
0855 0191 
6080 1290 
0080 1291 
BAD 11924 
16D2 0991 
17DD —- 1058 
COAG 1288 
TADE 61258 
TACP (1201 
COAN 1289 
1818 1270 
1B2F 1275 
TBA? 1116 
189C «1113 
18A3 1127 
189P 1115 
1739 1006 
OCAd 0218 
1335 0714 
T6AE 0990 
OE2c 0325 
OESD 0326 
0282 0327 
OFCF 0329 
12P3 0712 
18BD 9839 
1506 0841 
OCE? 0216 
17A8 1001 
1BOC 1268 
AFA 1265 
189A 1191 
1674 ©1101 
CO3F 1301 
0222 1298 
19DF 1208 
003c 1300 
ADD 1257 
0003 1281 
0C76 1282 
18A8 1120 
1A9B 1112 
17E8 1060 
17E8 1061 
1808 1070 
0216 1295 
022A 1299 
1939 1152 
1968 1175 
1AAQ 1231 
TBAT 1119 
167F 088 
18AS) «1105 
CBOE 0090 
178D 1029 
175D 1023 
1806 1267 
0 228A 170 
571513 


IBM MAINTENARCE DIAGNOSTIC PROGRAM 


@#reivte xD 


REFERENCES 
1077* 1106 
0023 0997 
1263* 1268 
1302 

1065 

0857 

1655 

0199 0311 
0200 0312 
_ 1273 

1272 2 
1050* 1060 
1068 1083* 
0165 0279 
0118* 02308 
0988 

0129 0242 
0706 

0972 

0158 0272 
0181 0293 
0171 0285 
0196% 0201 
0547 0556s 
0615 0655 
0761 

0790 

0138* 0149 
0013 

1265® 

12598 

0087* 10188 
1096 

0130 0150 
0360 0381 
0592 0616 
C8627 0875 
1165 1197 
1268* 1270* 
1062* 1126% 
1090* 1098 
0050* 005ue 
0062 

1067 

0118 0210 
0575 0710 
0988: 

1135 

1187 

1239 

1128 

0981 

1095 

0979 

1258 1263 
0211 0323 
1262 

O1A0G70 
571531 


PRR? wo. 


| 5129636 
PAGE 13a 
TEST 
CROSS- REFERENCE 
1032 1085 1077 1158 1223 1258 1259 1260* 1261 1262 
0830 0585 1139 
0831 0596 1228¢ 1235€ 
1091 
0396 0511 0600* 0683* 0883 0951° 1061 
0386* 0861* 0576* 0619% 0659* 0729* 0859® 1051 
0359 0878 0591 0634 0678 0780 0807 0878 0945 
0389 0508 
0812 0527 
0802 0517 
0205 0308* 0313 U314* 0318 0827* 0832 0833* 0837 OSS2° 
0552 . 
0697 0897 0927 0968 
0251* 0263 0368 0360 0883* 0495 0750¢ 0762 0815* U826 
1080* 1085 10576 
0160 0173 0183 02C6 0243 0268 0278 0287 0296 0319 
0391 0804 0418 0438 0475 0896 0506 0519 0529 0553 
0635 0656 0675 0698 0708 0741 0763 0783 0792 0808 
0898 0908 0928 0986 0965 0978 0986 1019 1137 1108 
1204 
1130 
1098 1103 1106 
0062 0063 006% 0065 0066 0067 0068 0069 0070 
0227 0322 0391 0343 0442 0856 0858 0557 0571 0573 
0725 0830 0836 
1270 
0453 0558 
O1APRT71 1SHAaR72 PROG ID 0209-¢ 
571565 571591 PAGE 13a 
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LE TEE AOS FET IN PIED OE OLED LO LEE. EE TE REL ee Ren or UN a WN Re 7 GST RS RO LCE Bt Rc 
S é : ‘ * i i , a 


IBA SAISTEMANCE DIAGNCSTIC PROGRES : 


“A998 


. SYMBOL 


~ oPASS 


PRINT 


PRIEXT 


©. peTHex 


PETSNS 


PRTSPR 
RENVDS 
RLPFCR 
RPPX 
RSQ 
RTNI 
RTWIA 
RTWB 
RTN IC 
RTHID 
RINE 
RTNIP 
RTHIG 
RTR2 
RTN2A 
RTNZB 
RT HOC 
RTR2D 
RTW2E 
RTNZP 
RTN2G 
RIN3 
RTNZA 


~ RTNIB 


PTR3C 
RTN3D 
RTH3E 
RTN3F 
RTN3G 
RTNG 
RTRGA 
RTNGB 
RT NSC 
RIND 
RTKVE 
RINGF 
RT NRG. 
RTRS: 
PTRSA 
RTXSB 
RTNSC 
RINSD 
BTRSE 
RTNSP 
RINSG 
RING. 
RTREA 
RTREB 
RTR6C 
RINGD 
RTROE 
RTKOF 
RTN6SW 
RINT 
RTNS 


DATE 
FC NO. 


oe 


ae ee ee ed ee ee ee ee ee ee ee ee ee ee eee ee ee ee 2 2 oe ee 


LEW 


BISK WRITE ID TEST. 


VALUE 
oO1 oBtTs 
001 O24A 
064. T95F 
oo8w 19:57 
608 793¢C 
0048 GATER 
007 O64 
004 4D 
001 dOAOQZ 
Q03 185% 
001 6851 
ots 6399 
004 OBCF 
CoB UOBE6 
008 OCOds 
60a 0O0C1B 
008 OCIF 
006 ocss 
004 OCFE2 
00u OD2ZA 
008 oOD69 
06a cp7? 
oon 0D95 
OCR ODAC 
ocu opBOo 
0048 ODFO 
007 OEDO 
004 OF20 
cos oFfss 
OOS OF6D 
OCH OP8B 
60% OFA?2 
008 OFAG6 
008 OFES6 
001 OFFS 
00s 10488 
004 107£ 
e¢o0a8 1095 
008 1083 
00% TOCA 
00’ I0CE 
008 1108 
001 1120 
004 1178 
oo4N 1188 
008 ‘11EC 
0048 12248 
00a 1258 
008 - 1298 
00a: 12AP 
001 1336 
C08 T37E 
008 14358 
008 13EF 
0058 13FF 
008 14029 
C04 1858 
015 1708 
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IBA AAINTEBAWCE DIAGROSTIC PROGRAS PART NO. 5129638 IBM NAINTEWANCE DIAGNOSTIC PROGRAB Saae nO. aera 
PAGE 1 
0° 
aoa2— SC AS EQUAL aQaz2 SC AF 6FQUAL 
i ERR LOC OBJECT CODE ADDB STHYT SOURCE STATENERT Cc QO ERR LOC OBJECT CODE ADDR STSRT SOURCE STATENERT 
’ 
0000 2 AOA START 0 OaAAS O08 0O 1aF5 1ACC 70 MZZ  TSTSCH¢1,LDPCR¢1 SET FOR CUOKRENT SPINDLE 
P 3 DECK & Oo. 2 OAAE 08 00 1a72 1ACC 71 MZZ = SNS#1,LDPCR¢1 SET FOR CURRENT SPINDLE 
oa00 8 ORG xX*Caoo® OABS O08 00 1B2C 1aCC 72 HZZ RLOPCR4+1,LDPCR¢1 SET FOR CURRENT SPINDLE 
5 SCOSSERSSHEHEHEHETESH EEE EEE SEES EEESESESEERESHESSESESEESESESSSESSESESESE SEE OS OABA 08 00 1830 1ACC 73 HZZ BSI0¢1,LDFCR¢1 SET FOR CURRENT SPINDLE 
6 SECTION PREFACE * oO oO OacO CO 87 1268 78 B SZNSE 
7° 6 Oaca 02 Oace 75 pc XL1°02° ASK FOR DEVICE STATUS BYTES 9 & 1, 
OA0O 20A2 0A01 8 DC XL2*AOA2! PROGRAB ID 76 
Oa02 00 Oa02 9 pc xXL1*00° SECTION FLAGS Oo 60 OacsS 3c CB OBOA 77 AVI TRACK #, 203 SET FOR FULL CAPACITY DISK 
OA03 01 0a03 10 pc X1L1¢°018 CURRENT ROUTINE NOSBER OaACS 38 08 1A7B 78 TBN STATUS, X*08° TEST CYL 100 BIT 
0a0&% 0000 OA0S 11 pc XL2°008 RESERVED OaCcD F2 90 O8&8& 79 JF PRTS PN JUNP IF OPP 
OAO6 OBF2 oaoy) = 12 pc AL2(BTH1) ADDRESS OF PIRST ROUTINE PREFEX o Oo OADO 3C 67 OBOA 80 AVI TBACK#,103 SET FOR estoy ctibiaa. 
OAO8 IA7E oa0d9 «33 DC AL2(ETABLE) ADDRESS OF ERROR RECORDING TABLE OaD4 CO 87 O2TA 81 PRTSPH B PRINT TO PRINT SECTIO 
OAOA 401000 Oadc = 18 DC = XL3*a010008 OAD8 01 OADs = 82 pe XLT°01° FEaGS 
15 8 * Oo G&G OAD 22 OADS) 83s «883 pc IL1*34¢ LENGTH 
16 FUSSHSHSHSEHSHSSSEEHSERESEEES SESSSHHSE SHES SSSSSSSSES SHEESH STS SSSHE SESS SSESESEE OADA OBSE OA DB Ba DC AL2(SECHSG) MESSAGE ADDRESS 
17 : OADC CO 87 O21A 85 B PRIET TO PRINT SPINDLE 
* N ron ° o © OAEO 06 OAEO 86 pc XL1°06¢ FLAGS 
; be * Ponta eon ne heres e OAE1 18 OAE1 87 pc IL1*24° LENGTA | ee 
C ESSAGE ADDRES 
20 * 1. SET SWITCH 15 TO BYPASS RUNNING OB THE REMOVABLE DISK OAP2 UB3C OAE3 88 Dc AL2 (SPNMSG) A 
S 21 2. SET SWITCH 16 TO BYPASS RUNNING ON THE FIXED DISK * GO c: OAES 3C 00 1B78& 89 avI PRSTPS,0 SET SWITCH FOR RECALI BRATE 
22 * 3. SET SWITCH %% TO YEVER RUN OH DISK DRIVE 1 ° OaEB CO 87 0000 2. SETEXT B 7% EXIT 
5 8 &. SET SWITCH 1F TO N2OVER RUN ON DISK DRIVE 2 * 
Q oa ac , 7 oO a OAZC C1D3D330E4D05C923 OBO0S 92 NOUPIT DC CL26*ALL UNITS HAVE BEEN TESTED® 
OAOD 3&8 08 OAZB 25 SETDSK ST SETEIT+3,ARR SAVE EXIT ADDRESS OAPS E240C8CIESCSYOC2 92 
}° +  OA11 3c FF 0809 26 AVI SETSW,X'PP* SET SETUP SWITCH OAPC CSCSD54O0E3CSEZE3 92 
. 27 Co Oo Ob04 CS5C4 92 oA 
: 0415 3D 00 0807 28 CLI UDTPTR,O HAS POINTER BEEN INITILIZPD? 0B06 0000 OBO? 93 UDTPTR DC eroa3% 
: OA19 F2 01 08 29 JNE OPIND1 JUNP iF YES : 0232 98 UTAB EQU Xx ae. 
OAIC C2 01 0232 30 LA ‘OTA, XR1 LORD IP NO oO O OB08 00 OO ee ee ee EL 
Ca20 3&8 01 0BO7 31 UFIND2 St UDTPTR,XR1 0809 00 0B09 96 SETSW DC XL1"0 ; 
7 OA2%4 35 01 0807 32 UPIND1 L- UDTPTR, XR? OBOA 00 OBOA 97 TRACK# DC IL1'008 
a 0428 3C 00 OBOS 33 MVI REMVDS,O ZERO SWITCH POR REMOVABLE DISK Gc © OBOB AO . OBOB 98 SPRDLA DC ee 
OA2C 38 02 0208 34 TBN SWITCH*+3,X'02° TEST SSW iE ; 9BOC BO OBOC 99 SPNDLB DC arr 
0230 F2 10 06 35 JT #49 JUMP ‘F ON, NEVER ROd DISK DRIVE 1 ea OB0D 00 OB0D 100 ROWRAY DC meee 
S 0433 7D. A0 00 36 CLI O(,XBR1),X"A0* TEST POR A UNUT ADDRESS OF ‘a! . = OBOE 00 OBOE 101 RUNFIX DC er aeon 
OA36 P2 81 2P 37 JE SETA JUMP IF THERE IS ONE peat sa oa tna ee oe a 
OA39 38 01 0208 38 TBN SWITCH+3,I*U1" TEST SSW 1P ; “J 
OA3D F2 10 O06 39 JT £49 JUS P IP ON, NEVER RUN DISK DRIVE 2 Cc oe OB12 CS9DSESCIDICICHKHO OB246 108 INVPLG DC CLI9* INVALID SS@Y SETTING® 
OA30 7D BO 00 &O CLI 0O(,XR1),X"BO! TEST POR A UNIT ADDREAA OF ‘Bt as a ede aoe 
OAS3 F2 81 2F 41 JE SETB JU" P IF THERE IS ONE 
OAS6 78 10 01 a2 TBN 1(,XR1) ,X°108 TeST FOR LAST ENTRY C OB25 DSDE6E64IVE3CSE2E3 OB3C 105 SPKMNSG DC CL24*NOW TESTING DISK DRIVE Xx* 
OQa&9 D2 01 03 a3 LA 3(,XBR1) ,XR1 STEP POINTER TO NEXT. ENTRY meee oct pecoscccages ice 
OANC CO 90 0a20 Bu BP UPIND2 CONTINUE IP NOT THE LAST ENTRY : 
0aS5O CO 87 O2TA as B PRINT TO PPINT ALL URITS SELECTED < OB3D C2CSCTICIDSLOE2ZC3 OBSE 106 SECMNSG DC CL34"* BEGIN SCAR EQUAL FUNCTION TEST AOA® 
OASB O6 OAS8 46 pc XL1°06? FLAGS OBNS CIDSYOCSDSEUCID3 106 
OASS 1A OASS a? DC IL1°26° LEXGTH = OBUD XOCG6EYXLDSC3E3CSD6 106 
OAS6 0BO0S OAS?) = B DC AL2(NOUNIT) MESSAGE ADDRESS C! OB55 DSAOEICSE2ZE340C1 106 
0a58:°3C 00 O09 a9 MVI SETSW,O OBSD FO0C1 106 
OASC OC 01 0BO7 0B10 50 - MVC UDTPTR(2) ,TWOZR 2 
OA62 CO 87 022A 51 B LOAD TO PRINT NO ENTRIES LEFT C 
0a66 0090 0a67) = 552 DC XL2*80* FLAGS 
53 
OA68 08 OO 1aCC OBOB 54 SETA MZ2Z LDPCR*1,SFNDLA SET TO RUN ON SPINDLE *a? Cc oO 
OA6E 3C FY OBIC 55 BVI SPNSSG,C'1* SET MESSAGZ FOR SPINDLE '1° 
OA72 F2 87 14 56 J. SETBTH PROCEED Be 
57 Oo 9 
0a75 08 OO tacCc OB0C 58 SETB 48Z2Z \LDPCR+1,SPNDLB SET POR SPINDLE B. 
OA7B 3C F2 0B3C 59 RVI SENBSG,C*2* SET MESAAGE POR SPINDLE ‘2° 
OA7P 78 01 02 60 TBN 2(,XR1),X"01! TEST OPTION BIT PCR REMOVABLE ONLY Oo 9 
OA82 F2 90 04 61 JF SETBTA JUMP IP OFF 
OA8S 3C FPF O0B08 62 NVI REMVDS,X'PPS SET TO RUN REMOVABLE DISK ONLY oO 
63 
OA89 D2 01 03 64 SETBTH LA 3(,XR81),XR1 STEP POINTER TO NEXT ENTRY 
OA8C 3&4 01 0807 65 ST UDTPTR,XR1 
0A90 08 00 1AD0 1aCC 66 MZZ  LDFDR¢1,LDPCR41 SET POR CURKENT SPINDLE c oO 
OA96 O08 OO 1AD8 1aCC 67 MZZ  SIO+#¢1,LDFCR¢1 SET FOR CURRENT SPINDLE 
Oa9C 08 00 1ADB 1ACC 68 MZZ WAIT¢1,LDFCR¢1 SET FOR CURRENT SPINDLE ~ 
OAA2 08 OO 1AP2 iACC 69 MZZ = =TSTERR¢1,LDFCR¢1 SET FOR CURRENT SPINDLE Go © 
DATE 13HAR70 06AP870 2ZNAY70 0140670 PROG ID OAOA-2 Ca 6 DATE 13MAR7O O6APR70 22RAY70 01A0G70 ay XD aha 
EC WO. 571512 571516 571513 571531 PAGE 1 EC KO. 571512 571516 571513 571531 P 
Oo 
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IBQ GAINTESANCE DIAGNOSTIC PROGRAB PART HO. 5129638 IBS BAINTEMANCE DIAGNOSTIC PROGRAN PART NO. 5129€36 
PAGE 2 PAGE 2a 
0 @ 
a0a2 SCAB EZ£QOAL AOA2 SCAB EQUAL 
, ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT .. ERR LOC OBJECT CODE ADDR STST SOURCE STATERENT 
OBSP 34 O08 OBDD 108 TSTSPN ST TSTEXIT+¢3,ARB STORE EXIT ADDRESS 158 © BOUTINE WO. 01, CHECK FONCTION OF WO RECORD PouND ® 
0863 3D OC 0B11 109 CLI Pass,0 IS THIS THE FIRST TISE THROUGH ? 0 °0O 159 * SENSE BIT, (BYTE 0, BIT 5) e 
\ 0B67 F2 01 07 110 INE  SETSPR JUMP IP NO 160 © USING THE SCAW EQUAL COMSAND e 
OB6A 3C FF 0811 111 AVI PASS,X*PP® SET SWITCR 161 
OB6E F2 87 OC 112 J TSTS® PROCEED TO TEST SWITCHES Oo °9o 162 * ROUTINE PREPACE ® 
0B71 OD 01 OBOE 0OB10 113 SETSPH CLC RUNFIX(2),TWOZR HAVE ALL DISKS BEEN RUN? 163 
0B77 F2 81 68 118 Jz ZROCTR JOAP IP YES OBF2 01 OBP2 164 RTN1 3 DC XL1°018 ROUTIBE BO. 
i OB7A F2 37 3c 115 J SETRAY JUMP IP HO 0 Oo OBF3 00 OBF3 165 DC XL1°00° ROUTINE PLAGS 
116 OBF& OD3A OBFS 166 DC AL2 (RT#2) ADDRESS OP WEXT ROUTINE 
} OB7D 38 06 0208 137 TSTSW TBM SECTSW,X'06* TEST POR BOTH SSW*S 15 & 16 OB 167 
| 0881 F2 90 18 118 JF TSTRAV JUMP IP BOTH NOT OD oO G6 OBP6 3D 00 OBO9 168 BEGIN CLI SETSW,0 HAVE PARAMETERS BEEW ENTERED? 
OB88 CO 87 021A 119 B PRINT TO PRINT INVALID SSW SETTING OBFA CO 81 OAOD 169 BE SETDSK BRANCH IF #O 
OB88 Cb 0688 120 DC XL1*C6° FLAGS OBPE CO 87 OBSF 170 RTNIA B TSTSPS 
0889 13 0B89 121 DC IL1°19# LENCTH Cc oC OCO2 3C 00 1A7~A 171 AVI STATOS-1,0 ZERO SENSE AREA 
* _OBBA 0B24 OB8B 122 DC AL2 (INVPLG) MESSAGE ADDRESS OcO6 3C 09 1BE8 172 NVI SNSID,09 INSERT ID IN PSIWT 
OB8C AOFA OB8D 123 DC XL2*AOPA? MESSAGE ID OCOA OC 00 1860 OBOA 173 MVC RDDFC+1(1),TRACKE - SET TO SEEK THE CE TRACK 
124 CG << 0C10 CO 87 1493 174 B STETIO TO I/0 SUBROUTINE 
OBRE CO 87 0222 125 B HALT TO DCP ERROR RALT 0c1a 39 oc14 175 DC XL1°008 PUNCTION CODE (CONTROL) 
OB92 AOFA 0B93 126 pc XL2°AOPA* HALT ID 0c 15 00 0c15 176 DC XL1°09° CONTROL CODE (SEEK) 
OB94 CO 87 0212 127 8 TEST TO BEAD CONSOLE SWITCHES CS 0C16 125F OC17 177 BC AL2(RDDPC) CONTROL FIELD 2DDRESS 
OB98 CO 87 OB7D 128 B TSTSH 0c18 CO 87 0C32 178 B RINTtA? GOOD RETURN 
129 Oc1c CO 87 0c20 179 B +8 
OB9C 38 O48 020A 130 TSTRAV TBH SECTSW,x*0u! TEST FOR SWITCH 15 OF Ci (es) 0c20 CO 87 %8BC1 4180 B PRTSNS TO DECODE ERROR 
OBAO P2 10 08 131 JT TSTPIX JUMP IP om Oc28 CO 87 O21A 181 B PRINT TO PRINT 
OBA3 3C PF OBOD 132 BVI RUNRAV, X'FPF® IP NOT ON, SET TO RUM RZHOVABLE DISK 0c28 06 Fi 0c28 182 Dc IL1°06* FLAGS 
‘ 133 Cc Oa 0C29 35 0c29 183 pc IL1*53° LENGTH 
OBA? 38 02 020A 134 TSTPIX TBN  SECTSW,X*02° TEST POR SWITCI 16 OF OC2A OCB8 OC2B 184 DC AL2 (ERROB9) MESSAGE ADDRESS 
OBAB F2 10 OB 135 JT SETRSV JUMP IF OW OC2C CO 87 0222 - 185 B HALT TO DCP HALT 
OBAE 3D FF 0B08 136 CLI REMVDS,X'FP? TEST FOR RUN ON REMOVABLE DISK ONLY © an @) 0C30 A009 0c31 186 DC XL2"*a009# SALT ID 
OBB2 P2 81 O88 137 JE SETRSY JUMP IP ON : , 187 
OBBS 3c FFP OBOE 138 EVI RUNPIX,X*PF? IF NOT ON, SET TO RUN FPIXED DISK OcC32 CO 87 194F 188 RTNIA1? B TSTSEK TO TEST FOR GOOD SFEK 
OBBY 3D 00 OBOD 139 SETREAVY CLY RUNRMV,0 DO WE WANT TO RUN ON REMOVABLE? c C 6C36 3C FFP 1A60 189 AVI RDDFC+1,X° FF? SET CYLINDER NO. TO FORCE A ERP. 
OBBD F2 81 OB 160 JE FIXED TUS P IP NO OC3aA OC O01 1862 OBO 190 NVC RDDFPC+3 (2) ,TWOZB SET TO START AT TRACK O, SECT 6 
OBCO 3C OO 1B79 141 BVI DISKT?,O SET TO RUN ON REMOVABLE : 191 , : 
OBC’ 3c 00 OBOD 1&2 BYI RONRSYV,0 CLEAR RUN REMOVABLE SWITCH CO OQ Oc&8’0 cO 87 1493 - 192 B STR&TIO TO I/0 SUBROUTINE 
OBCB F2 87 OF 143 J TSTEXT TO EXIT Ocu4y 03 Oc4y 193 pc XL12°03* FUNCTION CODE (SCAR) 
Taya Ocxs 00 ocu5) 194 DC XL1°00' CONTROL CODE (EQUAL) 
OBCB 3D 00 OBOE 145 FIXED CLI RUNFIX,0 DO WE WAKT TO RUN CN PIXED? cs OC4u6 1A5F OCc4u7 195 DC AL2(RDDPC) CONTROL FIELD ADDRESS 
OBCF F2 81 OC 146 JE ZROCTR JUMP IP NO Oc48 CO 87 0Cc54a 196 B RTNWIA2 GOOD RETURN, {NOT EXPECTED) 
OBD2 3c O08 1B79 T47 AVI . DISKTP, X*08! SET DISK TYPE TO FIXED Ooc&’c CO 87 O0CcS5O 197 B ey 
OBD6 3C 00 OBOE 148 AVI BONPIYX,O CLEAR RON PIXED SWITCH eS c 0cSO cO 87 0c6a 198 B RTN1B NORMAL RETURN FROM EXPECTED ERROR 
149 OcS4& CO B7 O21A 199 RTNIA2 B PRINT TO PRINT ROUTINE ERROR 
OBDA CO 87 0000 150 TSTEXT B *-% EXIT OcCS8 C6 0cSB 200 DC XL1°C6! FLAGS 
151 : c = 0c59 3c 0c59 =—-.201 DC IL1°60* LENGTH 
OBDE 3D OB OAO3 152 ZROCTR CLI x*0A03*,08 CHZYCK FOR LAST SCUTINE OCSA OCFPS OCSB 202 dc AL2(ERRBIA) ADDRESS OF LAST PRINT CHARACTER 
OBE2 3C 09 0B11 153 MVI PASS,0 ZERO SWITCH ocSc aQ250 OCSD 203 DC YL2*a0S0¢ MESSAGE ID 
OBE6 CO 01 0216 154 BNE LINK Ces ae OCSE CO 87 0222 208 B HALT TO DCP HALT 
OBEA 3c 00 OBO9 155 AVI SETSW,0 RESET SWITCH 0c62 A050 0c63 205 Dc x.2*a050° HALT ID 
OBEE CO 87 0000 156 B 0 206 
Cc C Oc64 CO 87 1A64& 207 RTRIB 8B SENSE TO SENSE I/0 SUBROUTINE 
Oc6B 02 0c68 208 DC AL1(STATO1) DEVICE STATUS BYTES O & 1 
209 
Co xe Oc69 38 OW 1A7A 210 TBN STATUS-1,X'04' TEST BYTE 0, BIT 5 FOR O- 
211 © THIS IS "NO RECORD POUND® 
Oc6D F2 10 10 212 IT RTNIC JUMP IP ON 
ce oe 213 
0C70 CO 87 O21~A 214 B PRINT TO PRINT ERROR 
OC74 C6 0c78 215 Dc XL1°C6é? FLAGS 
Cc © Gc75 45 OC7S 216 DC IL1°69¢ LENGTH 
0Cc76 0D39 0c77 217 DC AL2(EERR1B) AUDRESS OP LAST PRINT CHARACTER 
Oc78 A051 0c79 218 DC XL2*a051# MESSAGE ID 
Ce OC7A CO 87 0222 219 B HALT TO DCP HALT 
Oc7E A051 OC7F 220 DC XL2*a051° HALT ID 
221 
CO OC80 CO 87 OBFE 222 RTNIC 2B RINIA ROUTINE EXIT 
223 
; OC84Y E3C8C540D7D9CSES OCB2 224 pc CL47"°THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE * 
O ¢ OC8C CIDGEXE24CCS5D9D9 224 
DATE 13MAR70 O6APR70 22H AY70 01A0G70 PROG ID Oa0A-2 <- DATE 13MAR70 O6APR70 22MAY70 O1ADGTC PROG ID OAOA-2 | 
EC WO. . 571512 571516 571513 571531 PAGE 2 EC NO. 571512 571516 571513 571531 PAGE 2a 





Q 


eeoeoeeeeeeeeceeeeeeseCeeeeeeeeeeneees 








.° 





- Qo ¢ 
IBM MAINTENABCE DIAGNOSTIC PROGRAS PART WO. 5129638 IBS MAINTENANCE DIAGNOSTIC PROGRAE PART "NO. 5129638 
PAGE 3 PAGE 3a 
6 °9o 
A0A2 SCARE EQUAL AOA2 SCAB EQUAL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT CGC eo ERR LOC OBJECT CODE ADDR STHT SOURCE STATERENT 
0C94 DEDIE2ZKODECICIES 224 231 * ROUTINE WO. 02, TEST SETTING OF THE SCAN FOUND e 
OC9C DIDICSCU“OESCBCI 228 Go 9s 232 «© CONDITION & BRANCHING OW & TIO ® 
OCAS D3IC5SOE2C5C5D2C9 224 233 2 USING A SCAN EQUAL CONDITION % 
OCAC DSC740E3C8C540 228 236 
OCB3 C3CS5S40C3EBD3 OcBa 225 ERRORS DC CLO6°CE CYL* 2 od OD3A 02 OD3a 235 RTN2 v7C XL7°02¢ ROUTIBE WUMBER 
OCB9 E2C3C1DS8OCSDSB4 OCEC 226 pc CL52°SCAR EQUAL USING A NON EXISTANT SECTOR ID DID HOT GI? OD35 00 OD3B 236 pc XLi*00° ROUTINE FLAGS 
O0CC1 C1D380E4E2C9D5C7 226 OD3C OFEA OD3D 237 pe AL2 (RTE 3) ADDRESS OF NEXT ROUTINE PREFIE 
OCC9 40C140D5D6D5480C5 226 oO G 238 
OCD1 ETCIE2ZE3C1IDSE3480 226 OD3E 3D 00 0B09 239 CLI SETS#,0 HAVE PARAMETERS BEEN ENTERED? 
OCD9 E2C5C3E3D6D940C9 226 OD42 CO 81 OAROD 240 BE SETDSE BRANCH I? NU 
OCET C&LOCHCICKULODSDE 226 6 oOo OD46 CO 87 OBSF 281 RTN2A 8B TSTSPN 
OCE9 E340C7C9 226 OD4SA OC 00 1A5C OBOR 242 MVC WRTDPC#+1(1), TRACKS SET SEEK ADDRESS TO CE TRACK 
OCED ESCSZ0CSD9D9DGEDS OCPS 227 BRRIA o0C CLO8*VE ERRORS OD50 3c 00 125D 283 MVI WRTDFC+2,0 SET FOR HEAD 0, SECTOR O 
OCFS DSD640D9C5C34B40 0D28 228 DC CL52*HO REC. FOUERD NOT SET BY A SCAN EQUAL COMMAND USING * GC G OD54 3C 0S 1BE6 244 MVI  SNSID,09 INSERT ID IN PRINT 
OCPD C6D6FE4D5C460D5D6 228 245 
OD0S £380E2C52E340C2E8 228 7 OD58 CS 87 1a93 286 B STRTIO TO SEEK CE TRACK 
UbOD 40C140E2C3C1D540 228 C CoC ODSc 00 ODSc «247 DC XL1°0# FUNCTION CODE (CONTROL) 
OD15 CSD8E4C1D340C3D6 228 ODSD 00 ODSD 248 pc XL1°08 CONTROL CODE {SEEK) 
ODID DUDYCIDSCBROESE? 228 OD5SE 1858 ODSF 249 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 
0D25 C9D5C7480 228 f G6 ODb0 CO 87 OD7A 250 B RTN2A1 GOOD RETURN 
0D29 C1BOE2C5C3E3D6D9 OD39 22) ERRIB pc CL17*& SECTOR ID OF FF? OD64 CO 87 OD6B 251 B £44 
0D31 SOCICSRODECE40CE 229 0D68 CO 87 1BC1 252 B PRISNS -TO0 DECODE ERROR 
0D39 C6 ‘ 229 a ¢ OD6C CO 87 O21A 253 B PRINT TO PRINT 
OD70 06 OD70 2548 DC XL1°068 PLAGS 
0D71 35 OD71 255 Dc TL1*53° LENGTH 
Oo fC OD72 OCBS 0D73 256 DC AL2 (ERROR) MESSAGE ADDRESS 
OD74 CO 87 0222 . 257 B HALT TO DCP HALT 
O0D78 A009 0D79 258 DC XL2*a009* HALT ID 
QoQ 9 259 
OD7A CO 87 194F 260 RTN2A1 B TSTSEK TO CHECK FOR A GOOD SEEK 
at ak 261 . 
Co oO OD7E 3c 00 1£EC6 262 RTN2B AVI WORK+255,0 SET WRITE FIELD 
i OL82 OC FE 1EC5 1EC6 . 263 MVC °‘WORK4+25% (255) , WORK+255 
2648 . Sg ; 
oO; ©o OD88 3c 12 1BE8 265, “MVI SNSID,X*°12¢° PUT MESSACE ID IN PRINT 
! OD8C 3C 00 1ASE 266 BVI WRIDFC+3,0 SET TO WRITE ONE SECTOR 
267 
O:s OD90 C2 01 1DC7 268 LA WORK, XR1 SET WRITE DATA ADDRESS | 
OD94 34 01 1B7D 269 ST DFDR,XR1 IN DATA CONTROL’ PIELD 
270 ; pe os 
oO: OD98 CO 87 1A93 271 B STRTIO TO I/O SUBROUTINE 
op9Cc 02 oDp9c 272 Dc XL1*02° FUNCTION CODE (WRITE) 
OD9D 00 OD9D 273 pe XL1"00: CONTROL CODE (DATA) 
GC SO OD9E 1A58 ODS9F 2748 pc AL2(WRTDFC) CONTROL FIELD ADDRESS 
ODAO CO 87 ODAC 275 B RTN2B1 GOOD RETURN 
ODAS CO 87 ODA8 276 B +4 
: Co Oo ODA8 CO 87 OESC 277 B WRTER2 ERROR RETURN. 
278 
GDAC 3C 52 1BE8 279 RTH2B1 MVI SNSID,xX'52° PUT ID IN PRINT 
Go oO ODBO 3C 00 1A5E 280 NVI WRTDPC+3,0 SET TO SCAN EQUAL ON ONE SECTOR 
281 
ODBY CO 87 1493 282 B STRTIO TO SCAN EQUAL 
oO oOo ODB8 03 ODB8 283 DC XL1*03* FUNCTION CODE (SCAN) 
ODB9 00 ODB9 288 pc xL1°00¢ CONTROL CODE (EQUAL) 
ODBA 1A5B ODBB 285 DC AL2(WRTDFC) CONTROL FIELD ADDRESS 
QO oG ODBC CU 87 NDEC 286 2 RTN2B2 RETURN FOR NO SCAN FOUND 
oDco CO 87 ODFC 287 B RTN2C1 RETURN FOR SCAK FOUND 
288 
9 @6 opc4 CO 87 1D08 289 RTN2C B SHIPT TO SHIFT BITS FOR DECIMAL NUMBER 
ODC8 1A5B opcd 290 Dc AL2 (WRTDFC) ADDRESS OF SOURCE 
: ODCA CO 87 1D59 291 B CVD TO CONVERT TO DECIMAL KUMBER 
GS oe ODCE 1D4D ODCF 292 pc AL2 (CYLNQ) ADDRESS OF SOURCE. 
ODDO OECE ODD1 293 DC AL2 (ERRO2A) ADDRESS OF DESTINATION 
ODD2 3c 40 OECC 294 MVI ERRO2A-2,C* ° SET A BLANK IN PRINT IMAGE 
c:.0 ODD6 CO 87 1BC1 295 3B PRTSNS TO PRIXT SENSE INFO. 
| *ODDA CO 87 O21A 296 B PRINT TO PRINT THIRD LINE 
| ODDE 06 ODDE 297 pc XL1°96° FLAGS 
C1o ODDF 59 ODDF 298 Dc IL1*89¢ LENGTH 
DATE 1382R70 O6APR70 22NAY70 01A0G70 PROG ID Oa0A-2 © 18 pate 13NAR70 O6APR7O 22maY70 01A0G70 PROG ID Oa0a-2 
EC NO. 571512 571516 571513 §71531 PAGE 3 EC RO. 571512 571516 571513 571531 PAGE 3A 
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oo PAGE 4 | PAGE an 4 
+ a QO% 
aAQa2 SCAB LEQUAL | a0a2 SCAN BQUAL | 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENEST © | © _— ERR Loc OBJECT cope ADDR STHT SOURCE STATEMEET Q- 
ODEO OECE ODE 299 pc AL2(ERRO2A) BESSAGE ADDRESS | 0E96 &0C1C6E3C5D980C4 363 
ODE2 CO 87 0222 300 B HALT TO DCP HALT Cc. 86 OEIE DECSD5C740C180E2 363 QO 
ODE6 A052 ODE? 301 BC XL2°2052° HALT ID OEAG6 C3CTDSSO 363 
ODES CO 87 GpFC 302 B RTHE2C1 | OEAAR CSDSESCID38OCSLG CECE 364% ERROZA DC CL37*EQUAL CORNAND USING HEAD 0, SECTOR XE* 
303 O'S OEB2 D&DECIDSCUROESEZ 368 a 
ODEC CO 87 0212 30% RTH2B2 B PRINT TC PRIET NO SCAB FOUND OEBR CODSCTROCSCSC ICS 368 
ODPO C6 ODPO 365 pc XL1°C6® FLAGS GEC2 SOF06B40E2C5C3 83 368 : 
ODF4 2B ODF1 306 pc IL7°G3° LENGTA Oo oOo OECA LEDSYOETE? 364 O 
ODP2 OPES ODF2 307 DC AL2 (ERRO2F) MESSAGE ADDRESS OECF B2CSCIE3D6D90C3 GEFS 365 ERROZB DC CLS3*SECTOR COUNTER IN CORTROL PIELD NOT STEPPED® . 
ODF& A0S6 ODFS 308 DC XL2°A056° MESSAGE ID OED? DGEXDSE3IC5D940C9 365 
ODP6 CO 87 6222 309 B HALT TO DCP ERROR HALT o © OEDP DSSOC3IDEDSE3D9DE6 365 op 
ODFR 2056 ODPB 310 Dc ¥L2°2056° BELT ID OEE? D34OCKCSC5D3ICURO 365 i 
3791 OEEF DSDEE380E2E3CS5D7 365 ; 
ODPC 3D PR TA85E 372 RTN2C1 CLI WRTDPC*3,Z°PF? TEST SECTOR COUNTER FOR STEPPING. ao CG OEF7 D7C5c4a 365 a 
O#O0 F2 81 40 313 JE RTH2C2 PROCEED IF OK. OEFA E2C3CIDSXCCECICS OF ZC 366 pC CLS1*SCAN PIELD WAS ALTERED APTER GIVING A SCAN EQUAL CO? 
CEO3 CO 87 O21A 316 B PRINT TO PRINT SECTOR COUNTER HOT STEPPED OFO2 DICUSOESCIE240CI 366 : 
GEO7 C6 O£07 315 ae XLI°C6S ; PLAGS 9 +O OFOA D3E3C5D9C5CR4INCI 366 a 
Q208 23 CEOS 346 pc ILi°43e LERGTH OF 12 C6E3ICSD9YOCTICSES 366 me iy 
CEOS GEFS OFOa 347 pc AL2 (ERRO2 85} MESSAGE ADDRESS : GPIA CSDSCTSLOCTINOE2ZC3 366 : : 
OEOB a053 OZOC 318 pe XL2?*2053° MESSAGE IDENTIPICATIOR oO ¢ OF22 C1ID540CSDSESC1ID3 366 a 
OZOD CO 87 0222 319 B HALT TO DCP HALT OF2A 80C3D6 . 266 
OZ11 A053 0£12 320 DC XL2*A0053° HALT ID OF2D DSD4C1DS5SCY OF31 367 ERRO2C DC CLOS*MNAND® ' 
; 321 o,c GF32 CB8CSCICASOSOS0E2 OF6S 368 pc CL52*HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER AB * Che 
0£913 3D 00 7ASD 322 RTW2C2 CLI. wWRTDFC+2,0 _ CHECK HEAD & SECTOR HO. APTER ; OF3A CSCIEZDEDI“LOC2EB 368 
Me 323 © SCAN IS COMPLETED | OF&2 E3C540D6C680C3D6 368 - 
OE17 ¥2 81 10 324 JE RTN2D PRGCEED IP OK Oo eo OPGA DS5SE3D9D6D3480C6C9 368 oye 
OEIA CO 87 O21R 325 B PRINT , TO PRINT ERROR OF52 C5D3C440C3CBC1IDS 368 
ORIE C6. OE1E 326 pc XL1'C6¢ FLAGS OPSA C7C5C440C I1C6E3CS ' 368 
OEIP 43 VEIP 327 pc IL167* | ‘LENGTH oO G OF 62 D940C140 368 o 
OF20 CF7a 0£21 328 BC AL2(EZRRO2D) BHESSAGE ADDRESS OF66 D6D5CS80E2CSC3E3 OF7& 369 ERRO2D LC CLIS*ONE SECTOR SCAN® 
OE22 aoss 0£23 329 pc XL2'a0S4" MESSAGE IDENTIFICATION ; OFGE D6D940E2C3C1D5 - 369 : : 
. GE2& CO 87 0222 330 B 4HALT TO DCP HALT Co C¢ OP75 E3CB8CSHOD7DSCSES OFAS 370 pC CLUS'THE PREVIOUS ERPORS OCCURRED WHILE DOING & WRITE * oe 
_Q0E2€ a05% OE29 331 pc KL2*A0S4? HALT ID OF7D CIDGESE240CSD9D9 370. 
+332 a OF85 D6&DSE24056C3C3E4 370 —t:t—“‘<‘i‘CS a 
OE2A C2 02 1DC7 333 RTRZD LA WORK, XR2 oi, SET XR2 TO. POINT TO WORK AREA oOo CO. OF8D DIDICSCS4OEGCBC9 370 2: 
OEZE BD 00 006 : 33% RTN2F .CLI O0(,XR2),0 CHECK WORK AREA FOR RO CHANGE — OF95 D3C540C4D6C9D5C7 370 | 
O£E31 F2 01 18 335 JNE RTN2E JUNP TO PRINT IP SCN. PLD. IS CHG. OFOD SOCISOE6D9C9EICS 370 > ; 
OE34 E2 02 01 336 LA 1(,XR2) ,XR2 MOT DONE, INCREMENT XR2 Oo SG OFAS 40 370 - 5 
0£37 34 02 1A7D 337 ST SNSXR2,XR2 HO CHG, SET TO CHECK NEXT BYTE OFA6 CHC1E3C180C3D6D4 OFBE 371 ERRO2E DC CL25"*DATA COMBAND USING HEAD 0° i 
O£3B OD 01 1A7D 19C6. ' 338 “CLC SNSIR2(2) ,WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. OFAE D&CIDSCR4OESE2ZC9 371 Z 
OE&1 P2 81 18 339 JE RTN2G TO ROUTINE END. oO © OFB6& DSC7S%0C8C5C1IC440 371 OO 
0244 CO. 87 OE2ZE -340 a: RTN2F CHECK NEXT BYTE OYBE FO _ 371 a 
341 d OFBF E2C3C1D540C6D6E4 OPEI 372 ERRO2F DC. CLU3"SCAN FOUND NOT SET AND OR DETECTED BY A TIO* a 
OE48 CO 87 O2TA 342 RTN2E B PRINT. TO PRINT SCAN FIELD KAS CHANGED Q © OFC? DSCE4ODSD6E340E2 372 : ou 
OEKC C6 OfYC 343 pc XL1°C6? FLAGS OPCF C5E340C1D5C4&40D6 372 Zl 
OF4D 38 OED 388 - pe IL1°56* LENGTH OFD7 D9SOC4CSE3C5SC3E3 372 4 
OEVE OF31 OEP 385 Dc AL2(ERRO2C) NESSAGE ADDRESS o oOo OFDF C5C440C2Z840C140 372 9°. 
0250 2055 OE51 346 DC XL2*a055? MESSAGE IDENTIPICATIO¥ OFE7 E3C9D6 372 i 
OE52 CO 87 0222 3487 B . HALT TO DCP HALT us a 
0E56 A055 0ES7 348 pc XL2'A055° HALT ID o 9 o 
3489 
OES58 CO 87 OD46 350 RTN2G B RTN2A ie 
351 o ; 3 coud 
OESC 3C 12 1BE8 352 WRTER2 MVI  SNSID,X'12* PUT ID IN PRINT : 
0E60 CO 87 1BC1 353 B PRTSNS TO PRINT STATUS ERRORS: i Sace 
354 Oo 9s on 
O£64 CO 87 021A 355 B PRINT TO PRIAT WRITE ERROR 4 
OF68 06 0E68 356 DC —s-aXL1°068 FLAGS : 
OE69 UA OZ69 357 DC IL1'748 LENGTH Oo ee So: 
OE6A OFBE OE6B 358 DC AL2(ERRO2E) MESSAGE ADDRESS 
OE6C CO 87 0222 359 B HALT TO DCP ERROR HALT “ 
0£70 A012 0£71 360 DC XL2*a012¢ HALT ID 9 oOo On 
0E72 CO 87 ODN6 361 B RTN2A 
362 
OE76 E3C8CS4OD7D9CSES OEA9 363 Dc CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAN * 9 6 mo 
OE7E C9D6EGE240CSD9D9 363 
OE86 D6D9E240E6C599C5 363 > 
OZ8E 40D7D9CSE2C5D5E3 363 Oo 9 oy 
DATE 13MAR70 O6APR70 22MAY70 01A0G70 PROG ID 6a0a-2 QO © bate 13M ARTO O6APR70 22KHAY70 01AUG70 PROG ID OAOA-2 ok 
EC WO. 571512 571516 571513 571531 PAGE & EC NO. 571512 571516 571513 571531 PAGE . ak . 
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ee PAGE 5 PAGE 5a 
a a o s. o 
-a0a2 Stan B2£OQBatL aoa2 SCAN EQUAL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEREST © OO _ eae Loc ossecr cope ADDR STMT SOURCE STATESEST Q 
374 * ROUTINE NO. 03, TEST SETTING OF THE * 1090 1177 1091 4&2 DC AL2 (EBRRO3A) HESSAGE ADDRESS i 
375 * SCAN EQUAT. SENSE BIT * oO So 1092 CO 87 0222 843 B HALT TO DCP MALT 3 
376 ¢ USING AN EQUAL CONDITION 1096 A052 1097 4Ra pe XL2*a052° HALT ID 
377 1098 CO 87 10aC 845 B RTN3C1 
orza 0 OPEA 378 8TN3 DC XL1903¢ ROUTINE NOSBER 0:9 8N6 CG 
OFES 00 OFEB 37S oc XL1°00° ROUTINE FLAGS 109C CO 87 O21k 847 RTN3B2 B PRINT TO PRINT NO SCAN FOUND 
OPEC 1178 OPED 380 c AL2 (RTNS) ADDRESS OF WEXT ROUTINE PREFIX 10a0 C6 4ORO 848 pc XLi*c6? FLAGS 
381 0; 9 1041 2B 1OAT 489 pc sIL2*43¢ LENGTH Cs 
OFEE 3D 00 0509 382 CLI SETSW,O HAVE PARAMETERS BEEX ENTERED? 10A2 OFE9 1083 450 DC AL2 (ERRO2F) MESSAGE ADDRESS 
OFP2 CO 81 OADD 383 - BE SETDSK BRANCH IP NO ' 90a% A056 10a5 851 DC XL2"a056° MESSAGE IDENTIFICATION 
OFF6 CO 87 OBSF 384 RTN3A OB TSTSPS Qe 1s 10a6 CO 87 0222 852 B HALT TO DCP ERROR HALT ° 
OFFA OC 00 1a5C OBOA 385 MVC WRTDFC+1(1) ,TRACKE SET WRITE ADDRESS TO CE TRACK 10AA 2056 10AB 453 DC XL2*°a056! HALT ID 
1000 3c 00 1a5D 386 MYI - WETDPC+2,0 SET FOR HEAD 0, SFCTOR 0 asa 
1004 3C 69 1BES 337 NVI SWSID,09 INSERT ID IM PRINT © o 10aC CO 87 1268 855 RTH3C1 B SENSE TO SENSE DEVICE STATUS oO 
388 10B0 02 10B0 456 pc AL1(STATO1) ASK FOR SENSE BYTES 0 & 1. 
1008 CO 87 1a93 389 8B STRTIO TO SEEK CE TRACK 4S7 
100c 00 100C 390 pc XL1908 FUNCTION CODE (CONTROL) eo ¢ 1081 38 80 1A7B 858 TBN STATUS,X*80* TEST THE SCAN EQUAL BIT FOR OW o 
100D 00 100D 391 DC XL1°0° CONTROL CODE (SEER) 10B5 ¥2 10 10 859 JT RTA3D PROCEED IF OK 
100EB 1458 100F 392 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 10B8 CO 87 O27A 860 B PRINT TO PRINT SCAN EQUAL SENSE BIT NOT OF 
1010 CO 87 102~ 393 B BRTN3A1 GOOD RETURN CG o 10BC C6 10BC 461 pc XL1°C6* FLAGS o 
1014 CO B7 1018 394 B #48 10BD 50 10BD 462 Dc IL1*80° LENGTH 
1018 CO 87 1BCI - 395 B PRTSNS TO DECODE ERROR 10BE 111B 10BF 463 DC =‘AL2(ERRO38B) MESSAGE ADDRESS 
101C CO 87 O21A 396 B PRINT TO PRINT CGC Oo 10CO A057 10C1 468 DC. XL2*a057° MESSAGE IDENTIFICATION % 
1020 06 1020 397 Dc XL1°06" FLAGS _ 10C2 CO 87 0222. 865 B HALT TO DCP HALT 
1021 35 1021 398 pc IL1*53¢ LENGTH . _ 10C6 A057 10C7 466 pc XL2"A057# HALT ID 
1022 ocB8 1023 399 pc AL2 (ERRORS) “MESSAGE ADDRESS Oo oOo 867 n 
1024 CO 87 0222 400 B HALT TO DCP HALT 10C8 CO 87. OFF6 468 RTH3D 8B RTN3A 
1028 A009 1029 401 pc XL2*A009* HALT ID 869 
402. —«. . ee a . Oo Oo 10CC. E2C3C1DSYOCSDBES 10FF 470 DC CL52*SCAN EQUAL SENSE BIT, (BIT 0 BYTE 1), WOT OW AFTER D* Oo 
102A CO 87 194F 803 RTN3A1 B TSTSEK TO CHECK POR A GOOD SEEK 19D& C1N340EB2C5D5E2C5 870 ; ; 
. 408 ane 10DC.40C2C9E36B404DNC2 870 en 
1022 3C GO 1EC6 405 RTN3B AVI wWORK*+255,0 SET WRITE FIELD OO 1OE4 CIE34OPO40C2E8E3 970 ao 
1032 OC PE 1EC5 1EC6 “406 - BVC) —- WORK #254 (255) ,WORK*255 1GEC CS4OF1SD6B40D5D6 870 
407 10F4 E340D6D540C 1C6E3 470 ‘ 
1038 3C 12 1BE8 808 BVI SNSID,X*12! POT ID IH PRINT Qo Oo 10FC cC5D940C4 -470 Te ie 
103c 3c 00 1ASE 809 AVI WRTDFC+3,0 SET TO WRITE ONE SECTOR -, 1100 D6C9D5C74OC140D6 111B 471 ERRO3B DC CL28*OING A ONE SECTOR SCAN EQUAL? 
810 ; 1108 D5C540E2C5C3E3D6 471 ; 
1040 C2 01.1DC7 911 LA WORK, XR1 SET WRITE DATA ADDRESS Go| 0 1110 D940E2C3C 1D5a0cs: a71 a 
1044 3% 01 1B7D 412 ST DFDR,ZR1 IN DATA CONTROL FIELD ! 1118 D8E4C1D3 971 
813 po 111C E3C8C5S4YOD7DIC5SE5 124F 472 pc CL52°THE PREVIOUS ERRORS WHERE PRESENT AFTER DOING A SCAN*® ; 
1048 CO 87 1A93 414 B STRTIO TO WRITE DATA oO 1124 C9ID6ESE240C5D9D9 472 o 
104c 02 104C (415 DC XL1*02° FUNCTION CODE (WRITE) 112C D6D9E240zZ6C8CS5D9 972 
104D 00 104D 416 pc XL1*00! CONTROL CODE (DATA) 1134 CS8OD7DICSE2C5D5 a72 “al 
10GE 1A5B 104F 417 pc AL2 (WRTDFC) CONTROL PIELD ADDRESS CG 6 113C E340C1C6E3C5D980 972 2 
1050 CO 87 105C 418 B RTW3B1 GOOD RETURN 1148 C&’D6C9DSC7480C140 872 
1054 CO 87 1058 419 B +4 114 £2C3C1D5 472 
1058 CO 87 OESC. 820 B WRTER2 ERROR RETURN Go G 1150 GOCSDSE4C1D340D6 1177 &73 ERRO3A DC CL40" EQUAL OPERATION WITH AN EQUAL CONDITION® -Q 
421 1158 D7C5D9C1E3C9D6D5 - 473 
105¢ 3c 52 1BE8 822 RTN3B1 MVI  SNSID,X*52°* PUT ID IN PRINT 1160 4OE6CSE3C840C1D5 873 
1060 3C 00 1A5E 423 BVI WRTDFC+3,0 SET TG SCAN EQUAL ON ONE SECTOR GC ¢ 1168 4OCSD8ENC 1D340C3 873 -) 
924 1170 D6DSCUYCIE3CIDEDS 873 
106% CO 87 1A93 425 B STRTIO TO SCAN EQUAL ” 
1068 03 1068 426 Dc XL1*03° FONCTION CODE (SCAW) Oo oO “ 
1069 00 1069 427 pc XL1°00° CONTROL CODE (EQUAL) 
106A 1A5B 106B 428 DC AL2 (WRTDFC) CONTROL FIELD _ 
106C CO 87 109C 429 B RTN3B2 RETURN FOR WO SCAN POUND © 6 vs 
1070 CO 87 10aC 430 B RTH3C1 RETURH POR SCAN FOUND 
431 
1074 CO 87 1D08 432 RTN3C OB SHIPT TO SHIFT BITS POR DECIMAL HUMBER oOo 9 a 
1078 1A5B 1079 433 Dc AL2 (WRTDPC) ADDRESS OF SOURCE 
107A CO 87 1D59 934 B CVD TO CONVERT NUMBER TO DECIMAL ; 
107E 1D4D 107F 435 Dc AL2(CYLNO) ADDRESS OF SOURCE* o oO 7) 
1080 1177 1081 436 pc AL2 (ERRO 3A) ADDRESS OF DESTINATION 
1082 3c 4G 1175 437 NVI ERRO3A-2,C' * SET A BLANK IN PRINT IMAGE 7 
1086 CO 87 18BC1 438 B PRTSHNS TO PRINT SENSE INFO. Oo Oo fo 
108A CO 87 O21A 439 B PRINT TO PRINT THIRD LINE 
108E 06 108E 440 DC XL1°06° FLAGS 
108F SC 108P 441 DC IL1"92° LENGTH 9 6 Oo. 
DATE 13MAR70 O6APR70 22HAY70 01A0G70 PROG ID Oa0a-2 © © pare 13MAR70 O06APR70 22MAY70 01A0G70 PROG ID OAOA-2 i 
EC WO. 571512 571516 571513 571531 PAGE 5 EC NO. 571512 571516 571513 571531 PAGE SA 
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a0a2 
ERR LOC 


1778 
1179 
T7A 


VIC 
4180 
4188 
1988 
118E 
4192 


1196 
T19k 
1198 
V19C 
119E 
VIA2 
T1A6 
JIAA 
TIAE 
TAP 
1130 
11B2 
1136 


11B8 


11BC 
110 


V1C6 
11Ca 


TICE 
11D2 


11D6 
T1IDA 
11D 
11Dbc 
TIDE 
TIE2 
T1E6 


TIEA 
T1IEE 


V1P4 


ViFs 
VRC 
ViFD 
1IFE 
1200 
1208 


1208 
120C 
1210 
1211 
1212 
1214 
1218 


DATE 
Ec WO. 
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OBJECT CODE 


04 


FASB 


co 
co 
co 
co 
06 
35 


37 
87 
87 
87 


OCcBB 


co 
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A009 


co 


3c 
oc 
3c 
3c 


C2 
34 


co 
92 


87 


0G 
FE 


12 


00- 


01 
01 


87 


00 - 
TASB 


‘co 
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STHT SOURCE STATEMENT 
a75 * ROUTINE NO. 04%, TEST PESET OF SCAN EQUAL SENSE BIT * 
até @ ON A SCAN EQUAL OPERATION WHERE THERE * 
a77 ¢ IS WOT AN EQUAL CONDITION 
ats 
979 RTNS DC XL1°048 ROUTINE BKUMBER 
&80 pc XL1°008 ROUTINE FLAGS 
881 DC AL2 (RTHS) ADDRESS OF NEXT ROUTINE PREFIX 
482 
&83 CLI SETSH,0 HAVE PARAMETERS BEEN ENTERED? 
484 BE SETDSK BRANCH IF wO 
485 RTNSA B TSTSPE 
486 AVC WRTDPC+1(1), TRACKS SET WRITE ADDRESS TO CE TRACK 
487 NVI WKTDPC+2,0 SET POR HEAD 0, SECTOR 0 
888 BVI  SNSID,09 INSERT ID IN PRINT 
4B9 
490 B STRTIO TO SEEK CE TRACK 
4914 pc XL1°08 PUNCTION CODE (CONTROL) 
ac2 pc XL1°O? CONTROL CODE (SEEK) 
493 pc AL2(WRTDFC) CONTROL PIELD ADDRESS 
a9u B RINGA1 GOOD RETURN 
495 B | 
496 B PRTSNS TO DECODE ERROR 
897 B PRINT TO PRINT 
498 pc. XL1"°06* PLAGS 
499 pc IL1°53° _ LENGTH 
500 pc AL2 (ERRORY) MESSAGE ADDRESS 
501 B HALT TO DCP HALT 
502 pc XL2*a009° HALT ID 
503 . 
504 RTNGA1 B. TSTSEK TO TEST FOR A GOOD SEEK 
505 vb os 3 
506 RTNUB MSVYI WORK*+255,0 SET WRITE PIELD 
507 MVC WORK¢254(255) ,WORK*#255 
508 
509 MYVI SNSID,X°12° PUT ID IR PRINT. 
510 BVI UWRTDFC+3,0 SET TO WRITE 1 SECTOR 
511 a 
512° LA WORK, XB1 SET WRITE DATA ADDRESS 
513 ST DFDR, XB1 IN DATA CONTROL FIELD 
518 
515 B STRTIO TO WRITE DATA, (1 SECTOR) 
516 pc XL1*02" FUNCTION CODE (WRITE) 
517 pc XL1*°00° -CONTROL CODE (DATA) 
§18 DC AL2 (WRTDPC) CONTROL FIELD ADDRESS 
519 B RTN&B1 GOOD RETURN 
520 B oy 
521 B WETER2 ERROR RETURN 
522 ; 
523 RTNYB1 MVI  SNSID,x'58* PUT ID IN ERINT 
524 HVC) WRTDFC+3(2) ,TWOZR SET TO START AT TRACK 0, SECT. 0. 
525 
526 MVI WORK+100,X°FE? SET DATA PIELD FOR NON-COMPARE 
527 
528 B STRTIO TO READ DATA 
529 be XxL1#03° FUNCTION CODE (SCAN) 
530 pc XL1*°00° CONTROL CODE (EQUAL) 
531 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
532 B RTNACI ‘RETURN FOR NO SCAN FOUND (EXPECTED) 
33) B RINUB2 RETURN FOR SCAN FOUND (NOT EXPECTED) 
34 
535 RTNSC B PRTSNS TO PRINT SENSE INFO 
536 B PRINT TO PRINT 3RD LINE 
- §37 pc XL1°06° FLAGS 
538 pc IL1*95! LENGTH 
539 pc AL2 (ERROSA) MESSAGE ADDRESS 
540 B HALT TO DCP HALT 
541 pc XL2*a058° HALT ID 
542 
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IBA MAINTENANCE DIAGNOSTIC PROGHAS PART HO. 5129638 IBM MAINTEMAWCE DIAGROSTIC PROGRAS PART NO. 5129638  « 
: PAGE 7 ee a7 4 
a) , 6. 
aoa2 SCAB EQUAL AOA2 Scauw EQUAL : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © © — ERR LOC OBJECT CODE BDDE STAT SOURCE STATEMENT Oo 
571 * ROUTINE NO. 05, TEST SCAN EQUAL BY SCANNING MULTIPLE * 1801 CO 87 1405 639 B £44 
572 © SECTORS WHERE 23 SECTORS HAVE BEEN + G 8 1805 CO 87 GESC 680 B WRTER2 ERROR ON DATA WRITE & 
573 * WRITTEN WITH ZEPOS, AND THE 24'°TH SECTOR # ; 644 
578 ¢ IS WRITTEN WITH ALL ZEROS WITH THE * | 1809 3C 18 1ASE 642 RTNSD SVI WRTDFC+3,2% SET TO SCAN 28% SECTORS 
575 * EXCEPTION OF ONE BYTE WHICH IS -Aa- * Oo ,9 140D 3C 00 1A5D 643 BVI WRTDFC+2,0 SET TO START SCAN AT SECTOR 0 3 
576 1411 3c 52 1BE8 644 BVI SKSID,X*52° PuT ID IM PPIET 
1352 05 1352 577 RBTES vc XL1°05? ROUTINE NUMBER 645 
1353 00 1353 578 pc KL1¢00° ROUTINE FLAGS © | Ss 1815 CO 87 1193 646 B STRTIO TO SCAH 28 SECTORS os 
1354 1622 1355 579 DC AL2(RTH6) ADDRESS OP NEXT ROUTINE PREFIX 1419 03 1819 687 DC XL1°03* FUNCTION CODE (SCAB) 
580 187A 00 181A 648 DC XKL1°00" | CONTROL CODE (EQUAL} 
1356 3p 00 OBO9 561 CLI SETs#,0 HAVE PARANETERS BEEN EHTERED? o;?e 121B 1A5B 141c 0649 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 9 
1358 CO 81 OAOD 582 BE SETDSK BRANCH IF KO | 141D CO 87 1438 650 B RTNSD1 RETURN FOR NO SCAN FOUED, (MOT EXP.} 
135% CO 87 OBSF 583 RTBSA B TSTSPH 6 5 1421 CO 87 185D 651  B RTESE RETURN FOR SCAN FOUND, (EXPECTED) 
588 3 652 : es 
1362 OC 00 1A5C OBOR 585 BVC  WRIDPC+1(1), TRACKS SET CYLINDER ADDRESS TO CE TRACK 1425 CO 87 1BC1 653 B PRTSES TO PRINT SENSE I#PO. 
1368 3c 00 1ASD 5 86 BVI WRTIDPC#2,0 SET FOR BEAD 0, SECTOR 0 1429 CO 87 0217~A 654 B PRINT TC PRINT 3RD LINE 
136C 3C 09 1BE8 587 EVI SBSID,09 INSERT ID EN PRIBT oO © 142D 06 1%2D 655 DC XL1*06? FLAGS 2 
588 142B 4&7 1922 656 DC IL1°718 LENGTH 
1370 CO 87 1A93 589 B STRTIO TO SEEK CE TEACK 142P 14F2 1430 657 DC AL2 (ERROSA) MESSAGE ADDRESS 
1374 00 - 1374 $90 pc XL1NO® FUNCTION CODE (CONTROL) Qo oO 1431 CO 87 0222 658 B HALT TO DCP HALT Os 
1375 00 1375 591 pc XL7*°98 CONTROL CODE (SEEK) 1435 A052 1436 659 DC XL2*2052° HALT ID 
1376 1A5B 1377 $92 pc ALZ (WBTDPC) CONTROL PIELD ADDRESS 1437 CO 87 145D 660 B RTNSE PROCEED TO WEZT CHECK 
1378 CO 87 1392 593 B RTN5a1 GOOD RETURN oO og 661 “ 
137C CO 87 1380 594 B ey ; 183B CO 87 1D08 662 RTNSD1 B SHIFT TO SHIFT BITS FROM SECTOR BYTE 
1380 CO 87 1BC1 595 B PRTSHS TO DECODE ERROR 143F 157C 1440 663 pc AL2(TSTSEC-2) ADDRESS OF DATA 
1384 CO 87 O21A 596 B PRINT TO PRINT oO 0 1441 CO 87 1D59 664 B CyD TO CONVERT TO DECIMAL 
1388 06 1388 597 pc XL1*°06? PLAGS 1445 1DaD 1846 665 pc AL2 (CYLNO) ADDRESS OF SOURCE : 
1389 35 1389 598 Dc IL1*53# LENGTH 1447 1530 "1848 666 DC AL2 (ZERROSB-10) ADDRESS OP DESTINATION 
138A OCB8 1388 599 pe AL2 (ERRORS) MESSAGE ADDRESS Oo 14849 3C 4O 1522 667 BVI ERROSB-12,C* & : 
' 138C CO 87 0222 600 B HALT TO DCP HALT ; . 668 - 
1393 a009 1391 601 DC XL2"*A0098 HALT ID 14ND CO 87 O21~A 669 B PRINT TO PRINT NO SCAN FOUSD 
< . 602 oO oO 1851 C6 1451 670 DC XL1°C6! FLAGS : 
1392 CO 87 194P 603 RTNSA1 B TSTSEK TO CHECK FOR A GOOD SEEK 1452 48 1452 671 pc IL1°72° LENGTH 
608 : . 1853 153A 1854 672 pc AL2 (ERROSB) MESSAGE’ ADDRESS 
1396 3c 00 157E 605 ss SWI-s« TSTSEC,O SET TEST SECTOR NUMBER oO: oO 1455 A056 1456 673 pc XL2*2056" MESSAGE IDENTIFICATION 
139A C2 01 1DC7 606 RTNSB LA WORK, XR1 SET WRITE DATA ADDRESS _ 1457 CO B7 0222 678 B FALT TO DCP HALT 
139E 3&8 01 1B7D 607 ST° DPDR,XR1 IN DATA CONTROL FIELD 145m A056 W45C 675 pc XL2*a056° HALT ID . 
os 608 O:.c 676 ~ r 
13A2 3C 00 1FC6 609 BVI wWORK4+511,0 SET : 145D OD 00 1A5D 157E 677 RTNSE CLC W8RTDFC+2(1),TSTSEC DID SCAN EQCAL OCCUR OM 
4326 OC FF 1FC5 1FC6 610 MYC WORK+510(256) ,WORK#511 DATR 678 * EXPECTED SECTOR ? 
13AC OC FE 1EC5 1EC6 611 SVC WORK+254 (255) ,WORK+255 FIELD . 0 | OG 1463 F2 81 34 679 JE RT ESP JUMP IPF YES 
13B2 3C 00 1A5D 612 NVI WRTDPC#2,0 SET TO START WRITE AT SECTOR 0 | 1466 CO 87 1D08 680 B SHIFT TO SHIFT SECTOR BITS 
613 146A 1A5B 146B 681 DC AL2 (WRTDFC) CCNTROL PIELD ADDRESS 
13B6 3c 00 1A5E 614 RTXSB1 AVI WRETDFC+3,0 SET TO WRITF ONE SECTOR Oar 146C CO 87 1D59 682 B CVD TO CONVERT TO DECINSAL 
13BA CO 87 1493 615 B STRTIO TO I/O SUBROUTINE 1470 D&D 1471 683 DC AL2(CYLNO) ADDRESS OF SOURCE 
13BE 02 13BE 676 pC . XL1"02? FUNCTION CODE (WRITE) 1472 155A 1473 684 DC AL2(ERRO5D) ADDRESS OF DESTINATION 
13BF 00 13BP 617 pce XL1*0O8 CONTROL CODE (DATA) © 6 1874 3C 40 1558 685 M¥I  ERROSD-2,C* ° 
13C0 1A5B 13C1 618 pe AL2 (WRTDFC) CONTROL FIELD ADDRESS 686 
13C2 CO 87 13CE 619 B RTNS5S2 GOOD RETURN 1478 CO 87 1D08 687 B SHIPT TO SHIFT BITS FOR EXPECTED 
13C6 CO 87 13CA 620 B ee4 oOo a 147C 157C 147D 688 pc AL2(TSTSEC-2) ADDRESS OF EXPECTED FIELD 
13CA CO 87 OFSC 621 B WRTER2 ERROR RETURN 1&87E CO 87 1D59 689 B CVD . TO CONVERT FYPECTED TO DECIMAL 
622 1482 1D4D 1483 690 DC AL2(CYLNC) - ADDRESS OF SOURCE 
13CE 3D Sc 1A5D 623 RTNSB2 CLI W&RTDFC+#2,Xx'5C! TZST FOR SECTOR 23 O° oe 4484 157D 1485 691 DC AL2 (ERROSC) DESTINATION ADDRESS 
13D2 F2 81 OA 624 JE RTNSC JUMP TO WRITE TEST SECTOR IF DOKE 1486 3C 40 1573 692 MVI ERROSC-2,C* ° 
13D5 O£ 00 1A5D 19C4 625 ALC WRTDFC+#2(1) ,ORNESEC NOT DONE,STEP TO NEXT SECTOR 693 
13DB CO 87 13B6 626 B RTN5B1 TO WRITE NEXT SECTOR Go. << 146k CO B7 O2TA 694 B PRIKT TO PRINT SCAN EQUAL ON INCORRECT 
627 695 * SECTOR 
13DP 3c AA 1F2B 628 RTNSC MVI READ+100,X°AA! SET TEST SECTOR WRITE PIELD TNBE C& 14BE 696 DC XL1°C6t PLAGS = 
13E3 C2 01 1EC7 629 LA READ, XR1 SET DATA FIELD ADDRESS oO oo 1U8P 43 148P 697 pc IL1°67? LENGTH O 
1327 34 01 IB7D 630 T DFDR, XR1 IN DATA CONTROL FIELD 1490 157D 1491 698 pc AI.2(ERROSC) MESSAGE ADDRESS 
13EB 3C 00 ASE 631 MVYI WRTDFC+3,0 SET TO WRITE ONE SECTOR 1492 AOSC 1493 699 DC XL2"a05c® MESSAGE IDENTIFICATION 7 
13EF OC 00 1A5D 157E 632 MVC) WRTDFC+2(1),TSTSEC SET SECTOR NUMBER IN CONTROL FLD. Co 1494 CO 87 0222 700 B HALT TO DCP ERROR HALT o 
633 1498 aA0SC 1499 701 BC XKL2*a0Sc? HALT ID 
13F5 cO 87 1493 634 B STRTIO TO WRITE THE TEST SECTOR 702 a 
13F9 02 13F9 635 c XL1"02! FUNCTION CODE (WRITE) Oo: 0 149A OE 00 157B 19C8 703 RTNSF ALC TSTSFC(1},ONESEC STEP TEST SECTOR NO. ¢1 aa 
13FA 00 13FA 636 Dc XL1*'00°8 CONTROL CODE (DATA) 1540 3D 60 157E 704 CLI fTSTSEC,X*60° HAVE ALL SECTORS BEEN USED ? 
13FB 1A5B 13FC 637 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 14A4 CO 81 135E 705 RTNSG' BE RINSA ae 
13FD CO 87 1809 638 B RTNSD GOOD RETURN O:9o 14A8 CO 87 139A 706 B RTNSB TO USE NEXT SECTOR IF NO 3 
| 
DATE. 13HAB70 O6APR70 22mAY70 01A0G70 PROG ID OAOA-2 G | C DATE 13HAR70 O6APR70 22m aY70 01A0G70 PROG ID OA0A-2 o 
EC NO. 571512 571516 571513 571531 PAGE 7 EC BO. 571512 571516 571513 571531 PAGE 7A 
© | © 9g 
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DC XL1°C6! 

DC IL1'77! 

pc AL2 (2 RR06B) 
pc XL2°A0SE? 

B HALT 

pc XL2*AOSE* 

B TSTDAT 

pc AL2 (WORK) 
CLI wRTDPC+3,00 
JE RTKGE 

B PRINT 

DC IL1°C6! 

De IL1#89" | 
pc AL2(ZRNOGC) © 
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AL2 (8T"8) 


SETSW,0 
SETDSK 
TSTSPW 


WRTDPC+1(1) , TRACKE 


WRIDFC+2,0 
SUSID,09 
STRTIO 
XL1°0° 
XL1°0°* 

AL2 (WRTDPC) 
RIN7AI 

Soy 

PRTSHS 
PRIST 
XL1°06* 
IL1°53¢* 

AL2 (ERROBY) 
HALT 
XL2*a009° 
TSTSEK 
WORK+¢255,X°55° 


ROUTINE RUABER 
ROUTIWE FLAGS 
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BRANCH IPF WO 


SET SEEK ADDRESS TNO CE TRACK 


SET FOR HEAD O SECTOR 0 


PUT ID IN PRINT 
SO SEEK CE TRACK 
PUNCTION CODE 
CONTROL CODE (s 


(CONTROL) 


22K) 


CONTHOL FIELD ADDRESS 


GOOD RETOUR 


TO DECODE ERROR 
TO PRI¥T ERROR 
PLAGS 

LENGTA 

MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO TEST POR A GOOD SEZK 


Set 


WORK*254 (255), WORK*255 DATA AREA . 


@RTDPCe3,0 


WORK, X81 
DFOR, x1 


“STRTIO 


XL1°02°- 
XL1°O? 
AL2 (UBTDPC) 


“RBTNTBI 


eG 


_ WRTER2 


SWSID,X*52° 
WRTOFC?e3,0 
Static | 
XIL1°O3° 
XLU°OCc® 
AL2(USTDPC) 
RIN7B2 
RTNIC1 


PRTSUS 
XL1°06° 
“237°92¢ 
AL2(ERRO3A) 
HALT 
XL2*a0S2° 
RTN7C1 


PRINT 
XLi*c6* 
IL1*43°* 

AL2 (ERRO2PF) 
XL2*a056° 
HALT 
XL2*a056° 
RTS7A 


_SET TO WRITE ONE 


SECTOR 


SET WRITE DATA ADDRESS 
IM DATA CONTROL PIZLD 


TO WRITE OWE SECTOR OF DATA 
FUKCTION CODE (wR 


CONTROL CODE 
CONTROL PIELD ADD 
GOOD RETORS 


ERROR RETURN FOR WRITE DATA 


POT ID IM PRINT 
SET TO SCAM ONE S 
TO SCAN EQUAL 
FUNCTICH CODE (SC 
CCHTROL CODE 
CONTROL FIELD ADD 
RETURN FOR NWO SCA 


ITE) 


(DATA) 


Rz2ss 


Ector 


AX) 


(EQUAL) 


RESS 
N POUND 


RETURN POR SCAN FOUND 


TO PRINT SENSE IN 
FLAGS 


LENGTE. 

SESSAGE ADDRESS 
TO DCP HALT 

HALT ID 

TO PRIKT NO SCAN 
FLAGS 

LENGTH 

MESSAGE ADDRESS 
MESSAGE ID 


TO DCP ERROR HALT 
HALT ID 
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aoa2 SCAB EQUAL AOA2 SCAN EBQUAL oes 
ZRR LOC OBJECT CODE ADDR STMT SOURCE STATERENT © © _— ese Loc opsect cope ADDR STHT SOURCE STATENEST O: 
908 ® ROUTINE NO. O08, CHECK FUNCTION OF SCAW EQUAL * 977 © SUBROUTINE TO DETERMINE IF DATA ADDRESS ® as 
909 WHERE OWE S5YTE IS COMPARED * 6.9 978 * IS NOT STEPPED ° Oo” 
910 © AND 255 BYTES ARE MASKED OFF * ; 979 , 
186a 08 186A 911 BTNB DC XL1*°08¢ ROUTINE WOSBER 980 ‘ 
186B 00 186B 912 DC XL1*008 ROUTINE FLAGS G Oo 191A 38 08 1982 981 TSTDAT ST DATEXT+3, ARR SAVE RETORN ADDRESS a 
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1872 CO 81 OaOD 916 BE SETOSK BRASCH IF HO 192D CO 87 1A68 985 B SENSE TO STORE DATA ADDRESS 
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1896 CO 87 O21A 927 B PRINT TO PRINT ERROR oO:196 1985 CO 87 0222 996 B HALT TO DCP HALT 
189A 96 189A 928 DC XL17068 FLAGS | 1989 AO03E 198A 997 DC XL2*a03E* HALT ID 
189B 35 189B 929 pc IL1'53¢ LENGTH 194B CO 87 0000 998 DATEIT B +-* EXIT 7 
189C OCBB 189D 930 Dc AL2 (ERRORS) MESSAGE ADDRESS © | GS 999 : 
189E CO 87 0222 931 B HALT TO DCP HALT 1000 : 
18A2 A009 18A3 932 DC XL2"A009* HALT ID | 1001 * CONE HERE TO TEST FOR A GOOD SZEK ° 
18A4 CO 87 194P 933 RTNSA1 B TSTSEK TO TEST FOR A GOOD SEEK ow @ @ 1002 
18A8 3C 00 1EC6 934 RTHSB MMVI WORK+#255,0 SET . 194F 3% O08 1983 . 1003 TSTSEK ST SEKEXT+3, ABR - SAVE RETURE ADDRESS 
18AC OC FE 1EC5S 1£EC6 935 MVC WORK+258 (255) ,WORK*#255 WRITE AREA 1953 CO 87 146% 1004 SKTSTA B SENSE TO SENSE DEVICE STATUS 
18B2 3C 00 1ASE ; 936 MVI WRTDFC+3,0 SET TO WRITE ONE SECTOR - oO 98 1957 02 3957 1005 DC AL1(STATO1) BYTES 0 6& 1. 
18B6 C2 01 1DC7 937 LA  WORK,XR1 SET WRITE DATA ADDRESS 1006 . i 
18BA 34 01 1B7D 938 ST DFDR,XB1 IN DATA CONTROL FIELD 1958 38 10 1A7B 1007 _ TBN STATUS,X*"10° TEST THE SEEK BUSY. SENSE EIT . 
“ 18BE CO 87 1A93 _ 939 B STRTIO TO WRITE ONE SECTOR OF DATA oO G 195C CO 10 1953. “1008 ° BT §$SKTSTA IF ON DO ANOTHER SENSE wie 
- 1802 02 18C2 940 pc XL1*02¢ FUNCTION CODE (WRITE) 1960 38 01 1A7A 1009 TBN STATUS-1,X°01" TEST FOR SEEK CHECK z 
-18C3 00 18C3. 941 DC —_—«»xXL1°O0? CONTROL CODE (DATA) 19648 F2 10 29 1010, JT- SEEKER IF ON, GO- £0 SEEK ERROR PRINT - 
18C4 1A5B - - 18CS 9482 DC AL2 (WRTDPC) CONTROL FIELD ADDRESS 2 oOo 1019400 c. 8 ; ee 
18C6 CO 87 18D2 943 B  —s- RT N8B1 GOOD RETURN ve . 1967 CO 87 1A93 1012 -. B STRTIO "" TO READ ID 
18CA CO 87 18CE: 944 B *4+4 196B 01 196B 1073. DC XL1°0O18 é 
18CE CO 87 O£SC 945 B WRTER2 ERROR RETURN FOR WRITE DATA oS Cc i96C 01. 196C 1014 DC. XL1901" 3 
18D2 3C 52 1BE8 . 946 RTNSB1 NVI  SNSID,X*52°* PUT ID IN PRINT 196D 1983. 196E 1015 DC AL2 (IDFLD-2) 
Ou? 196F CO 87 1973 1016 B *4+4 oa < 
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os . 950 / f 197D F2 01 07 1019 JNE SEEKER Co 
18EO 3C 00 1A5E 951 MVI WRTDFC+3,0 SET TO SCAN ONE SECTOR 0:0 1020 : : e 
18E8 CO 87 1A93 952 B STRTIO TO SCAN EQUAL 1980 CO 87 0000 1021 SEKEXT B *-2 EXIT 
1BE8 03 . 18£8 953 DC XL1*03! FUNCTION CODE (SCAR) 1984 000000 | 1986 1022 IDFLD DC XL3"O* 
18E9 00 18E9 954 pc XL1*00+ CONTROL CODE (EQUAL) o oC 1023 
18EA 1A85B 18EB 955 DC AL2(WBTDFC) CONTROL PIELD ADDRESS 1028 ; : 
 18EC CO 87 1906 956 B RTNSB2 RETURN FOR NO SCAN FOUND | 1025 * COME HERE IP AN ERROR OCCURED . 
18FO CO 87 1916 957 B RTN8C1 RETURN FOR SCAN FOUND G6O:1S6 1026 * WHILE SEEKING THE CE TRACK . 
952 1927 
18F4 CO 37 18BC1 959 B PRTSNS TO PRINT SENSE INFO | 1987 CO 87 1D59 1028 SEEKPR B CVD 2 SS 
18F6 06 18F8 960 ; DC | ——s- EXL1° 06" PLAGS © 0 196B 1985 198C 1029 DC AL2 (IDFLD-1) ; 2 
18F9 5c 18F9 961 DC IL1"92" LENGTH 198D 1A32 198E 1030 DC AL2(ARIVED) 
VFA 1177 18FB 962 pc AL2 (ERRO3A) MESSAGE ADDRESS ‘i 198F CO 87 021A 1031 B PRINT . TO PRINT ERROR ON SEEK a 
18FC CO 87 0222 963 B HALT - TO DCP HALT fo hg 1993 C1 1993 1032 DC Ruwtct - PLAGS M! 
1900 A052 1901 964 DC XL2* A052! HALT ID 199% 2k 1994 1033 DC IL1*92° LENGTH 
1902 CO 87 1916 965 B RTN8C1 1995 1A1B 1996 1038 pc AL2(SEKER1) ADDRESS OF MESSAGE 7 
966 Oo © 1997 aQ3C 1998 1035 SEEKID pC XL2"a03C* MESSAGE IDENTIPICATION O 
1906 CO 87 021A 967 RTNSB2 B PRINT TO PRINT NO SCAN FOUND 1036 
190A C6 190A 968 DC XL1°C6° FLAGS 1999 CO 87 O21~A 1037 B PRINT - TO PRINT SECOND LIE wi 
190B 2B 190B 969 pc IL1*4a3* LENGTH G 0 199D 01 199D 1038 Dc XL1°017¢ Ld 
190C OFE9 190D 970 DC AL2 (ERRO2F) BESSAGE ADDRESS 199B 17 199E 1039 . Dc IL1*23# 
190B A056 190F 971 DC XL2*a056° MESSAGE ADDRESS | 199F 1A32 19A0 7040 DC . AL2(ARIVED) re 
191C CG 87 0222 972 B HALT TO DCP ERROR HALT o oO 1041 oO 
1914 2056 1915 973 DC -——« XL2* a0S56° HALT ID 1941 CO 87 021A 10482 B PRINT TO PRINT SECOND LINE 
974 1945 06 19A5 1043 pc XL1°06° FLAGS ‘a 
1916 CO 87 1876 975 RTNSC1 B RTNSA oO oOo 19A6 28 1986 1048 Dc IL1*40* LENGTH a 
DATE 13MA370 O06APR70 22HAY70 01A0G70 PROG ID OAOA-2 OG O pate 13HAR70 O6APR70 22m AaY70 01AUG70 PROG ID Oa0aA-2 co: 
EC NOw 571512 571516 571543 571531 PAGE 10 EC NO. 571512 571516 571513 571531 PAGE 10a 
oo 8 
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IBA AAINTERANCE DIAGNOSTIC PROGRAM 


a0a2 
BRR LOC 
1947 


1949 
19AD 
19B1 
19B5 
1989 
19BB 


JOBP 
19¢1 
19C3 
19¢5 
19C7 
19CP 
19D7 
19DF 
1S9E7 
19EF 
19¥F2 
‘19PA 
TA02 
1AOA 
WA1T2 
TATA 
AIC 
TA24G 
1A2C 
1A33 
TA3B 
Taa3 
TAUB 
1A53 


1A5B 
IASC 
IASD 
1A5E 


TASF 
7A60 
1A61 
1A62 
1A63 


TA64 
1A68 
TA6C 
TA71 
1A75 


TA78 
TATA 
TA7C 


JATE 
IA7P 
1A80 
1A82 
TA84 
SA893 
TA8C 
1ABE 
1A90 
192 


DATE 
EC KO. 


SCAN EQUAL 
OBJECT CODE ADDR 
1aSAa 1948 
3c 00 OBT1 
3C 00 0809 
3C 00 1878 
cO 87 0222 
a03c 19BA 
CO 87 0000 
0000 19¢0 
0002 19¢2 
0008 194 
1EC6 1906 
CUCTEICIUOCICUCS 19P1 
DICSEZE2NOEGCIE2 
40E2E3C5D7D7CS5C4 
4OE3D640C9DSC3D6 
DIDICSC3E340E5C1 
D3EUC5 
C5D9D9D6D940D6C3 1A1B 
CIEGDIDICSCUUOES 
C8C9D3ICS4O0E2C5C5 
D2C9DSC74OFR3ICBCS 
40C3C580E3D9CIC3 
D26B 
CIDIDICIESCSC4UO 1032 
C1E340C3E8D34B90 
USD64BUOETETET 
DIESDS4OE2ZCSCSD2 1A5A 
GOE3CSEZE340E2C5 - 
C3E3C9D6D540C1F0 
F348 0C6D6D940D4D6 
DIC5S40C9 DSC6D64B 
00 1358 
00 1A5C 
00 15D 
00 1A5E 
00 ASP 
00 1460 
00 1261 
00 1262 
01 1463 
34 08 1A7D 
35 01 1A7D 
18 03 1472 00 
30 00 1A7B 
DO 87 01 
0000 1479 
0000 1A7B 
0000 1A7D 
{ATE 
00 1A7E 
00 1A 7F 
0000 1481 
0000 1083 
00000000 1287 
00000000 1A8B 
0000 1A8D 
0000 1A8F 
0000 1491 
00 1092 
13MAR70 O06APR70 
571512 571516 


STST 
1085 





SOURCE STATEREST 


1086 . 


1047 
1048 
1089 
1050 
1051 
1052 
1053 
1058 
1055 
1056 
1057 
1058 
1058 
1058 


- 1058 


1058 
1058 
1059 
1059 
1059 
1053 
1059 
1059 
1060 
1060 
106) 
1061 
1061 
1001 
1061 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1075 
1075 
1076 
1077 
1078 
1079 
1030 
1081 
1082 
1083 
1084 
1085 
1086 
1067 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 


WORK1 
THO 
ONESEC 
WORK2 
DATPR1 


SEKER1 


ARIVED 


SEKER2 


WRIDFC 


RDDFC 


ONE 


pc 


AVI 
AVI 
AVI 


ne 


pc 


DC 


pc 


AL2(SEKER2) 


PASS,0 
SFTSW,0 
FPRSTPS,O 
HALT 
XL2*a03C* 
0 


AL2 (¢-8) 
XL2*02° 
XL2"04° 
AL2 (WORK¢255) 
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ADDRESS OF HSESSAGE 


TO DCP HALT 
HALT ID 


CLA3"DATA ADDRESS WAS STEPPED TO INCORRECT VALUE? 


CLU2* ERROR OCCURRED WHILE SEEKING THE CE TRACK, * 


o 


CL23*° ARRIVED AT CYL. WO. XXX* 


CLU&O*RON SEEK TEST SECTION AO3 FOR MORE INFO. * 


XL7*°00° 
XL1*O00* 
XL1°00° 
XL1°00° 


XL1°00° 
XL1°00* 
XL1*00°* 
xXL1°00° 
XL1*O1!8 


FLAG - 

CYLINDER 

TRACK & SECTOR 

WO. OF SECTORS OR NO. OF TRACKS 


FLAG 
CYLINDER 
TRACK & SECTOR 


NO. OF SECTORS OR NO. OF TRACKS 


SSSHHSHSSESSSEE SSESESSESESSESTESE SESH SSEKESEKSE SEKESKSEKRSSEHKSEETKEESHSE SESE SRERESHEE 


a 
SERSE 


SHS 


SETXR2 
STATOS 
SNSXR2 
s 
ETABLE 
QCODE 
CCODE 
SNSO1 
SNS23 
DCFI 
DCFF 
DFCRI 
DFDRI 
DFDRFP 
ROUTNO 


22m AY70 
571513 


ST 
L 
ANN 
Sus 


01AU0G70 
571531 


SEKSE I/0 ROUTIAE 
SNSXR2, ARB 
SNSXR2,XB1 
SNS*#1,0(,X81) 
STaTOS,0 

1(,XR 1) 


XL2"0* 
XL2'OFf 
XL2°0° 
RECORDING TABLE 
* 
XL1°O® 
XL17°O°* 
XL2°O! 
XL2*0* 
XLG&‘O? 
XL4*O? 
XL2‘'0O° 
XL2°O* 
XL2‘0* 
XL1°0O? 


SAVE ADDRESS RECALL REGISTER 
LOAD XR1 WITH VALUE FROM ARR. 
MOVE IN FURCTION CODE 

PERFORM SENSE 

EXIT 


*Q* CODE 

CONTROL CODE 
STATUS BYTES 0 & 1 
STATUS BYTES 2 & 3 
DISK CONTROL FIELD, 
DISK CONTROL PIELD, (FIWAL) 
CONTROL REGISTER ADDRESS 

DATA REGISTER ADDRESS, (INITIAL) 
DATA REGISTER ADDRESS, (FINAL) 
CURRENT ROUTINE HO. 


(INITIAL) 
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AOA2 


ERR LOC 


1493 
4A97 
1A9B 
TA9PF 
TAAS 
AAG 
IAAE 
1AB2 
1AB6 
TABA 
1ABD 
1aci 
Tacs 
TACB 
1aCcB 
TAC? 
TAD3 
TAD7 
TADA 
TADE 
-TAE2 
TAES 
1AEA 
1AED 
TAP1 
TAPS 
APT 


TAPA 
TAPD 
1B00 
1B08 
1B09 
1BOD 
1B 12 
1B 16 
TIBIA 
1B1ID 
1B21 
1824 
1B27 
1B2B 
1B2P 


1B32 
1B37 
1B3A 
1B3D 
1B40 
1B4&6 
1B48 


TBUE 
1B51 
1B56 
1B5C 


1B5P 
1B62 


1B65 
1B6A 
1B6F 


DATE 
EC KO. 


Ter Neale 


em 
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PAGE 


SAVE ADDRESS RECALL REGISTER. 
LOAD XR2 WITH VALUE FROK ARR. 
ZERO SWITCH 

SET FINCTION CODE 

SET CONTROL CODE Im” SIO 
SET DATA ADDRESS POR DFCR 
SET FOR REMOVABLE DISK 

SET POR REMOVABLE DISK 
TEST POR SON ON LOWER DISK 
JUSP IP NO 

SET FOR FIXED DISK 

SET FOR FIXED DISK 

TEST FOR SEEK 

IP YES, GO SET ADDRESS 
LOAD CONTROL REGISTER 

LOAD DATA REGISTER 

LOAD DELAY VALOE IN XR1 
START I/O OPERATION 

TEST FOR BUSY 

TS SWITCH ON? 

IF NO, SKIP RESTORE 
RESTORE W BYTE 

TURN OFF THE FPOR/ REV BIT 
RESTORE PARABETER POINTER 
BRANCH IF ERROR 

BRANCH IF SCAN FOUND 

EXIT 


SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE 


" LOAD XR2 WITH CONTROL FLD. 


IS TRIS A RECALIBRATE? 

IF NO, BYPASS SWITCH RESET 
RESET RECALIBRATE SWITCH 
SAVE ADDR. OF CTL. FLD. ADDR. 
ADDR. 
SAVE MN BYTE IN CONTROL FIELD 
SET SAVE SWITCH 

IS THIS FIRST PASS 

SKIP RECALIBRATE IF nO 

SET FIRST PASS SWITCH 

SET PWD/REV BIT TO REV. 

SET MAXIMNOM TRACK CROSSIEG 

SET. OLD ADDE TO 0 

LOAD DATA CONTROL REGISTER 

SEEK REVERSE 


COMPARE PRESENT 
EQUAL, SEEK IS NOT NECESSARY 

NEW ADDR. HIGHER, DO FORWARD SZEK 
NEW ADDR. LOWER, SET BIT FOR REV. 
PLACY LAST ADDR IN WORKAREA 

SUBTRACT WEW ADDR. FROM LAST 
PROCEED 


ADDR. WITH NEW ONE 


ADDR. 


SET BIT ON FOR FORWARD SEEK 
PLACE NEW ADDR. IN WORKAREA 
SUBTRACT LAST ADDR. FROM NEW 
PROCEED 


ADDR. 


SET NO. 
TO &xiT 


OF TKS. CROSSED TO ZERO. 


PLACE IN NO. 
SAVE NEW 


OF TRACKS CROSSED 
ADDRESS 


PROG ID Oa0A-2 


SCas Booaoatu 
OBJECT CODE ADDR STMT SOURCE STATESENT 
1097 © START 1/0 SUBROUTINE 
1098 
34 08 1479 1099 STRTIO ST SETXR2, ARR 
35 02 179 1100 L SETZR2,XR2 
3c 00 1B77 1101 RYT SAVSW,00 
28 03 1AD8 60 1102 ANN SI0+¢1,0(,XR2) 
2C 00 1AD9 01 1103 HVC SI0#2(1),1(,XR2) 
2C 01 1B7B 03 1108 MVC DFCR(2),3(,XR2) 
3B O08 1AD8 1105 TSTTP SBP SI0¢1,X*08* 
3B 08 1B30 1106 SBP RSIO+¢1,x'08° . 
39 08 1B79 1107 TBF DISKTP,X*08! 
F2 10 08 1108 IT CKSEEK 
3a 08 1aD8 1109 SETPIX SBN SI0¢1,x°08* 
3A 08 1830 1110 SB BSIO¢+1,z°08°* 
BD 00 00 1111 CKSEEK CLI 0(,XR2),00 
F2 81 2F 1112 JE SETADR 
31 6 1B7B 1113 LDFCR LIO DFCR,X*A6® 
31 aS 1B7D 1114 LDPDR LIO DFDR,xX*a~AG® 
C2 01 19C8 4915 LA 6600, XR1 
F3 ad 00 1116 SIO SIO x*00",x*~A0? 
C1 A2 1B88 1117 WAIT TIO BUSY,X*A2* 
3D FP 1B77 - 1118 CLI SAVSW,X'PF® 
F2 01 0C 1119 JNE TSTERBR ’ 
8C 00 03 1B76 1120 BYC 3(1,XK2),DFC3S¥ 
BB 01 02 1121 SBP 2(,XR2),01 
35 02 179 1122 L SETIR2, XR2 
Z1 a0 OC 1123 TSTERR TIO 12(,XR2) ,X*A0?® 
E1 a& 08 1124 TSTSCH TIO 8(,XR2),X°AG*. 
ZO 87 08 1125 B 4 (,XR2) 
1126 
1127 © 
1128 ® DIRECTION (FORWARD OR REVERSE), TO SEEK 
1129 
BD 01 01 1130 SETADR CLI 1(,XR2),01 - 
P2 01 08 1231 INE %¢47 
3c 00 1878 1132 AVI PRSTPS,O 
2C 01 1B7P 03 1133 MVC XR2HK (2) ,3(,XR2) 
35 02 1B7F 1138 L XR2WK,XR2 
2C 00 1B75 03 1135 HYC  DPC3SV(1),3(,XR2) 
3c FF 1B77 1136 AVI SAVSW,X'FP! 
3D 00 1878 1137 CLI PRSTPS,00 
F2 01 15 1138 JNE  SETADA 
3C 01 1B78 1139 AVI -PRSTPS,01 
BB 01 02 1140 SBP 2(,XR2),01 
BC FF 03 1161 NVI 3(,XR2),255 
3C 00 1875 1142 AVI LASTAD,00 
31 A6 1B7B 1183 RLDPCR LIO  DFCR,X*A6* 
F3 a0 00 1148 RSIO SIO 00,X'&~AO* 
1145 
8D 00 01 1875 1146 SETADA CLC 1(%,XR2),LASTAD 
F2 81 25 1147 JE NOSEEK 
F2 88 11 1198 4H FWDSEK 
BB 01 02 1149 SBF 2(,XR2),01 
OC 00 4873 1B75 1150 BYC SCRCH(1),LASTAD 
2F 00 1873 01 1151 SLC SCRCH(1),1(,XR2) 
F2 87 17 1152 J SETADB 
1153 
BA 01 02 115% PWDSEK SBN 2(,%R2),01 
2C 00 1B73 0% 1155 BAVC SCRCH(1),1(,XR2) 
OF 00 1B73 1B75 1156 SLC SCRCH(1),LASTAD 
¥2 87 06 1157 J SETADB 
1158 
BC 00 03 1159 KOSEEK VI 3(,XR2),0 
F2 87 OA 1160 J ADREXT 
1161 
8C 00 C3 1B73 1162 SETADB MVC 3(1,XR2),SCRCH 
2C 00 1B75 01 1163 MVC LASTAD(1) .1(,XR2) 
CO 87 1ACB 1164 ADREXT B LDFCR 
13M2R70 O06APR70 22NAY70 01A0G70 
571512 571516 571513 571531 
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IBS SAINTENANCE DIAGNOSTIC PROGRAN PART WO. 5129638 IBM AAINTEBANCE DIAGHOSTIC PROGRAS PART NO. 5129638 - D 
. | oa " PAGE 12a “3 
fe © .°3 ° | 
aOa2 SCAB EQUAL aoa2 SCAN EBQ0 a4 a 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT © © _ ERR Loc OBJECT CODE ADDR STMT SDURCE STATESENT Go 
1B73 00 1B73 1165 SCRCH DC X1L1*00° 1193 © SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS e 
1878 00 1B74 1166 FRSTPS DC XL1*00* o Oo 1198 QQ. 
- 9875 00 1B75 1167 LASTAD DC XL1*00° 1BC1 38 08 1C4&0 1195 PRTSNS ST PRTEXT+3, ARB SAVE ADDRESS RECALL REGISTER 
1B76 00 1B76 1168 DFC3SV DC XL1°00° 1BC5 CO 87 1268 1196 B SENSE TO PERFORA SENSE 
1B77 00 1B77 1169 SAVSW DC xL1°00° o 98 1BC9 02 1BC9 1197 pc AL1(STATO1) GET DEVICE STATUS BYTES 0 & 1. Oo 
1B78 0000 1B79 1170 DISKT2 DC XL2*08 1198 
1B7a 0000 1B7B 3177 DFCR DC AL2 (*-*) 1BCcaA CO 87 O21E 1199 B UNPACK TO ONPACK STATUS BYTSS 
1B7C 1DC7 1B7D 1172 DFDR DC AL2 (WORK) 8 OC 1BCE 02 1BCE 1200 pc XL1°02° ye: 
1B7EZ 0000 1B7F 1173 XR2WK DC XL2°08 1BCF 1A7B 1BDO 1201 pc AL2 (STATUS) 
1B80 FFPP 1B81 1174 REG? DC XL2°*PRFF® 1BD1 1¢59 IBD2 1202 Dc AL2 (HEXSTA-8) 
1BB2 0298 1883 1175 SIXSIX DC IL2*0660° °o 9O 1203 s) 
1B84 36 01 1881 1176 BUSY A NEG1,XB1 DECREMENT DELAY COUNTER 1BD3 3C 01 1c08& 1208 NVI STPSNS*¢1,01 SET POR COMPLETION OF FIRST BYTE 
1B88 CO 64 ADA 1177 BH WAIT RETURN TO TIO IF WOT TIBE OUT 1BD7 C2 01 1C6F 1205 LA STATWD, XB1 SET XR1 TO POINT TO FIRST NESSAGE 
1B8C CO 87 1D59 1178 B crD TINE OUT OCCURED, CONVERT ROUT. HO. 6:06 1BDB C2 02 1D00 1206 LA STMASK,XB2 SET XR2 TO POINT TO ‘TEST SASK i) 
1890 003 1B91 1179 DC AL2 (BPFX) CURRENT ROUTINE WO. | 1207 
1B92 1BCO 1893 1180 pc AL2 (TIHOST) ADDRESS OF DESTIBATION IBDF CO 87 O21A 1208 B PRINT TO PRINT SHS WITH HEADING 
1898 3C 40 1BFE 1181 AVI TINOUT-2,C* * Gi e 1BE3 C1 1BE3 1209 pc KLV°c1! FLAGS A 
1898 CO 87 O21A 1182 B PRIUT TO PRINT TIMEOUT- OCCURED 1BES 01 IBES 1210 Dc IL1°01° LERGTH 
1B9C C6 tB9C 1183 pC XL1°C6* FLAGS 4BES 1C6P 1BE6 1211 pc AL2 (STATWD) ADDRESS OF LAST PRINT CHARACTER 
1B9D 15 1B9D 1188 DC IL1°21° LENGTH O19 1BE7 4000 1BE8 1212 SNSID DC XL2*a000° MZSSAGE IDENTIFICATION o 
1B9E 1BCO 1B9F 1185 DC AL2 (TINODT) MESSAGE ADDRESS 1BE9 2C 00 1BF8 00 1213 SOVEBT SVC TSTBT+1(1) ,0(,XR2) SET MASK BIT IW TEST Si7S INSTRUCT. 
1BAO AOBE 1BA1 1186 DC XL2"AOEE? HESSAGE ID IBEE 1C 13 1DCS 00 1218 MVC . STATPR(18) ,0(,XR1) SET MESSAGE IN PIELD 
1BA2 CO 87 0222 1187 THALT B HALT TO DCP ERROR HALT 0:10 : 1215 Oo 
1BA6 AOSE 1BA7 1188 pc XL2*a0cz° HALT ID 1B¥3 38 00 1A7A~ 1216 TSTBT TBN STATUS-1,%-* TEST CURRENT BIT FOR OB 
1Ba8 CO 87 0000 1189 B 0 | 1BP7 CO 90 1C03 1277 BF STPSNS BYPASS PRINT IF OFF 
1BAC EICIDSCSDGENE3G9O 1BCO 1190 TIKOUT DC CL21* TIMEOUT IN ROUTINE XX* o:'c ' 4218 Go 
1BB4Y C9D540D9D6ESE3CY 1190 1BFB CO 87 0212 1219 B PRIET TO PRINT SHS WITHOUT HEADIEG 
BBC DSC5S40E7E7 1190 eee 1BPF 01 1BFF 1220 pc XL1°01° FLAGS 
0A03 1191 RPFX EQU  X*A03* 6 °@ 1C00 12 1¢00 1221 DC IL1*°1B¢ LENGTH . G 
‘ : 7 1€01 1DC6 1002 1222 DC. AL2(STATPR) _ ADDRESS OF LAST PRINT CHARACTER 
: 1223 
2 o | ©Q 1C03 3D 01 1BF8. 122% STPSKS CLI ‘TSTBT+1,X*O1* “HAS THE LAST BIT BEEN CHECKED? Oo | 
} 1C0O7 F2 81 OA 1225 JE SEWSA IF YES, JUMP 
Ss 1226 
. o oOo 1COA E2 02 01 1227 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT Oo. | 
1COD D2 01 12 -1228 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ‘ 
ee 1C10 CO 87 1BE9 1229, B ‘SOVEBT GO TEST NEXT SENSE BIT 
Go'19 1230 oat Oo 
| 1¢1% 3D 80 1C08 1231 SENSA CLI  STPSHS+1,X*80° ees 
1€18 F2 81 1A 1232 JE PRTHEX . a 
6:6 1C1B 3C 80 1C08 1233 EVI STPSHS+1,X°80° a 
1C1F CO 87 1A68 12348 B SENSE 2 
1¢23 03 1€23 1235 pC —.:sda&X24&L 1:03" Pi 
Co {8 -1C28 CO 87 O21E 1236 B UNPACK o 
1C28 02 1€28 1237 DC XL1*02° . 
1¢29 1A7B 1C2A 1238 pc AL2 (STATUS) | 
O'16 1C2B 1C5D 1c2c 1239 pc AL2 (HEZSTA) a 
1C2D C2 02 1D00 1240 LA STHASK,IR2 
1¢31 CO 87 1C0D 1241 3 SENSB ans 
0.0 1242 a 
1¢35 CO 87 O21A 1243 PRTHEX B PRINT : 
1€39 02 1039 1294 DC XL1°02¢ | 
a ©) 1C3A 1D 1c3A 1245 pC ——sCWdIL9°298 D. 
1C3B 1C5D . 1C3C 1246 DC AL2 (HEXSTA) | 
1C3D CO 87 0000 1247 PRTEXT B *-* SUBROUTINE EXIT | 
° | 0 1288 Oo: 
| 1C41 E2E3C1E3E4Z240C2 1€55 1289 DC CL21"STATUS BYTES IN HEX, * 
1C49 EBE3ICSE240C9DS40 1249 | 
Oo © 1051 C8CSE76B40 1249 Oi 
1C56 0900000000000000 1C5D 1250 HEXSTA DC XL8*O? 
IC5E DSD640D6D7404040 IC6F 1251 STATWD DC CL18°HO OP * eke 
Oo Oo 1C66 8040404040404040 1251 oS 
1C6E 4040 1251 
1C70 C9DSE3C5D9ESC5DS 1C81 1252 DC CLiI8*INTERVENTION REQD.° | 
oO oo 1C78 E3C9D6D540D9C5D8 1252 0: 
. 1C60 C44B 1252 
1C82 D&C9IEZEZC9DS5SC7T4O 1€93 1253 Dc CL18°MISSING ADDR. MARK* pe 
eo oO 1CBA C1ICUC4D9SBSODSC1 1253 te 
DATE 13MAR70 = O6APR70 = 22HAT70—- O.119G70 PROG ID OAOA-2 ©O ©  vavE (13MAR70 OG6APR7G $$22mAY70 01AUG70 PROG ID oaoa-2. 
EC NO. 571512 571516 571513 571531 PAGE 12 EC NO. 571512 571516 571513 571531 PAGE 12a 
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cao edhe 2 tun tas tas 


wd 


wie eth ene An ta NT one a 


wee nae ee ne RC NEG REGRESS Sy 


IBS MAINTENANCE DIAGNOSTIC PROGRAS 


AQA2 
BRR LOC 


1092 
1c94% 
1C9C 
1CAS 
1Ca6 
ICAE 
1CBS 
1CB8 
icco 
1Cc8 
ICCA 
1CD2 
ICDA 
1CDC 
ICEY 
IC EC 
ICEE 
1C P6 
ICFE 


1D00 
IDO 


1D08 
~ 1p0c 
1D10 
1D18 
1D 18 
IDIC 
1D 20 
1D28 
1D27 
1D2Cc 
1D 31 
1D34 
1D37 
1D3B 
1D3P 
1D42 
Das 
1D49 


1D4D 


ID4&E 
IDF 
1D50 
1D51 
1D52 
4D53 
1D54 
1D55 
1D56 
1D57 


DATE 
ec NO. 


SCAR 
OBJECT CODE 


D9D2 
C5DBE4C9IDTDaCSDS 
E340C3CB8CS5C3D24N0 
8060 
C&8C1TE3C140C3C8CS 
C3D29090804 04080 
&040 
DSD640D9C5C3D6 D9 
CY4UOCODEESDSC&SO 
8040 
E3D240C3D6D5C4Cc9 
£3C9D6D54 0C3c8c5 
C3D2 
E2CSC5D240C3C8C§ 
CIDZ4ON0K OR OGOKOD 
4040 
ESDSE2C1C6C54040 
4§04040404G08048080 
&0480 


80802010 
08040201 


ID4C 
aDEcC 
1Dac 
19C2 
ipac 


34 08 
35 01 
35 02 
36 02 
34 02 
3c 00 1D4D 

C2 02 1DUE 

75 01 01 

2c 00. 1D32 00 
2c 00 1D38 05 
78 00 02 

F2 90 08 

3A 00 1DaD 

3D 40 1D32__ 
F2 81 07 

E2 02 01 

CO 87 1D27 

cO 87 0000 


00 


o4 
08 
10 
20 
40 
01 
02 
O44 
08 
10 


T3NABRT70 
371512 


PBQuat 


ADDR 


1cas 


1CB7 


1CED 


1Crr 


1D00 
1D03 
1D07 


STAT 


1253 
1258 
1258 
1258 
1255 
1255 
1255 
1256 
1256 
1256 
1257 
1257 
1257 
1258 
1258 
1258 
1259 
1259 
1259 
1260 
1261 
1262 
1263 © 
1264 ¢ 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 


STATB2 


STBASK 


SHIFT 


BYCTBR 


1276 TBH 


1pD4D 


ID4E 
1ip4ar 
1D50 
1D51 
1D52 
1D53 
1D58 
1D55 
1D56 
1D57 


_ O6APR70 
571516 


1282 


1277 
1278 
1279 
1280 
1281 


SBN. 


1283 SHFEXT 
1288 

1285 CYLWO 

1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 


SHPTBL 


22m AY70 
571513 


oc 


oc 


bc 


pc 


bc 


DC 


EQU 
poe 
pc 


SUBROU 


ST 
L 

L 

A 
ST 
AVI 
LA 
L 
AYC 
HYC 
TBR 
JF 
SBN 
CLI 
JE 
LA 
5 
B 


pc 


O1AUG70 
571531 


SOURCE STATEAERT 


CL18* ZQUIPHENT CHECK 


CLIB* DATA CHECK 


CL18°NO RECORD FOUND 








pee a ee a tee ee ae 


PART £O. 
PAGE 13 


CL18*TK CONDITION CHECK®* 


CL18*SEEK CHECK 


CLIB*ONSAPE 


s 
XL4*°80402010' 
XL4°08040201° 


TINE TO SHIFT 


SHPEXT¢3,ABR 
SHFEXT+¢3,XR1 
SHFEXT+3,XR2 
TWO, XR2 
SHPEXT+3,XR2 
CYLNO,0O 
SHPTBL,XR2 
1(,XR1) ,XR1 
TBN¢1(1) ,0(,XR2) 
SBN+1(1) ,5(,XR2) 
ee 

e¢7 

CYLNO, *-® 
TBN41,x*90! 
SHPEXT 

1(,XR2) ,XR2 
AVCTBN 

¢-—% . 


XL1°O? 


XL1"08° 
XL1*08° 
XL1°108 
XL1"208 
XL1°40! 
XL1°01° 
XL1'02° 
XL1°04° 
XL1°08° 
XL1°10° 


BITS IN. CONTROL 


“LOAD EXIT 


FIELD 


STORE ADDEFSS RECALL REGISTER 
LOAD EXIT ADDRESS IN XR1 
ATDORESS IN xXR2 
INCREASE BY 2 

STORE POR TRUE EXIT 


ADDRESS 
ZERO WORK AREA 


LOAD ADDRESS OF SHIFT TABLE IW XR2 


LOAD CONTROL FIELD ADDRESS IN XR1 
INSERT CORRECT MASK FOR TEST BITS 
INSERT CORRECT BITS FOR SET BITS 
TEST ONE BIT FOR OW , 

JUSP IF OPP 

SET ONE BIT ON I¥8 
TEST FOR LAST BIT 


DECINAL FIELD 


JUAP TO EXIT IF ALL DONE 
_ NOT DONE, STEP XR2 
TO TEST HEXT BIT 
Exit 
PROG ID OAOA-2 
PAGE 13 


5129638 


°22020000000000000000000000000 


So 


°206000000000808000'00000000000 


TBe ee i ee ce 


SN ee ne me es oe 


IBA MAINTESAUNCE DIAGBOSTIC PROGRAS 


ack2 


ERR LOC 


1D58 
1D59 
4ID5D 
1D61 
- 1D65 
1D69 
1D6D 
1D71 
1D75 
1D7B 
1D81 
1D87 
1D8D 
1D93 
1D99 
1D9C 
1DaAl 
1DA6 
IDAA 
IDAB 
1DB3 
1DBS 


1DC7 


1EC7 


DATE 
Ec NO. 


SCAN EQUAL 
OBJECT CODE ADDR 
00 1D58 
36 08 163 
38 08 1D7A 
36 08 19C¢2 
34 08 1D80 
34 08 1D86 
36 08 1263 
34% 08 1DA9 
Oc 01 1D8C 0000 
Oc 01 1D9F 0000 
0c 01 1D90 0000 
Oc 00 1D58 0000 
0% 20 0000 1DBa 
OF 00 1D58 1463 
F2 82 OA 
06 20 0000 1DAA 
CO 87 1D93 
cO 87 0000 
P1 1DAA 
PIF2F3F8FSF6F7F8 1DBY 
P9FO 
1DC6 
1DC7 
1EC6 
1EC7 
1FC6 
0003 
0076 
0001 
0002 
. 0008 
0002 
0003 
00A6 
00 a4 
0080 
0040 
0208 
020A 
0212 
0216 
021A 
021 
0222 
022A 
00 3c 
00 3P 
OBF6 
138AR70 O6APR70 
571512 571516 


Jeane 


me 


SN et ane NO a ee cee ee a eve ne 


PART WO. 


PAGE 13a 


SUSROUTINE TO CONVERT A WUSBER TO DECIRAL 


STHT SOURCE STATESENT 

1298 © 

1299 

1300 HXBYT oC XL1"O8 

1301 CVD a OWE, ARR 

1302 ST FROA¢S, ARR 
1303 a TWO, ABR 

1308 ST TYBOT¢5, ARR 
1305 ST OTORZ+5, ARB 
1306 a ONE, ABR 

1307 ST TIXE+3, ARR 
1308 FROM HVC FROBYT#5(2),*%-© 
1309 TYBOT AVC TOBYT#3(2),%-* 
1310 OTORZ HVC ZROTO+3(2),#-* 
1311 FROBYT AVC HXBYT(1) ,*-* | 
1312 ZROTO ZAZ *%-#(3),0NITS (1) 
1312 DECGAN SLC HXBYT(i),ONE 
1314 JL TIXE 

1315 TOBYT AZ -* 13), DECONE (1) 
1316 B DECGAS 

1317 TIXE B +-e 

1318 DECONE pc CLieqe 

1319 UNITS DC CL10* 1234567890# 
1319 

1320 STATPR DS CL18 

1321 WORK EQU) ¢ 

1322 DS CL256 

1323 READ E£EQU-) ® 

1324 DS CL256 

1325. , 

1326 #1 EQU) = x*03" 

1327 H2 EQU) =X" 76" 

1328 xXR1 EQU O01 

1329 xR2 EQU 02 

1330 ARR EQU 08 

1331 STATO? EQD  x*02® 

1332 STAT23 EGU x*03* 

1333 CTRL QU xX*A6* 

1334 DATA EQU xX*AQe ~ 

1335 BITO £QU x80" ~ 

1336 BIT1 EQU = xX*KOQt- 

1337 SWITCH EQU x*208° 

1338 SECTSW EQU. x*20~A° 

1339 TEST EQU  x*212 

1340 LINK QU) xXx*2168 

1341 PRINT EQU  x*27A~° 

1342 UNPACK EQU X*21E® 

1343 HALT EQU x*222° 

1384 LoaD EQU x*22~° 

1345 HF ZOU) 0 x*3c? 

1346 BA EQU X°3F* 

1387 EMD BEGIN 

22maX70 01A0G70 

571513 571531 


HALT DISPLAY 1 
- HALT DISPLAY 2 


HALT DISP 
HALT DISPLAY A 


ADD ONE TO GET FIPST PARAMETER 
INSERT THE PROM ADDRESS 

ADD TWO TO GET THE SECOND PARASETER 
THSERT TRE TO ADDR 


ADD OWZ FOR EXIT ADDRESS 
STORE EXIT ADDRESS 


PUT BYTE IW FORK 
ZERO THE TO AREA 
DECRFEMNENT THZ HEX 
JUMP IF BELOW 1 
INCREMENT THE DECIMAL COUNT 


AREA 


BYTE 


Exit 


LAY F 


PROG ID 
PAGE 


OA0OA-2 
13a 


5129638 
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IBA SAINTEMANCE DIAGNOSTIC PROGRAS 


PART KO. 5129638 
. PAGE 18 
AOA2 SCAR EQUAL 
. CROSS- REP ERESCE 
SYMBOL T LEN VALUE DEF REFERENCES 
ADREXT A 008 1B6P 11648 1160 
ABIVED A 023 1832 1060 1930 1080 
ARB C 001 0008 1330 0025 0108 0981 1003 1075 1099 1195 126€ 1301* 1302 1303 1308 
1305 1306% 1307 
AOA R001 0000 0002 
BEGIER aA 00% OBF6 0168 1347 
BITO C01 0080 1335 
BIT? Cc 001 0040 1336 
BUSY A 008 1B8u 1176 1117 
CCODE aA 001 IA7F 1087 
CKSEEK A 003 1ACS 1311 1108 
CTRL C601 OO0OA6 1333 
CVD A008 1059 1301 0291 0434 066% 0682 0689 1028 1178 
CYLNO A001 ID4D 1285 0292 0435 0665 0683 0690 1271¢ 1278 
DATA C001 OOAS 1338 0986 
DATEXT &A 008 194B 0998 0981* 0982 0984 0989 
DATID1 a 002 1944 0995 
DATPR1 A 083 1971 1058 0994 
DCPF a 008 1488 1091 
DCPFIY a GOS 1A87 1090 
DECGAN A 006 1D93 72313 1316 : 
DECONZ A 001 DAA 1318 1315 
DPCR aA 002 1B7B 1171 1108 1113 1183 - 
DPCRI A 002 1A8D 1092 , . 
DFC3SV A001 1B76 1168 1120 1135% ; 
DFDR a 002. 1B7D 1172 0269% 0812* 0513* 0607* 0630* 0760* 0872* 0938% 11148 
DFPDRF a 002 1291 1098 ‘ 
DPDRI A 002 1A8PF 1093 . 
DISKTP A 002 1879 1170 0141* 0147% 1107 oS 
ERRORS A 006 CCBS 0225 0184 0256 0399 0500 0599 0748 0863 0930 
ERRO2ZA A O37 OEFCE 0368 0293 0294* 0299 
ERRO2B A 083 OFFS 0365 0317 
ERRO2ZC A 005 OF31 0367 0345 7 
ERRO2D a 015 OF74 0369 0328 
ERRG2E A025 OFBE 0371 0358 
ERRO2P A O83 OFES 0372 0307 0450 0902 0370 
FRROJA A G40 1177 0473 0836 0837* 04842 0898 0962 
ERRO3B A 028 1118 0471 0863 
ERROSA A 083 1208 C6565 0539 
ERROGB A 026 12F% 0567 05486 
ERROAC A 081 135% 0569 0558 
ERROSA A 019 #i&F2 0709 0657 
ERROSB A 029 153A 0711 0666 0667* 0672 
ERROSC A 035 157D 0713 0691. 0692* 0698 
ERROSD A 032 155A 0712 0688 0685 
EBROGA A 029 1770 0835 0785 
ERRO6B A025 17BD 0837 0801 
ERRO6C A 037 15D7 0716 0816 
ERRO6D A 034% 162D 0718 0827 . 
ERR1A A O08 OCF& 0227 0202 
ERR1B A017 OD39 0229 0217 
ETABLE A001 ‘4A7E 1085 0013 
FIXED A 00% OBCB 0145 0180 
FROBYT A 006 1D87 1311 73082 
FROM A 006 1D75 1308 1302 
FRSTPS A 001 1B7& 1166 0089* 10489* 1132 1137 11398 
PEDSEK A003 BYE 11548 1148 
HA C 001 O003F 1346 
HALT C001 0222 1343 0125 0185 0208 0219 0257 0300 0309 0319 0330 0347 0359 04800 
: 0443 O452 0465 0501 05480 0548 0560 0600 0658 067% 6700 0789 
0788 O804 0818 0830 08648 6895 09048 0931 0963 0972 0996 1050 
1187 
HEXSTA A 008 1C5D 1250 1202 1239 12486 
HF C 001 003C 1385 
HXBYT A 007 1D58 1300 13131 13138 
H1 C 00% 0003 1326 
DATE 134 AR70 O6APR70 22NAY70 01AU0G70 PROG ID OAOA-2 
EC KO. 571512 571516 571513 §71531 PAGE te 


~ : 7 ? - : : os 7 28 3 nee os, s a a? tom ae of rate: Sates 


~ + 


Oo 68 9 O 0 oO 0 0 00 0 0 9 60 6 0 9 CG 9 8 09 89 89 8 8 


© 


Go Oo 
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IBM BAINTENANCE DIAGHOSTIC PROGRAM PART NO. 5129639 
PAGE 148A 
6 
AOA2 SCAR EQUAL 
| 9 CROSS- REP ERENCE 
3° SYMBOL T LEW VALGE DEF REFERENCES 
H2 C 001 0076 1327 
IDFLD A 003 1986 1022 1015 1018 1029 
© I8VFLG aA 019 0B24 0108 9122 
LASTAD A 001 1375 1167 1182® 1146 1150 1156 11634 
LDPFCR A008 ACB 1113 00548* 6058¢ 0066 0067 0068 0069 0070 0071 0072 0073 1168 
©  wprpk a 008’ ACF 1118 0066* 
LINK C001 0216 1380 0 1>~ 
LOAD C001 022A 13846 0051 
‘© MOVEBT A 005 1BE9 1213 1229 
MVCTBH A005 1D27 1278 1282 
NEG1 a 002 1881 1178 1176 
© NOSEEK A 003 1B5F 1159 1147 
NOUNIT A026 OBOS 0092 00468 
ONE A001 1A63 1072 1301 1306 1313 
©  oONESEC A 002 19C& 1056 0625 0703 
OTORZ A 006 1D81 1310 1305* 
PASS 2&8 001 0B11 0103 0109 0111* 0153* 1047% 
© priest C001 021A 1381 0045 0081 0085 0119 01817 0199 021% 0252 0296 .0308 ©6314 0325 
0342 0355 0396 0439 04847 O860 0897 J536 0543 0555 0596 0658 
0669 069% 0745 0782 0798 0812 0824 0860 0899 0927 0967 0991 
° 1031 1037 1042 1182 1208 1219 1243 
PRTEXT A008 1C3D 1247 1195# : 
PRTHEX A 004 1€35 1243 1232 
© PRTSNS a 008 18C1 1195 0180 0252 0295 0353 0395 0838 0896 0535 0595 0653 0788 0859 
| 0891 0926 0959 : 
PRTSPH A 00% OAD 0081 0079 
i QO Qcope 2001 TA7E 1086 
. RDDFC A001 ASF 1068 0173* 0177 0189* 0190* 0195 
' READ A 001 EC? 1323 0628 0629 
© REMVDS A 001 OBO0K 0095 —0033* 0062* 0136 
| RLDFCR A 008% 1B2B 1143 0072 
ROUTRO A 001° 1A92 17095 
© eprx c¢ 001 Oa03 1191 1179 
RSIO A003 1B2F 1148 0073* 1106* 1110% 
RTN1 A901 OBF2 01648 0012 
© RTN1A A008 OBFE 0170 0222 
RTN1A1 A 008 0C32 0188 0178 
RTNIA2 A 004% OC5& 0199 0196 
© RTN1B A 00% OC68 0207 0198 
RTRI1C A 00% OC80 0222 0212 . 
-.  BTN2 A001 OD3A 0235 0166 
©  RTN2A A008 ODS6 0241 0359 0361 
RTN2A1 A 004 OD7A 0250 0250 
RTN2B A 008 OD7E 0262 
© ~~ atn2B1 4 004% ODAC 0279 0275 ee 
| RTN2B2 A 004 ODEC 0304 ~ 0286 
RTN2C A OCH’ ODCS 0289 . 
© =e etN2C1 aA 004 ODFC 0312 0287 0302 we 
RTN2C2 A 004 0£13 0322 0313 a : 
RTN2D A 008% OE2A 0333 0328. a 
© eRtTn2E aA 008 OELB 0342 0335 - 
RTN2PF A003 OF2E 0334 0340 - 
RTN2G A008 OFS5S8 0350 0339 
© RTN3 A001 OFEA 0378 0237 3 
RTN3A A OOU OFF6 0384 0468 : 
RTN3A1 A 004 102A 0803 0393 2 
© eTrx3B a 004% 102E 04805 oe 
RTN3B1 A 008 105C 0822 0418 
RTN3B2 A 00% 109C 0487 0829 
€ RTN3C A008 1074 0832 
RTN3C1 A 004. 70AC 0455 0430 O4845 2 
RTNID A 008 10C8 0468 0459 ; 
€& RING aA 001 1178 04879 0380 © 
RTNGA A 002 1188 0485 0563 
RTNGA? A 00% 1188 0504 04948 
© RTNSB A 008% 11BC 0506 Q 
© DATE 13MAR70 O6 APR7O 22MAY70 01A0G70 PROG ID OAOA-2 ie 
EC WO. 571512 571516 571513 571531 PAGE 14, ie 
0 ‘OQ 
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IBA HAINTENABCE DIAGNOSTIC PROGRAS PART BO. 5129638 IBM MAINTERANCE DIAGNOSTIC PROGRAR PART NO. 51429628 
PAGE 15 PAGE 15a 
GS oO 
a0a2 SCAN EQODAL AOA2 SCAN EQUAL 
CROSS- REF ERENCE o 6 CROSS-REFEREWCE . 
SYMBOL -T LER VALUZ DEFS REFEREBCES S:-6 SYMBOL T LEN YALDE DEP REFERENCES 
RTNSB1 A 00% 11EA 0523 0519 SETSPK A 006 0OB71 0113 0110 
RTNGB2 & 008 +1218 0543 0533 SETSW A001 OBOS 0096 0026 0089% 0155* 0168 0239 0382 04883 0581 0730 0887 0915 10a88¢ 
RTNSC A 0048 1208 0535 © OG — serxr2 & 002 1479 1081 1099* 1100 1122 
RTKSC1 A008 122A 0551 0532 SHFEXT A 004 1D&89 1283 1266*% 1267 1268 1270¢ 1280 
RTRSD & 008 1246 0563 0554 SHPTBL A 001 DME 1287 1272 
RTNS &€ 001 1352 0577 0481 © © _ sairt a 008 1D08 1266 0289 0832 0662 0680 0687 
RTRSA A 008 1352 0583 0705 SIO kA 003 IAD? 11716 0067*% 1102* 1103% 1105¢ 11099 
RTNSA1 &€ 008 1392 0603 0593 . SIXSIX A 002 1883 1175 
RTNSB & 008 1398 0606 0706 oO: 6 SKTSTA A 008 1953 1008 1008 
RTNSB1 A 008 13B6 0616 0626 ; SNS A008 1471 1078 0071¢ 1077% 
RT"582 & 004 13CE 0623 0619 SESID A 002 BEB 1212 0172* 0284%% 0265% 0279% 0352*% 0387% O808* 0422% 0488* 0509 0523¢ 0587¢ 
RTHSC A008 13DP 0628 0624 Cc Cc 0644*% 0736* 0852% 0882* 0919 09469 
RTHSD A&A 008 1809 06482 0638 SNSXR2 A 002 1A7D 1083 0337* 0338 1075* 1076 
RTWSD1 BONN 183B 0662 0650 SNSO1 A 002 1481 1088 
RTKSE A 006 185D 0677 0651 0660 © ©  sns23 aA 002 1383 1089 
RTNSP aA 006 189R 0703 0679 SPHDLA A 001 OBOB 0098 0058 
RTNSG &€ 0048 18A8 0705 ; SPNDLB A 001 OBOC 0099 0058 
BTN& & 001 162B 0726 0579 O eo SPNMSG A024 O8B3C 0105 0055* 0059* 0088 
RTKRGh & 004 163A 0732 0832 : STATB2 A018 ‘CFF 1259 
RTX6A1 A 008 166B 07582 0742 STATPR A018 1DC& 1320 121&8* 1222 
RTX6B A OOS 1672 0758: GS STATUS A 002 1A7B 14082 0078 0171% 0210 04858 0553 679% 0988 1007 1009 1078* 1201 1216 
RTKS51 A 008 169C 0770 0766 : 1238 
RTN652 2004 16BC 782° 0778 STATWD A018 1C6F 1251. 1205 121% 
RTX5C £2008 16CC 0791 0780 QQ 6 STATO? C 001 0002 1331 0208 0456 0552 0792 1005 11979 
RTN6D A 00G 16£8 0807 0796 STAT23 C 001 0603 1332 : 
BTK6R A O00OG 1708S 0821 0871 STHASK A001 1D00 1260 1206 1280 
RTS6P A& 004 171C 0832 0823 Go a STPSNS A 004% 1C03 1226 1204* 1217 1231 12338 
RTS7 .2 001 178E 08483 0728 ~ STRTIO A 008 14393 1099 017% 0192 0246 0271 0282 0389 041% 0425 0890 0515 0528 0589 
RTK7A AGO& 17CA 0849 0906 0615 0638 0686 0738 0762 0778 0853 0874 0884 0920 0939 0952 
BTR7A1 A 008: 17FE 0866 0857 9 Oo 1012 : 
RTX7B A O08 1802 0867 SWITCH C 001 0208 1337 00348 0038 
ETX7B1 A 00%. 182cC 0882 0878 TBE A 003 1031 1276 1274* 1279 
[TTNTB2 A 004 1856 0899 0888 : “OO © west C001 0212 1339 0127 
RTR7C1 A 00% 1866 0906 0889 0897 THALT a 008 1BA2 1187 
RTNS A O01 186A 0911 084s TIMOUT A021 1BCO 1196 1180 1181* 1185 
RTXS8A A008 1876 0917 0975 Oo ¢ TIXE aA O0O&8 1DA6 1317 1307® 1314 
RTN8A1 A 00S 18A4 0933 0928 TOBYT A 006 1D9C 1315. 1309% 
RTKSB A 09% 18A8 0938 TRACK# A001 OBOA 0097 0077* 0080* 0173 0242 0385 0886 0585 0734 0850 1018 
BTN€R1 A 00% 18D2 0946 0983 Cc Cc TSTBT A004 IBF3 1216 1213* 1228 
RTNAB2 A 004 1906 0967 0956 TSTDAT A 00% 191A 0981 0807 
RT¥8C1 A 00% 1916 0975 0957 0965 TSTERR A 003 AF 1123 0069* 1119 
RUNFIX A 001 OBOE 0101 0113 0138* 0185 01488) GQ ©  TSTExt A008 OBDA 0150 0108* 0143 
RUXRAV A001 OBOD 0100 0132* 0139 0142¢ TSTPIa2 A 008 OBA? 01348 0131 
SAVS¥ A 001 1B77 1169 1101* 11718 11358% 7 TSTHAV A008 OB9C 0130 0118 
SBE A 904 1D27 1278 1275* © G TSTSCN 2 003 IAPS 1128 0070* : 
SCRCH A 901 1B73 1165 1150% 1151% 1155% 1156% 1162 _$STSEC A001 157E 0714 0695* 0632 O0€52 0677 0688 0703* 0708 
SECNSG A 038 OBSE 0106 0084 TSTSEK A008 194F 1003 0188 0260 0803 0508 06603 0752 0866 0933 
SECTSW C 001 O20A 1338 0117 0130 0134 G oOo TSTSPN A COU OBSF 0108 0170 0291 0384 0885 0583 0732 0849 0917 
SEEKER hk 003 1987 1028 1010 1019 TSTSZ A OOS OB7D 0117 0112 0128 
SEEXID h 002 1998 1035 TSTTP A OOS AAE 1105 
SEKER1 A 042 1A1B 1059 1034: eC ¢ TWO A002 19¢2 1055 0984 1269 1303 
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T8h MAINTENANCE DIAGNOSTIC PROGRAA 


acs2 

ZRR Loc 
9000 
QA00 


0a00 
0202 
GA03 
Oagu 
OA06 
0a 08 
OAOA 


Ox0D 
OA11 


GCA15 
OA 19 
Oa ic 
9420 
OA ZY 
GA28 
GA2C 
OA30 
OA33 
OA 36 
6a 39 
®A3D 
OAD 
OAG3 
SAE 
OAg9 
OASC 
0asc 
Oa 54 
Oa55 
CA56 
Oa58 
@asc 
Ca62 
OAS6 


OA68 
OAGE 
OA72 


Oa75 
OA7B 
OATF 
OA82 
OA85 


OA89 
oasC 
0a90 
0A 96 
GA9C 
OAA2 


DATE 
Ec HO. 


SCA 


OBJECT CODE 


AO B2 
00 

01 
0000 
OBFS 
19AF 
A0171060 


08 
3c 
F2 


G8 
3c 
78 
F2 
3c 


D2 
38 
08 
08 
08 
08 


00 
Fi 
87 


00 
F2 
01 
90 
FF 


01 
01 
00 
00 
00 
00 


0B09 
0507 
022A 


19FD 
0B3C 
14 


19FD 
OB3C 
02 
04 
OBOS 


03 

OBO? 
1A01 
TA2A 
WA2D 
TAT74& 


T3HARIO 


571512 


PART HO. 5129640 
PAGE 1 
Low OR EQUAL 
ADDR STNT SOUPCE STATEMERT 
2 AOB START 0 
3 DECK & 
4 ORG x*OA00* 
F SCHSKSTSEKSEKEKSES SHESSSEKSEKREKS SSERKEKSKSESEEKKEKRESHESKSETLESSEREKSEKKEEEKEKESEEREE 
6 * SECTION PREFACE * 
7* * 
0a01 8 DC XL2*AOB2Z* PROGRAH ID 
0a02 9 pc XL1°008 SECTION FLAGS 
OA03 10 Dc Xi1°01# CURRENT ROUTINE NUMBER 
0A0S 11 Dc XL2"008 RESERVID 
OKO7 12 Dt AL2 (RT¥1) ADDRESS OF FIRST ROUTINE PREPEX 
OA09 13 pc AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE 
OaOC 18 Dc XL3*201000? 
15 * * 
TG SEXES HEKEESEKEKREEEREKEKESEE SEEKS KSEKEKKSKKSERSKESEKSEESEEKESREECKRESEKEREEEKESKEEKEKE EE 
17 
18 * OPERATING INSTRUCTIONS * 
19 *# * 
20 * 1. SET SWITCH 15 TO BYPASS RUNNING OW THE REMOVABLE DISK 
27 * 2. SET SWITCH 16 TO BYPASS RUNNING ON THE FIXED DISK * 
22 * 3. SET SWITCH 1E TO NEVER RUN ON DISK DRIVE 1 * 
23 * 4. SET SWITCH 1F TO NEVER ROW ON DISK DRIVE 2 * 
24 
25 SETDSK ST SETEXT+3, ARR SAVE EXIT ADDRESS 
26 MVI SETSW,X'FF® SET SETUP SWITCH 
27 
28 CLI UDTPTR,0 HAS POINTER BEEN INITILIZED? 
29 ONE UPIND1 JUMP IF YES 
30 LA UTAB,XB1 LOAD IF NO 
31 UFIND2 ST UDTPTR, XR1 
32 DPIND? L UDTPTR, XR1 
33 AVI RERVDS,0 ZERO SWITCH FOR RUN REMOVABLE DISK 
34 TBN SWITCH+3,xX'02! TEST SSW 1E 
35 IT *4+9 JUMP IF ON, NEVER RUN DISK DRIVE 1 
36 CLI O(,XR1),X"A0® TEST POR A UNIT ADDRESS OF ‘A®* 
37 JE SETA JUSP IF THERE IS ONE 
38 TBN SWITCH+3,X'01° TEST SSW 1F 
39 JT *4+9 JOMP IF ON, NEVER RUN DISK DRIVE 2 
480 CLI 0(,XR1) ,X*BO! TEST POR A UNIT ADDREAA OF 'B? 
44 JE SETB JUMP IF THERE IS ONE 
&2 TBN 1(,XR1),X*108 TEST FOR LAST ENTRY 
43 LA 3(,XR1) ,XB1 STEP POINTER TO NEXT ENTRY 
ay BF UFIND2 CONTIWDE IF NOT THE LAST ENTRY 
as B PRINT TO PRINT ALL UNITS SELECTED 
OA5& 46 pc XL1°06°* FLAGS 
0a55 a7 DC IL1'26% LENGTH 
OAS? 48 oc AL2 (NOUNIT) MESSAGE ADDRESS 
&9 aVI SETSW,0 
0B10 50 NYC UDTPTR(2) , TWOZR 
51 B LOAD TO PRINT NO ENTRIES LEFT 
OA67 52 pc XL2°a08 FLAGS 
53 
OBOB 5& SETA BZZ LDPCR+1,SPNDLA SET TO RUN ON SPINDLE ‘a? 
55 HVI SPNSSG,C'1°* SET MESSAGE FOR SPINDLE *1' 
56 J SETBTH FROCEED 
57 
OBOC 58 SETB MZZ LDPCR+1,SPNDLB SET FOR SPINDLE B. 
59 AVI SPNMSG,C'2! SET MESAAGE FOR SPINDLE '2! 
60 TBN 2 (X81) ,x*018 TEST OPTION BIT FOR REMOVALILE ONLY 
61 JF SETBTH JCP IF OFF 
62 HVI RESVDS,X*FF!# SET SWITCH TO RON REBOVABLE ONLY 
63 
64 SETBTH LA 3(,XR1) ,XR1 STEP POINTER TO REXT ENTRY 
65 S% UDTPTR, XR1 
19FD 66 NZZ LDPDR+1, LDFCR1 SET FOR CURRENT SPINDLE 
19FD 67 MZZ SIO+1,LDFPCR+1 SET FOR CURRENT SPINDLE 
19 FD 68 HZZ WAIT+1,LDPCR¢1 SET FOR CURRENT SPINDLE 
19FD 69 NZZ TSTERR+1,LDPCR+1 SET POR CURRENT SPINDLE 
O6APR70 22M AY70 O1A0G70 PROG ID OA0B-2 
571516 $71513 §71531 PAGE 1 
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IBN MAINTENANCE DIAGNOSTIC PROGRAS 


AO0B2 
ERR LOC 


OAAS 
OAAE 
OABS 
OABA 
oaco 
OaACS 


0acs 
oacg 
OACD 
OADO 
OAD4S 
OADS 
OADS 
OADA 
oaDc 
OAEO 
OAE1 
OAE2 
OAES 
OAES 


GAEC 
OAP4 
OAFC 
OBO4 
0B06 


0B 08 
OBO09 
OBOA 
OBOB 
0B0C 
OBOD 
OBOE 
OBOF 
OBT4 
OB12 
OBTA 
0B22 
0B25 
OB2D 
0335 
0B3D 
OBu5 
OBAD 
0B55 
OB5D 
O0B65S 


DATE 
EC WO. 


SCAN 


OBJECT CODE 


08 
08 


00 
06 
08 00 
08 00 
CG 87 
02 


3c 
38 
F2 
3c 
co 
01 
29 
OB65 
co 87 
06 

18 

OBSC 


CB 
08 
90 
67 
87 


1A77 
19A3 
TAAE 
1AB2 
1995 


OBOA 
T9aCc 
04 

OBOA 
O21A 


O21A 


Low 


19FD 
I9FD 
19FD 
19PD 


3c 00 1AF6 
cO 87 0000 


C1ID3D340Z4DSC 9E3 
E249C8C1E5C5&0C2 
CSCSDS40E3C5SE2E3 
c5c4 
0000 


00 

00 

00 

AO 

BO 

00 

00 

0600 

00 
CODSESCIDICICRYO 
E2E2E640E2C5E3E3 
c3DSCc7 

D5D6E640 EIC5SE2ZE3 
CIDSCTHOCHCIE2DZ 
YOCEDSCIESCSLOET 
C2CS5CICIDSHOE2ZC3 
CIDSYON3DS E64 ODE 
DYSOCSDBEYCID3&8O 
C6ESDSC3IE3ICIDEDS 
& O0EICSE2 E34 0C1F0 
C2 


T3BAR7T 
571512 


0 


O6APR7 
5717516 


OR 


ADDR 


oacy 


OADS 
OADS 
OADB 


OAEO 
OAE1 
OAE3 


CBOS 


0B07 
0232 
OBOS 
OB09 
OBOA 
OBCB 
OBO0C 
OBOD 
OBGE 
0510 
OB11 
OB24 


OB3C 


0B65 


0 


PART FO. $129680 
PAGE 1A 
a 
EQOQAL 
STMT SOURCE STATEMENT 
70 MZZ TSTSCN+1,LDFCR+t1 SET FOR CURRENT SPINDLE 
71 ZZ SNS*+1,LDPCR¢1 SET FOR CURRENT SPIWDLE 
72 NZzZ RLDFCR+1,LDFC241 SET FOR CURRENT SPIRDLE 
73 N2Z RS10+1,LDFCR+1 SET FOR CURRENT SPINDLE 
74 B SENSE 
75 DC XL1°O02* ASK FOR DEVICE STATUS RAYTES 0 6 1, 
76 
77 SVI TRACK#, 203 SET FOR FOLL CAPACITY DISK 
78 TBR STATUS, X'08! TEST 1/2 CAPACITY BIT 
79 JF PRTSPN JUS? IF OFF 
80 AVI TRACK#, 103 SET FOR 1/2 CAPACITY DISK 
81 PRTSPN B PRINT TO PRINT SECTION HEADING 
82 pc XL7"°OT® FLAGS 
83 DC IL? LENGTH 
8& oe AL2 (SECHSG) MESSAGE ADDRESS 
$5 B PRINT TO PRINT SPINDLE 
86 ye XL1°06° FLAGS 
87 pe IL1*2a¢ LENGTA 
88 pe AL2(SPNSSG) MESS&GE ADDRESS 
89 avr FRSTPS,0 SET SWITCH FCR RECALI BRATE 
90 SETEXT B s—* EXI7T 
91 
92 NOUNIT DC CL26'ALL UNITS HAVE BEEN TESTED* 
92 
92 
92 
$3 JDTPTR DC XL2°0' 
$4 UTAB Fou X*232¢* 
95 RESYDS DC IL1*°O* 
96 SETSW DC XL7*oO* 
97 TRACK# DC XL1'00* sb 
98 SPNDLA DC IL1'AO0* “a 
99 SPNDLB DC XL1'BO® 
100 RONESV DC XL1*°O* sf 
101 RONFIZX DC XLi*Oo°* wt 
102 TWOZR DC XL2*O* 
103 PASS oc XL1°O? 
104 INVFLG DC CLI9* INVALID SSW SETTING 
104 
108 . 
105 SPNASG DC CL24"' NOM TESTIEG DISK DRIVE x* ae 
305 
105 
106 SECHSG DC CL41* BEGIN SCAN LOW OR EQUAL FUNCTION TEST AOB‘ 
106 
106 P 
106 : 
106 
7106 
3 
fe 
o 
22HAY70 6140670 PROG ID OaAO0B-2 ee 
§71513 571531 PAGE 1A 


IBA SAINTENANCE DIAGNOSTIC PROGRAN 


' ADB2 


SCAR Log OR RFQoOoAtL 
ERR LOC OBJECT CODE ADDER STMT SOURCE STATESENT 
0OB66 34 08 OBES 108 TSTSPR ST TSTEXT+3,ARR 
OB6A 3D 00 0511 109 cui PASS,0 
OB6E F2 01 07 17C JNE SETS PS 
0571 3C FF 0811 111 aVI PASS, X'PF® 
OB7S F2 87 OC 112 J TSTS# 
0B78 OD OT OBOE OB10 113 SETSPH CLC RONPIX(2) ,TWOZRE 
OB7E F2 81 64 718 JE ZROCTR 
0B81 F2 87 3C 115 J SETRAMY 
116 
OB84 38 06 O20A 117 TSTSY TER SECTSY, X* 06° 
9B88 F2 90 16 178 JF TSTEAY 
OBBB CO 8&7 O27A 119 BE PRINT 
OBSF Cé OBBF 120 bc XLI°C6® 
0B990 43 0B90 «121 pe ILi*7g9¢ 
OB94 OB24 OB92 122 be AL2 (INVUPLSG} 
OB93 AOPS OB98 123 bc XL2* ROPAt 
, 125 
OB35 CO 8&7 0222 125 B HALT 
OBS9 AOFA CBSA 426 be XL2'BOPA® 
OB9B CO 8&7 0212 $27? B TEST 
OB9P CO 8&7 OBS8& 128 B TSTSe 
123 
OBA3 36 08 02048 130 TSTRAY TREK SEC1S#, ¥* Ok? 
OBA? F2 10 OW 731 JT TSTPIE 
OBAA 3C FF OBOD 132 aVE ROUKRAV, X°PF* 
133 
OBAE 38 02 O20A 134 TSTPIX TSN SECTS#,X*02* 
OBB2 F2 10 OB 135 JT SETRAV. 
OBBS 3D PF OB0B 136 cLI RENVDS, X°PF¢ 
OBB9 F2 81 OG 137 JE SETEASY 
OBBC 3C FF OBE 138 BVI RUNFIX,X*FF'® 
OBCO 3D 00 OBOD 133 SETRMY CLI RONREV,0 
OBCS F2 81 OB 140 JE PIXED 
OBC? 3C 00 AFB Thi AVE DISKTP,6 
OBCB 3C 00 OBOD 142 HET SUNRAY,0 
OBCP F2 87 OF 183 J TSTEXT 
44a - 
OBD2 3D 00: OBOE 145 FIXED CLI .RONFIX,0 
CBD6 F2 81 OC 186 JE ZROCTR 
OBD9 3c O08 1AFB 147 AVI DISKTP, xX*08* 
CBDD 3C 00 OBOE 148 AVI RUNPFIX,9 
. 149 
OBE1 CO 87 0000 150 TSTEXT B +-% 
151 
OBES 3D O08 OA03 152 ZROCTR CLI X*0A03*,08 
OBE9 3C 00 OB11 153 BVI PASS,0 
OBED CO 01 0216 15% BNE LINK 
OBF1 3C 00 OBOS 455 AVI SETSW,0 
OBFS CO 87 0000 156 B 0 
DATE TIMARTO O6APR70 228 AY70 01A0G70 
EC NO. 571512 571516 571513 5371531 
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PART HO. 51296480 
PAGE 2 


STORE EXIT ADDRESS 

IS THIS THE FIRST TIME THROUGH 7 
JUMP IF NO 

SET SWITCH 

PROCEED TO TEST SWITCHES 

HAVE ALL DISKS BEEN RUN? 

JUMP IF YES 

JOMP IF Ko 


TEST FOR BOTH SS¥*S 15 & 16 GR 
JUBP LIP BOTH ROT OR 

TO PRINT £NVALID SSH SETTING 
FLAGS 

LERGTE 

BESS&GE RDDRESS 

EESSAGE IB 


TO DCP ERROR dAaLt 
HALT ID 
TO READ CONSOLE SWITCHES 


TEST FOR SWITCH 15 OF 
JUMP IF O8 
IF NOT OB, SET TO RUN REMOVABLE DISK 
TEST FOR SWITCH 16 ON 
JUNP IP ON 
TEST FOR RUN REMOVABLE ONLY | 
JUMP TO BYPASS RUNNING FIXED 
IP NOT ON, SET TO RUN FIXED DISK 
DO WE WANT TO RUN ON RESOVABLE? 
JUSP IF NO 
SET TO RUN ON REMOVABLE a 
CLEAR RUN REMOVABLE SWITCH 
TO EXIT : 


DC WE WANT TO RUN OW FIXED? 
JUSP IPF NO 

SET DISK TYPE TO PIXED 
CLEAR RON FIXED SWITCH 

EXIT 


CHECK FOR LAST ROUTINE 
ZERO SWITCH 


RESET SWITCH 


PROG ID OA0B-2 
PAGE 2 
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IBA SAINTENANCE DIAGNOSTIC PROGRAN 


A0B2 


ERR LOC 


OBFS 
OBF2 
OBFB 


OBFD 
ocot 
ocos 
0cos 
OcoD 
OCc11 


0ci15 
ocis 
ociD 


0c23 
0c 27 
0c28 
0c29 
0C2B 
0C2F 
0c33 
0037 
0C3B 
0c 3c 


OC3D. 


Oc3F 
OCc4&l 


ocRsS” 


0c47 
oc4s 
oc4éc 


ocso 


0c53 
0C57 
0c58 
ocs9 
OCSB 
OcSD 
0c61 


0c63 


0Cc67 
OCEF 
Oc?7 
OC7F 
0c87 
OCc8F 
0C96 
ocgc 
OCAS 
OCAC 
OCBS 
OCBC 
Occ4s 
occc 
ocDoO 
OcD8 


DATE 
Ec no. 


SCAN LOW OR BQGAL 
OBJECT CCD¥ ADDE STN? SOURCE 
158 © 
159 @ 
160 ¢ 
161 
162 * 
163 
07 OBF9 164% RTHi 
09 OBFA 1765 
OcDP OBPC 166 
167 
3p 00 OBCS 468 BEGIK 
CO 81 OAOD 159 
CO 87 OB66 170 RTH 
3c 60 19A8 175 
3C 00 198E 172 
CO 87 1817 173 
178 
co 87 1880 175 RTW1A1 
3c FF 1991 176 
Oc 01 1993 OBIC 177 
178 
cO 87 19C4 179 
03 0c27 180 
01 oc28 181 
1990 . OC2a 182 
cO 87 0cC37 183 
co 87 0c33 184 
CO 87 0c4a7 185 
cO 87 0212 186 RTWIA2 
C6 OC3EB 187 
43 oc3c 60188 
OCDE OC3E 189 
A060 ocs0 6190 
CO 87 9222 194 
A060 COCKE 192 
193 
CO 87 1995 194 RTWIEB 
02 OC4B 195 
38 O08 19AB 196 
197 * 
F2 10 10. 198 
fe 199 
CO 87 O21A 200 
cé 0c57 201 
uc 0c58 202 
OFBF OC5A 203 
A061 ocsc 2048 
CO 87 0222 205 
A061 0C62 206 
207 
cO 87 ocos 208 RTNIC 
209 
E3C8C54OD7TDICSES OC9S5 210 
‘CIDGEXE2ZSO0CSD9D9S - 210 
D6D9E240D6C3C3E4 210 
DIDSCSC&YUOE6CBC9 210 
D3ICS&OE2ZCSCS5D2C3 210 
D5C740 Z3C8C540 230 
C3C5ROC3E8D3 Oc9B 211 ERRORS 
E2C3C1IDSYOD3D6E6 OCCP 212 
BODEDINOCSD8ENC1 212 
D34OP8E2C9DSC74HO 212 
C140D5D6D54 0C5E7 212 
CIEZE3ICIDSE34O0E2 212 
C5CIEZDED980CICK 212 
¥OCHCICL 212 
KOCTCSESC540C5D9 OCDE 213 ERRIA 
D9ID6D940404040 213 
13MAR70 O6APR70 22MAY70 
571512 571516 571513 





PART #8O. 51296480 
PAGE 2a 
STATEMENT 
ROUTINE NO. 01, CHECK PUNCTION OF HO RECORD FOUND e 
SENSE BIT, (BYTE 0, BIT 5) ¢ 
USING THE SCAE LOW OR EQUAL COANAND € 
ROUTINE PREFACE 8 
pe XLiIfO1 KRCUTINE WO. 
DC XL1*°00¢ ROUTINE FLAGS 
DC AL2 (RTR2} ADDRESS OF NKEXT ROUTINE 
CLI SETSH,0 HAVE PARAMETERS BEER ERTERZD? 
BE SETDSK BRAWCH IP HO 
B TSTSPH 
HYI STATUS-1,0 ZERO SENSE AREA 
AVI WETDFC+2,0 SET FOR HEAD 0, SECTOR C 
B SEEKCE TO SEEK THE CE TRACK 
B TSTSEK TO TEST POR GOOD SEEK 
avi BDDPC+1,X°PP* SET CYLINDER NG. TO PORCE & BRF. 
BVC RDDFC+3(2) ,THOZE SET TO START AT TRACK O,SECT. 0 
B STRTIO TO I/O SUBROUTINE 
DC XL1°03° FUNCTION CODE (SCAR) 
Dc XL7"O18 CONTROL CODE (LOW OB EQUAL) 
re AL2 (RDDFC) CONTROL FIELD ADDRESS 
B RTN1R2 GOOD RETURN, (NOT EXPECTED) 
B eeg ‘ 
B RTNTB NORMAL RETURN FROM EXPECTED ERROR 
B PRINT - TO PRINT ROUTINE ERROR 
pe XL1*c6* FLAGS 
DC IL1*67¢ - LENGTE 
DC AL2 (ERR1A} ADDRESS OF LAST PRIWT CHARACTER 
pc XL2*a0608 MESSAGE ID | 
B HALT TO DCP HALT 
Dc XL2°2060° HALT ID 
5 SENSE TO SENSE 1/0 SUBROUTINE 
pC AL1(STATO1) DEVICE STATUS BYTES 0 & 1 
TBR STATUS-1,X'04° TEST BYTE 0, BIT S FOR OF 
THIS IS *NO RECORD FOUND® 
JT RTNIC JUMP IF ON 
B PRINT TO PRINT ERROR 
pc XL1"°C6* FLAGS 
pe IL1*76# LENGTH 
pc AL2 (EBR1B) ADDRESS OF LAST PRINT CHARACTER 
DC XL2*a061° MESSAGE ID 
B HALT TO DCP HALT 
DC XL2*a061° . HALT ID 
B RTNTA ROUTINE EXIT 
DC CL&7*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE ° 
pc CLO6*CE CYL* 
Dc CL52*SCAN LOW OR EQUAL USING A NOW EXISTANT SECTOR ID DID* 
4 
pc CL15° GIVE ERROR® 
4 
01AUG70 PHOG ID OaA0B-2 4 
571531 PAGE 2a 
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aA “Ve . o 
IBS MAINTEHARCE DIAGNOSTIC PROGRAB PART ¥O. 5129680 IBS MAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129680 
PAGE 3 PAGE 3a 
ci9o ° 
A0B2 SCAREF LOW OR EQUAL A0B2 SCAER LOW OR EOUAL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT Cc | 0 ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT ° 
215 © ROUTINE WO. 02, TEST SETTING OF THE SCAN FOUND * 0D79 3D FF 198F 283 RBTR2C1 CLI W&RTDFC+3,X'FF* TEST SECTOR COUNTER FOR STEPPIEG. 
216 © CONDITION 6& BRANCHING ON A TIO * Oo; 0 OD7D F2 81 10 288 JE RTN2C2 PROCEED IP OK. | €: 
217 © USING THE SCAN LOW OR EQUAL COMSNAND * . OD80 CO 87 O21A 285 B PRINT TO PRINT SECTOR COUNTER NWOT STEPPED 
218 # WITH AN EQUAL CONDITIO¥ * ODB4& C6 OD8& 286 Dc XL1°C6! FLAGS 
219 o;1eC OD85 2B 0D85 287 DC IL1*43¢ LENGTH g 
OcDF 02 OCDP 220 RTN2 pc XL1*02° ROUTINE NUMBER OD86 OET7C OD87 288 DC AL2 (ERRO2B) MESSAGE ADDRESS 
OCEO 00 OCEC 221 pc XL7*00° ROUTINE FLAGS OD88 2063 ops? 289 nc XL2*a063° MES: AGE IDENTIFICATION 
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457 
4u58 La WORK, XR1 SET WRITE DATA ADDRESS 
459 ST DFDR,XR1 IN DATA CONTROL PIELD 
460 
861— B ’ STRTIO TO WRITE DATA, (1 SECTOR) 
462 pc XL1°025 FUNCTION CODE (¥RITE) 
863 pc XL1*008 CONTROL CODE (DATA) 
Lou pe AL2 (WRTDFC} CONTROL FIELD ADDRESS 
465 B RTNSB1I. GOOD RETURN 
£656 B 248 
&67 B WRTER2 ERROR RETORN 
a68 . 
869 RTNUB1 NVI SNSID,X*68°* PUT ID IN PRINT . 
470 MVC WRTIDFC+3(2),TWOZR SEI TO START AT TERACK 0, SECT 0 
474 NVI WORK* 100, X'"FE* SEY DATA FIELD FCR WO SCA® 
472 * EQUAL GN A LOW Of EQUAL 
473 : 
478 B STRTIC TO READ DATA 
875 pc XL1*03* FUYCTIOK CODE (SCAR) 
R76 pc XL1°01° CONTROL CODE (LOW OR EQUAL) 
&77 Dc AL2 (9RTDFC) CONTROL FIELD ADDRESS 
478 B RTRYB2 RETURN FOR NO SCAN FOUND (NOT EXP.) 
479 B RTNSC1 RETURN FOR SCAN FOUND (EXPECTED) 
480 
881 RTRSC 8B PRTSKS TO PRINT SENSE INFO: 
482 B PRIKT TO PRINT 3RD LIBE 
483 pc XL1°06* FLAGS 
484 pc IL1*64# LENGTH 
485 pc AL2{ERROSA) MESSAGE ADDRESS 
486 B HALT TO DCP HALT 
487 DC XL2*a068! HALT 1D 
488 
489 RTNYBZ B PRINT TO PRINT NO SCAN FOUND WHEN EXPECTED 
490 DC XLi*cé? FLAGS 
491 pc IL1°73¢ LENGTH 
492 pc AL2 (EERROS 8B) MESSAGE ADDRESS 
4993 DC KL2*2069! MESSAGE IDENTIPICATION 
B94 B HALT TO DCP HALT 
¥95 Dc XL2*a069* HALT ID 
896 
497 RTNSC1 B SENSE TO SENSE DEVICE STATUS 
a98 pc AL1{STRTO1) ASK FOR SENSE BYTES 0 & 1 
499 TBN STRTUS, 1°80? TEST THE SCAN FOUKD BIT 
500 JF RTRSD JUMP IF OFF 
501 B PRIKI 
502 pc XL1°C6é! FLAGS 
22 AY70 01AUG70 PROG ID OAOB-2 
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574 
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IL1*89? 
AL2 (ERRO4C) 
XL2"AO6A? 
HALT 
XL2°A06A" 


LENGTH 

FESSAGE ADDRESS 
RESSAGE IDENTIFICATION 
TC DCP HALT 

RALT ID 


RTNSA 
CLS2°*THE PREVIOUS EREORS BERE PRESENT AFTER DOING A SCAN * 


CLi2'*LOW GR EQUAL' 


CLYSB'SCAN FOUND CONDITION NOT DETECTED BY A TIO WHER * 


CL25'THERE WAS A LOW CONDITION?® 


CLU3'*SCAN EQ. SNS. BIT, (BYTE 1 BIT 0), ON AFTER! 
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TEST SCAN LOW OR EQUAL BY SCANNING ® 
MULTIPLE SECTORS WHERE 23 SECTORS HAVE e 
REER WRITTEN WITH -O1-, AND THE 24TH s 
SECTOR 1S WRITTEN WITH ALL ZEROS & 


XL1°05# 
XL1"00# 
AL2 (BTN6) 


SETSW,0 
SETDSK 
TSTSPR 
WETDFC#2,0 
SEEKCE 


TSTSEK 

TSTSEC,0 
WORK, XR1 
DFDR, XR1 


WORK+5177,0 


ROUTINE WUABER 
ROUTINE PLAGS 
ADDRESS OF NEXT ROUTINE PREFIX 


HAVE PARAMETERS BEER EXTERED? 
BRANCH IF RO 


SET POR HEAD 9, SECTOR @ 
TO SEEK THE CE TRACK 


TO CHECK POR & GOOD SEEK 
SET TEST SECTOR RURBER 
SET WRITE DATA ADDRESS 
IN DATA CONTROL FIELD 


SET 


WORK+510 (255) ,WORK4511 DATA 


BRORK+ 255,01 


WORK+254 (255) ,WORK+255 FIELD 


SERTDFC+2,0 


HRTDFC4+3,0 
STRTIO 
XL1°028 
XL17008 

AL2 (WRTDFC) 
RTN5SB2 

een 

WETER2 


WRTDFC+2,X"SC* 
RTNSC 

WRT DFC+2(1) ,OWESEC 
RTNSB1 


READ, XR1 

DFDR,XR1 
WRIDFC+3,0 
WRTDFC#2 (1) ,TSTSEC 


STRTIO 
XL1"02° 
XL1'00° 

AL2 (WRTDFC) 
BTNSD 

44 

WRTER2 


WRIDFC+3,28 
WRIDFC+2,0 
SNSID,X'62° 


STRTIO 
XL1*038 
XL1"'O18 

RL2 (WRTDFC) 
aTRSD1 
RTNSE 


PETSWS 
PRINT 
X27°06° 


01AUG70 
571531 


SET TO START AT SECTOR 0 


SET TO WRITE ONE SECTOR 
TO IvO SUBROUTINE 
FUNCTION CODE (WRITE) 
CONTROL CODE (DATA) 
CONTROL FIELD ADDRESS 
GOOD RETURE 


ERROR RETORE 


TEST POR SECTOR 23 

JUNP TO WRITE TEST SECTOR IF 
NOT DONE,STEP TO WECT SECTOR 
TO ®RITE NEXT SECTOR 


DONE 


SET DATA FIELD ADDRESS 

IB DATA CONTROL FIELD 

SET TO WRITE ONE SECTOR 

SET SECTCR NUMBER IN CONTROL FLD. 


TO BRITE THE TEST SECTOR 
FONCTION CODE (WRITE 
CONTROL CODE (DATA) 
CONTROL FIELD ADDRESS 
GOOD RETURN 
ERROR OW DATA WRITE 

SET TO SCAN 2& SECTORS 

SET TO START SCAN AT SECTOR 0 
PUT ID IN PRINT 


TO SCAN 28 SECTORS 
FUNCTION CODE (SCAR) 
CONTROL CODE (LOW OR EQUAL) 


CONTROL PIELD ADDRESS 
RETORN FOB KO SCAN FOUND, (NOT EXP.) 
RETURN FOR SCAN POUND, (EXPECTED) 
TO PBINT SENSE INFO. 
TO PRINT 3RD LIBE . 
FLAGS 
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| Oo 9 
a0B2 SCAN LOW OB EQDAL AOB2 SCAW LOW OR EQUAL 
ERR LOC OBJECT CODE ADDR STBHT SOURCE STATEMENT © , G& ERR LOC OBJECT CODE ADDR STBT SOURCE STATEMENT 
1368 4E 136B 585 DC IL1°78* LENGTH 1467 80 638 
136c 1436 136D 586 pc AL2 (ERROSA) MESSAGE ADDRESS GS 6 1868 CSDBELCID340E6CS 748A 639 ERROSB DC CL35" EQUAL WHERE SECTOR WO. XX WAS EQUAL® 
136E CO 87 0222 587 B HALT TO DCP HALT 44870 CS5SD9CS4OE2CS5C3E3 639 
1372 2062 1373 588 pc XL2*A062' HALT ID 1478 D6DSSODSDE4BU0E7 639 
1374 CO 87 1392 589 B RTNSE PROCEED TO NEXT CHECK Go © 1480 E74OCE6C1E240C5D8 639 
590 1488 E4C1D3 633 
1378 cO 87 1089 591 RTNSD1 B SHIFT TO SHIFT BITS IN SECTOR HC. 148B E2C2"1DS8OCSD8E4 714AR 640 ERROSD DC CL32'*SCAN EQUAL OCCURRED AT SECTOR Xx? 
137¢ 16CC 137D 592 pc AL2 (TSTSEC-2) ADDRESS OF SECTOR BYTE 9.0 1493 CID34OD6C3C3EKD9 640 
V37E CO 87 ICDA 593 3 cvD TO CONVERT TO DECIMAL 189B DOCSCHSOCTE340E2 640 
1382 1CCE 1383 594 DC AL2{(CYLNO) ADDRESS OF SOURCE 14A3 CSC3E3DED94 CETEF 640 
1384 1480 1385 $95 be AL2 (ERROSB-10) ADDRESS OF DESTINATION to Pea 1WAB 6BYOEZCBSD6ESD3C4K 474CD 641 ERROSC DC CL35', SHOULD HAVE OCCURRED AT SECTOR XX* 
1386 3C 4O T47E 596 MVI ERROSB-12,c' * | 14B3 GOC8C1E5C540D6C3 641 
138A CO B87 OZTA 597 B PRINT TO PRINT NC SCAN FOUND : 14BB CI EMDIDICSCUROCI 681 
138E C6 138E 598 pc XL7°C6! FLAGS © G 14C3 E340E2CSC3E3D6D9 641 
1387 54 138F 599 pc TL1*64u! LENGTH 18CB YOETE7 631 
1396 1482 1391 600 c AL2 (ERRO5SB) MESSAGE ADDRESS 14CE 00 14CE 642 TSTSEC DC XL1i"0° 
1382 1066 1393 601 DC XL2*A066! MESSAGE IDENTIFICATION Cc Cc IUCP C8CSCICS4OSONOE2 1502 643 pc CL52"*HEAD & SECTOR BYTE OP CONTROL FIELD CHARGED AFTER A ° 
139% CO 87 0222 602 B HALT TO DCP HALT 14D7 CSC3E3DED940C2ZEB 643 
1398 A066 1399 603 pc XL2* A066" HALT ID 1UDP E3CSYODECE6S0C3D6 6493 
604 GG 1WE7 DSE3D9LS6D340C6C9 683 
13SA 0D 09 198E 14CE 605 RTNSE CLC WETDFC4+2(1),TSTSEC DID SCAN EQUAL OCCUR ON VHEF CSD3CHULOC3ICB8C1IDS 643 
606 * EXPECTED SECTOR ? 44F7 C7C5C480C1C623C5 643 
1300 P2 81 34 607 JE RTNSP JUMP IF YES 0 0o 1WFF D940C140 643 
1343 CO 87 1C89 608 B SHIFT TO SHIFT SECTOR BITS 1503 F24N0E2CSC3E3D6D9 1528 644 ERROGD DC CL&i'2 SECTOR SCAB LOW OR EQUAL AT END OF CYL.* 
13A7 198c 13A8 609 DC AL2 (WRT DFC) COXTROL FIELD ADDRESS 150B 80E2C3C1D540D3D6 644 
13a9 CO 87 ICDA 610 B cvD TO CONVERT TO DECIMAL a6 1513 E64 0D6D9K0C5SD8ES 699 
{34D 1CCE W3AE 611 pc AL2 (CYLNO) ADDRESS OF SOURCE 181B CID3XCCTE34XOCSLS 648 
13QAF GAA 1330 612 DC AL2 (ERROSD) ADDRESS OF DESTINATION 1523 C44ODECE4NDC3E8BD3 644 
13E1 3¢ 40 14:8 613 MVI ERROSD-2,C* * CG Cs 152B 4&B 6a4 
614 
1335 CO 87 1¢89 615 B SHIFT TO SHIFT BITS FOR EXPECTED : 
13BS 14CC 13BA 616 pc AL2 (TSTSEC-2) ADDRESS OF EXPECTED FIELD So oe s 
13BB CO 87 1CDA 617 B cvD TO CONVERT EXPECTED TO DECIMAL 
13BF 1CCE 13CO0 618 pc AL2(CYLNO) ADDRESS OF SOURCE 
13C1 T4CD 13C2. 619 pc AL2 (ERRO5C) DESTINATION ADDRESS oO oO 
13€3 3c 80 14CB 620 MVI ERROSC-2,C* * | 
621 
13C7 CO 87 O21A 622 B PRINT TO PRINT SCAN EQUAL ON INCORRECT @ |e - 
623 * SECTOR 
13CB C6 13CB 624 pe XL7°C6# FLAGS 7 
13CC 43 13cC 40625 pc IL1°67! LENGTH © | CS 7 
13CD 14CD 13CE 626 pc AL2(ERROSC) MESSAGE ADDRESS “ 
13CF A06C 13D0 627 pc XL2*aA06C! MESSAGE IDENTIFICATION 
13D1 CO 87 0222 628 B HALT TO DCP ERROR HALT G/1e 
13D5 acéc 13D6 6293 DC XL2*a06C? HALT ID 
630 
13D7 OF 00 18CE 18F5 631 RTNSF ALC TSTSEC(1) ,ONESEC STEP TEST SECTOR NO. +1 O10 ae 
13DD 3D 60 14CE 632 CLI TSTSEC,X'60! HAVE ALL SECTORS BEEN USED ? 
13E1 CO 81 12C3 633 RTNSG BE RTNSA | 
13£5 CO 87 12D7 634 B RTNSB TO USE NEXT SECTOR IF NO 8019 
635 
13E9 E3C8C54OD7TDIC5ES 141C 636 pc CL52'THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAN * 
1371 CIDGEVE2ROCSD9DY 636 CGC Oa 
13P9 D6DIEZ4OE6CSDICS 636 
1401 SOD7D9CSE2C5D5E3 636 . 
1409 4OCIC6E3C5D94 0C4 636 Cc °8o 3 
1411 D6ECIDSC74HOC1INOE2 636 
1819 C3C1D540 636 
1W1D DIDE6EGSODE6D940CS5 1436 637 ERROSA DC CL26*LOW OR EQUAL OF 24 SECTORS* o 9 
1825 D8EYC1D340D6C640 637 
142D F2F4GOE2C5C3E3D6 637 ; 
1835 D9E2 637 Oo oOo fo 
1437 E2C3C1D540C5D8E4 1467 638 pc CL49*SCAN EQUAL NOT SET AFTER A 24 SECTOR SCAN LOY OR * 
183F C1D34 ODSDEEIUOE2 638 
1867 CSE34N0CIC6E3C5D9 638 o 98 7 
TEP SOC1ROF2F4U4N0E2CS. 638 
1857 C3E3D6D940E2C3C1 638 
185PF DSSOD3D6E64 ODED9 638 © oe o 
| 
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PAGE 8 PAGE 8A | 
oO e | -— o é " . -~ ca 
AOB2 SCAR LoOo#® oR EQUAL AOB2 SCAR Low Oo 8 Foo atL 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT S GS ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMEST fe 
646 * ROUTINE NO. 06, CHECK FUNCTION OF END OF CYLINDER * 714 3, 
647 © SENSE BIT, (BYTE 1, BIT 2) * QO oOo 15B8 CO 87 0222 715 B HALT TO DCP HALT i 
683 + USING THE SCAN LOW OR Eg. COMMAND * 15BC ANSE 1SBD 776 pc XIL2° AOQGE® HALT IDENTIFICATION 
689 717 
650 * ROUTINE PREFACE Go 8s 15BE CO 87 1848 718 RTK6D B TSTDAT TO TEST DATA ADDRESS o 
651 15C2 1D48 45C3 719 Dc AL2 (WORK) EXPECTED ADDRESS 
152¢c 06 152¢ 652 RTN6 DC XL1"06! ROUTINE NUMBER 720 
152D 00 152D 653 pc XL7i*00° ROUTINE FLAGS Q o iSc4& 3D OC 198F 721 CLI WETDFC+3,00 TEST SECTOR COUNTER FOR STEPPING 
152E 1701 152F 658 pc AL2(RTN7) ADDRESS OF NEXT ROUTINE PREFIX 15CB8 F2 81 10 722 JE RTNGE JUMP IF CORRECT 
655 1SCB CO 87 O21z 723 B PRINT TO PRINT SECTOR COUNTER WOT 
1530 3D 00 03809 656 CLI SETS#,0 HAVE PARASETERS BEEN ENTERED? o SG 724 3 STEPPED CORRECTLY 
1534 CO 81 OADD 657 BE SETDSK BRANCH IP WO. 1ISCF C6 i5CF 725 Dc KL1°7C6? PLAGS 
1538 CO 87 OB6E 658 BTNSA B TSTSPN 15D0 60 15D0 726 DC IL1°96? LENGTH 
153C 3c DC 198E 659 NVI WRTDPC+2,xX'DC? SET FOR READ 1, SECTOR 23 o G 15D1 1700 iSD2 727 pc AL2 (ERRO6C) MESSAGE ADDRESS 
15490 cO 87 1817 360 B SEEKCE TO SEEK THE CE TRACK 15D3 A063 15D&u 728 DC XL2*2063° MESSAGE IDENTIFICATION 
667 729 
1544 CO 87 7880 662 RTN6A1 B TSTSEK TG TEST FOR A GOOD SEEK Co 86 15D5 CO 87 0222 730 B HALT TO DCP HALT 
643 15D9 A063 i5DA 731 DC XL2'A063° HALT ID 
1588 3¢ 07 1E47 668 RTNGB MMVI WORK+255,01 SET 732 
156C OC FE 7E&6 1E47 665 MVC  WORK#254 (255) ,WORK+255 WRITE PIELD Cc 98 iSDB 3D DC 198E 733 RTN6GE CLI WRTOFC+2,x*DC* CHECK HEAD & SECTOR RO. AFTER 
666 734 ® WRITE IS COMPLETED, (SHOULD NOT STP) 
1552 3c 00 196F 667 NVI WRTDPC+3,00 SET TO WRITE 1 SECTOR 1SDP F2 81 10 735 JE RTRGF JUSP IF KO CHANGE 
668 Gc © 15E2 CO 87 021% 736 B PRINT TO PRINT ERROR 
1556 C2 01 1D4a8 669 La WORK, XR1 SET WRITE DATA ADDRESS 15E6 C6 15& 737 Dc XLi'c6! FLAGS 
155A 34 01 IAFF 670 ST DFDR,XR1 IN DATA CONTROL FIELD 15E7 5D 15E7 738 c ILi*#93¢ LENSTH 
671 Gc Cf 15E8 152B 15E9 739 Dc AL2 (ERRO6D) MESSAGE ADDRESS 
155E CO 87 19C4 672 B STRTIO TO WRITE DATA 15EA AOG6F ISEB 740 pe XL2'*A06F* MESSAGE IDENTIFICATION 
1562 02 1562 673 Dc XL1*02¢ FUNCTION CODE (WRITE) 744 
1563 00 1563 674 pc XL1'00? CONTROL CODE (DATA) CGC 15SEC CO 87 0222 742 B HALT TO DCP HALT 
1564 198C 1565 675 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 15FO AO6P ISF1 743 DC XL2*a06F* HALT ID 
1566 CO 87 1572 676 B RTN6B1 GOOD RETURK 15FP2 CO 87 1538 744 RTK6F B RTH6A 
156A CO 87 156E 677 B +44 o 8 745 
156E CO 87 ODDI 678 B WRTER2 ERROR RETURN 15F6 CISOE3CSE2ZE340C9 1629 746 pc CL52*A TEST I/O ON ERROR DID NOT BRANCH APTER ATTEMPTING * 
679 . ISFE 61D640DED540C5D9 786 
1572 3c 00 1D48 680 RIKGB1 MVI wWORK,O SET DATA FIELD TO PREVENT Oo 8 1606 DSDEDI4OCUCSCHEO 746 
681 * A SCAN FOUND ON LOW OR EQUAL 160E DSD6E340C2D9C1D5 746 
1876 3c 01 198F 682 HVI WRTDFC+3,1 SET TO SCAN 2 SECTORS 1616 C3C840C 1C6EICSDY 746 
IS7TA 3C DC 198E 683 BVI WRIDFC+2,x'DC* SET FOR HEAD 1, SECTOR 23 o oO IG1E BOCTEZEICSD4D7TE3 7456 
688 1626 CSD5C740 746 f 
157E cO 87 19C4 685 B STRTIO TO SCAN DATA, (EXPECT END OF CYL.) 162A E3D640E2C3C1D540 164D 747 ZRROGA DC CL35*TO SCAN LOW ORF EQUAL PAST END OF CYL* 
1582 03 1582 686 pc KL1"03° FUNCTION CODE (SCAN) e Cs 1632 DIDEESLODSD9ROCS 787 
1583 01 1583 687 pC XLYIO48 CONTROL CODE (LOW OR EQUAL) 163A DBE4CID3HODIC1E2 747 
1584 198C 1585 688 DC AL2 (W@RTDFC) CONTROL FIELD ADDRESS 1642 E34OCSDS5SCH4ODECE 747 
1586 CO 87 1592 689 B RTN6B2 GOOD RETURN, (NOT EXPECTED) Go oO 164A SOCZE8D3 74u7 
158A CO 87 158E 690 B 44 SCAN FOUND, (NOT EXPECTED) 164E CSDSC4YODECE40C3 1681 748 DC CL52"* ERD OF CYL. SENSE BIT KOT SET AFTER ATTEMPTING TO SC* 
158E CO 87 15A2 691 B RTN6C ERROR RETURN, (EXPECTED) 1656 ESD34BU0E2CSDSE2 788 
692 Co @ 165E C540C2C9E340D5D6 748 
1592 CO 87 O21A 693 RTN6B2 B PRINT TO PRINT NO ERROR FROM TIO 1665S E34OER2CSE3480C1C6 748 
1596 C6 1596 698 Dc XL1°C6* FLAGS 166E E3CSD940C1E3E3C5 748 
1597 58 1597 695 DC —-«xIL1"88 LENGTH Go 8S 1676 D4YDTE3CIDSCTHOES 748 
1598 164D 1599 696 Dc AL2 (ERRO6A) MESSAGE ADDRESS 167E D64S0E2C3 748 
15SA AO6D 159B 697 pc XL2*a06D!" MESSAGE IDENTIFICATION 1682 CiDS8OD3D6E640D6 1640 749 ERP B NC CL31°AN LOW OR EQUAL PAST END OF CYL" 
698 CG © 168A DIXOCSDBESC1D380 749 
159C CO 87 0222 699 B HALT TO DCP HALT ' 1632 DICIZZE340C5D5ca 789 
1540 AO6D 15a1 700 DC XL2*a06D* HALT ID 1698 SODECE4OC3IE8D3 749 
701 Go ¢ 16A1 E2C5C3Z3D6D940C3 16D4 750 ve CL52"*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CORRECTL® 
15Aa2 CO 87 1995 702 RTN6C B SENSE TO SENSE DEVICE STATUS 16A9 DG6EYDSEICSD94OCS 750 
1546 02 1546 703 pc AL1(STATO1) BYTES 0 & 1. 16B1 D54OC3D6D5E3D9D6 750 
708 0.90 16B9 D340C6CICSD3C84O 750 
15a7 38 20 19aCc 705 TBN STATUS,X'20° TEST BYTE 1 BIT 2 FOR OX, 16C1 DSDEEZ4OE2E3CSD7 750 
706 * (THIS IS "END OF CYLINDER‘) 16C9 D7CSCUXOC3IDEDEDY 750 
15AB F2 10 10 707 JT RTR6D JUMP IF ON 6 | 9 16D1 C5C3E3D3 750 
708 16D5 ES¥OCICS6E3C5D940 1700 751 ERROGC DC CL4G'Y AFTER A SCAN LOW OR EQUAL PAST END OF CYL* 
15AE CO 87 021A 709 B PRINT TO PRINT SENSE BIT NOT OF 16DD C140E2C3C 1D5480D3 751 
15B2 C6 15B2. 710 De XL1°C6? FLAGS o 9 16E5 D6E640D6D980C5D8 751 
15B3 53 15B3 711 pe IL1*'63* LENGTH 16ED EXC ID38OD7IC1E2E3 751 
1SB4 16A0 15B5 712 pc AL2 (ERRO6B) NESSAGE ADDRESS 16P5 GOCSD5C44 0D6CH40 751 
15B6 AO6E 1537 «+713 pc XL2'*a06E* MESSAGE IDENTIFICATION Qo ¢ * 16FD C3ESD340 751 
DATE 138AR70 06APR70 22MAY70 8 8=6.0 10670 PROG ID 0a0B-2 G@ CG ovate 138AR70 O6APR70 228aY70 0140670 PROG ID OA0B-2 
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“IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129640 { IBS MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 51296480 
PAGE 9 | PAGE 9A ; 
aQB2 SCAR LOW OR EQUAL | AOB2 SCAN LOW OR EQUAL 
ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT Co lO ERR LOC OBJECT CODE ADDR STHT SOURCE STATEHENT te 
753 * ROUTINE NO. 07, CHECK FUNCTION OF SCAN LOW OR EQUAL 815 * ROUTINE NO. 08, CHECK FUNCTION OF SCAM LOW OR EQUAL * = 
758 * USING A DATA FIELD OF 286 BYTES eo 98 816 * WHERE ONE BYTZ IS COMPARED * o 
755 * OF 5S BOTH IN MEMORY AND ON THE DISK 817 = AHD 255 BYTES ARE MASKED OFF * 
756 818 7 
757 * ROUTINE PREFACE Co So 1785 08 1785 819 RTN@ pC XL1#08° ROUTIKE KUMBER O 
758 ' 1786 00 1786 820 pc XL7°008 ROUTINE FLAGS 
17014 07 1707 759 RTWH7 vc XL1° 07? ROUTINE RUSBER 1787 FFFF 788 821 pc XL2°*FFFP* LAST ROUTINE PLAS as 
1702 00 1702 760 DC XL7°008 ROUTINE FLAGS Oo:s 822 ‘ 
1703 1785 1708 76% DC AL2 (RTNB) ADDRESS OF NEXT ROUTINE . 1789 3D GO CBOS 823 CLI SETSH,0 HAVE PARANETERS BEEN ENTERED ? 
162 178D CO 81 OAOD 824 BE SETDSK BRAWCH IF NO s 
1705 3D CO OBOS 763 CEL SETS#,0 HAVE PRRAMETERS BEEN ENTERED 7? + i 1791 CO 87 OB6E 825 RTHSA B TSTSPE a 
1709 CO 8? OAOD 768 BE SETDSK BRANCH IF NC 1795 3c 00 iS8E 826 HVT WRIDPC+2,0 SET FOR HEAD 0, SECTOR 6 
170D CO 87 B66 765 RTX7A B TSTSPR 1799 CO 87 1817 827 B SEEKCE TO SEEK THE CE TRACK 
1711 3C 00 198 766 BVI BETDFC+2,0 SET FOR HEAD 0, SECTOR 0 © © 828 
1715 CO 87 1817 767 B SEEKCE TO SEEK THE CE TRACK 179D cO 67 1880 829 RTNSAl B TSTSEK TO TEST FOR A GOOD SEEX 
768 830 
1719 cO 87 186C 76S RTH7A1 B TSTSEK TO TEST FOR A GOGD SEEK Oo 17A1 3C OO 1E4&7 831 RTHSB YI WORK+255,0 SET 
770 17A5 OC FE 1E46 1E47 832 BYC WORK+254(255) ,WORK*255 WRITE AREA 
i71D 3C 55 iBu7 771 RTRTB NVI WORK#255,x'°558 SET 833 
1721 OC FE 4246 1TEG7 772 AC JORK+254 (255) ,WORK4+255 DATA AREA Oo .@ 17AB 3c 00 198F 836 AVI BRTDFC+3,0 SET TO WRITE OXE SECTOR 
773 V7AF C2 01 1D48B 835 LA WORK, XR1 SET WRITE DATA ADDRESS 
1727 3c 00 198F 7748 BYI WRTDFC+3,9 SET TO WEITE ONE SECTOR 6 0 17B3 38 01 AFF 836 St DFDR, XB1 IN DATA CONTROL FIELD 
375 837 
172B C2 04 1D88 776 La FORK, XR1 SET WRITE DATA ADDRESS 1737 CO 87 719C4% 838 B STRTIO TO WRITE ONE SECTOR OF DATA 
172F 34 O% 1AFP 777 ST DFDR, XR1 IN DATA CORTROL FIELD 17BB 02 17BB 839 pc XL1°02? FUNCTION CODE (WRITE) 
778 Oo 6 17BC 00 17BC 880 pc XL7°O? CONTROL CODE (DATA) 
1733 CO 87 19CX 779 B STRTIO TO WRITE ONE SECTOR OF DATA 17BD 198C 17BE 841 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
1737 02 1737 780 Dc XL1°02" FUNCTION CODE (WRITE) 17BF CO 87 i7CB 842 B RTNSB1 GOOD RETURE 
1738 00 1738 4781 pc XL1'O# CONTROL CODE (DATA) oO ¢ 17C3 CO 87 17C7 843 B &4+8 
1739 196¢ 1738 782 pc AL2 (WET DFC) CONTROL FIELD ADDRESS 17C7 CG 87 ODDS B44 B WRTERZ ERROR RETURN FOR WRITE DATA 
173B CO 87 1747 783 B RTN7BY GOOD RETURN 17CB 3C 62 1B6A 845 RTNSBI YI SESID,X'62* PUT ID IN PRINT 
173F CO BF 1743 784 B e+ Oo Ss 17CF 3C 01 1£87 B46 HVE WORK+255,01 : 
1743 CO 87 ODDE 785 B WRTER2 ERROR RETURN FOR WRITE DATA 17D3 3C FF 1546 847 AVI WORK+254,X'FF* SET DATA AREA FOR SCAY 
786 17D7 OC FD 1E&85 1E46 848 NYC WORK?253 (25%) ,WORK4+258 . 
4747 3C 62 1B6A 787 RTN7S1 RVI SHSID,X'62* PUT ID IN PRINT co e& 849 i 
1748 3c OO i98P 788 SYI WRTDFC+3,9 SET TO SCAN ONE SECTOR 17DD 3c 00 198F 850 HVI BRTDPC+3,0 SET TC SCAN ONE SECTOR 
1/4P CO 87 49C4 789 B STRETIO TO SCAN EQUAL 17E1 CO &7 79C4 851 B STRTIO TO SCAN ZQUAL : 
1753 03 1753 790 DC XL1703°* FUNCTION CODE (SCAR) G CS 17E5 03 i7E5 852 pc XL1'03* FUNCTIOR CODE (SCAR) “se 
. 9755 04 1758 «(791 DC XL1°01? CONTROL CODE {LOW OR EQUAL) T7E6 O14 I7E6 6853 pc XL1°O1# CONTROL CODE (LOW OR EQUAL) 
1755 198C 1756 792 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS. IEF 198C 17E8 858 DC AL2 (W@RTDPC) CONTROL FIELD ADDRESS 7 
1757 CO 87 1771 733 B RTN7B2 RETURN FOR NO SCAN FOUND o °so W7E9 CO 87 1803 855 B RTNBBZ RETURN POR NO SCAR FOUND i 
175B CO 8&7 1781 798 B ~RTN7C1 RETURN FOR SCAN FOUND WED CO 87 1813 856 B RTNSC1 RETURR FOR SCAN FOURD 
795 857 4 
1757 CO 87 1Bu3 796 B PRTSNS TO PRINT SENSE INFO Go CS 17F1 CO 87 1Bu3 858 B PRTSRS TO PRINT SENSE INFO Le 
1763 06 1763 797 DC XL1°06" FLAGS 17F5 06 17F5 859 DC XL1° 06? PLAGS 
1764 69 1764 798 DC IL1*96! LENGTH 17F6 60 17F6 860 DC IL1* 96! LENGTH - 
1765 1128 1766 4799 DC AL2 (ERRO3A) MESSAGE ADDRESS Go 9 V7F7 112A 17F8 861 pc AL2 (ERR03A) MESSAGE ADDRESS we 
1767 CO 87 0222 800 B HALT TO DCP HALT 17F9 CO 87 0222 862 B HALT TO DCP HALT 
176B A062 176C 4801 DC XL2*a062° HALT ID 17FD A062 17FE 863 Dc XL2*a062¢ HALT ID 2 
176D CO 87 1781 ae B RIN7TC1 oO GC 17FF CO 87 1813 B64 B RTRSC1 * 
865 
1771 CO 87 O27A 804 RTN7B2 B PRINT TO PRINT NO SCAN FOURD 1803 CO 87 O21~A 866 RTHS"™? B PRINT TO PRINT NO SCAN FOUND : 
1775 C6 1775 805 DBC XL1*°C6! FLAGS oO 1807 C6 1807 867 DC XL1°C6" FLAGS tae 
1776 28 1776 806 DC IL1'43* LENGTH 1808 2B 1808 868 DC IL1* 438 LENGTH 
4777 OFT3 1778 807 pc AL2{ERRO2F) MESSAGE ADDRESS 1809 OF73 180A 869 DC AL2 (ERRO2P) MESSAGE ADDRESS = 
1779 A066 177A «6808 pc XL2*aG66" MESSAGE ID eo ¢ 180B A065 180C 870 pe XL2* A066°* MESSAGE ADDRESS Ce 
177B CO 87 0222 809 B HALT TO DCP ERROR HALT 180D CO 87 6222 8714 B HALT TO DCP ERROR HALT 
177F A066 1780 810 pc XL2* 066° HALT ID 1811 A066 1812 872 Dc XL2* 2066" HALT ID 
811 ° 8 873 C 
1781 CO 87 170D 812 RTN7C1 B RINTA 1813 CO 87 1791 874% RTNSC1 B RTNSA 
813 i | 
o 9° & 
9 8 CG 
4 " 
So © 
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a os 
sao SCAN LOS OR 2FDDAL AOB2 SCAN LOW OR EQUAL 
So. N 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ef \/ ERR LOC OBJECT CODE ADDR START SOURCE STATERENT 
& FP RE ERROR OCCURED = 
876 ¢ SUBROUTINE TO SEEK THE CE TRACK i lo a x Gop ecee se SGECCE fnick . 
877 
946 
1817 34 O08 184A 878 SEEKCE ST SEEKEI+3, ARR SAVE RETURN ADDRESS 
v 
181B OC 00 198D OBOA 873 MVC  WRIDPC+1(1),TRACK# SET SEEK ADDRESS TO CE TRACK 0 vee oa ICDA seas ae SEEKER Be ee 
1821 3c 09 1B6A 880 AVI SNSID,09 PUT ID IN PRINT © Sees ages wage 1GEG ae AL2 (ARIVED) 
881 F 
In TO PRINT ERROR OW SEEK 
1825 CO 87 19C4 882 B STRTIO TO SEEK CZ TRACK lo ps oy 87 O21 wees bes re ae Pike 
1829 00 1829 883 DC XL4*0# FUNCTION CODE (CONTROL) o es aa are. gee ee: av aoe Tenced 
e200 oe Bae ne iis DFC} ead ele eaeee 1808 194C 4807 953 Dc AL2(SEKEE1) ADDRESS OF HESSRGE 
182B 198C 18 2c c EPES aoe - i8C *ROaCe MESSAGE IDENTIFICATIOS® 
482D CO B87 1847 886 B SEEKEX GOOD RETURK Gg | 18C8 AO3C 18c9 are SEEKID DC KL2*a03C 
1831 CO 87 4835 887 3 wel TO PRINT SECOND LIRE 
4835 CO 87 1B43 888 B PRTSNS TO DECCDE ERROR | 48CR CO 87 027K 956 B PRINT 
? NT ERROR Gi e 18CE 61 18CE 957 DC XL1701 
1839 CO 87 O2TA 885 B PRINT TO PRINT ER | Gary 47 i8cr 958 pc IL1*23* 
r . 9 3 > G&G 
183D 06 1B83D 890 De KL1°O6 FLAGS | oes Saas ogee a aaa) 
183E 35 183E 691 DC ILi*S3 LENGTH oO ee 
183F OC9B 1880 892 DC AL2 (EREORS} RESSAGE ADDRESS a Bee hae cana aca ‘ sacar TO PRINT SECOND LINE 
1844 CO B7 0222 893 B HALT TO DCP HALT eign Sanh. bes a pe rikce 
696 SUBROUTINE TO DETERMINE IF DATA ADDRESS * pa 
x ; 
aoe ones tener oO os 78DA 3c 00 0B11 966 BVI PASS,O 
899 1BDZ 3C 00 0B09 967 HVI SETSW,O 
184B 34 08 187F 900 TSTDAT ST  DATEXT+3,ARR SAVE RETURN ADDRESS 3 18B2 3¢ od aoe as — on ao ce: PERO E: BARE 
184F 35 02 187F 901 L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POINTER C- 18E6 ae wiiee-"670 ne ES KOget HALT ID 
1853 2C 01 18F1 01 902 MVC WORK1(2),1(,XR2) MOVE EXPECTED ADDRESS FOR COMPARE 18EA AO sien a = - 
1858 CE 01 187F 18P3 903 ALC DATEXT+3{(2),TWO INCREASE LXIT ADDRESS 6 18EC CO B an 
185k CO 87 1995 9048 B SENSE TO STORE DATA ADDRESS Co earecoune aSWi G79 Ones .e AL2 (*-#) 
1862 Au 1862 505 DC AL1{DATA) | seocenes Shae. G45: S65 ae ee oenne 
8 G 
1863 OD 01 19AC 18F1 907 CLC STATUS (2) , WORK1 CHECK DATA ADDRESS GO aes ee ane eee Tes aosteoes) 
1869 F2 87 10 908 JE DATEXT JUMP IF ADDRESS i8F6 124 si 
209 °* pet Cetera) Veuue TEPPED TO INCORRECT VALUE? 
186C CO 87 O24 916 B PRINT TO PRINT DATA ADDRESS NOT CORRECT o | CG 188 ee 1922 a. DATPRY DC CL43*DATA ADDRESS WAS S 
1870 C6 1870 914 DC XL1°C6! FLAGS 1900 Be eese ce ‘ S45 
1871 25 1871 912 DC IL1#43# LENGTH O ace SOE2E3C5D Be Sap 
1872 1922 1873 913 Dc AL2(DATPR1) ADDRESS OF MESSAGE © ye KOE3D680C9IDSCIDE aoe 
187% AO3E 1875 914% DATID1 DC XL2* A032? MESSAGE IDENTIFICATION too ue se 
1876 CO 87 0222 915 3 HALT TO DCP HALT WHILE SEEKING THE CE TRACK,? 
487A AODBZE 187B 916 pc XL2*2C3E? HALT ID Cc © 1923 CSDSDSDEDSAGDEC3S 194C led SEKER? DBC CLU2*ERROR OCCURRED 9 
187c cO 87 0000 917 DATEXT B *-¢ EXIT teas Parente a a eoccee aoe 
918 : 
919 ao | Cc 193B D2C9D5C740E3C8C5 979 
920 * COME HERE TO TEST FOR A GOOD SEEK * seas Soe ooG 
921 ‘ L. WO. XXX¢ 
1880 34 08 18Bu 922 TSTSEK ST  SEKEXT+3, ARR SAVE RETURN ADDRESS oi °c 198D CIDODICIESCSCKAO 1963 a. ABIVED DC CL23°ARRIVED AT CY 
1884 CO 87 1995 923 SKTSTA B SENSE TO SENSE DEVICE STATUS oe se pte tae aah 
NESE 08 1288 eee ue BENT EON BERS 0 eds Co oO 1964 DIEGDSUOE2C5SC5D2 198B 981 SEKER2 DC CLUO*RUN SEEK TEST SECTION AO3 FOR MORE IWFO.* 
1889 38 10 19aC 926 TBE STATUS,X'10! TEST THE SEEK BUSY SENSE BIT 196C 40E3CSE2ZE340E2C5 981 
188D CO 10 1884 927 BT SKTSTA IP ON DO ANOTHER SENSE 1974 C3E3CIDEDSYOCIFO 981 
1891 38 01 19aB 928 TBN  STATUS-1,X'01' TEST FOR SEEK CHECK Go SC 197C FP34OCEDEDI“ODUDE 961 
1895 F2 10 20 929 IT SEEKER IF ON, GO TO SEZK ERROR PRINT 1984 DICSSOCIDSCEDEUB 981 
1898 CO 87 19c4 930 B STRTIO TO READ ID 
189C 01 189C 931 DC XL1°01° o 9 
189D 01 189) 932 DC XL1'O18 
189E 1885 189F 933 DC AL2(IDFLD-2) 
1840 CO 87 18a8 938 B 248 eo ¢ 
18A4 CO 87 18A8 935 B +4 
18A8 OD 00 18B6 OBOA 936 CLC IDFLD-1(1) ,TRACK# 
18AE F2 01 07 937 INE SEEKER. 9 ¢ 
938 
939 | 
18B1 CO 87 0000 9480 SEKEXT B a8 EXIT eG 
18B5 000000 18B7 941 IDFLD DC . XL3*O? 
982 
943 °o @ 
PROG ID OAOB-2 
DATE 138aR70 OGAPR70 22maY70 01A0G70 PROG ID OA0B-2 2) | G6 pate 138AR70 06APR70 22mAY70 caaee PAGE TOA 
EC NO. 571512 571516 571513 571531 PAGE 10 EC NO. 571512 571516 571513 57153 
} e | @ 
b 8 |e 








ee 


Le 


i , ; 
: es ss 
{ , 


ae 


Ce 7 2 
IB MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 51296480 IBM BRAINTENANCE DIAGHOSTIC PROGRAMS PART %0. 3129680 
PAGE 11 PAGE TTA 
Oo © 3 
A0B2 SCAN LOB® OR EQUAL AOB2 scAN LOW OB EQUBAL 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATERERT CG © — eRR Loc ossEcTr cope ARDR STHT SCURCE STATENENT oe 
198C 09 198C $83 wWRTDFC DC XL1"00° FLAG 1079 * START I/O SUBROUTIE? 7 
198D 00 198D 984 DC XLI068 CYLINDER o @G 1020 } 
198EB 00 198E 3985 pc XLI#O08 TRACK & SECTOR 19C4 38 O8 19K8 1021 STRTIO ST SETKR2, ARR SAVE ADDRESS RECALL REGISTER. 
198F 00 198F 985 pc XL7*°0G? HO. OF SECTORS OR NO. OF TRACKS 19C8 35 02 i9a28 1022 L SETAR2,XR2Z LOAD ER2 WITH VALUE PROE ARE. 
587 em 18CC 3C 00 iaFS 1023 RVI SAVYS¥,0G ZERO SWITCB 
1990 00 1996 SBS RDDFC oC KLito0? FLAG 19D0 28 02 4A2K 00 162% BNR SI0+1,0(,X22) SET FONCTION CODE 
1991 09 1991 989 DC XLI'008 CYLINDER 19D5 2C GS TAZB 01 1025 B¥C SI0+2(1)-1{,2R2} SET CONTROL CODE IK SI0 
1992 65 1992 999 pc XL7°00" TRACK & SECTOR CG 49DA 2C O07 AFD 03 1626 HYC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR 
19593 06 1933 $974 DC ZXLTO9C8 NO. OF SECTORS (CH NO. OF TRACKS T9DF 38 O68 TAZR 4027 TSTTE SBP SIG+1,x'068 SZT FOR RESOVABLE DISE# 
1994 04 1994 $92 OE pc ELI‘Git . 1923 3B 08 4AB2 1028 SBF 8Si0+1,%'09% SET FOR REMOVABLE DISK 
$93 Ce AS 19E7 39 08 1APB 1029 TBF DISKTP,£*08! TEST FOR BUN ON LOWER DISE 
VSG SRA EE SEHR SEES EATERS ST CREAR ERE KEKE KEKE AREARAS HEAL SKRERESSEELEKES EER 19EB F2 16 08 3636 oT CKSEER JOSP IF RO 
$95 = SENSE I/O ROUTINE 19EE 32 O08 1A2A 1031 SETPIX SBR SIO+1,x°08? SET POR FIZED DISE 
1995 38 GB 19AE 396 SENSE ST SNSXR2,ARR SAYE ADDRESS RECALL REGISTER a © W9F2 32 O8 TAB2 1032 SBR RSIO+1, x08! SET FOR FISEO DISK 
1999 35 07 46AE $3 L “SNSXE2,ER1 LOAD XR1 ITH YALUE PRON ARR. i9F6 BD OO 00 1033 CKSEEK CLI G{,XR2),00 TEST FOR SEER 
1¢9p 18 63 1583 CO 938 MER SNS#1,0/,X81} HOVE IN FUNCTION CODE : 19P3 F2 81 80 1039 JE SETADRE f¥ TES, GO SET ADDRESS 
1982 30 00 19aC 99% SKS SNS STATUS, & PERFORM SENSE Cc iSFC 31 AG TAFD 1035 LDFCR LIO DFCR, ¥* a6? LOAD CORTESL REGISTER 
19A6 DO 87 G4 1000 5 1{,XR1} EXiT 1200 31 AW 1AFF 1036 LDFDR LIO DPDR,X?AR?! LOAD DATE REGISTER 
10014 7 3A0&8 OC O00 19AF 182A 1037 HVC QCODE (1) ,SIG+i 
V9A9 0000 1SAR 1602 SETXR2 pC XL25G8 (oe: TACA OC 00 1980 1A2B 1038 MYC  CCODE(1},SYo+#2 
19AB 0000 WAC 1903 STATUS DC XL2°*G* TA1G OC 01 19BE IAFD 1039 HVC DPFCRI(2},DPCR 
19AD O00CS IGRE 700% SNSXRZ2 DC YLZ'G! a 5A16 OC 01 19C0 14PF 1040 HYC D¥FDRI (2}),DFDE 
1005 on YA1C 35 01 TAFD 1004 L DFCR, EB1 
1006 = EBRROR RECORDING TABLE * 4A20 1C 03 1988 G3 1082 HYC DCFI(8} ,3{,284 
IGAF 1607 ETABLE EQD * 1A25 C2 01 1928 1043 LA 6600, £R1 LOAD DELAY VALUE IN ZRBi 
SAF 90 19AF 1068 QCORE DC XL1*O8 *Q* CODE Cc. | 1A29 F3 AO 00 7044 SIC SIO ¥'00*, xf ag? START I/O OPERATICS 
i9B0 00 19B5 1009 CCGDE pec XL1°O# CONTROL CODE 1A2C C1 A2 1B06 4Ou5 WAT TIO BUSY, K*a2?* TEST FOR BUSY 
1957 0000 19B2 1070 SNSO1 c ELZ‘O? STATOS BYTES 0 §& 1 1A30 CO 87 1995 1086 B SENSE 
1933 9060 19BK 7077 SNS23 DC XL2°C? STATUS BYTES 2 & 3 C JA3a 04 4k 34 1047 pc ELi¢gae 
1985 00000000 19BB 1612 BDCFY pc KL&FOF DISK CONTROL FIELD, (INITIAL} JA35 OC 01 1902 1928C TOuS EYC DFDRF (2},STETOS 
1939 o00n0006 19BC 1073 DCFF pc XLEtOs DISK CONTROL FIELD, (FINAL) 1A38 35 01 4AFD 10489 L DPCB, ER? 
19BD 0600 19BE 1044 BrYCRI pC ¥LZ°O? CONTROL REGISTER ADDRESS Go WA3F iC 03 295C 03 16506 AVC DCFF (4) ,3{,%B 4) 
1SBF 0006 19C0 4015 DFDRI pC X¥L2°9? DATA REGISTER ADDRESS, (INITIAL) ; A848 CO B7 3995 1054 5 SERSE 
19C4 9000 19C2Z 1016 DFDRF pbc XL2*0* DATA REGISTER ADDRESS, (FINAL) 3ASB 02 TB4B 1652 BC XLi'G2* 
19C3 00 19C3 1017 ROUTHG pc XL7*08 CURRENT ROUTINE WO. a oO TA4S CC 01 1982 i9AC 1053 BVC 8 =—-SRSO1 (2) ,, STATUS 
TAUF CO 87 1995 1054 B SENSE 
1853 03 1853 1055 pe XLi'O3* be 
o SG 1454 0C 01 1988 19aCc 1056 HVC SNS23(2),STATUS * 
VASA OC 00 19¢3 0A03 1057 RVC ROUTNO‘ST: ,BPPX 
1A60 3D FF 1AF9 1058 CLI SAVSH,X*?P# IS SWITCH OF? Pe 
© JA68 F2 01 OC 1059 JNE TSTERR IP KO, SKIP RESTORE a 
1A67 SC 00 63 1APS8 1060 HVC 3(1,XR82) ,DPC3SV RESTORE W BYTE 
1A6C BB C1 02 1061 SBF 2{,XR2),91 TORN OFF THE FOR/ REV BIT . 
Ge 82D JA6P 35 02 79AaR 4062 L SETER2, X82 RESTORE PARAMETER POINTER = 
1A73 £1 AO OC 1063 TSTEBR TIO 12{,XB2),X*AO* BRAXCH IF ERROR 
1A76 E1 AG O08 106% TSTSCN TIO 8(,XR2),X°AS* BRANCH IF SCAN FOUND os 
Ooic 1A79 EC 87 64 1065 B 4 (,XR2) EXIT i 
1066 
| 1067 * SUBROUTINE TO SET THE RUMBER OF TRACKS AND THE : 
oO; e 1068 * DIRECTION (FORWARD OR REVERSE), TO SEEK 3 
1069 
| TA7C BD 01 01 1070 SETADR CLI 1(,XR2),0% IS THIS A RECALIBRATE? a 
O44 1A7F F2 01 68 1071 IEE #47 IF NO, BYPASS SWITCH RESET io 
1A82 3C O00 1aF6 1072 AVI FRESTPS,0 RESET RECALIBRATE SWITCH 
1A86 2C 01 1B01 03 1673 HVC XR2WK(2},3(,X82) SAVE ADDR. OF CTL. PLD. ADDR. "as 
Qo 6 ABB 35 O62 71B01 1074 L XR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. ae 
VASP 2C 00 IRFB 03 1075 BVC DFC3SV{1),3{,XR2) SAVE N BYTE IN CONTROL FIELD 
1A94 3C PF APS 1076 HVI SAYSR,X?FF* SET SAVE SWITCH 7 
2 e@ JA98 3D 00 1AF6 1077 CLI FRSTPS,00 IS THIS FIRST PASS a 
1ASC F2 04 15 1078 INE SETADA SKIP RECALIBRATE IF wo 
IAGP 3C 01 1AF6 1079 KVI FRSTPS,01 SET FIRST PASS SWITCH oa 
Qo Ss 1AA3 BB 01 02 1080 SEF 2{(,X82},01 SET FYD/REV BIT TO REV. 2 
1AR6 BC FF 03 108% BVI 3(,XR2),255 SET MAXIMUM TRACK CROSSING 
WAAS 3C 00 4AF? 1082 BVI LASTAD,CO SET OLD ADDER TO 0 m 
Qo JAAD 31 AG AFD 1083 RLDFCR LIO DPCR,X*A6# LOAD DATA CONTROL REGISTER Oo 
1AB1 F3 AO 00 108 RSIO SIO 00,X*AG* SEEK REVERSE 
1085 
Qo 8 1AB4Y 8D 00 01 1277 1086 SETADA CLC 1(1,XB2),LASTAD CONPARE PRESENT ADDR. WITH WEW OKE be 
DATE TINARTO O6 APR70 22mAY70 01A0G70 PROG ID CA0B-2 @ G bate 13MAR70 O6APR70 22BAY70 O1A0G70 PROG ID OACB-2 < 
EC KO. 571512 571516 571513 571531 PAGE 11 EC NO. 571512 571516 571513 571531 PAGE TTA 
no G 


| e) 


ny 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS 


AOB2 
ERE LOC 


TABS 
VABC 
TABF 
TAC2 
TACB 
JACD 


TADG 
VAD 
TADB 
TADE 


 TAEBY 
TARY 


VAET 
TAEC 
TAPI 
VAPS 
TREO 
VRE? 
TAFB 
JAF9 
WAFA 
VAFC 
WAFE 
1B00 
1302 
1BOS 
1B06 
TBOA 
iBOE 
1B12 
IBie 
1B 16 
1BIA 
IBIE 
1B IF 
1820 
1B22 
1324 

1328 
1B2h 
1B2E 
1B36 
1B3E 


DATE 


EC RO. 


SCARS Low OR 
OBJECT CODE ADDR 
F2 81 25 
F2 84 11 
BB 07 62 
OC O00 1AFPS 1APF7 
2F 00 TAPS 01 
F2 87 17 
BA OF 02 
2C O00 WAFS 01 
OF 00 TAPS AF? 
F2 87 06 
BC 80 93 
F2 67 OA 
8C 00 03 IAF5 
2C 00 TAF7 91 
CO 8? i9FC 
00 TAFS 
00 TAP6 
00 TAFT 
00 TAF8 
00 TAFS 
0000 1A FB 
0000 AFD 
Das IAFF 
0000 1B01 
FPF 1B03 
0294 1505 
36 61 18B03 
CO 84 TA2C 
CO 87 ICDA 
OAD3 1B 43 
1Ba2 1815 
3C 40 TBuO 
CO 87 O21: 
cé 1B 1E 
15 13 FP 
TB42 1B21 
ROSE 1B23 
CQ 87 0222 
AOSE 1B29 
co 87 0000 
E3C9DUCSDEEYEINO 1B42 
CIDSYXODIDEEXE3CY9 
DS5C54 OETE7 

OA03 
T3NaR70 O6 APR70 
571512 571516 


EQUAL 


STAT 


1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1709S 
1700 
110% 
1102 
1103 
4708 
1105 
1106 
1107 
1108 
1109 
1149 
1111 
1112 
1113 
1174 
1115 
1116 
1117 
1118 
11179 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1130 
1130 
1131 


SOURCE 


FRDSEK 


NOSEER 


SETADB 


ADREXT 
SCRCH 


FRSTPS © 


LASTAD 
DFC3S¥V 
SAVS® 
DISKTP 
DFCR 
DFDR 
XR2WK 
NEG1 
SIXSIX 
BUSY 


THALT 


TINOUT 


RPFX 


228 AY70 
$71513 


PART 
PAGE 


NO. 5129640 


12 


STATEMENT 

JE NOSEEK EQUAL, SEEK IS NOT NECESSARY 

JH FWDSEK NER ADDR. HIGHER, DO FORWARD SEEK 

SBF 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REY. 

BVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA 

SLC SCRCH(1),1{(,X82) SUBTRACT NE® ADDR. FROM LAST ADDR. 

3 SETADB PROCEED 

SBN 2{,XR2),01 SET BIT OX FOR FORRARD SEEK 

SVC SCRCH(1),1(,XR2) PLACE NEW ADDR. IN WORKAREA 

SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROH NEW ADDR. 

J SETADB PROCEED 

BYE 3(,XR2},0 SET NO. OF TKS. CROSSED TO ZERO. 

3 ADREXT TO EXIT 

HVC 3(1,%R2},SCRCH PLACE IN NO. OF TRACKS CROSSED 

MYC  LASTAD(1) ,1(,XR2) SAVE BE® ADDRESS 

B LDFCR EXIT 

DC XL1*00" 

DC XL17*008 

pc XL1*00" 

DC XL1*00 

pc XL1*008 

pc XL2°08 

pc AL2 (*-#) 

Dc AL2 (WORK) 

DC XL2*08 

DC XL2"*TFFF* 

pc IL2*0660° 

R HEG1, XR1 DECRENENT DELAY COUNTER 

BH WAIT RETURN TO TIO IF NOT TIME OUT 

B cvD TINE OUT OCCURED, CONVERT ROUT. NO. 

DC AL2 (RPFX) CURRENT ROUTINE NO. 

DC AL2 (TINOUT) ADDRESS OF DESTINATION 

MVI  TIMOUT-2,C* * 

B PRINT TO PRINT TIMEOUT OCCURED 

pc XL1°C6" FLAGS 

DC IL1*21! LENGTH 

pc AL2 (TIMODT) MESSAGE ADDRESS 

pc XL2*A08E* MESSAGE ID 

B HALT TO DCP ERROR RALT 

Dc XL2*AQBE* HALT ID 

B 0 

DC CL21'TIMEOUT IN ROUTINE Xxx! 

EQU) xX*A03 
0140670 PROG ID OA0B-2 
571531 PAGE 12 
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IBM MAINTERANCE DIAGNOSTIC PROGRANS 


AOB2 


ERR Loc 


TBA3 
TBa7 
B&B 
Bac 
1B50 
1351 
1853 


1B55 
1B59 
1B5D 


1B61 
1365 
1866 
1B67 
1B69 
1BeOB 
1B79 


1B75 
13879 


1B7C 
1B80 
1381 
1B82 


1BB4 
15688 


1B8B 
1BBE 
1B91 


1B95 
B99 
1B9C 
TBAO 
IBA 


TBA5 
1BAg 
IBAA 
BAC 
1BAE 
1BB2 
BBS 
IBBA 
BBB 
TBBC 
IBBE 


1BC2 
iBCA 
1BD2 
IBDT 
1BDF 
TBE? 
IBEF 
1BF1 
1BF9 
1c01 
1c03 
1COB 


1013 


DATE 


EC 


HO. 


SCAH Low 


OBJECT CODE 


34 
co 
02 
cG a7 
62 

19ac 
BDA 


08 
87 


1BCi 
1995 


O21E 


3C 07 1885 
TBPO 


icsi 


O27A 


1B76 
1Da7T 


00 
00 


19AB 
OB 


co 
01 
12 
1DS7 


87 O2iA 


3D 01 
F2 81 


1876 
OA 


E2 02 01 
D2 07 12 
CO 87 1B6B 


3D 80 
F2 81 
3c 80 
CO 87 
03 


1B85 


1B85 
1995 


co 
02 
19aCc 
1BDE 
C2 02 
co 87 
co 87 
02 

1D 

TBDE 
cO 87 0000 


87 O21E 


1€81 
1BSE 
O21A 


E2E3C1E3EXE280C2 
E8E3CSE2& 0CSD540 
C8CSE76B40 
0000000000000000 
DSD640DED740N 0400 
8040404805 08080480 
43040 
CODSE3SCSD9ES5C5D5 
E3CSD6D54 Op9Cc5D8 
C&4B 

DUC IEZ 22C9D5C74H0 
CICACUD9KSeOD4IC} 
D9D2 


13H AR7O 
371572 


OGAPR? 
571516 


OR 


ADDR 


FESR 


1550 
1BS2 
TBSu 


1B65 
1B66 
iB68 
TB6A 


1380 
1B81 
1B83 


TBA& 


TBA9 
1BAB 
TBAD 


BBA 
BBB 
BBD 


1BD6 


TBDE 
TBFO 


1002 


C18 


a 


EQUAL 
STEHT SOURCE 


1433 * 
1138 
1435 
17136 
4437 
4138 
1139 
7780 
1147 
17482 
1183 
T1UsH 
17145 
T186 
7187 
17188 
1149 
1150 
1151 
1152 
1153 
7158 
4155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
4166 
4167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1381 
1182 
1183 
1188 
1185 
1186 
1187 
1188 
41188 
1188 
1189 
1190 
1190 
3190 
1791 
1191 
1191 
1192 
1192 = 
1192 


PRISHS 


SRSID 
ROVEBT 


TSTBT 


STPSKES 


SENSB 


SENSA 


PRTHEX 


PRETEXT 


HEXSTA 
STATED 


22HAY70 
571513 


PART #0. $71296480 
PAGE 12a 
STATEMEST 
SUBROUTIBRE TO PRINT THE CONTERTS OF DEVICE STATUS s 
ST PRIEXT*3 ,ABR SAVE ADDRESS RECALL REGISTER 





B SENSE TO PERFORM SENSE 
pe AL1(STATO1) GET DEVICE STATUS BYTES 0 & 4. 

B UNPACK TO UNPACK STATUS BYTES 

DC XL1°02# 

DC RL2(STATUS) 

DC AL2 (HEXSTA-4) 

BVI STPSNS+1,01 SET FOR CONPLETION OF FIRST 3YTE 
LA STATWD,XR1 SET EZR TO POIRT TO PIRST RESSAGE 
LA STBASK, ZR2 SET XR2 TO POLKT TO TEST NASK 

B PRINT TO PRIBT SES SITH HEADING 

pC KL1*c1°® FLAGS 

DC ILV*04° LENGTH 

DC AL2 (STATED) ADDRESS OF LAST PRINT CHARACTER 
pc KL2*A0008 MESSAGE IDENTIFICATION 

MYC TSTBT¢7(1) ,0(,XB2) SET SASK BIT IB TEST BITS IWSTRUCT. 
BVC STATPR(18),0(,XB1) SET HESSAGE IN FIELD 

TBN STATUS-1,%-# TEST CURRENT SIT FOR ON 

IF STPSES BYPASS PRINT IF OFF 

8B PRINT TO PRINT SNS WITHOUT HEADING 

DC XL1"01? FLAGS 

DC IL1*18* LENGTH 

DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER 
CLI TSTBT4+1,X'O1* HAS THE LAST BIT BEEN CHECKED? 

JE SENSA IP YES, GO TO EXIT 

LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT 
LA 48(,XE1) ,XR1 STEP XR1 TO POIKT TO NEXT SESSAGE 
B HOVEBT GO TEST NEXT SEKSE BIT 

CLI SIPSNS+1,X*80° 

JE PRTHEX 

MVI STPSNS+1,X*80° 

B SENSE 

DC XL1°03* 

B UNPACK 

DC XL1°02" 

DC AL2 (STATUS) 

DC AL2 (HEXSTA) 

LA STHASK, XR2 

B SENSB 

B PRINT 

DC XL1°02° 

DC IL1*29¢ 

DC AL2 (BEXSTA) 

B e+ SUBROUTINE EXIT 

DC CL21'STATUS BYTES IN HEX, ° 

DC XL8"0* 

DC CL18*BO OP ‘ 

pc CLI8*INTERVENTION BEOQD.* 

DC CLIB*NISSING ADDR. MARK® 
010670 PROG ID Oa0B-2 

PAGE 


571531 
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.. IBM MAINTENANCE DIAGNOSTIC PROGRAE 


. aOB2 
. BRR LOC 


1c15 
CID 
125 
1027 
IC2F 
1037 
1039 
1c44 
1049 
1cus 
1053 
ICSB 
iC 5D 
1c65 
7C6D 
ic6F 
177 
CTP 


1c81 
1c85 


189 
1C8D 
1¢91 
1c95 
1099 
1CSD 
CRY 
1CAS 
ICA 
ICAD 
TCB2 
WCBS 
CBS 
ICBC 
icc0 
1CC3 
1oC6 
1CCA 


ICCE 


1CCF 
ICDO 
1CD1 
1CD2 
1CD3 
ICDA 
icps 
IcD6 
1CD7 
1cD8 


DATE 
EC WO. 


sCcAwW LOW 


OBJECT CODE 


CSDBESCID7TDACSDS 
EIVOCICBECSC3ID24D 
8080 
CHCTEICWOC3ICBCS 
C3D24N 0404 OU O4OR0 
&U40 
DSD64ODICSC3IDELI 
CUHOCEDEERSDSC44D 
BOLO 
E3D240C3D6EN5C4C9 
E3C9D6D54O0C3CBC5 
C3D2 
E2CSCS5D28 0C3C8C5 
CIDZNO4ORORONOND 
4040 
E&DSE2CIC6C540N0 
4040808 040804040 
8040 


80402010 
08040201 


34 
35 
35 
36 
34 
3c 
c2 
75 
2c 
2c 
78 
F2 
3A 
3D 
F2 
E2 
co 
co 


08 
01 
02 
02 
02 
90 
02 
01 
00 
00 
090 
90 
00 
80 
81 
02 
87 
87 


iccD 
iccD 
iccD 
18F3 
1ccD 
ICCE 
ICCF 
01 
1CB3 
1CB9 
02 
04 
iCCE 
1CB3 
07 
01 
CAB 
06000 


00 
05 


00 


08 
08 
10 
20 
uo 
01 
02 
0a 
08 
10 


13MAR70 
571512 


oR 
ADDR 


3026 


IC 38 


ICA 


1cSc 


1C6E 


iC 80 


1ic81 
1c 84 
1C 88 


ICCE 


1CCF 
10D6 
1cD1 
1C D2 
1CD3 
1cDa 
1cD5 


1036 


1CD7 


1cD8 


O6APRT70 
571516 


EOQUATL 
STST SOURCE STATES 
4193 bc 
41193 
4193 
11948 DC 
T1948 
4198 
4195 bc 
1195 
1495 
1796 DC 
3196 
1196 
1197 DC 
1197 
1797 
3198 STATB2 BC 
1198 
4198 
1199 STMASK EQU 
1209 pe 
4201 pc 
1202 * SUBROU 
1203 
120% SHIFT ST 
1205 L 
3206 -L 
1207 A 
1208 ST 
1209 mV 
12170 LA 
271 L 
1272 MVCTBN BYC 
1243 RYC 
1274 TBR TSN 
1215 J 
1216 SER SBN 
1217 CLI 
1218 JE 
1279 LA 
1220 B 
1221 SHFEXT B 
1222 
1223 CYLNO DC 
1228 
1225 SHFTBL DC 
1226 pc 
41227 pc 
1228 Dc 
1229 pc 
1230 pe 
1231 pc 
1232 bec 
1233 pc 
1234 oc 
228 aY70 01A0G70 
571513 571531 


States 2 abe, woe EST G la OS, eS eter ee RT te hile ates a Rog: eo ene a ee eee oer ed a aoa Gy es eae sw 


PART WO. 
PAGE 


51296460 
13 


ENT 


CLIS'EQUIPMENT CHECK bd 


CL18*DATA CHECK : 


CLi8'NO RECORD FOUND . 


CLi8'*TK CONDITION CHECK® 


CLI8*SEEK CHECK ' 
CLIB' ONSAFE ‘ 
* 

XL4*804920105 
XL8*080480201* 


TINE TO SHIFT BITS IN CONTROL FIELD 


SHFEXT+3,ABR STORE ADDRESS RECALL REGISTER 
SHFEXT+3,XR1 LOAD EXIT ADDRESS IN XR1 
SHFEXT+3,XR2 LOAD EXIT ADDRESS IN XR2 

TWO, XR2 INCREASE BY 2 

SHFEXT+3,XR2 STORE FOR TRUE EXIT ADDRESS 
CYLNO,0 ZERO WORK AREA 

SHFTBL, XR2 LOAD ADDRESS OF SHIFT TABLE IN XR2 


1(,XR1) ,XR1. 
TBN+1 (1) ,0(,XR2) 
SBN41(1) ,5(,XR 2} 
2(,XR1) ,*#-* 

“+7 

CYLNO,*-* 
TBN+1,X*40? 
SHFEXT 

1(,XR2) ,XR2 
S¥YCT BH 

*—* 


LOAD CGNTROL FIELD ADDRESS IK XR1 
INSERT CORRECT MASK FOR TEST BITS 
INSERT CORRECT BITS FOR SET BITS 
TEST ONE BIT FOR ON 

JUMP IF OFF 

SET ONE BIT ON IN DECIMAL FIELD 
TEST FOR LAST BIT 

SUBP TO EXIT IPF ALL DONE 

NOT DONE, STEP XR2 

TO TEST NEXT BIT 

EXIT 


xLi70°* 


XL1"0g' 
XL1*08* 
XL1*10° 
XL1*20* 
XL1*80¢ 
XL1°01° 
XL1'02¢ 
XL1*08¢ 
X1L1*08* 
XL1*10* 


PROG ID 
PAGE 


OA0B-2 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB 


AOB2 


ERR LOC 


1CD9 
ICDA 
1CDE 
ICE2 
1CE6 
ICEA 
1CEE 
1CF2 
1CF6 
CFC 
1b02 
1D08 
IDOE 
1D14 
ID1A 
1DiID 
1D23 
1D27 
ID2B 
1D2C 
1ID34& 
1D36 


1D458 


1E48S 


DATE 
Ec wo. 


scan Lo#® Ok 
OBJECT CODE ADDR 
00 1cD9 
36 08 1998 
34 08 1CFB 
36 08 18F3 
34% 08 1D01 
34 08 1D07 
36 08 1994 
34 08 1D2A 
oc 01 1D0D 0000 
OC 01 1D2C 00056 
oc 07 1D11 0000 
oc 00 1CD9 0000 
04 20 0000 1D35 
OF 00 1CD9 1994 
F2 82 OA 
06 20 0000 1D2B 
cO 87 1D18 
cO 87 0000 
Fi 1D 2B 
PIF2F3F4F5F6F7FB8 1D35 
F9FO 
D4? 
1D4as 
TEUT 
1E48 
TP 47 
0003 
0076 
0001 
0002 
0008 
0002 
0003 
00 a6 
OOAN 
0080 
0040 
0208 
020A 
0212 
*02 16 
021A 
N21E 
0222 
O22Aa 
003c 
003F 
OBFD 
13H AR70 O6APR7O0 
571512 571516 


EQUAL 


STNT SOURCE 
1236 * 

1237 
1238 
1239 
1240 
1244 
1242 
1243 
1246 
1285 
1246 
12487 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1278 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 


HXBYT 
cvD 


PRON 
TYBOT 
OTORZ 
PROBYT 
ZROTO 
DECGAR 


TOBYT 


TIXE 
DECORE 
UNITS 


STATPR 
WORK 


READ 


1 

H2 

zRi 
XR2 
ARR 
STATO1 
STAT23 
CTRL 
DATA 
BiTO 
BIT! 
SWITCH 
SECTSW 
TEST 
LINK 
PRINT 
UONPACK 
HALT 
LOAD 
EP 

HA 


22HAY70 
571513 


PART HO. 5129620 
PAGE 3a 
STATEMENT 
SUBROUTINE TO CONVERT A NUMBER TO DECIMAL 
pc XL1"0° 
A ONE, ARB ADD ONE TO GET FIRST PARAMETER 
ST FRON¢S, ARR INSERT THE FROM ADDRESS 
A TWO, ARB ADD TKO TO GET THE SECOND PARANETER 
ST TYBOT+5, ARR INSERT THE TO ADDR 
ST OTORZ+5, ARR 
A OWE, ARR ADD ONE POR EXIT ADDRESS 
ST TIXE+3,ABR STORE EXIT ADDRESS 
MVC FROBYT+5(2),%-* 
MYC TOBYT+3(2) ,*-* 
MVC ZROTO+3(2) ,*-* 
MVC HXBYT(1),*-* PUT BYTE IK WORK AREA 
ZAZ  *-#*(3),0NITS (1) ZERO THE TO AREA 
SLC HZBYT(1),ONE DECREMENT THE HEX BYTE 
JL TIXE JUMP IP BELO® 1 
AZ *-* (3) , DECONE (1) INCREMENT THE DECIMAL COURT 
B DECGAN 
B -* ExIT 
DC cLitt? 
Dc CL10* 12346567890" 
Ds CL18 
EQU. ® 
DS CL256 
EOU)* 
DS CL256 
EQU = X03" HALT DISPLAY 1 
EQU X*76 HALT DISPLAY 2 
EQU 01 
EQU. 02 
EQU 6:08 
EQU. x*02? 
EQU -x*03* 
EQU X*A6? 
EQU) xXx*A~g? 
EQU) 8 0x*80" 
EQD) x*HOF 
EQU X*20B* 
EQU x*'20a! 
EQU X*212° 
EQU X*216* 
EQU xX*21~® 
EQU) X'21E* 
EQD) Xx'222* 
EQU) Xx*22a° 
EQU. x*3C* HALT DISPLAY F 
EQU) x'3P* HALT DISPLAY A 
END BEGIN 
01A0G70 PROG ID OA0B-2 
571531 PAGE 13a 
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c 6C 
IBS MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 5129680 IBN MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129680 
PAGE 14 PAGE TQA 
oe. 6U6S 
A0B2 SCAN LOW OR EQUAL AOB2 SCAN LOW OR EQUAL 
CROSS~REP ERENCE a SC CROSS-REF ERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES “6 SYMBOL T LEN VALUE DEP REYERERCES 
ADREXT A 00% AF1 7108 7100 eC IDPLD A 003 1887 098% 0933 0936 90988 
ARIVED A 223 1963 0980 09489 0959 INVPLG A 019 OB24 0764 6122 
ARR C 001 0008 1268 0025 0108 0878 6900 0922 0996 1021 1135 120% 1239 1240 12418 CG | G  LASTAD A 001 1AP7 14107 1082* 1086 1090 1096 1703* 
41242 1243 1244* 1245 LDFCR & 008 19FC 1035 0058* 0058* 0066 0667 0068 0069 0670 0071 OO72 0073 1108 
AOb kh 007 0000 0002 | LDFDR & 004 1A00 1036 0066# 
BEGIN & 004 OBFD 0168 4285 @ | G Link c 001 06216 1278 0158 
BITO Cc 001 0080 1273 | LOAD COG? 022A 1282 0051 
BIT? C 004 0080 1274 MOVEBT A 065 1B6B 1152 4168 
BUSY A 004% 4806 4116 10485 oC | © nvcrBR A005 1CA8 1212 1220 
CCODE A&A 00% 1980 1009 10338 NEG1 A 062 <1B03 11748 1716 
CKSEEK A 003 19FP6 1033 1936 | HOSEEK A 003 1AE1 1099 1087 
CTRL C 067 0086 1271 © | G  wNounrT A 026 GBOS 0092 0048 
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PART WO. $1296492 
PAGE 1 
HIGH OR EQUAL 
ADDR STMT SOURCE STATEREUNT h, 
2 aoc STAKT 0 
3 DECK & 
8 ORG x*0a00* 
5 SIEKSSSESESSESSSESSHSSSEK STE KS SE SEKAEEKRSE SHEE SE SKEKE SHEE KEESKE EES OE EESEEREEEEESESE OE 
6 * SECTION PREFACE e 
7 : 
OA01 8 pc XL2*a0c2* PROGRAM ID 
0a 02 9 DC XL1°00¢ SECTIOX FLAGS 
OA03 40 pc XL1°07" CORRENT ROUTINZ NUSBER 
OA05 41 Dc XL2°00° RESERVED 
OA07 412 DC AL2(RTN1) ADDRESS OF FIRST RODTINE PREPEZ 
oa09 13 pc AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE 
OA0C 18 DC XL3*A010008 
15 #8 * 
16 HEVSEHKRESKESSKSSSLSEKESKSKSSHKAKKCSEK ERE SEEKS SKE SLAKEHK SE SKS SEKEKHKSEHKSAKKES SRERSETA EEK 
17 
18 + OPERATING INSTRUCTIONS * 
19 * * 
20 * 1. SET SWITCH 15 TO BYPASS RUNNILS ON THE REMOVABLE DISK * 
21 * 2. SET SWITCH 16 TU BYPASS RUNNING ON THE FIXED DISK 2 
22 © 3. SET SWITCH 1EZ TO REVER RUN ON DISK DRIVE 1 =. 
23 * 4. SET SWITCH 1F TO NEVER RUN ON DISK DRIVE 2 * 
24 
25 SETDSK ST SETEXT+3,ARR SAVE EXIT ADDRESS 
26 avi SETS8,X' FP? SET SETUP SWITCH 
27 
28 cLI UDTPTR, 0 HAS POINTER SEEN INITILIZED? 
29 JNE UFIND1 JUMP IF YES 
30 LA UTAB, IR1 LOAD IF KO 
31 UPIND2 ST UDTPTR, XR1 
32 UFIND1? L UDTPTR, XR1 
33 HVI REMVDS,0 ZERO SWITCH FOR NEVER RON FIYED DISK 
34 TBN SWITCH+3,X*02? - TEST SSW 1E 
35 JT $49 JUSP IF ON, NEVER RUN DISK DRIVE 12 
36 CLI 0(,XR1),X"A0? TEST FOR A UNIT ADDRESS OF ‘ta®* 
37 JE SETA JUMP IF THERE IS OBE 
38 TBN SWITCH+3,X*01? TEST SSW IF 
39 JT #49 JUMP IF ON, REVER RUN DISK DRIVE 2 
40 CLI 0(,XR1) ,X"BO? TEST FOR A UNIT ADDRESS OF 'B? 
81 JE SETB JOMP IF THERE IS OWE 
42 TBH 1(,XB1) ,X* 108 TEST FOR LAST ENTRY 
43 LA 3(,XR1) ,XR1 STEP POINTER TO NEXT EWTRY 
Ry BF UFIND2 CONTINUE IF WOT THE LAST ENTRY 
as B PRINT TO PRINT ALL UNITS SELECTED 
OAS& &6 pc XL1°06" FLAGS 
0255 a7 DC IL1*26° LENGTH 
OAS7 4B pe AL2 (ROUNIT) MESSAGE ADDRESS 
a9 HVI SETSW,0° 
0B10 S50 YC UDTPTR(2) ,TWOZR 
51 8B LOAD TO PRINT NO ENTRIES LEFT 
OA67 52 DC XL2*u0o? FLAGS 
53 
OBOB 54 SETA MZZ LDFCR+1,SPNDLA SET TO RUN ON SPINDLE ‘a 
55 NVI SPNMSG,C*1? SET MESSAGE FOR SPINDLE *1* 
56 J SETBTH PROCEED 
57 
oBOC 58 SETB AZZ LDPCR3+1,S PNDLB SET FOR SPINO™E B. 
59 BVI SENMSG,C'2° SET MESAAGE FOR SPYHDLE ‘2° 
60 TBN 2(,XR1) X01" TEST OPTION BIT TO BYPASS FIXED DISK 
61 JF SETBTH JUMP IF OFF 
62 AVI REMVDS,X*FF!* SET PLAG FOR MO PIXED DISK 
63 
68 SETBTH LA 3(,XR1) ,XR1 STEP POINTER TO NEXT ENTRY 
65 ST GDTPTR, XR1 
1A0C 66 MZZ LDFDR+1, LDFCR¢1 SET FOR CURRENT SPINDLE 
1A0C 67 NZZ SI0+1,LDFCR¢1 SET FOR CURRENT SPINDLE 
1a0C 68 HZZ WAIT¢1,LDFCR#1 SET POR CURRENT SPINDLE 
1A0C 69 ZZ TSTERR+1,LDPCR+1 SET FOR CURRENT SPINDLE 
O6APR70 2ZH 8170 01a0G70 PROG ID oaodc-2 
571516 571513 571531 PAGE 1 
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ERR LOC 


OAAS 
OAAE 
OABS 
OABA 
Oacod 
Oacs 


Oacs 
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ORES 
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oBoa 
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OB OF 
0B11 
OB12 
OBIR 
0B22 
0B25 
OB2D 
0B35 
OB3D 
OB4S5 
OBSD 
OBS5 
OB5D 
0B65 


> DATE 


EC RO. 


oO Re a ke 


PART #0. 
PAGE w 
SCAN HIGH OR EQUAL 
OBJECT CODE ADDR STHT SOURCE STATESERT 
08 00 1886 1A0c 70 SZZ  § TSTSCH+1,LDPCR+1 SET POR CURRERT SPINDLE 
68 00 1980 4h0C 71 AZZ SNS#1,LDFCR¢1 SET FOR CURRENT SPINDLE 
08 00 1ABD 1a0C 72 MZZ  RLDFCR+1,LDPCR¢1 SET POR CURRENT SPINDLE 
08 00 1aC1 1a0C 73 SZZ «=s- RSIO#1, LDFCR+1 SET FOR CURRENT SPINDLE 
CO 87 19:42 74 B SEUSE 
02 cack) | O75 pc XL1*02* ASK FOR DEVICE STATUS BYTES 0 & 3, 
16 
3c CB OBOR 77 AVI TRACK#, 203 SET POR FULL CAPACITY DISK 
38 08 1989 78 TBE STATUS,X'08* TEST 1/2 CAPACITY DISK 
F2 90 08 7S JF PRTSPH JUMP IPF OFF 
3c 67 OBOA 80 NVI «= TRACK®, 103 SET FOR 1/2 HALF CAPACITY DISK 
cO 87 O2142 81 PETS PH B PRIRT TO PRINT SECTION HEADING 
01 OADS 82 pc XL1'07* FLAGS 
2a OAD9 =s-83 pc IL1°82° LENGTH 
O0B66 CADB 8& boc AL2 (SECNSS) MESSAGE ADDRESS 
CO 87 O21A 85 B PRINT TO PRINT SPIBDLE 
06 OAEO 3-8 pe XL1°06* FLAGS 
18 OAE 87 pc ILi*t2a¢ LENGTH 
0B3C OAE3 88 pc AL2(SPRASG) BESSAGE AUDRESS 
3c 00 1805 89 NVI FRSTPS,O SET SWITCH FOR RECALIBRATE 
CO 87 0000 90 SETEIT B s-* EXIT 
91 ; 
C1iD3D 3NO0E4YDSC9E3 OBOS 92 NOURIT DC CL26*°ALL UNITS HAVE BEEN TESTED* 
E240C8C1E£5C540C2 92 
C5C5D540E3C5E2E3 92 
C5C8 92 
0000 0807 93 UDTPTR DC X12*O* 
0232 94 UTAB EQU x*232* 
00 0B08 95 REMYDS DC XL1*0° 
00 0B09 96 SETSW DC XL1°0° 
00 OBOA 97 TRACK# DC XL1i*008 
AO OBOB 98 SPNDLA DC XL7°AO* 
RO OBOC 99 SPNDEB DC XL1*BO? 
00 OBOD 100 BONRAV DC XL1*0O8* 
00 OBCE 101 RUNFIX DC XL1*0?* 
0000 0B10 102 TWOZR DC XL2'0? 
00 0B11? 103 PASS Dc XL1°*0? 
CIDSESCID3C9C4HO OB24 104 INVFLG DC CLIS*INVALID SSW SETTING* 
E2EZE6U0E2C5E3E3 108 
C9D5C7 108 
DSD6EGSOE3C5E2E3 OB3C 105 SPNBSG DC CL28'*NOW TESTING DISK DRIVE x* 
C9D5C78 0CRUCIE2D2 405 
SOCUDOCSESC5SLOET 105 
C2C5SC7ICSD540E2C3 OB66 106 SECBSG DC CL42'BEGIN SCAN HIGH OR EQUAL PUNCTION TEST AUC? 
C1D580C8C9C7C840 106 
D6D94 OCSDSENC 1D3 106 
4 0C6ERD5SCIE3CIDE 106 
D580 E3C5SE2E340C1 106 
POC3 106 z 
t 
Ce 
13NAR70 06 APR70 22mAY70 01A0G70 PROG ID Oa0Cc-2 
571512 571516 571513 571531 PAGE 1a 
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my 


ey oS 


oy 


on 


ons 


co 


Qo 02 9 


ae 5 


aoc2 — 
2eR LOC 


0867 
O86 
OB6F 
0572 
OB TE 
OB7¢ 
OB7PF 
GBB2Z 


oBes 
SBB9 
o58C 
5890 
oB97 
Osa? 
05946 


0596 
OBIA 
oBgC 
OBAO 


OBAS 
OBRS 
OBAB 


OBAP 
OBB3 
OBB6 
OBBA 
OBBD 
OBCi 
oBcS 
oscs 
oBcCc 
OBDO 


OBD3 
OBD? 
OBDA 
OBDE 


 OBE2 


OBEG 
OBA 
OBEE 
OBF2 
OBr6 


DATE 
EC HO. 


a 


“EBM MAINTENANCE SIAGNOSTIC PROGRAS 


SCANS HIGH OR8 EQUAL 


OBJECT CODE 


38 
3D 
F2 
3c 
P2 
6D 
F2 
F2 


08 
69 
04 
rr 
87 
01 
ai 
87 


O06 
30 
87 


0825 
OB1T 
07 

0B14 


9222 


0272 
0885 


O20A 
OBOD 
O20A 


0B08 
08 
OBOE 
OBCD 
OB 
1B0A4 
OBOD 
OF 


OBOE 


1BOA 
OBOE 


0000 


0a03 
0B11 
0216 
0809 
0000 


13MAR70 


571512 


0810 


OG APR? 


ADDR STHT SOURCE STATEREWT 
108 TSTSPH ST © TSTEXT¢3,ARR 
409 CLI PASS,0 
110 JHE" SETSPH 
$12 BVI PASS,i°PF* 
412 a TSTS# 
113 SETSPN CLO RUNPIX(2) ,. O78 
118 JE ZROCTE 
4115 3 SETRHY 
116 
117 TSTSE TBH SECTSH,K'0S 
118 dF TSTREY 
449 B PRINT 

0396 «6420 DC RLi°c6? 

O89 721 DC IL1°798 

0893 122 Dc AL2(IBVFLG) 

6895 «123 pC EL2*a0FA* 
124 
125 B HALT 

OB9B 126 pc XL2°a0PA® 
127 B TEST 
128 B TSTSB 
129 
130 TSTRMY TBN SECTS, X‘OSS 
131 JT TSTFIX 
132 AVY RUNRMY,X‘FF* 
133 
134 TSTFIX TBN  SECTSH,X'02° 
135 JT SETRMYV 
136 CLI RESVDS,X'FF! 
137 JE SETREY 
138 HVI RONPIX,X‘PP® 
139 SETREV CLI ROWRNV,O 
490 JE FIXED 
164 AVI DISKTP,O 
142 BVI RODNRNY,0 
143 3 TSTEXT 
1848 
145 FIXED CLI RUEPix,0 
196 JE ZROCTR 
447 MVI. DISKTP,X*08! 
148 HVI  RUNFIX,O 
199 
150 TSTEXT B +-* 
151 
152 ZROCTR CLI X*0A03*,08 
153 SVX = PASS, 0 
158 BYE LINK 
155 SVI SETSH,0 
156 B 0 

0 22ma170 0120670 

571513 571531 
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57129682 


PART #0. 

PAGE | 2 
STORE EXIT ADDRESS 
IS THIS THE FIRST TINE THROUGH 7? 
JOHP IF HO 
SET S¥ITCH 


PROCEED TO TEST S#ITCHES 
HAVE ALL DISKS BEEN RUB? 
JOP IF YES 
JUSP IP BO 


TEST 
JUMP 
TO PRINT 
FLAGS 
LENGTH 
BESSAGE ADDRESS 
MESSAGE ID 


FOR SOTH SSB*S 15 & 16 OF 
IF BOTE KOT OF 
INVALID SSH SETTING 


TO DCP ERROR HALT 
HALT ID 
TG READ CONSOLE S#ITCHES 


TEST FOR SWITCH 15 OF 
JUMP IF OF 
IF NOT OB, SET TO RUN REMOVABLE DISK 


TEST FOR SWITLH 16 OF 


JUSP IF OF 

TEST FOR WO FIXED DISK 

JUMP IF OB 

IF NOT ON, SET TO ROUX FIXED DISK 


DO WE WANT TO RUN ON REMOVABLE? 
JUMP IF HO 
SET TO RUX ON REROVABLE 
CLEAR RUN RENOVABLE SWITCH 
TO EXIT 


DO WE WANT TO RUN ON FIXED? 
BRANCH IF KO G 
SET DISK TYPE TO PIYAED 
CLEAR RUN FIXED SWITCH 


ExIT 


CHECK FOR LAST ROUTINE 
ZERO SWITCH 


RESET SWITCH 


PROG ID 


OaA0C-2 
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¢ 
IBS MAINTENANCE DIAGNOSTIC PROGERAR PART KO. 5129682 
PAGE 2a ¢ 
aoc2 6 SCAB HIGH OR EQUAL 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEAEST < 
158 2 ROUTINE HO. 01, CHECK FUNCTION OF RO RECORD FOUED * 
159 © SENSE BIT, (BYTE G, BIT 5) * ¢ 
160 © USING THE SCAN HIGH OR EQUAL CommaED * 
184 
$62 # ROUTIWE PREFACE e ¢ 
163 
OBFa Gi CEFR 164 RTR1 BC XL2°Gi* ROUTINE WO. 
OBFB G0 GOBFB 165 pc ZL7°00" ROUTINE FLAGS ¢ 
OBPC OCEi UBFD 166 bec AL2 (RTH2) ADDRESS OF NEXT ROUTIBE 
167 
OBPE 3D OG OBO0S 168 BEGIB CLI SETS#,3 HAVE PARARETERS BEER EETERED? é 
9c02 CO 81 OAGD 169 BE SETDSK BRANCH IP #C 
0cC06 CO 87 0367 170 BRTHIA 8B TSTSPS : 
OcOaA 3c 00 1988 4171 SV¥I  STATUS-1,0 ZERO SENSE AREB { 
OCOE 3C 06 1998 172 RVI w@RTDFC+2,0 SET FOR HEAD 6, TRACK 0 
0c12 CO 87 1824 173 B SEEKCE TO SEEK THE CE TRACK 
17% { 
OCiv CO 87 188D 175 RINIA1 B FSTSEK TO TEST FOR GOOD SEEK 
OCiA 3C FF 1992 176 AVI RDDFC+1,X* PF? SET CYLINDER BO. TO FORCE & @RF. 
GC1E OC 01 1940 6570 177 BVC RDDPC#3 (2) ,THOZR SET TO START AT TRACK 9, SECT. 6 ‘ 
178 
0c28 cO 87 19D3 179 B STRTIO TO I/O SOBROUTIRE 
0C28 03 0c28 180 pc XL1°03? FUNCTION CODE (SCAB) | 
0c29 02 oc29 181 pc XL1°02? CONTROL CODE (HIGH CR EQUAL) 
- OC2Aa 199D OC2B 182 pc AL2(EDDFC} CONTROL FIELD ADDRESS 
oc2c CO 87 0c38 183 B RTNTA2 GOOD RETURN, (NOT EXPECTED) 
0°30 CO 87 0c34 184% B | 
0c38 CO 87 OCs 185 B RTNIB NORHAL RETURN FROM EXPECTED ERROR 
0c38 CO 87 021z8 186 RTHIA2 B PRINT TD PRINT ROUTINE ERROR 
OCc3Cc Cé oc3c 187 pc XL1"C6* FLAGS 
OC3D 43% Oc3D 188 pc IL1°68* LENGTH 
OC3E OCEO OC3F 189 pc AL2 (ERR1A) ADDRESS OF LAST PRINT CHARACTER 
o0cs0 A070 0cs1 190 DC XL2*a070* MESSAGE ID 
OC4s2 CO 87 0222 191 B HALT TO DCP BALT 
Oc46 A070 OCca7 192 pc XL2°a070* HALT ID 
193 
ocs8B CO 87 19a2 194 RTBIB B SENSE TO SENSE I/O SUBROUTIBE 
oc4c 02 ocac 195 pc AL1(STATO1) DEVICE STATUS BYTES 0 & 1 
156 
OC4SD 38 0% 19B8 197 TSH STATUS-1,X*08* TEST BYTE 0, BIT S FOR ON 
198 © THIS IS *NWO RECORD FOoURD* 
0c51 F2 10 10 199 oT RTWIC BRANCH IF O” 
260 
0c58 CO 87 O27A 201 B PRIUT TO PRIKT ERROR 
ocss8 C6 0c58 202 DC XL1°C6* FLAGS 
0c59 4D 0cs59 6203 Dc IL1*77¢ LENGTH 
OCSA 153D Oc5B 204 DC AL2 (ERR1B) ADDRESS OF LAST PRINT CHARACTER 
ocSc A071 OcSD 205 DC” +=&XxL2*A077* HESSACE ID 
OC5E CO 87 0222 206 B HALT TO DCP SALT 
0c62 a07i 0c63 207 . DC XL2*a071° HALT ID 
0C64 CO 87 0C06 208 RTNIC B RINTA ROUTINE EXIT 
0C68 E3CB8CS4OD7TD9C5ES 0C96 209 pc CL47*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE * 
0Cc70 CSDG6ERE2KOCSDIDO 209 
O0C78 D6D9E2Z40D6C3CIEY 209 
0C80 DIDICSCS4OESCECY 209 
0C88 D3CSHOE2C5C5D2C9 209 
0c90 DSC7#0E3C8C540 209 
0Cc97 C3CS4OC3EBD3 oc9c 210 ERROR9 DC CLO6*CE CYL* 
OCSD E2C3C1D540CBC9C7 OCDO 211 Dc CL52'SCAN HIGH OR EQUAL USING A WOW EXISTANT SECTOR ID DI* 
0cA5 C840D6D94 OCSDSE4S 211 
OCAD C1D340E4E2C9D5C7 211 
OCBS 40C1480D5D6D540C5 211 
OCBD E7C9IEZE3C1D5E340 211 
Occ5 E2CSC3E3D6D940CI9 211 
OCcCD C&a0cEcs 211 
CCD1 CS4OD5D6E380C7C9 OCEO 212 ERRIA DC CL16"D NOT GIVE ERROR® 
OCD9 ESCSHOCSDSD9IDEDI 212 
DATE 1384270 O6APR70 22mAY70 01A0G70 PROG ID oadc-2 
EC WO. 571512 571516 571513 571531 PAGE 2a 
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| ie | mace 8 
acc2 «SCAN HIGH OF BOQUAL | 
on eee SU . 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMEST 
219 © ROUTINE ¥O. 02, TEST SETTING OF THE SCAN POUND * 
215 6 CONDITION & BRANCHING ON A TIO e 
216 * USING THE SCAN HIGH OR EQUAL COMMAND * 
ae * WITH AN EQUAL CONDITION * 
OCE1 02 OCEi 219 RTH2 DC XL17°02* ROUTINE NUMBER 
Ocz2 00. OCE2 220 pc ZL1°06" ROUTINE FLAGS 
OCE3 O£80 ocr aa; DC AL2 (BTH3) -ADDRZSS OF WEXT ROUTINE PREFIX 
OCES 3D 00 OBO9 223 CLI SszTs¥,0 HAVE PARAMETERS BEEN ENTERED? 
OCE9 CO 81 OAOD 228 BE SETDSK BRANCH IF NO 
OCED €D 87 0867 225 RTH2A B TSTSPR 
OcF1 3C 00 199B" 226 VI «—- WRIDFC+2,0 SET FOR HEAD 0, TRACK 0 
ocrS CO 87 1828 227 B.- SEEKCE TO SEEK THE CE TRACK , 
: -OCrd coe? 18a 29 wrv2s SER: 20 CARER For a coop SEER 
“) gery 3c 00 1256. as See WWE woRKs258, 0 Use waIre ries 
QDOT Ge FE 1255 1256 ‘  “RVE  WORKS2S04 ) feonneass 
ODOT 3€ 12 1879 avi Susrp,x°13° | -* poy SESSAGE ID IN PRINT 
ODOB 3€ 00 199C SVI. -SRTDFC+3 6" SET TO WRITE ONE SECTOR 
ODOF OC 01 1B0E 19BD AVC’, DFDR (2) ,WORKAD SET WRITE DATA ADDRESS 
0D15 CO 8? 19D3 239 B STRTIO TO I/0 SUBROUTINE 
op19 02 0D19 240 pc XL1*02° FUNCTION CODE (WRITE) 
OD1A 00 ODiA 281 DC XL1'00¢ CONTROL CODE {DATA) 
OD1B 1999 OD1C 282 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
OpiD CO 87 OD29 283 B RTN2B1 GOOD RETURN 
0D21 CO 87 O0D25 248 B #49 
0D25 CO 87 ODDS 2485 B WRTER2 ERROR RETURN 
246 
0D29 3c 72 1879 247 RTN2B1 SSVI SWSID,X*72* PUT ID IN PRIN 
T 
OD2D 3c 00 199C 248 BVI WETDFC+3,0 SET TO SCAN HIGH OR EQUAL OF 
249 * ONE SECTOR : 
0D31 CO 87 1 oet 
31¢ 9D3 251 B STRTIO TO SCAN EQUAL 
0D35 03 0D35 252 pc XL1°03° FUNCTION CODE (SCAR) 
enue 02 0D36 253 pec XL1°02°* CONTROL CODE (BIGH OF EQUAL} 
D37 1999 op38 2548 pc AL2 (@BTDFC) CONTROL FIELD ADDRESS 
0D39 CO 87 0D6S 255 B RTN2B2 RETURN FOR NO SCAN FOUND 
OD3D CO 87 OD79 g28 B RTW2C1 RETURN FOR SCAN FOUND 
0D87 CO 87 1c¢98 258 RTR2C B SHIPT TO SHIFT BI 
IPT TS FOR DECIMAL NUMBER 
oe 1999 op46 86259 DC AL2 (SRTDFC) ADDRESS OF SOURCE " 
ony CO 87 ICES 260 B cvD TO CONVERT TG DECISAL NOABER 
D&B 1CDD Gpuc 261 bc AL2 (CYLKS) ADDR2ZSS OF SOURCE 
OD4D OFS5SS ODSE 262 pc AL2 (ERRO 2A) ADDRESS OF DESTINATION 
OD&F 3C 40 GES2 263 N¥I PRRO2A~2,C* * SET A BLANK IN PRINT INAGE 
0D53 cO 87 B52 264% B PRETSNS TG PRINT SENSE INFO. 
0D57 CO 87 O21A 265 5 PRINT TO PRINT THIRD LINE 
CD58 06 ODSB 266 pe XL1°O6? FLAGS 
opsSc 60 opSc 267 pe IL1°96° LENGTH 
ODSD O£S4 ODSE 268 DC AL2 (ERRO2A) SESSAGE ADDRESS 
ODSP CO 87 0222 269 B HALT TO DCP HALT 
0D63 A072 OD6% 270 pc XL2°a072° RALT 1D 
0D65 CO 87 OD79 271 B RTK2Ci 
OD69 CO BF 02 373 
CO B87 0242 273 RTN2B2 B PRIRT TC PRINT NO SC 
OD6D C6 OD6D 274 DC «xKL1°Ce?* fic ee rer 
OD6E 28 ODSE 275 cc IL79U3t LENGTH 
ODEP 14aF0 OD70 276 DC AL2 (ZEBRO2F) NESSAGE ADDRESS 
ODT 2076 OnbI2 277 bc XLZ* 207&8 MESSAGE iD 
0D73 CO 87 0222 278 5 HALT TO DCP ERROR HALT 
OD77 A076 CD78 279 pe XL2"'ac7v6é! HALT ID 
230 
Ob79Y 3D FP 499C 283 RTB2C1 CLI WRIDPC+3I, Xt FP?S TEST SECTOR COUNTER FOR STEPPING. 
DATE T3SHARTC O6APRIO 22max70 OTATSTO 
EC #O. 574572 571516 571533 571534 pict a rx ae 


a eno ici at ae met rete jatescinates ‘-- 
i g 


oO! 


© 


sn e0e@0 0000000007000 8 00 06 0 


eo o 


Qa 9 


9 


a0C2 
£RR LOC 


op7r 
opeo 
oD84 
ops5s 
on86 
op88 
OD8Aa 


-SCA® 
OBJECT CODE 


F281 
CO 87 
c6 

2B 
O£7F 
4073 
CO 87 


_ ODBE A073 


op90 


0D98 
9D97 
_O0D9B 
op9c 
‘OD9D 
OD9P 
opai 
-ODA5 


oDa7 
ODAB 
 ODaAB 
oDs1 
ODBS 
ODBSs 
ODBE 
opc1 


opcs 
opc9 
ODCA 
oDCcB 
opcpD 
ODCF 
ODD3 
ODDS 
ODD9 
ODDD 
ODE! 
ODES 
ODE6 
ODE? 
ODES 
ODES 
ODEF 
ODF 


ODFS EICBCSSODTDYCSES 


3p 00 


F2 61 
co 87 
c6 

4&3 
V7B 
a07s@ 
co 67 
aovs 


C2 02 
BD 00 
F2 01 
£2 02 
38 02 
OD 01 
F2 81 
co 87 


87 


82 

tacs 
A012 
co 87 
A012 
co 87 


10 
O218 


0222 


199B 


10 
O21Aa 


0222 


1D57 
00 
+4 
04 
19BB 
19BB 
18 
OpDAB 


O21A 


0222 
OCcED 
1B79 
1BS2 
O27A 


0222 


OCED 


gies 


eeoeoeoeeeeeneeoeoeoeoeeoeeoeeee ee 
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o 8 





eX cc 


BEQuvuat 


ADMR STAT SOURCE STATEBERT 


9D8a 
OD8s 
0D87 
apes 


_ Oper 


op9B 


op9c 
OD9E 
ODao 


ODAS 


39048 


opc9 
ODCA 
opcc 
ODCE 


ODD&s 


ODES 
ODE6 
ODES 
ODEA 


ODFO 


OF 28 


CDFD CODEES EZR OCSDSDS 
CEOS DEDIEZYCEGCSDSCS 
OEOD SOD7DOCSE2ZCSDS=E23 
GOE15 SOcicée3scSDSLOcKs 
CEID DECIDSCTHOC TEOE2 
OE25 C3CID540 


OE29 CBCEC7TCE&SDEDIEO 


CESS 


0231 CSDBEYCIDI“OC3DS 
O£39 D&DSCLSBGNEGE2CS 
GERi DSC7AOCBCS5SCICAKD 
OZ49 FOSBEOEZCSC3ESDE © 
OE51 DIGOETE? 


OF55 E2CSCIEIDEDIE OCI 


QETF 


OESD DEEYDSE3ICSDSNOCI 
OE6S DSACCIDSDSESDILS 
OE6D B3KOCECICSD3cC&Ad 
OE7S DSDGESSOEZEICSD? 
OE7D D7CS5SC4 


DATE 
ZC wo. 


TSRRERTG 
STi5Vz 


QOS APRIGC 
573546 


282 JE 
283 8 
288 pc 
285 oc 
286 DC 
287 pc 
268 B 
289 pc 
290 2 
291 RTW2C2 CLI 
292 © 

293 a2 
298 B 
295 8c 
296 pc 
297 pc 
298 Dc 
299 B 
300 Bc 
301 
302 RTR2D LA 
303 BTE2F CLI 
3048 JRE 
305 LA 
306 ST 
307 CLC 
308 JE 
309 B 
310 

311 RTNZE B 
312 pc 
312 DC 
31784 pe 
315 sc 
316 B 
31317 boc 
318 RTN2G B 
339 WRIER2 BVI 
320 B 
321 B 
322 pc 
323 pc 
328 pc 
325 pc 
326 B 
327 pe 
328 B 
329 

336 DC 
330 

330 

330 

330 

330 

330 


3231 ERRO2ZA DC 
33% 
334 
331 
331 
331 
332 ERRO2B DC 
332 
332 
332 
332 
332 


226870 
571513 


- RTRZCZ 


PRINT 
XL1i*c6* 
IL1°43* 
AL2 (ERRO2 8) 
XL2°A073* 
HALT 
XL2°a073* 


WRTDFC+2,0 


BIN2D 
PRINT 
XLT*CS6* 
IL1*67* | 
AL2 (£28025) 
LL2*a07e*. 
HALT 
XL2*A078° 


WORK, XR2 
0(,1R2) -0 

RTN2E 

1(,XR2) ,XR2 
SNSXR2, X22 
SNSXIR2{2) ,WORKZ 
RTR2G 

RTK2P 


PRINT 
XL1°C6* 
IL1*68°* 

AL2 (ERRO2C) 
XL2*a075* 
HALT 
XL2*a075° 
ETR2A 


_SNSID,X*12°. 


PRTSNS 
PRINT 
XL1'c6* 
IL1°7s8°* 
AL2 (2 RROZE) 
XL2*a0172° 
HALT 
XL2°a072° 
RIN2ZA 


“siz06e2 
PAGE 3k 


ra 
ri 
r 


PROCEED IF OK. 
TO PRINT SECTOR COUNTER WOT STEPPED 
FLAGS 
LENGTH 
MESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP HALT 
HALT ID 
3 Y 
CHECK HEAD & SECTOR 80. arren 
SCAR IS COMPLETED 
PROCEED IF OK 
TO PRINT. ERROR 
FLAGS 
LEXGTH 
RESSAGE ADDRESS 
MESSAGE IDENTIY ICATION 
TO DCP HALT 
HALT ID | 


SET XR2 TO POIYT TO WORK AREA 
CHECK WORK AREA FOR BO CHANGE 
JUBP TO PRINT IF SCH. FLD. IS CHG. 
HOT DONE, INCREMENT XR2 

NO CHG, SET TO CHECK NEXT BYTE 
CHECK XR2 FOR REACHED UPPER LISIT. 
TO ROUTINE END. 

CHECK NEXT BYTE 





TO PRINT SCAN FIELD WAS CHANGED 

FLAGS 

LENGTH : 

SESSAGE ADDRESS + cy 
MESSAGE IDENTIFICATION sa O7SP Spat? Be EE 
TO DCP HALT 

HALT ID 


PUT ID IN PRINT 

TO PRINT STATUS ERTORS 
TO PRINT BRITE ERROR 
FLAGS 

LENGTHS 

MESSAGE ADDRESS 
MESSAGE ID 

TO DCP ERROR HALT 
HALT ID 


CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAW * 


CL44 "SIGH OR EQUAL COMKD. USING HEAD 9, SaCTOR XX‘ 


CLU3S*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED?® 


CIAUGTS 
877531 


PROG ID oacc-2 
PAGE 3a 


atc2 





ee . O280— 


0ze1 
& ores 
oEBa 


0E90 
- BEge 


or96 
OIC 


OzAD 
OFAN 





-OFRA 
OEAS 


a 


OSES GY ST ES 0 OL Hon 
. oe ns Pee eg Oe 


teu ie 


SEB2 


OFBS 
CEBC 
OFBD 
OFBE 
oEco 
OECY 
OECS 


THE. aH pe EE oe oS ay i RR 
. wee iis ta hi) 4 fer RS ie: 


oECC 
OEDO 


OED4S 
OEDS 
OED9 
OEDA 
OEDC 
OEEO 


eon 


OEES 
OFES 
OEEA 
OEEE 
OEFO 
i OEF2 
a CEF6 
iS OEPA 
r OETE 
a OEFF 
OFOO 
OFO02 
OF06 
OF 08 


OF0c 
OF 10 
OF 11 
OF 12 
OFT 


oEsc 


SCA 


03 
00 


: OE82 OFr3 


3D 00 
co 81 
cc 87 
3¢ 00 
co 87 


co 87 


3e. 01 
3¢ 00 
OC FD 


3c 12 
3c 00 


Oc 01 


co 87 
02 

00 

1399 
co 87 
co 87 
co 87 


3¢ 72 
3c 60 


co 87 
03 
02 
1999 
cO 87 
co 87 


co 87 
1999 
co 87 
icDD 
OFrFr2 
3C 4&0 
cO 87 
co 87 
06 

SE 
OFF2 
co 87 
ad72 
cO 87 


co 87 
c6 

2B 
1&F0 
A076 


OF16 CO 87 


OF 1A 


DATE 
EC £O., 


A076 


ERR LOC OBJECT CODE 


0809 


a 


CAOD 


0867 
1998 
1826 


168D 


1256 


1E55 
TES& 


1579 
199C 


1BC0F 
19D3 


OECC 


OECe 


ODD9 


iB79 


19SC 


19D3 


oroc 
OFIC 


1098 
1C£z9 
Orro 


1B52 
O21a 


0222 


OF IC 


O2%a 


0222 


13H8AR70 


371512 


Pace. 
HIGH OR BLORVA 
ADDR STMT SOURCE STATEMENT 
338 ¢ ROUTINE HO. 03, TEST SETTING OF THE * 
335 « ; SCAX EQUAL SENSE BIT at? 
336 « WITH A SCAN HIGH OR EQUAL COBSAND * 
337 © USING AN EQUAL CONDITION * 
338. : 
GEsO 339 RTN3 8 DC XL1*93* ROUTINE WUNBER 
O£8? 380 pc XL4*O0* ROUTINE PLAGS 
0283 7 pc AL2 (RTNS) ADDRESS OF NEXT ROUTIHE: PREFIZ 
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ISH HAINTEEANCE DIAGHOSTIC PROGRAR  -~ PART BO. 5129682 IBA MAINTZEHAHCE DIAGNOSTIC PROGRAS PART HO. 5129682 
PAGE PAGE 9A 
S@ 6 3 
_A0c2 SCARS HIGH CR EQUAL 7 a0C2 SCRRH HIGH SR EQUAL 
ERE LOC OBJECT CODE ADDR STEHT SOURCE STATERERT & G ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT 9 
810 ¢ EOUTINE #O. 08, CHECK FUNCTION OF SCAN HIGH OF EQUAL & STi * SUBROUTINE FO SEEK THE CE TBACEK 
Sti WHERE ORE BYTE IS COMPARED * S$ € 872 & 
812% AND 255 BYTES ARE MASKED OFF & $828 38 38 4857 873 SEEKCE st SEEKEX+3, ARR SAVE THE EXIT ADDRESS 
813 1828 Cc OO 1998 OBOR ee AYC RTDFC+1(1) -TRACKE SET SEEK ADDRESS TO CE TRACK 
1795 68 4795 818 ETe8 DBC KLitoee ROUTINE HUABER ¢G 8 i82E 2¢ 09 IBT9 875 BYE  SNSID,O9 PUT ID IB PRINT oO 
1796 GO $795 815 DC ELItGo# ROUTIBE FLAGS R76 
1797 FPFF 4798 846 pe XL2?PPPF? LAST ROUTIEE FLAG 1832 CO 87 19D3 877 B STRTIO TO SEEK CR TRACE 
817 @ ig #836 06 4836 878 pc XL7*O° FUNCTIOS CODE (CORTROL) ae 
1799 3p 00 OBO9 878 CLI SETSE,o HAVE PARARETERS BEER ENTERED 7? 4837 GO 4837 BFS DC XL4°O# CONTROL CODE {SE2EK} 
179b C@ 81 OAGD 219 BE SETDSE BRENCH IF HC 1838 1999 4839 880 DC AL2(@RTOPC) CONTRCL FIELD ADDRESS 
826 2 © 183k CO 87 1858 B81 8 SEEKEX GOOD RETORE o 
i7Aa1 CO 8? OBO? 821 BTHSA 8B TSTSPE 183E CO 87 1842 882 B ag 
1785 3 09 9998 822 S¥VI BETDPCe2,0 SET FOR HEAD 6 SECTOR 6 1842 CO B87 1B52 883 B PRISHS TO DECODE ERROR . 
1729 CO 6B? 3828 623 5 SEEKCE TO SEEK CE TRACK S © 1846 CO 87 0212 883 B PRLaT TO PRIxT ERROR ei 
E28 184A 06 T8GR 885 Dc ZLi°06? FLAGS 
17aD CO 87 188D B25 ATHERT & TSTSEK TG TEST FOR A GOOD SEEK 1848 35 1848 2286 oc IL4?53* LENGTR : 
cee e 98 wBuc OC9C i8tD 887 DC —- AL2 (ERROR9) RESSAGE ADDRESS Oo 
17Bi 3C G1 TE56 827 RTHGS AVI wORK*255,01 SET {S8EB “0 BF 0222 888 B SALT TO DCP HALT 
1785 OC FE 1255 1256 828 EVC WORK+254 (255) ,WORK+255 WRITE AREA 1852 #008 1853 889 DC XLZ*°a00g* HALT ID 2. 
829 Cc 6 1858 CO 87 0000 890 SEEKEX B a8 ZUIT es 
17BB 3c 00 199C¢ 830 BVI wWRTDPC+3,0 SET TO BRITE ONE SECTOR 891 
J7BF Oc O43 TBOE 198BD 834 BUC DFDS& (2) ,BORKAD SET #RITE DATA ADDRESS 892 SUBROUTINE TO DETERHINE IF DATA ADDRESS & 
832 & 8 893 * IS KOT STEPPED % c 
17C5 CO 87 19D3 833 B STRTIO TO BRITE ONE SECTOR OP DATA 894 
1769 020 i7c9 6.36 DC XL1*02? FUNCTION CODE (BRITE) Bos . 
17C3 00 T7CA 86835 DC ZL7°O* CONTROL CODE (DATA) @ & 1858 3% 08 188C 896 TSTDAT ST DATEXT+3, ER SAVE BETURN ADDRESS 3 
VICB 1989 Vcc 836 Dc AL2 (WETDFC) CONTROL FIELD &DDRESS 185c 35 92 188C 897 L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POTTER 
T7CD CO 87 17DS 837 5B RTNB BI GOOD RETURN 1860 2C 01 18FE 01 898 HYC 8ORK1(2),1(,XB2) HOVE EXPECTED ADDRESS POR COMPARE 
17D CO 87 3755 838 5 ae @ 6 1865 OF 01 188C 7900 399 ALC DA&ATEXT+3(2},T#O INCREASE EXIT ADDRESS e 
17D5 CG 87 ODDS . 839 B WETERZ ERROR RETURN FOR WRITE DATA 1868 CO 87 iSA2 900 B SENSE TO STORE DATA ADDRESS 
1759 3c 72 1879 B40 RTRBBI BVI SHSID,X*°72° POT ID IN PRINT 1O6P AB 186F 901 pc AL1(DATA) / 
VIDD 3C OG 1256 344 EVI ¥8ORK+255,0 @ 86 362 o 
T7210 3C FF 1255 8&2 EVI 8ORK+254,E°PF* SET DATA AREA FOR SCaB 1870 OD OF 1369 I8FE $03 CLC TATUS (2) ,WORK1 CHECK DATA BDDRESS 
I7E5 OC FD FES& TESS Ba3 agc WORK4 253 {256) ,BCRKA254 1876 F2 81 46 9Gu gE DATEXT JOHP IF ADDRESS s 
B44 o© 6 $05 * IS AT ORIGINAL FALUE cS 
i7EB 3c 00 199C Bus HYI WRTDFC+3,0 SET TO SCAR ORE SECTOR 1872 CG 87 G21a 906 B PRINT TO PRINT DATA ADDRESS BOT CORRECT 
V7EF cQ 87 19D3 S46 B STRTIO TO SCAN EQUAL 1B87D C6 187D S90Qa7 c XL1*cEe PLAGS 
37P32 93 V7F3 8287 pe X¥L7°03? FUNCTION CODE (SCA#} eS © qRTE 25 ia7E 968 pc ILit* 4 Ze LENGTH o 
17F& 02 V7FG B48 Dc XL1°O02¢ CONTROL CODE (HIGH OR EQURL) V8? 192F 1886 909 pc L2 (DATPE1) ADDRESS OF AESSAGE 
T7PS 1999 V7F6 889 be AL2 (BETDPC) CONTROL FIELD ADDRESS 18S1 AOZE 4882 $10 DATID1? BC XL2*AG3E* MESSAGE IDENTIFICATIO“ 
i7f7 cO &7F 1840 850 3 RENSB2 RETORN FOR WO SCAR FOUBD G @ 1882 CO 87 0222 $41 B RELT TO DCP HALT 2 
17PB CO 87 1820 851 B RTHSC1 RETURN POR SCAN FOUSD 1887 ac3e 1888 912 pc XL2°A03E! HALT ID 
852 4 1883 cO 87 O0G0 913 DATEXT B ¢—s EXIT a 
17¥PF CO 87 1852 853 B PRTSNS O PRINT SENSE INFO CG @ 915 a 
1803 06 1803 858 pc XL1*06" FLAGS 915 
1908 61 180% 855 pe IL1°97¢ LENGTH 916 * CONE HERE TO TEST FOR A GOOD SEEK s 
1805 OFF2 1806 856 pc AL2 (ZRRO3A) MESSAGE ADDRESS @ 6 917 Q 
7807 CO 87 0222 857 B RALT TO DCP HALT 188D 34 O& 18C1 918 TSTSEK ST SEKEXT+3, ABR SAVE SETORK ADDRESS 
180B AG72 180¢ 858 pc XL2°a072° HALT ID 1897 CO 87 1942 919 SKTSTA B SENSE TO SENSE DEVICE STATUS ; 
180D F2 87 10 859 J RTHBC1 e@ 8s 1895 62 1895 9320 DC AL1(STATO1) BYTES 0 & 1. QO 
860 921 
1810 CO 87 O21A 861 RINSB2 B PRINT TO PRINT NO SCAN FOUND 71896 38 10 1989 922 TBR STATUS,X*10? | TEST THE SEEK BCSY SENSE BIT 
1814 C6 1815 «B62 pc XLi'C6! PLAGS o 169K CO 10 1997 923 BT SKTSTA IF ON DO ANOTHER SENSE Q 
1815 28 1815 863 DC ILV*G3e LENGTH 924 
1816 78F0 1817 864 pe AL2 (ERRO2P) MESSAGZ ADDRESS 1892 38 Of 71988 925 TBN STATUS~1,E'01* TEST POR SEEK CHECK 2 
1818 A076 4819 865 Dc XL2*a076° MESSAGE ADDRESS Sc 18a2 F2 10 28 $26 JT SEEKER IF ON, GO TO SEEK ERROR PRIET oe 
181A CO 87 0222 866 B HALT TO DCP ERROR HALT 18aS CO 87 19D3 927 B STRTIC TO READ ID 
181E AOTE 181F 867 pe XL2°A076° HALT ID 1829 4 18aS 928 pc KLi'O1! : 
eee | oO 9 1BAR 91 18aR 929 DCs aEL1*018 Q 
1620 CO 87 17~—1 669 RTNSC1 B RTRSA BAB 18CZ 16RC 6930 DC AL2 (IDF%D~2) 
18AD CO 87 18B1 $31 8B ey is 
o G 18B1 CO 87 18B5 932 B +h Oo 
18BS OD 00 18C3 OBOA 933 CLC IDFLD-1(1) , TRACKS 
18BB F2 01 07 934 JNE SEEKER bs 
€e eo 9 935 w 
18BE CO 87 0000 936 SEKEXT B *-* EXIT 
18C2 000000 18C4. 937 IDFLD DC XL3'0! 
eo 8 938 o 
/ DATE 13MAR70 O6APR70 22maY70 01A0G70 PROG ID OA0C-2 G6 CG ovate 13HAR70 O6APR70 22mAY70 01A0G70 PROG ID Oa0c~-2 o 
. EC WO. 571512 571516 §71513 571531 PAGE EC WO. 571512 571516 $71513 571531 PAGE OR 
°.6°8 © 
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PART WO. 5129682 
PAGE. 19 
aoc2 scaAuM HIGH OR EQUAL 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST 
939 
980 © COME HERE IF AW ERROR OCCURED * 
941 © WHILE SPEKING THE CE TRACK * 
982 
18C5 CO 87 1CE9 ‘963 SEEKER B cy 
18C9 18C3 18CA 948 pc AL2(ZDPLD-1) 
18CB 1970 18CC «(985 pc AL2 (ARIVED) 
18CD CO 87 O27A 926 B PRIEST TO PRINT ERROR OF SEEK 
18D1 C1 18Di «987 pc XL1°C1! FLAGS 
18D2 2a 18D2 968 DC IL1*82¢ LENGTH 
18D3 1959 18D4 «949 DC AL2 (SZKER1) ADDRESS OF BESSAGE 
18D5 A03C 18D6 950 SEEKID DC XL2*a03C* MESSAGE IDENTIFICATION 
951 
*8D7 CO 87 021A $52 B PRIET TO PRINT SECOND LINE 
3DB 01 18DB 953 pc XL1°01° 
18DC 17 18DC 958 Dc IL1*23¢ 
18DD 1970 18DE 955 DC AL2(ARIVED) 
956 
18DP CO 87 O21A 957 B PRINT TO PRINT SECOND LIBE 
18E3 06 1823 958 DC XL1°06* FLAGS 
18E4 28 18E4 959 pc IL1*90° LENGTH 
18E5 1998 1826 960 DC AL2 (SEKER2) ADDRESS OF SESSAGE 
961 
18£7 3c 00 0811 962 HVI pass,0 
18EB 3C 00 OBO9 963 NVI SETSH,0 
18EF 3C 00 1805 968 BVI = FRSTPS,0 
18F3 CO 87 0222 965 B HALT TO DCP ERLOR HALT 
18F7 a03C 18F8 966 Dc XL2*a03c* HALT ID 
18F9 CO 87 0000 967 B 0 
968 
18FD 0000 18FE 969 WORK1 DC AL2 (*-*) 
18PPF 0002 1900 970 TWO Dc XL2°02° . 
1901 0008 1902 971 ONESEC DC XL2°04? 
1903 1256 1908 972 WORK2 DC AL2 (WORK#255) 
973 
1905 CUCTE3CINOCICSCS 192F 974 DATPR1 DC CL43*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE® 
190D D9OCSE2 E240 E6CTE2 978 
1915 S0E2E3CSD7D7C5ca 978 
191D SO E3D640C9DSC3D6 978 
1925 DIDSCSCIE3Z4OESCI 974 
192D D3E4CS 978 
1930 CSD9IDIDED9LODEC3 1959 975 SEKER1 DC CL42* ERROR OCCURRED WHILE SEZKING THE CE TRACK, * 
1938 CIEYDIDICSCHUDES $75 
1940 CB8C9DICSYOE2ZCSCS 975 
1948 D2C9D5C740E3C8C5 975 
1950 80C3C580E3D9C1C3 975 
1958 D26B 975 
195A CIDIDICIESCSCHSO 1970 976 ARIVED DC CL23* ARRIVED WO. XXX* 
1962 C1IE3¥OC3EBD3INBUN 976 
196A DSD64BS0E7E7E7 976 
1971 D9EMDSYOE2CSCSD2 1998 977 SEKER2 DC CLSO'RUN SEEK TEST SECTION AO3 FOR MORE INFO. * 
1979 &OEICSE2ZE380E2C5 977 
1981 C3E3IC9D6D590C 1F0 977 
1989 F3ISOCEDEDSSODSDE 977 
1991 D9C58 0CIDSCEDE4B 977 
DATE 13H8AR70 O6APR70 22ma170 01a0G70 PROG ID - OAOC-2 
FC WO. §$71512 571516 571513 571531 
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ERR LOC 


3999 
1998 
1998 
199¢ 


199D 
199£ 
199” 
7940 
1941 


19A2 
1946 
19AA 
19aP 
:933 


19B6 
1988 
SBA 
t9BC 


19BE 
19BF 
19c0 
19C2 
19C8 
19C8 
19cc 
19CE 
18D0 
18D2 


DATE 
EC HO. 


BEQouatl 


ae ee eo Rm 


PART WO. $129682 
PAGE - 10a 
FLAG 
CYLINDER 
TRACK & SECTOR 
NO. OF SECTORS OR NO. OF TRACKS 
FLAG 
CYLIBDER 
TRACK & SECTOR 
PO. OF SECTORS OR NO. OF TRACKS 


SHHSSSTESESKSSEREKSS SKS SSSEHOKS SEKRK SESSHEKES KVSEKSSEKSTES SSS TES SVAGEETHSHSHSSSGS 


SCAN HIGH OR 
OBJECT CODE ADDR STHT SOURCE STATENEBT 
00 1999 979 URTDFC DC = XL1"008 
00 1994 980 pc XL1°00° 
00 1998 981 pc IL1*00° 
90 199C 962 DC XL1*00° 
983 
06 489D 98% RDDFC DC XL1°00° 
oc 199E 985 DC XL1°00" 
00 199F 986 Dc 1L1°00" 
90 1940 987 pc XL1900¢ 
02 1941 988 OSE pc XL1°01° 
989 
990 
991 SENSE 1/0 ROUTINE 
3% O08 19BB 992 SENSE ST SBSXR2, ARR 
35 01 19BB 993 L SHSXR2,XR1 
18 03 1980 00 994 AHN S#S+1,0(,X81) 
30 00 1989 995 SKS SNS  STATUS,0 
DO 87 01 996 B 1(,XR1) 
997 
6000 1987 998 SETIR2 DC XL2*0° 
0000 19B9 999 STATUS DC XL2*0* 
0000 19BB 1000 SWSXR2 DC XL2°0? 
1D57 19BD 1001 aORKAD DC AL2 (WORK) 
1002 
1003 * ERROR RECORDING TABLE 
19BE 1008 ETABLE EQU) * 
00 19BE 1005 QCODE pc XL1*0"# 
00 19BF 1906 CCODE DC XL1°08 
0000 19C1 1007 SKSO1 DC XL2°0¢ 
0000 19C3 10C8 SHS23 DC XL2*0? 
00000000 49C7 1009 DCFI DC XL&*0* 
06000000 19CB 1010 DCPF DC XLGt9" 
0060 19CD 1011 DFCRI DC XL2*0° 
0000 19CF 1012 DFDRI DC XL2*O# 
0000 19D? 1013 DFDRF DC XL2*0* 
00 19D2 101% RODTNO DC XL1¢0? 
13MAR70 O6APR70 22NAY70 «©. 01A0G70 
571512 571531 


571516 


571513 


SAVE ADDRESS RECALL REGISTER 
LOAD XR1 WITH VALUE FROM ARR. 
BOVE IN FUNCTION CODE 
PERFORM SENSE 

£xIT 


*Q* CODE 

CONTROL CODE 

STATUS BYTES 0 & 1 

STATUS BYTES 2 & 3 

DISK CONTROL FIELD, (INITIAL) 
DISK CONTROL PIELD, (FINAL) 
CONTROL REGISTER ADDRESS 

DATA REGISTER ADDRESS, (INITIAL) 
DATA REGISTER ADDRESS, (FINAL) 
CURRENT ROUTINE NO. 
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PROG ID 
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0a0C-2 
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"YB ARINTENANCE DIAGHOSTIC PROGRAN PART WO. §129642 IBB MAIESTENARCE DIAGROSTIC PROGRAR PART #0. 5129682 
PAGE WwW oo PAGE TTA 
2 & 6G : : ao 
A0C2 SCARS AIGH OR EQUAL | aoc2 SCAR HIGH CGR EQUAL 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESENT © GCG EER LOC OBJECT CODE ADDR STMT SOURCE STATESERT e 
1016 © START I/O SUBROUTINE 1ACB P2 84 25 1088 JE HOSEEK EQUAL, SEEK IS WCT NECESSARY 
10177 © s. WACB F2 85 11 1085 JH FWDSER NEY ADDR. HIGHER, DO FORWARD SEEK y 
19D3 38 O8 1987 1018 STRTIO ST SETXR2, ABR SAVE ADDRESS RECALL REGISTER. 1aCE BB O17 02 1086 SBF 2¢,XR2),90% NEW ADDR. LOWER, SET BIT POR REF. 
19D7 35 62 19B7 1019 L SETXR2, ¥R2 LOAD X82 BITH VALUE FROB A2R. . IAD? OC Of 1BG8 1306 VOR? RVC SCRCH{1),LASTAD PLACE LAST ADDR IW WCRKAREA 
19DB 3C 00 1B08 4020 AVI SAYSK,00 ZERO SWITCH @ oOo 4AD7 27 00 TBOS 01 4088 SLC SCRCH{(1).2{, X82) SUSTRACT NEW ADDR. PROBE LasT apDR. c. 
13DF 28 63 1A39 00 1021 BNR 5$10+7.0(, £R2) SET FUNCTION CODE WADC £2 87 17 7089 3 SETADB PROCEED 
19E4 2C 00 TA3R 01 1022 AY¥C $104+2{1),7(,X82; SET CONTROL CODE IR SIO 1090 
19E9 2C 91 7B0C 03 1923 AVC DFCR{(2),3{,XR2} SET DATA ADDRESS FOR DPCR GS 6 JADP BA 81 02 309% FEDSEK SBR 2(, 382) ,01 SET BIT O8 FOR FORWARD SEEK i 
19EE 3B O88 1039 1028 TSTTP SBP SIO+1,x'08? SET FOR REMOVABLE DISK TAE2 2C 00 1BG8 91 1092 HVC = SCRCH{(1),7(,XR2) PLACE WEW ADDR. IN WORKAREAR 
19P2 38 O98 TACT 1025 SBP RSIO0+1,z°08? SET FOR REMOVABLE DISK TAE7 OF 00 180% 1566 41093 SLC SCRCH{1),LASTAD SUBTRACT LAST ADDR. PROS HES BDDR. 
19P6 39 08 TBOA 3026 TBF DISETP, X*° 085 TEST POR RU OR LOWER DISK o os VAED F2 87 06 1094 J SETADB PEOCEEV 
19FA F2 710 08 4O27 JT CKSEEK PROCEED 1095 
49PD 3A O8 A395 4028 SETPIX SBN S$10+1,x%°08? SET FOR FIXED DISK WAFO BC O00 03 1096 NOSEEK NVI 3{,XR2),0 SET NO. OF TRS. CROSSED TO ZERO. 
1201 3A 08 1AC7 1029 SBN RSIO0+1,x*O8" SET FOR FIXED DISK GS ¢ JAF3 F2 87 OA 4097 J ADREXT TO EXIT 
7205 BD 00 00 1030 CKSEEK CLI 0(,%R2} ,00 TEST FOR SEEK 1098. 
4A08 F2 81 60 4031 Jz SETADR IP YES, GO SET ADDRESS 1aP6 8C 00 03 13804 1099 SETADB SVC 3 (1, X82) ,SCRCH PLACE IN HO. OF TRACKS CROSSED 
YAGB 31 AS 1B0C 1032 LDFCR LIO DPCR, X* a6? LOAD CONTROL REGISTER 6 c VAFB 2C 00 7806 01 1700 NVC LASTAD({1),1(,XR2} SAVE WNE@ ADDRESS 
JAOF 37 A& 1BOE 1033 LOPDR LIO ODFDR, KX? aa? LOAD DATA REGISTER 18300 CO 87 1208 1107 ADREXT B LDFCR EXIT 
4A73 OC OO 19BE 1A39 4034 MYC QCODE(1),SI0+1 1B08 00 1B08 1102 SCRCH DC XL1*00? 
1A19 GC O00 19BP 1A3A 1035 HYC CCODE(1),SI0+2 oO oOo 1B05 00 1B0S 1103 FRSTPS DC XL7'008 
1A1PF OC 01 19CD 1B0C 1036 "vC  DFCRI(2),DFCR 1B06 00 1B06 1704 LASTAD DC XL1700# 
1A25 OC 01 19CP 1BOE 1037 AVC DFDRI(2),DFDR 1B07 00 1807 1105 DFC3SV DC XL1°00* _ 
4a2B 35 OF 1B0C 1038 L DFCE, XR1 Go Cc 1B08 00 B08 1106 SAVSW pC XL1*00? ot 
WA2P 1C 03 19C7 03 1039 MVC) = DC FI(4) , 3(,X81) 1809 0000 1BOA 1107 DISKTP DC XL2"0° 
1A34 C2 01 19C8 1040 LA 6600, XR1 LOAD DELAY VALUE IN XR1 1B0B 0000 1B0C 1108 DFCR DC AL2 (#-%) 
1A38 F3 AO OO 1041 SIO SIO X'OO*,xX*AO? START I/O OPERATION oO © 1B0D 1D57 IBOE 1109 DFDR Dc AL2 (WORK) 
1A3B C1 A2 1545 1042 WAIT TIO BUSY,X'A2* TEST FOR BUSY 4BOF 0000 1B10 1110 XR2WK DC XL2*0" 
1A3P CO 87 1942 1043 8 SENSE 1B11 PPPP 1B12 1111 NEG1 DC XL2‘*PFFF?* 
1A93 048 . 1243 1044 DC XL1*Ou? Cc CO 1B13 0294 1B14 1112 SIXSIX Dc IL2'0660! 
TASS OC 01 19D1 19B9 1045 HVC DFDRF(2),STATUS 1B15 36 01 1812 1113 BUSY A NEG1, XR1 DECREMENT DELAY COUNTER 
1AGA 35 01 180C 1096 L DFCR, XR1 ; 1B19 CO B8& 1238 1114 BH walT RETURN TO TIO IF WOT TIME OUT 
JANE 1C 03 19CB 03 1087 mVC 8 =e DC FP (4) ,3{, 281) Cc SG 1BiD CO 87 iCE9 1115 B CyD TINE OUT OCCURED, CONVERT ROUT. HO. 
1a53 CO 87 19A2 1048 5 SENSE 1B21 0A03 1B22 1116 DC AL2 (RPFX) CURRENT ROUTINE WO. 
¥R57 02 1A57 1049 DC XL1°02! 1B23 1851 1B24 1117 DC AL2 (TINOUT) ADDRESS OF DESTINATIOR S 
7A58 OC 01 19C1 19B9 1050 HVC $SNSO1(2),STATUS Cc § 1B25 3C 40 1B4F 1118 EVI TIMOUT-2,C* ° ce 
JASE CO 87 19A2 1051 B SENSE 1B29 CO 37 O2TA 1119 B PRINT TO PRINT TIMEOUT OCCURED 
1a62 03 1A62 1052 pc XL1'03* 1B2D C4 1B2D 1120 pc XL1'C6* FLAGS ee 
7A63 OC 01 19C3 1989 1053 SVC SNS23(2),STATUS oO °° 1B2E 15 1B2E 1121 pc IL1*21! J.ENGTH a 
4A69 OC 00 19D2 0A03 1054 MVC =ROUTNO (1) ,RPFX IB2F 1B51 1B30 1122 DC AL2 (TIHOUT) MESSAGE ADDRESS 
1A6P 3D FP 1B08 1055 CLI SAVSW,X* PF? IS SWITCH ON? 1B31 AOSE 1B32 1123 Dc XL2*AOSE* MESSAGE ID =a 
1A73 F2 01 OC 1056 SNE MTSTERR IF NO, SKIP RESTORE Go ¢ 1B33 CO 87 0222 1124 THALT 8B SALT TO DCP ERROR HALT cp 
1A76 8C 00 03 1807 1057 HVC) 8=—s. 3 (1, XR2) , DPC3SV RESTORE N BYTE 1B37 aAOBE 1B38 1125 Dc XL2*a0S8E®* HALT ID 
1A7B BB O01 02 1058 SBF 2(,XR2),01 TURN OFF THE POR/ REV BIT 1B39 CO 87 0000 1% B 0 - 
WATE 35 O02 1987 1059 L SETXR2,XR2 RESTORE PARAMETER POINTER G ¢ 1B3D E3CODSCSDG6ESE340O 1B51 11 TINOUT DC CL2Z1'TINEOUT IN ROUTINE xx'* c 
1A82 £1 AO OC 1060 TSTERR TIO 12(,XR2) ,X"A0* BRANCH IF ERROR . 1B45 CIDSRODSDEENXE3CY9 1127 
7085 E17 A& O08 1061 TSTSCN TIO 8(,XR2),X*A4* BRANCH IF SCAN FOUND 1B4D DS5SC5& OE7E7 1127 ee 
1A88 EO 87 O48 1062 B & (,XR2) EXIT So € OA03 1128 RPFX EQO x*a03* ie 
1063 
1064 «+ SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE one 
1065 * DIRECTION (PORWARD OR REVERSE), TO SEEK 6 Oo uF 
1066 
1A8B BD 01 01 1067 SETADR CLI 1(,XR2) ,01 IS THIS A RECALIBRATE? x 
IASE F2 01 04 1068 INE *¢#7 IF NO, BYPASS SWITCH RESET @ s “ 
1A97 3C 00 1805 1069 NVI FRSTPS,O RESET RECALIBRATE SWITCH 
1a95 2C 01 1B10 03 1070 MVC XR2WK (2),3(,XR2) SAVE ADDR. OF CTL. FLD. ADDR. 
IASA 35 02 1310 7071 L XR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. Qo 9 3 
SAGE 2C 00 1807 03 1072 NVC) = DFC3SV(1) ,3(, XB2) SAVE N BYTE IN CONTROL FIELD 
1AR3 3C FF 1B08 1073 NVI SAVSW,X'FF* SET SAVE SWITCH 
1AA7 3D 00 1B05 1074 CLI FRSTPS,00 IS THIS FIRST PASS 6.8 3 
1AAB F2 01 15 1075 INE SETADA SKIP RECALIBRATE IF WO 
1AAE 3C 01 1805 1076 AVI FRSTPS,01 SET FIRST PASS SWITCH “i 
JAB2 BB O1 02 — 1077 SBP 2(,XR2),01 SET FWD/REV BIT TO REV. Go 9s “i 
7AB5 BC FF 03 1078 svI 3(,XR2) ,255 - SET MAXIMUM TRACK CROSSING 
1AB8 3C 00 1B06 1079 BVI LASTAD,00 SET OLD ADDR TO 0 
JABC 31 A6 1B0C 1080 RLDFCR LIO DFCR,X*A6* LOAD DATA CONTROL REGISTER 6 9g 
1aCO F3 AO 00 1081 BSIO SIO 00,x'AO® SEEK REVERSE Ce 
1082 
1AC3 8D 00 01 1806 1083 SETADA CLC 1{1,XR2),LASTAD COMPARE PRESENT ADDR. WITE NEW ONE @ 3 oO 
13H AR70. O6APR70 228 aT70 OTA0G70 PROG ID OA0C-2 e.9 DATE 138AR70 OG APR70 228 AY70 01ADG70 PROG ID OA0C-2 e 
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PAGE 42 | na PATE 2a 
. 0 6 o 
a0c2 SCAN BIGH OR EQUAL a0c2 SCAN HIGH OR EQUAL 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEREST @ CG _— eRe Loc opgecr cope ADDR STHT SOURCE STATEMENT @ 
1130 ¢ SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS * 1034 9040 1188 
1131 . o 6 1036 C4UC1E3C140C2C8C5 1C¢47 1189 pc CLI8*DATA CHECK ® @ 
1852 3% O08 1BDO 1132 PRITSNS ST PRTEIT+3, ARR SAVE ADDRESS RECALL REGISTER 1C3E C3D24080804 08040 1789 
1B56 CO 87 19A2 1133 B SENSE TO PERFORM SENSE ~ 1C86 4040 1189 a 
BSA 02 TBSA 11348 DC AL1(STATO1) GET DEVICE STATUS BYTES 0 6/1. oO G 1C48 DSDESCD9CSC3DEDI 1€59 1190 DC CL18"°NO RECORD FOUND '* @ 
1B5B CO 87 O21E 1135 B DNPACK TO UNPACK STATUS BYTES 1C50 C&SOCEDEESDSCHEO 1799 
1BSP 02 BSP 1136 pc XL1*02° 1058 4020 1190 . 
1B60 1989 1B6% 1137 DC AL2 (STATUS) Oo |e ICSA ESD240C3D6D5CHCI 1C6B 1191 DC CL18*TK CONDITION CHECK®* ‘2 
1B62 1BE9 1B63 1138 DC ALZ (HEXSTA-4) | . 1C62 E3C9D6D580C3CB8C5 1191 
1139 1C6A C3D2 1194 . 
186% 3C 01 1B9% 1740 BVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BYTE GS ¢ 1C6C £2C5C5D240C3CBC5 1C7™D 1192 pc CL18"*SEEK CHECK * oS 
1B68 C2 61 1BFP 1784 LA STATWD,XR1 SET XR1 TO POINT TO FIRST MESSAGE 1C74% C3D29040408 04080 1192 
1B6C C2 02 1¢90 1102 La STMASK, XR2 SET XR2 TO POINT TO TEST MASK 1c7C 20280 1192 a 
1143 Oo | o IC7E EVDSE2CIC6C58040 1C8F 1193 STATB2 DC CL18* UNSAFE s - 
1B70 CO 87 O21A 1148 B PRINT TO PRINT SNS WITH HEADING 1C86 80404080404080480 1193 . 
1B78 C1 1B78 1145 Dc XL1"c1? _ FLAGS ICBE 4040 1193 7 
1875 01 1B75 1146 pc ILi*O1" LENGTH ei. odo 1€90 1199 STMASK EQU * “ed 
1376 IBPF 1877 1147 DC AL2(STATWD) ADDRESS OF LAST PRINT CHARACTER 1€90 89402010 1093 1195 DC XL4*80802010* 
1B76 A000 1B79 1148 SNSID DC XL2*A000* MESSAGE IDENTIFICATION | 1€9% 08080201 1097 1196 DC XL8*08040201! . 
1B7A 2C 00 1885 00 1169 MOVEBT MVC TSTBT+1(1),0(,X82) SET MASK BIT IN TEST BITS INSTRUCT. o ©e6 1197 = 
IB7P 1C 11 1D56 00 1150 HVC STATPR(18) ,0(,XB1) SET MESSAGE IN FIELD 1198 * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD 
1151 1199 : 
1384 38 00 1988 1152 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR ON o SO 1¢98 38 08 icDC 1200 SHIFT ST SHPEXT+3 ,ARR STORE ADDRESS RECALL REGISTER ae 
1B88 F2 90 08 1153 JP STPSNS BYPASS PRINT IF OFF 1C9C 35 01 ICNC 1201 L SHFEXT+3,XB1 LOAD EXIT ADDRESS IN XB1 
1158 | 1ckO 35 02 1CDC - 1202 L SHFEXT+3,XR2 LOAD EXIT ADDRESS If xR2 < 
1888 CO 87 O21A 1155 B PRINT Gc oO 1CA4 36 C2 1900 1203 A THO, XR2 INCREASE BY 2 wee 
1BSF 01 1B8F 1156 pe XL1°018 FLAGS 1CA8 34 02 ICDC 1204 st SHFEXT+3,XB2 STORE POR TRUE EXIT ADDRESS 
1B90 12 1B90 1157 pc TL1°18* LENGTH icac 3c 00 ICDD 1205 NVI CYLNO,0 ZERO WORK AREA 
1891 1D56 1B92 1158 pc AL2(STATPR) ADDRESS OF LAST PRINT CHARACTER Go © 1CRO C2 02 ICDE 1206 LA SHPTBL,XR2 LOAD ADDRESS OF SHIFT TABLE IW XR2 
1159 1CBS 75 01 0% 1207 L 1(,XR1) ,XR1 LOAD CONTROL FIZLD ADDRESS IN XR1 
1893 3D 00 1885 1160 STPSNS CLI TSTBT+1,*#-* HAS THE LAST BIT BEEN CHECKED? 1CB7 2C 00 1¢¢c2 00 1208 MVCTBR -HYC TBN+1{1) ,0(,XB2) INSERT CORRECT MASK POR TEST BITS 
1397 F2 81 OA 1161 JE SENSA IF YES, GO TO EXIT © o6 ICBC 2C 00 1CCcB 05 1209 BYC SBN+1(1) ,5(,XR2) INSERT CORRECT BITS FOR SET BITS 
1162 .  1¢C1 78 00 02 1210 TBN TBR 2(,XR1) »*-* TEST ONE BIT FOR On 
1B9A B2 02 01 1163 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT 1CC& F2 90 OF 1211 JF «+7 JUMP IF OFF 
1B9D D2 01 12 1164 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO FOINT TO NEXT MESSAGE © © 1CC? 3A 00 ICDD 1212 SBR SBN CYLNO,#-*© SET ONE BIT ON IM DECISAL FIELD 
1BAO CO 87 1B7A 1165 B MOVEBT GO TEST NEXT SENSE BIT 1CCB 3D 8O 1CC2 1213 CLI TBN+1,X°UO0! TEST POR LAST BIT 
1166 1CCF P2 81 07 1214 JE SHFEXT JUMP TO EXIT IP ALL DONE 
1BAY 3D 80 1898 1167 SENSA CLI STPSNS+1,X'80? TEST FOR COMPLETION OF 2ND BYTE Oo Oo 1cD2 £2 02 0: 9215 LA 1(,XR2) ,XR2 NOT DORE, STEP XR2 
1BAS P2 81 1A 1168 JE PRTHEX GO EXIT IF DONE 1CD5 CO 87 1CB7 1216 B SVCT BR 10 TEST NEXT BIT 
TBAB 3C 80 1898 1169 NVI STPSNS*1,X*80t SET FOR CHECK OF 2ND BYTE 1cb9 CO 87 0000 1217 SHFEXT B se EXIT 
1BAF CO 87 19A2 1170 B SENSE TO SENSE eC @ 1218 
1BB3 03 1BB3 1171 DC XL1"03* BYTES 2 & 3 iIcDD 00 1CDD 1219 CYLNO DC XL1U°98¢ 
1BB4 CO 87 O21E 1172 B UNPACK TO UNPACK STATUS BYTES 1220 
1BBB 02 i2BB 1173 pc XL1°02¢ CGC Co ICDE 08 ICDE 1221 SHFTBL DC XL1°08¢ 
1BB9 1989 1BBA 1174 DC AL2 (STATUS) | ICDP 08 ICDP 1222 Dc XL1°08° 
1BBB BED 1BBC 1175 pc AL2 (HEXSTA) —4CEO 10 1CEO 1223 DC XL1°10! 
1BBD C2 02 1¢90 1176 LA STMASK,XR2 SET BIT POINTER O!1e6 1CE1 20 ICE? 1224 pc XL1*20° 
-1BC1 CO 87 1B9D 4177 B SENSB TO PROCESS 2ND BYTE | 1CE2 40 ICE2 1225 pc XL1*G0* 
1BCS CO 87 O21A 1178 PRTHEX B PRINT TO PRINT STATUS IN HEX 1CE3 01 1CE3 1226 DC XL1°014* 
1BC9 02 | 1BC9 1179 pc XL1*02° <a ) 1CE4 02 ICE 1227 pc ¥L1*02° 
1BCA 1D iBCA 1180 pc IL1*29" \ ICES 08 ICES 1228 pc XL1*09° 
1BCB 1BED 1BCC 1181 DC =—_ AL2 (HEXSTA) | ICE6 08 ICE6 1229 pc xL1°08" 
1BCD CO 87 0000 1182 PRETEXT B + SUBROUTINE EXIT 0:90 ICE7 10 1CE7 1230 pc XL1°10¢ 
1BD? E2ZE3C1E3ESE240C2 1BES 1183 pc CL21*STATUS BYTES IN HEX, * 
1BD9 ESE3CSE24N0C9D540 1183 as | 
1BE1 CBCSE76B40 1183 °o:.98 
1BE6 0000000000000000 1BED 1184 HEXSTA DC XL8*O* 
BEE DSD680D6D7404040 IBFF 1185 STATWD DC CL18*KNO OP ' 
: IBP6 4SO40S0KG0404 04040 1185 So 0 
IBFE 4040 1185 
1C00 CODSEICEDIESC5SDS 1€11 1186 pc CLIS*INTFRVENTION REOQD.? 
1C08 E3C9D6D5S80D9C5Da 1186 Co 6 
7C10 C4UB 1186 
1C12 DAC9IEZE2C9DS5SC740 1€23 1187 Dc CL18'MISSING ADDR. MARK* 
I ICTA CICUCUD94BYOD4CI 1187 Go 6 
1€22 D9D2 1187 
; 1€24 CSDBEYC9DTIDEC5DS 1035 1188 pc CLIS*EQUIPHENT CHECK ‘¢ 
( 1C2C £340C3C8C5C3D240 1188 °o © 
DATE 13MAR70 O6APR70 22maY70 01A0G70 PROG ID OA0C-2 © © pate 1384R70 O6APR70 22MAY70 01A0G70 PROG ID Oa0C-2 
EC NO. 571512 571516 571513 571531 PAGE 12 EC NO. 571512 571516 571513 571531 PAGE. 12k 
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IBM MAIRTEWANCE DIAGNOSTIC PROGRAS PART WO. 5129682 4 IBM SAIRTENANCE PIAGNOSTIC PROGRAB PART FO. 5129682 
aa PAGE . 13 PAGE iy 
© 6 9S 
A0C2 SCAW HIGH OR BOQOUAL A0C2 SC AS BEIGH GR BQRDAL 
ZRR LOC OBJECT CODE ADDR STMT SOURCE STATESENT @ CROSS-REPERERCE a 
1232 * SUBROUTINE TO CONVERT A RUMBER TO DECINAL SYMBOL T LEN VALUE DEP REFERERCES 
a 4233 eC °e@ © 
ICEZB 00 ICES 1238 HXBYT DC XL1*O8 ADREXT 2 05% ipOG 1101 1087 
1CZ9 36 O8 1921 1235 CVD FY OBE, ARE ADD ORE TO GET FIRST PARAKETER BAIVED A 023 1970 6978 03465 0955 
ICED 34 O8 1DOR 1236 st PRON?5, ABR INSERT THE FROM ADDRESS © € AER C604 OGO08 1264 6025 0108 0873 (896 0918 6392 G18 4132 4200 14235% 1236 12378 2 
1CP1 36 68 4900 1237 2 TWO, ARR AND THO TO GET THE SECOND PRRABETER 4228 1239 12407 1283 
1CPS 36 G8 1570 1238 ST TYBOT+5,2BR INSERT THE TO ADDR aoc A COT 0000 coo2 
1CP9 34 OB 1DT6 1239 ST OTORZ*5, BBR © ¢ BEGIN & GO4 OBPE 06168 1281 os 
ICFD 36 08 79A4 4260 R ONE, RRR ADD OXE FOR EXIT ADDRESS BITO c 001 Of80 1269 
1D01 38 08 1539 1284 ST TIXE+3, ARR STORE EXIT ADDRESS BIT1 c O00? GONG 4270 
' $p05 OC B34 FDIC oOCD 1282 PRON SVC FROBYT+5 (2) , ¢-* © €& BUSY A 004 1895 4413 4642 . 
1DOB GC Gi 1D2P O900 7243 TYBOT MYC TOBYT+3(2) ,#-# CCODE & 001 19BF 10066 1035% 
iDT1 O0C ©7 1D20 9000 1244 OTORZ HVC ZROTO+3(2}) ,#-% CKSZEK & 003 1895 1030 4027 
1D37 Oc O85 JIcEe 0000 4245 FROBYT SYC EXBYT (1) ,*-* PUT BYTE ¥8 WORK AREA o& CTRL C 061 OGA6 1267 
IDIp O& 29 0000 ipuy 1266 ZROTG ZAZ *-*%(3), UNITS (1) ZERO THE TO AREA cvD A 008 CES 1235 0260 6381 06580 06598 0605 9983 14175 
1D23 OF CO ICEB 1921 1247 DECGAN SLC HXBYT(1}),ORE DECPEMENT THE HEX BYTE CYLNO & 001 icDD 1219 0261 9382 0581 0599 0606 1205% 12728 
1D29 F2 82 DA 42828 Jt TIXE JUNP IF BELOW 1 G ¢ DATA Cc 901 OORS 1268 0901 
iD2c 06 20 0000 1D3A 41249 TORYT AZ #-* (3}, DECONZ (1) INCREMENT THE DECINAL COURT DATEXT A 008 1889 09173 0896* 08597 0859*% 6904 
1D32 CO 87 1D23 7250 8 DECGAR DATID1 A GO2 1882 06910 
1D36 COQ 87 0000 1251 TIXE 2B e—% EXIT C © DATPR1 A 083 192F 09748 6909 . 
ID3k FY 1D3A 1252 DECONE DC CLi*1° DCPFF a 00& 19CB 17010 10a7% 
1D3B FIF2F3F4FSP6F7F8 iD4&& 1253 URITS DC CL10*1234%567890¢ DPCFI a OO’ 19C7 7009 1039% 
1D43 FIFO 1253 oOo © DECGAN A 006 1D23 «1247 1250 
VDa5 1D56 1254 STATPR DS CL18 DECONE A 001 ID3A 1252 1249 
1D57 1255 WORK EQU- * DFCR 2 002 BOC 1108 1023® 1032 1036 1038 1086 1020 
1D57 1E56 1256 DS CL256 ¢ ¢ DPFCRI A 002 19CD 1011 1036* 
1E57 1257 READ FOU * DPC3SV A 0604 13807 1105 1057 1072* 
1257 1F56 1258 DS CL256 DPDR k 002 BOE 1109 0237* 0358* O446* 0524% 0546* 0665* 0772* 0831% 1033 1037 
1259 G G DFDRF A 002 19D1 1013 10458 s 
0003 1260 #1 EQU x#038 HALT DISPLAY 1 DFDRI A 002 19CF 1012 1037% 
0076 1261 #H2 EQU X*76? HALT DISPLAY 2 DISKTP A 002 BOA 1167 01814 O147% 1026 
: 0001 1262 xR1 Bou 04 GQ © ERROR9 A 006 OCcSC 06210 0887 te 
0002 1263 xR2 EOU) 02 ERRO2ZA A O48 fESG 6331 0262 0263* 0268 
0008 1264 ARR EQU 08 ERRO2B A O43 OEVF 0332 0286 
0002 1265 STATO1 EQU X02! Go Cc ERRO2C A 013 1438 0632 0218 2 
0003 1266 STAT23 EQU x'03* EBROZD A015 1757B 0635 0297 
OOAG6 1267 CTRL EQU X*A6? ERROZE A 025 14C5 0636 0324 
OOAY 1268 DATA EQD X*aat G 0 ERRO2F A 083 THFO 0637 C278 6397 0802 6868 €. 
0080 1269 BITO EQU  x*808 ERRO3A A OU2 OFF2 0420 0383 0384* 0389 0796 0856 
0040 1270 BIT? EFQU x*KOoF ERRO3B BR 037 OFS4 0418 0410 
0208 1271 SWITCH EQU x*208! oO Cc ERROSA A C13 10DF 0497 0471 e 
O20R8 1272 SECTS¥ EQU. X*"20aA' ERRO&B &R O26 1129 049s 0478 
€ 0212 1273 TEST EQU x*212! ERROSC A O47 1183 0501 0490 ; 
0216 1274 LINK EQU X*216! G C — ERROSA & 027 135F 0625 0573 C 
021A 1275 PRINT EQU x*21A! ERROSB & 035 13B4 0627 0582 0583* 0588 
0212 1276 UNPACK EQU X'21E! ERROSC A 035 12F7 0629 0607 06)98* 0618 _ 
0222 1277 HALT EQO X*222" O & FRROSD A 032 13D4 0628 0600 06014 . ws 
022A 1278 LOAD £EQUD- X*22A° ERROGA A 037 165E 0782 0691 
003C 1279 HF EQU) x*3Cc8 HALT DISPLAY F ERBRO6B A 032 16B2 O7448 0707 ‘ 
003F 1280 HA EQU X*3F® HALT DISPLAY A Co oO ERRO6C A 04S 1713 0746 0722 < 
OBFE 1281 END BEGIN ERROSD A 081 17E0 0503 0734 
ERR1A A016 OCEO 0212 0189 
G C  eERR1B a 025 153D 0639 0204 
ETABLE A 001 ‘+9°BE 1004 0013 
PIXED A 008 OBD3 01458 0740 _ 
C ©  prosyt & 006 iD17 1245 1242* te 
FROM A 096 «DOS 1282 1236* 
FRSTPS A 001 BOS 1103 0089* 0964* 1069* 1074 10762 
GC Cc FWDSEK A 003 ADF 1091 1085 
HA C 001 03F 1280 
HALT C001 0222 1277 0125 0191 02066 0269 0278 0288 0299 0376 0326 0390 0399 0412 
eo 0 0472 O480 0492 0574 0590 0616 0698 0710 0725 0737 0795 0804 
0857 0866 O888 0911 0965 1128 
HEXSTA A 008 BED 1184 1138 1175 1181 
Ce oO CG ur C 001 003C 1279 
HXBYT A 001 1CE8 1234 1245* 1247% 
. H1 C 001 0003 1260 
L Go @) xn2 C 001 O0C76 1261 
[ DATE 13MAR70 O6APR70 22MAY70 01A0G70 PROG ID 020C-2 Q @ DATE 134AR70 O6APR70 22ma¥70 01A0G70 PROG ID OA0C-2 
PC NO. 571512 571516 571513 ©71531 PAGE 13 EC NO. 571512 571516 571513 571531 PAGE T3A 
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: PAGE 18 . PAGE V9, 
aoc2 SCAN HIGH OR EQUAL A0Cc2 SCAN HIGH OR EQUAL 
G CROSS-REP ERESCE o 6 CROSS- REFERENCE c 
C SYHBOL T LEN VALUE DEFX REPERERCES © 6 SYSS0L T LEN VALUE DEFN REFERENCES c 
IDFLD A 003 18C4 0937 0930 0933 e948 RTHSC1 A 008 107F 0883 0465 
INVPLG A019 0824 0108 0122 : RTNED A 004 1098 0495 0486 : 
€, LASTAD A 001 1806 1104 1079® 1083 1087 1093 1100* © © Rtws 2001 11£14 0510 0829 ‘ 
LDPCR A 006 A0B 1032 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 0073 1101 RTNSA A 00% 11ED 0516 0621 
LDFDR A 00% 1AOP 1033 0066¢ RTN5A1 A 004 11F9 0520 ; 
is LINK € 001 0216 1278 0158 © © Reresp 2 608 1201 0523 0622 € 
LOAD C001 022A 1278 0051 RTNSB1 a 008 1221 0532 0548 
MOVEBT A005 iB7A 1189 1165 RTNSB2 A 00% 1239 0581 0537 . 
c RVCTBN A 005 1CB7 1208 1216 © © xrssc a 006 1240 0546 05482 ; S 
NEG1 & 002 1812 «#1111 1113 RTNSD A 00% 126F 0558 0554 
KOSEEK A 003 1AFO 1096 108% '  RTNSD1 A 008 12A0 0578 0566 a 
NOUNIT A026 O0BODS 0092 0048 O CG  erys5e a 006 12¢2 0593 0567 0576 ‘ 
ONE A 007 1947 0988 1235 1240 12487 RTNSF A006 12FF 0619 0595 
ONESEC A 002 1902 0971 0543 0619 RTN5G A 004 1309 0621 
OTORZ A006 1011 1246 12398 © .G  RtTN6 A001 153f 0687 0512 . 4 
PASS A001 08311 0103 0109 0111* 0153* 0962* RTN6A A O04 154A 0654 0739 
PRINT C001 O21A 1275 0085 0081 0085 0119 0186 0201 0265 0273 0283 0294 0311 0321 ; RTN6GA1 ? 008 1556 0658 
c 0386 0398 04807 0468 0475 0487 0570 0585 0610 0688 0708 0718 © COC  ern6p a 008 155a 0660 § 
9731 0799 0861 0884 0906 0946 0952 0957 1119 114164 1155 1178 RTN6B1 A 00% 1582 0675 0671 
PRTEXT A 008 BCD 1182 1132¢ RTNGB2 A 00% 15482 0688 6684 ; 
PRTHEX A 008 1BCS 1178 1168 G © rrn6c a 608 1532 0697 0686 ‘ 
PRTSNS A 008 1852 1132 6264 0320 0385 0467 0569 0791 0853 0883 ETN6D A004 15CE 0713 0702 
PRTSPN A008 OADS 0081 0079 RTN6E A008 1S5EB 0728 0717 
; QCODE A001 19BE 1005 10348 © @  rtmsr a 008 1602 0739 0730 é 
RDDFC A001 199D 0984 0176* 0177% 0182 RTN7 A 001 171% 0758 0649 
BEAD A001 1E57 1257 0523 RTN72 A 008 1720 0761 0807 : 
REMVDS A001 OB08 0095 0033* 0062* 0136 © ©) etn7a1 a 008 172C 0765 ‘ 
RLDFCR A008 ABC 1080 0072¢ RTN7JB A 00% 1730 0767 
; ROUTNO 2 001 19D2 1018 1054% RTR7B1 A 008 1758 0782 0778 
C RPFX €C001 OAO3 1128 1058 1116 CO 6 ERTN7B2 A 00% 1781 0799 0788 
RSIO A003 ACO 1081 0073 1025* 1029* -  RTN7C1 A 008 1791 0807 0789 0797 
: RTN1T A901 OBFA 0168 0912 RTNS A001 1795 0818 0756 
€ RTNIA & 004 0CO6 0170 0208 C ©  pernsa a 008 17A1 0821 0869 
RTNIA1 A 00% OC16 0175 RTNSA1 A 004 17AD 0825 
RTN1A2 A 004 0C38 0186 0183 RTNWBB A 00S 1731 0827 
RTN1B A 004 OC48 0198 0185 G © pernspi1 a 008 17D9 0880 0837 
RTNIC A OO0&’ OCc6a8 0268 0199 RTN8B2 A 00% 1810 0861 0850 
RTN2 A001 OCE? 0219 0166 RTN8C1 A 004 1820 0869 0851 0859 
RTN2A A 008 OCED 0225 0318 0328 eC Co RUNFIX A 001 OBOE 0101 0113 0138* 0145 0148 
RTN2A1 A 008 OCF9 0229 RUNRSV A 001 OBOD 0100 0132* 0139 0142* 
. RTN2B A 004 OCFD 0231 SAVSK A 0017 1808 1106 1020* 1055 1073% 
: RTN2@1 A 008 O0D29 0247 0243 © Co sar A008 1cC7 1212 1209% 
RTN252 A008 0D69 0273 0255 SCRCH A 001 B08 1102 1087* 1088* 1092* 1093* 1099 
RTN2C A OO ODNT 0258 SECMSS A 0&2 OB66 0106 0084 
KTN2C1 A 008 O0D79 0281 0256 0271 GO G6 _ secrswc 001 020A 1272 0117 0130 0134 
RTN2C2 A004 OD90 0291 0282 . SEEKCE A 004 1828 0873 0173 0227 0387 0435 0518 0656 0763 0823 
RTN2D A 008 ODA7 0302 0293 SEEKER A 004 18C5 0943 0926 0934 
RIN2E A 0048 ODCS 0311 0304 G CG  seexex A 008 1854 0890 0873* 0881 
BTN2F A003 ODAB 0303 0309 SEEKID A 002 18D6 0950 
RTN2G A004 ODDS 0318 0308 i SEKER1 A 082 1959 0975 0949 
RTN3 & 001 OFB8O0 0339 0221 G $C  seKeR2 A 040 1998 0977 0960 
RTN3A A 008 OF8C 0385 0815 SEKEXT A 004 18BE 0936 0918* 
RTN3A1 A 008 OF98 0349 SENSA A 00% 1BAa 1167 1161 
RTN3B A 008 OE9C 0351 © CG sENsB A003 1B9D 1168 1177 
RTN3B1 A 004 OECC 0368 0364 SENSE A 00% 19A2 0992 0074 019% 0402 04883 0697 0900 0919 1083 1048 1051 1133 1170 
RTN3BZ2 A 00% OFOC 0398 0376 SETA A 006 OA68 0054 0037 
RTN3C A 00% OEER 0379 C+ ©  serapa a 005 1AC3. 1083 1075 
RTN3C1 A 004% OFIC 04802 0377 0392 SETADB A 005 1AF6 1099 1089 1098 
RTN3ID A 008 OF38 0415 0206 SETADR A 003 1A8B 1067 1031 
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PAGE 7 


§129682 


CL 81 THROUGH 96 


ASM "DQAOC20044 
*pa- 9800020005 
DE+O 6 14A0C20086 
084 690A0C200487 
Cb) # "36A0C20048 
ice 530a0C20089 
AGVQ EYHR0C20050 
"OH =1-A0C20051 
-YG@ *REA0C20052 


P8a0 9H8A0C20053 


E&<8 ~K*A0C200548 


BID KT8A0C20055 


Tu=—- ~IZaA0C20056 


/3% 6#DA0C20057 


S}  &0%A0C20058 
ema 69<A0C20059 


/1* ~3MA0C20060 


20Y* BS$RAOC2006 1 


G /Y KI8A0C20062 


=0H* #2 40020063 


GOH* 9-4A0C20068 


@0H* 2BQA0C20065 
PROG ID Oa0C-2 
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IBA ARINTENANCE DIAGHOSTIC PROGRAS 


A0C2 scans 


CL 1 THROUGH 76 


@eceoveae oe 


T+/955 B & 
T+ /VOSSICI(XRIF9 
T+/¥,6;LN6+.54)1 
Te/XUF$S << BD)B 
ie CR 
T+/Z*39%<C DE31% 
T+/DP>*BGFEHCC D 
T+/,KD <5 /BE.__ 
T+/%(FOESAS@ FOS 
T+/_HNO "“aBycg 
T+/>C 5>LT2) PEE++ 


T+/>=+ R>|HEB<B 
T+/29GIC /1>) OH* 
T+/OUEDA EDA 2)P 


T+/127ECLABBE 00T 


T+/2DE<}H1*] KEDA 


T+/307C0 G(7B /3 


T+/4-BA (--RYLE 
THISDGHE}] A3YFEG 


EB" 9*E7*=~DC "PHS 


HIGdGH Oo 8 
CL 17 THROUGH 32 


SHRLASGE OFLD62P 
QETILAN BRPESEX 


B2PSBUCS 1*|T2)$ 


e @eewn eae eee 


S$ & ASP 

HFTUSBA, At6-$B?H 
+ (6 DSCAOCF**C0-p 
ROWWIC RY-YC{3a 


SA0<KO"1ZHIE SAH 


AdY*P>-DB. $A D 


AF1. /AY#0H**#:6Y 
X( -$8<BSFEHBOR* 


G /YAD/301& $/-H 
BY-H)F=7 /0 8>] 
T1) XV1) PT2) SNE (X 


EO'I EDA EDA &(P 


EDA &DCUS;.A1ZS 


7)&DA. *0- % A3 


HGEY6BAU ( -) DCE 


2--YFH GL, /14% 


=" 7REF | I Cc 


EQUAL 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


S8UCWO;I B>JES'~ 
WIACT2<¢H OaN Bt 
NE<GOaNCPS_¥ S{S 
EBCYRFTU:BA,A76~ 
R2|¢- <FSFIP /1W 
$B|HACHO 1%G>0D 
AELOAFOO8 &a"0< 
| ASDFOS2/0Ea | 
CF5D2& A_| OH*BF&O 
BG-HR>J?7Z] DS$V<H 
AB>HB ) HADSBGF7Y 
AS=LSE<.Y8aPSECX 
E6<J.5<XS8RXN 14C 
O& (XEO*$R 1DCF5>1L 


EDA EDA EDA EDB 
HAP- ?HEACY G(u 


HGIQ6BAW/( -) +60 


TOH® [G6187}4*°=$ 


wanna nnn enn nn nn enn re nn reer nnn-- LAST 


DATE 
EC NO. 


T3MART70 
571512 


O6APR70 
§71516 


22m AY70 
571513 


010670 
§71531 


CL 89 THROUGA 68 


EIDCTSUCIS® 4 06) X 
AO*T,0) X22; PEIDC 


eeaeon 


RINCI5*SOKO 

ee ESR OR 
“arr <EQSCCPUPOS 
SA OAP) DR>LBAFOO 
B(&HR_=P-C+FUB+B 
@ ASFCEQSC|+- Ha 
2/0D< <$ABO FOO 
NFSP-TSBG SH-TSB 
AP"*B /260H*BYRD 
°-A>MaYDE|H $¥<B 
NS<TE96. 


A1<URK4CBO0) XKi} T 


RIDA 6+ 4KE<jO5S*L 


"SB EB EB LSHG(O 
*6A3BaYDG8-HAQH* 
AGJO. OAGKa 0 
q=|x0 
Oe 


PART WO. 
PAGE 


CL 65 THEOUGH 80 


E0=( S*GL9<PEG)X 


ABUCC: ((.6 (POKSC 


@eaeaeoeeee 


LERFSSS oF 
BP$*a ARHE <E+E 


< AW=FTUC AW" FTY 


* 1X. @BGFEHBC D 


GA.4A -~HAACOD FOR 


JISFAYDVAYEI>OD 


AOH*EBO 
G CT2)LES>LTE<x 
AFP*=~ BO FSM GAD 


GF EHC 0 H* BG-HR>J? 


CNSUCOSUA EDA 
02) 781) PTE<JH1*| 
I8@XO5MCC2<PCH>. 


5S J3* (ER*7COBFE 


* aBG A -SHD 


aeenea e eee 


AGK 0GH & 
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120408187006 
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ie Le Re - is oo : , a dee wa 
JEM MAINTENANCE DIAGNOSTIC PROGRA™ PRET 20. 3129848 pone EBS fAINTPUANCE DIAGNOSTIC PROGRAN PART HO. 5129688 
- PAGE OP ee ‘ ; PAGE WME 
40D2 DISK REVOLUTION TEST a &OD2 DISK REVCLOTION TEST 
ERP LOC OBJECT CODE ADDR STET SOURCE STATEMENT 2 > ERR LOC OBIECT CODP ADDR STMT SOURCE STATEAERT 
2 © DECK 4 - ca97) 070 USING START1,XR1 -SET UP BASE FOR XR1 & XR2 
‘OaG0 3 A0D2 START X®a0G* ia OAS?) =o 774 . USING START1,XR2 : 
. 4 SRERRRESAAERRESA AS ACSE SSS SIRRSARSE TASSELS KSARSELS RT TAKE SKE RARRERRERERAL Cag7 c2 O03 CAST 72 START? La START? ,X*03? eoiSi?T £2256 KR 
5 * * CA9B 3C AS OAAP 73 S¥I CKDISK4#1, X'A3¢ 
6 * SYSTEN/3 DISK REVOLUTION TEST =z OASP 3C AZ OBAG 74 AVI S¥DISK+7,X°a3® 
7 * . = rh) 
8 FERRE SKKREEKE LES KARE SH REPEAT EHS ORS SEEE SEES SEKEBEORARKBERESERKESEA - 75 
GACOD AOD? 0404 9 pc KL2*a0D2° PROGRAM IDENTIFICATION si 75 
Oa02 COO1 9A03 40 DC XL2*0007" eFLAGS & CURRERT RTH RO SRER 75 
OAGS CODD oacs 11, “pe XL2°0¢ - RESERVED ORAZ AC OF 29 25 76 RETRY SVC KOUNT(,XR2) ,XDRPP(2,XR2)} oNEED X*°2500* PASSES THRE 
OAa06 GAIO Oa07 12 pc AL2(RTNO4) a QRAT RE G2 29 27 77 LOGP1 ALC KOUNT (.XR2} .X0001(2,Z 82) LOOP FOR 100 REYOLUTIONS 
O08 FEFP oa09 8613 pc XL2°FEPPS eERROR RECORDING TABLE ADDR QAAB F2 AD 83 78 JOL BADBIT 1 OF DISC. IF 8O Bit SENSED 
CACA A0000D Oacc «18 DISK? pC XL3*A 000008 -SECTION ODT ERTRIES CORRE BO A2 25 79 CKDISK SNS SITCHK{,%X82) ,X°A3° Iu 190 REVOLUTIONS, ASSURE - 
GAOL BO1000 CAOPF 15 DISK2 pbc XL3*ROTONCE | OABi BB OR 2A 80 T BH BITCHK-1(,ZR2),27°08* BAD IWDEX BIT. 
16 KEREREREEAR ERK SEAT ESS TRH TKS CLE KASS EKERS ESE TALE EKER SHSERE EASE KRSECERREKERE OAPS CO 90 GAR? BY BF LOOPY e.F BIT PRESERT, PROCEED fo 
17 * ROUTINE 7 =z. OABS 72 87 4B 82 J BITOK es 
8 FRE CRR ERE ERE ARETE SERKE SERS SERFS RERSRASES SKS EAAHSSARABKRRESESARBESRE CABS Da FFP CABC 83 XDSPP qc XL2°*Darr 
OA10 07 Ge) 19 RTNOY DC XL1°04? ROUTINE? CABD 0002 OABE 6% K000% pc XL2*0001°* 
0817 069 Oal4 20 pe XL 1°00° ORBF 0000 caco 85 KOUNT DC XL2'08 
CAI2 OD5B OA13 8 621 DC AL2 (RTNO2) Cac? cece CACZ2 Ae BITCHK DC XLZ°QO# 
; 22 FREES SHER TRESS ASTER GES RSS SOARES SKETE RE LH RSEHKS SHEHERAREASESLEKEROR ENTERS CAC3 CIDSCECSETVOC2ZCS OAFE 87 PPINT? DC CLUS* INDEX BIT HAS HOT APPEARED IN LAST &% SECONDS? 
Oats 38 02 0208 23 TESTA1 TBN SBYTE3,xX*02¢ IS SSW 1B ON? OACE E340C8C1E240D5D6 87 : 
CA18 CO 10 0216 24 BT LINK IP SO B TO LIBK TO RTH 2. : OAD3 E340C1ID7D7C5C1D9 a7 
OA1C 38 20 Oa0B 25 TBN DISK 1-1,X*20¢ ~TEST IF PRIMARY DISK ES OADF CSCLROCIDSHACDict 87 
0A20 CO 90 0216 26 BF LINK ATTACHED. IF NOT, LINK TO OAE3 FIEIGOFLKOR2ZCSC3 87 
OA2& CO 87 O21A 27 B PRINT ROUTINE 2. " OQAER £L6LSCuE2 87 
0A28 01 Ca28 28 oc XL1°O78 RB 
0a29 OC 0A29 «929 oc IL 1° 12¢ CAEP CO 87 O21A BY BADBIT 8 PRI&T oPRINT UOT HESSAGE IB 
OA2A OND7 OA2B 30 pc AL2 (DISKA) CAF3 C6 OAF3 96 pe XL7°coe PRINTI ABOVE AND HALT 
OA2C 3C 00 12FF 31 TESTBY AVI RDIT¢3,xX*90# eREINIT TO X*GO*® TO READ OAFY 2C Cars 91 pc IL1*ag* 
0a30 3C 80 OA90 32 NVI RETSR¢4,x*80O* -SET OP TO RETURK TO TESTB? OAFS OAEE OAP6 92 DC AL2 (PRINT1) . : 
33 * AFTER NTRDOY OB RECAL #SG. OAF7 aces CAFS 93 DC XL2°a089t 
OA34 CT AO OAGC 34 TIO NTRDY7,x°ac? OAFS CO 37 0222 94 PB HALT 
0A38 31 Au 12B2 35 LIO DAR,X*aue 3 OAFD AGBY CAFE 95 Dc XL2°a089* 
OA3C 31 AG 12E4 36 LIO RECL,X*A6f F 7 OAFF CO 87 OAA3 96 B RETRY eIF ALT RESET, RE-TRY AGAIE 
OAKO F3 a0 CO 37 SIO x*u0%, xea08 -SEEK THK O 97 
OA83 C1 AZ OAG3 38 SBOSYT TIO SBUSY1,xX*A2?* = é 98 
OAT 30 A2 OACZ 39 SEEKD2 SNS  BITCHK,X®a2? ~LOOP TILL SEEK BUSY DROPS ? Of03 38 01 0208 99 BITOK TEX SBYTEO,X*O1* CHECK IP SS¥? IS OR. IF BOF, 
DAYB 38 40 OAC? 40 TEN BITCHK,X* 10° ORO? F2 90 C7 100 JP GOON GO Of WITH THE PROGRAM. IF YES, 
OASP CO 10 0A4N7 44 8T SEEKD1 . - OPGA 3C CO ODF2 109 SV¥I WORK,X*008 SKIP PRINTOUT AND DEPAUL? TO 
0a53 38 4O CaCc2 42 TBN BITCHK,X* S08 - = OPOE F2 87 14 102 J S¥7SKP TIEING 100 REVOLUTIONS. 
0a57 F2 90 25 43 JF RECAL1 103 ‘ 
OASA 31 AG 1286 ay LIO = RD, X*AG® . re 108 - 
CASE F3 Ai 00 u5 SIO 8 =x*U0*,x*ate -READ SECTOR 0 = * CET? CO 87 O2TK 105 GOON 8B PRINT : 
0A61 C1 A2 0A61 46 RBOSYY TIO RBUSY1,x*aA2° OnIS 487 0815 106 DC xL1*a7° 
04865 C1 AO OA6C 87 410 = NTRDY1,xX*° a0® 2 ° OBI6 2C OEY 107 ac IL7*aae hs : 
O69 F2 87 2B uB 3 START1 ie = 0817 OPO CB1R 108 DC AL2 (TESTO1} 
49 Cb19 AOPO OB1A 109 pc XLZ*a0PF9° 
50 : * - 170 ; 
OA6C CO 87 O21A 51 NTEDY? B PRIET 7 OBIB CO 87 0222 171 B HALT 
Oa70 C6 0a7G) = §2 DC XL7°co* ORTF AOPO 0B29 +12 DC XL2*AOF9® 
OA7TT 17 0A71 53 pc IL1*23° o - 143 
0A72 1220 Oa73 0 558 Dc AL 2 (PNTRDY) = OB2%7 30 CO ODF2 114 SNS WORK, X*OO* ; 
OA74 AOFE OA7S) = 4555 pc XL2*AOFE® 0825 OC 01 CBF OBF? 115 SWI7SKP MVC ETABLI,ATABL1 (2) eee S 
OA76 CO 6&7 0222 56 B HALT * OP2B OC O3 OEFDS OFBI 116 SVC TOTREV,DECFIL~@ {&) eIKITIALIZE FIELDS 
OATA AOFE 0a7B 457 Dc XL2*AQFE® . 0P37 OC O01 OC8F ORSS 17 MVC DI VISR,DECFII-& {2} 
OA7C F2 87 10 58 J RET BR 0837 3D OF ODF2 138 CLI wORK, X*OF* ~ INVOKE DEFAULT IF > OP 
59 - OR3B F2 04% C4 179 JvH SETSEUS 
OA?F CO 87 O22 60 RECAL? B PRINT ° z OE3F 3C CO ODF2 120 RVI WORK, X*O0* 
OA83 Ce OAB3 836 6 Dc XL1°c6! 0342 OF OF ORFS OFOS 121 SETHUN ALC ETABL1, SUSET1 (2) ~DETERSIRE HOW HAHY 
OARS 12 OA8& 62 DC IL1*27° OBSB 06 03 OEDS OFCS 422 hz TOTREV (4) , DO 100 (8) REVOLUTIONS TO TISB 
OA8S 1309 OA86 8663 pc AL2 (CALDSK) OBYE 06 01 OCRP OPO? 123 AZ DIVISR (2) ,D0 100-2(2) : 
OA87 BOOS CA88 64 DC XL2*a00S¢ OPSS 3p 00 ODF2 124 CLI WORK, K*OO® 
CA89 CO 87 0222 65 B HALT OPSS F2 81 OR 125 JP NOHREV 
Oa8D A005 Oas8e 66 DC XL2*A005° : CBSB OF 0O ODF2 OPR3 126 SLC WORK,ONE(1) 
OA8F CO RO ODSF 67 RETBR 8C TESTA2 ,X*80° -IP NO-OP, RETURH TO TESTA? OP61 CO 071 0842 127 BNZ SETROA 
0A93 CO 87 OA148 68 - 8 TESTA ELSE RETURN TO TESTA1. - 128 . 
69 . OR6S 3% 01 0208 129 NUMREWV TBH SBYTEO,X*01° -CHECK IF SS#7 IS ON. IP NOT, 
DATE 13MAR70 O6APR70 28APRT71 ISMAR72 PROG ID oaoD-2 ~ ’ DATE 13MAR7O C6APR70 28APR71 1SHAR72 PROG ID 0a0D-2 
BC NO. 571512 5715 16 571565 571591 PAGE 1 { FC NO. $71512 571516 571565 571591 PAGE TA 
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KOD2 DISK REVOLUTION TEST 


TSM MAINTENANCE DIAGNOSTIC PROGRAN 


PRINT ID 
NUBBER OF REVOLUTIONS PISED. 


PART 80. 53129685 
Pace 2 
GO ON WITH THE PROGEAS. XIF YES, 


WITH THE DEPRULTED 


oRE-THITIALIZE LES 

ALLOW FOR FIRST SERSE 

2» BUSP POINTER TO HEXT LOC 

«CHECK IP AT EXD OF TABLE 
IP YES, GO DG THE 
CALCULATIONS 

~ZEEO OUT TABLE LOCATIOS 

-&DD ORE TO CGONTER 

CHECK EP INDEXING BIT GR, 
IF ROT, CYCLE ORE NORE 
TINE. IP YES, CHECK IP 
ALL CHECKS SADR. 


SET CP TO INIT MINERRXVAL 
ZERO OUT PREVIOUS VALUES 
eINIT ERI TO COUSTER TABLE 


THE PROGRAH WILL GO THROUGH LCOP2 UNTILL ALL TABLE ENTRIES 


ERR LOC ORIFCT CODE ADDR STMT SOURCE STATENENT 
0869 F2 90 OD 130 IF GOON 2 
OB6C CO 87 0274 431 B PRINT 
0B70 46 OB70 332 DCs XL ¢w6e 
 OB71 21 -OB71 433 pe IL1*33° 
0B72 OEDS 0873 732 DC AL2 {TOTREY} 
OR7& ACES OB75 135 pc XL2*A0P9* 
OB76 F2 87 O68 136 3 GOOR3 
OE79 CO 87 027A 137 GOON2 3B PRINT 
ORTD 96 CB7D 138 - pc ELT *°06¢ 
OB?E 21 ORTE 139 Dc IL39 33° 
O87F OEDS o88G 140 a AL2 (TOTREV} 
184 
a2 
OB89 443. OSING B3UNP1,xR2 
OFBt C2 02 088e 148 GOON} LA BUNPI,XR2 
OBBS C2 01 7806 © 185 OR TABLE1-&,XR4 
CE89 36 01 OBBS 746 BONPT A THO,XR1 
CBB8D 34 07 OBFF 147 st SAVXR3,XR1 
0897 OF 01 OBEF OBPS 148 CLC SAVXR1(2),ETABL) 
OBIT CO 81 OBFA 189 PE GOCALC 
O£9B 6C 04 01 2c 150 MVC 9=—-1.(2, XR1p, THO(,XB2) 
OROP 6F 01 O17 2A 151 TSTBIT ALC 1(2,XR1) ,OHE(,XR2) 
OBA3 PO a2 3B 152 SWDISK SNS  CHKBIT(,XR2) ,X*A3¢ 
DEAG BS O8 3A 153 TBN CHK BIT-2(,XR2) -xX*08° 
ORA9 EG 90 16 158 BF TSTBIT (,XR2) 
OBAC F2 87 00 155 3 DUMMY 
OPAP FO 87 00 156 DONNY 8 |. BUMP1(,XB2} 
157 
158 
159 
160 
161 
OBR2 0001 CEB3 162 ONE DC XL2°U00i" 
OBBS 0002 OrR8S 163 THO De XL2°6002° 
SEP6 FOFOFGFOF3POF4&FO OBBI' 165 DFCPIL pc XL8* FO FO FO £0 PIFOFSPO* 
OBBE FP3FOFSFO OBC1 165 D308G DEC BL’ * 204808 
OBC2 CO OBC2 166 pc XL7*008 
OBC3 0000 OPCS 167 CHKBIT DC XL2°00008 
CECS 00 OBCS 168 pc XL1°00* 
OBC6 FCFOFOFOFOFOFOFO OFCD 169 KAXYAL DC DLB*O? 
OFCE FO CBCE 170 pc XL1°FO? 
OBCP FOFOPOFOFOFOPOFO OBD6 171 HINVAL DC DLS*O8 
| ORD7 FO CBD? 172 oC XL1*Fo® 
' OBDS FOFOFOFOFOFOFOFO OFE3 173 TOTVAL DBC DL12¢0° 
; OBFO FOFCPOFO 473 
OBES FO ORFQ 178 DC XL7°FO? 
: OBfES FCFOFCFOFOFOFDFO OBEC 175 SEDVAL DC DLE tO? 
} OBED FO CEED 176 DRESET pc EL4°FO? 
OBER 0000 OBEP 177 SAVXR1 DC XL2 °00* 
OBPO 0000 OBP1 173 SAVER2 DC XL2°008 
OBF2 0008 OBF3 179 EIGHT pC  xL2°0008° 
OBF4 0000 OBFS 180 COUNT DC XL2* 00008 
OFF6 160A CBP7 181 ATABL1 DC AL2 (TABLE?) 
OBFB 0000 OBP9 142 ETABL1 DC XL2"08 
183 
184 
185 
186 
187 
OBFA 3c 8C 0c24 188 GOCALC HVI ONCE#1,x%°80" 
OBFE OC 27 OBEC ORED 189 RVC DRESET-1,DRESET (40) 
0cOS C2 01 1408 190 LA TABLE1-2,XB1 
191 
192 
193 
194 « 
195 * ARE ADDED UP. 
196 * THROUGH LOOP3 
DATE TIBAKTO O06 APR70 2BAPR71 1SHAR72 
EC NWO. 571512 571516 571565 571591 


a 
Es 


FOR EVERY TRIP THROUGH LOOP2, THE PROG GOES 
APPROXIMATRLY 1,000 TIMES. 


EACE TINIEG 


PROG IB OAOD-2 
PAGE 2 


a 
liam lS 


ee 


rey 


«> 


€a 


4OD2 


ERR LOC CAJECT 


€:4 


OcoaR 
CCOE 


OC16 
OCIS 
OC iF 


0T23 
O0C26 
oc2¢ 
0€32 


ey 


OC36 
OCc3C 
OCRZ 
oces 
ocueB 
OCKE 
0c54 
0c57 
ocsD 
Och? 


és 


$ 


~ Océ? 
OCOB 
OC71 
CCT? 
bg OC7A 
ccao 
0C83 
ocas 
ocaD 
2 OCBE 
ocso 
Ocga 
ccesc 
CCAD 
ocas 
- OCAR 
- OCRS& 


3 


Rh ote 


wea 


OCBA 
OCRE 
OCBF 
occe 
0CC2 
occé 
OCC? 
occs8 
OCCR 
OCCE 
OcCcr 
OCEO 


9Ccc2 


DATE 
EC NO. 


DISK REYOLETION TEST 


13M RMAINTEWARCE DIAGROSTIC PROGRAR 


ADDR STET 


SOURCE STATENERT 


CODE 
197 3 
$98 * 
199 * 
200 # 
201 3 
202 * LCOP2 7400 
203 
OC 07 ODF2 OPRD 204 LOOP2 NYC WORK(S} ,DECPIL 
D2 01 02 205 LA 2(,%281) ,XR1 
SF 91 01 OFB3 206 LOOPJ SLC 1(,XR1) ,QHE(2) 
F2 82 OR 207 aL ONCE 
06 &3 ODF2 ORCI 208 AZ WORK (8) ,D3080(8} 
cO AF 0c 209 B ' LOOPS 
210 
211 
F2 80 10 272 ONCE 3c KONT2,X°8O" 
OC C7? OBPS ODF2 213 NVC MINVAL,WORK(8) 
Oc OF OB8CD ODF2 218 SVC  SAXVAL, WORK (8) 
3C 87 9C28 215 MYI ONCES1,X°878 
216 
C6 67 CBP? ODF2 217 KONT2 az TOTVAL (12) , WORK (8) 
OD OF CDF2 CRDE6 218 CLC WORK(8) ,MINVAL 
P2 02 09 219 JHL  KONT3 - 
OC O7 OBDE ODP2 220 NVC MINVAL,#ORK(8) 
P2 97 OF 221 3 KONTS 
Of O07 ODF2 OBCD 222 KONT3 CLC WORK(S), MAXVAL 
F2 04 C6 223 JRH KONTS 
OC 07 ORCD ODF2 226 NVC MAXVAL, SORK (8) 
C7 30 CEDS ocRD 225 KONT& $Z TOTREV (%} .DECO {1} 
cO 34 OCoOs 226 PRZ  LOOP2 
227 * 
228 
229 . 
3C FO OREC 230 MYI MNEDVAL,X* PO* 
Oc 06 OBEE OBEC 231 MVC SEDVAL-1,SZDVAL (7) 
Of 01 OC8F OFO7 232 DIVIDE CLC DIVISR(2) ,BO 100-2 
F2 81 16 233 JF EDIVi 
0? 61 OBDF OC8F 238 DIV SZ TOTVAL—& (8) , DIVISR (2} 
P2 08 43 235 INH EDIV 
06 70 OBEC OCBD 236 AZ NEDVAL (8) ,DECO1{1) 
CO 8? OCTA 237 B DIV 
Fi OCBD 238 DECOR pbc XLVF1e 
FOF OC8P 239 DI¥YISR pc XL2°FOF?¢ 
OC OF OREC OEDF 260 EDIV? MVC MEDVAL (8), TOTYAL-3 
OC C6 CEOS ODEA 28% EDIY S8¥C HINHS2,EDGaS K(7} 
dC C6 DEUS ODEA 282 MVC MSEDMS2,EDMASK(7} 
OC 06 OF89 ODERA 243 NYC MSAXNS2,EDNASK(7) 
OA 06 GEOG ORDS 284 ED SNINMS2 (7) ,HIBVAL-2 
OA 06 OF89 GBEC 245 ED MEDNS2 (7) , HEDVAL 
OA C6 CPAS OBCB 286 ED HAXNS2(7) ,MAXVAL-2 
247 ® 
248 
249 
CO 87 O2TA 250 E PRIEST 
01 OCBE 251 DC XL17°018 
4&0 OCBF 252 Dc IL1*6at 
OF39 OCC1 253 ARINPR DC AL2 (MINMS K} 
CO 87 O2TA 254 B PRINT 
C1 occé 255 pc XL7*°018 
ac Occ? 256 pc IL 1°64" 
OR? OcC9 257 AHEDPR DC AL2 (NEDSS RK) 
CO 87 O2TA 258 B PRINT 
Co OCCE 259 pc XL1*06* 
80 OCCP 260 pc IL1*6a8¢ 
OFRS OCD1 2761 AMAXPR DC BL2 (HAZMS KR) 
262 
263 
OD 06 GEOS OF2A 268 COMPHI CLC MILMS2(7) ,MINMSK-10 
138 AR70 O6APR70 28APRTI IS MARTZ 
571512 571516 571565 571591 


PART HO.  $129688 
PAGE 2a 


LOOP IS 30.86 HICROSECONDS LONG AND THE EUABER OF TISES if 
HAS TO GO THROUGH THE LOOF IS (40,900 gs fREVOLUT ZO¥} 7 
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“. YB BAIRTERARCE DIAGHOSTIC PROGRAS ‘Pant HO. 5129686 EIB SALHTERANCE DIAGHOSTIC PROGRAA PART 480. $129646 
BO33 S848 IPL TEST ae - BO33 5848 IPL TEST 
_ EBR.LOC OBJECT Core ACDS STHT SOURCE STATERELT 8 6 ‘ERB LOC OBJECT CODE . ADDR ST#HT SOURCE STATESEET 9 
aie 2 Deck & | e 9 Oa60 37 AS 15CD 76 Lz0 BEAD, X* as* LOAD DATA ADDRESS REGISTER. . aS 
-~ 000 3 DISK START 0 0a64 F3 At 00 7% RDSIO SIO X°00* ,x*at* BEAD DATA Feoa SEecroOR 00. 
. 0200 & oRG =x*a00¢ - . | 0a67 C1 A2 0867 72 TI0 *,X*a2¢ LOOP TILL BUSY DROPS. 
e 5 Seeeseceeseeceseeseseseeesessecsseeeseseaeneesesecesessescesseseesesess e i OaA6B C1 ad GDB56 73 710 BTRDYA,E°A0® | BRASCH CUT ZP DISK DRIVE-% BCT READY a 
6 * 10/06/71 LAST UPDATE s =) JU 9896800680886 005 0994S 0S S98 OOTEEO ES CEOSOOCEOSESES SS OSSECESSOSSESERESES e 
7 FOR er EOOOhS OSCE EES ESESSS OSE SE EE SEES SEREE TES SENSEEEHESEECEESELOOSEEESES 35 8 PRINT LIST OF OPERATOR IESTROCTIONS. e 
8 DISK IPL FORMAT CHECK — * ; 76 C2SSSSSSEOESOSS 99099998 04 OC 9OOSO9SE SOOO OO SSOOS SSS SEOSEDG 9 SEOSSESSESES 
9 FHOCERSEERESEEESESEES POSSESS 9864 OF $9 FFS66 FE 3E888FEE4SE8 SESS EEETE SEEDED 6 8 : OaSP 38 O8 Ga~ASS 77? SBE RDSI0e1, 2°08* PIZZD DISK SELECTED? 3 
10 ¢ SECTION BO3 POUTINE O01 * 0473 F2 10 09 78 Jt e12 J0a? IP SO. 
41 FSFE FE SOSHESSSETESD EHSESOSHSESE SE EES IESSHESEOTE SS SS OELSEKSEEESESESHESSEEETSE OA7T6 Oc OD OPSD 1065 73 BYC STIPL(38) ~ Bav SET UP RESOVABLE DISK SRADIBG. f 
42 ¢ SECTION PREPACE « © & OAIC P2 87 06 80 3: 209 ; | gh 3 
43 Seseeesssreresesesceeseegese soseseuceetecesessseRecesasessauesseseEsess : OATP OC OD OFSD OFF? Bt BYC STIPL(%S) , FIZ SET PIXELS OISK HAAStsec. 
0a00 8033 9a07 o4 pc XYL2°BO33* PROGRAA ID AWD REVISION LEVEL © oO ‘OA85 C2 Of OED 62 LA 1uSt,xa1 SITGRE SESSACR ADDRESS. *, 
Ga02 00 0a02 95 | pc ZLi#G00* SECTIOB FLAGS Oass 3c 09 15C7 83 avy TEnP,9 SEX LOOP CousT TO 9. sa 
0x03 01 0a03 8 16 bc XLiSO1? CURRENT ROUTINE HUSBER  OABD 38 01 0A98 8a EXTas sf CRmzes x21 STORE CORREST BESSACE ADDRESS. é 
OAO# 0000 02805 47 Bc x%L2* 0000 RESERVED G o OAS1 CO 87 O2Z1A 85 8 PRIT , PRIST CORBET BESSACE. “ 
OAC6 OAOD CA07 = 18 DC AL2 (RT NO 1) FIRST ROUTIBE ADDRESS 0a95 02 0a9S)~—s«86 pe ZL9*02° ad 
aos 0000 0a09 49 pc XL2* C0008 RESEBYED 0aS6 23 0a9é0 87 De IL9° 38° 
oada 205000 os0c }8=620 AUDT.=o=ss WC 2L3*205000° SECTION PREFACE UDT TABLE © 6 0a97 0000 0a98 4688 CRAES PC AL2 (es) ~ 
_ 21 FOCSeSEO SESE SSSESEESESS ESE SESS OS DESSE SESE SE SESES ESE DESSESOSESESESESES CA99 D2 01 23 89 La 35 (, R12), EB1 BUSP UP SESSACE POLBTER. ‘ad 
22 # PROGRAN HOTZES s Oasc OF 00 15C7 15D3 90 SL¢c TEMP (1), #OCT DECREREST LooP COCUST. 
22. FHERESSESSEEDESEEE SO OSSESEDS 89O8OSSS OESESSESS SHCSSSESESEOSESESEBSESEREE e lo OAA2 CO 8&8 OASD 91 BP SITES CONT IBok Loor TILL ALL DOs. ™ 
24 * - * 7 : 92 - 
25 * PROGRAM CONTAIYS ONLY CHE SOUTINE. THIS SOUTINE IS USED THRICE, s Oak6 CO 87 O2TA 93 8 Pal eT SPACE UP Ta8 Pa? 88. 
26 * ONCE PER EACH DISK OW SPINDLE 1. THIS PROGRAM CHECKS THAT THE * OAAA 16 OAAA 98 oc ZL 1° 46° 
27 ¢ IPL DATA LOADED BY PROGRAMS LOAD IS THE SAME AS IS READ BY A 3 0 o- 95 SOCOESOOEO CHOSE 0 OHSS OOSSOEESODEDOOODECOOOEOE OOCDOCEEEOSSSODSOSSORSESOES 3 
28 * READ COMMMAND. s 96 ¢ of8D THE DISK HEADS TO TRACK 5O TC arb XU CURBCKIOG TEE . 
.29 * * 97 THZ MECHAPFICS OF THE IPL PROCESS. es. 
3) 986450929 SSSSSSESSEOSSERERESHEOSSES OS SESE SEOEL SES SE SHESESSESS ESSE SESEESS 9 | ° 98 pbcddedsccceccccccnse cts cadeseasserccacpensecewecscsskscecs ciseebessse.O 
31 =< i OAaB 31 a& 45CD . $9 LIo0 BEAD, xX* aa? LOAD TRE DATA ADDEESS REGISTER. 
32 t#¢82¢889 | ° OaaPr 37 a6 15D5 700 © LI0 OUT, 3%*:6* LOAD TRL COBTROL RRGCISTER. * 
33 * RTNOt ¢ , 6 pe 0aB3 P3 a0 00 101 S10 X00, z°a0* | vO A SEEK START IYO COsgRAgS. » 
34 FEKETE SESEEEESEESSESSESESEETS SEEDS SE SECOS OSS SESE OOS OS ESERESESESSEESESEE uP OAB6 Oc 7F 185F OOFPF 102 svc - DCP (128) ,255 SAVE pOTTORS COPE. 
35 ¢ * | . OaBC OC 7P 13DF 007F 103 BYC DCP-126 (128) , 127 ~ 
36 * ROUTINE 01 FROGRAS READS SECTOR 0 OP “TRACK O PROM BSCTH © | ° Oac2 3c #P OOFP 108 ‘BVI 255, 5 'PPr* LOAD BOTTOS CORE BITA PF*S, 06'S - % 
37 * THE FIXZD AND REMOVABLE DISKS. THe PORSAT s i Oacé OC FE OOFE COFP 105 arc 258 (255) .255 
38 ¢ IS CHECKED FOR THE CORRECT IPL PROGRAS FOR s o ! ° Oacc 3c CO O07F 106 SvZz 127,2°00°* ™, 
‘39 © EACB DISK. s : OabDO OC 7B OO7E OO7P 107 Bvc 126 (127) 127 af 
4O ® * I QADé Cc 03 0003 15D9 108 STSOP NYC 3 (4), S2uCce STORE BRASCH IS VERY BOTTOS. 
: 41 ooo eeeeeseseesesessneseecs oeceeeesceeesecesecocceseccesecosoocoessesese OaDC OC FF 155F OOFP 109 ave CHECK (256) ,255 . 
OAOD 01 oa0D «82 BTHOT DC IL1°018 ROUTIVE BUABER o oO OAE2 CO 87 0222 110 8 ALT INLINE BALT -3C-. J 
OaOR 80 OAOE 43 BC X1L1°80°8 AAWOLL INTERVENTION ree OAE6 acEc OaE? 111 oc XL2°aOsC?* 
OAO?F FFFP 0a10 84 oc XL2°*FPFP® LAST ROUTINE OaEs CO 87 ODE W412. B STAaAUP ' GO REPEAT AESSACRS. ry 
OaAT1 OC SA 155A. 15BB a5 aYvc PET (91) , P&T41 CLEAR PRIET ARZA. o 9 ocoo 143 ORG x*0c 00° ~ 
OA17 CO 87 O21A a6 B PRIEST - PRINT TEST HEADING. 114 099800000000005 00000609 S8 00S COOSSO SS CORES OESEEOOSSSESSEOSESOSEESSEENSS 
OaiB 46 Oats a7 DC XL1°a6* ID -AGE0-. 115 © OPZRATOR MUST DIAL I8 -OCO0- TO START RONNIEG THE PRIGRAS. °. . 
oar1c 13 caic 88 pc I11*179°8 ° ° 116 9008000086060 0 0008000048 98S OSS OSS HOSOSESSESSOESSOOHSS OSS SSSSSESSSSESS oS 
OAic 115¢f OAlz 489 cc AL2(IPLBD) _ 0C0d OC 7P 135” OCFP 419 aYC CCDE (128) ,255 SAVE THE XPL CoDs. 
OatP ad£z0 0a20 50 pc X12* a0 £O* “°90C06 OC 7PF 32DP OO7F 118 BIC CODE- 128(128) ,127 iat 3 
(51 08000 s0000ses0eesenes0eesese esses es eoeee ee seseseleeseeseeeeneeseeesees 0 Oo OcoOCc OD BF 7355P OOFF 119 cic CSECK (256) ,255 DID ANY DATA GET TRANSFERRED ? 
52. ® BRECALIBRATE DISK DRIVE 1 e 0c12 CG 81 OD3C 420 BSE NOPS BRANCH IP NOT. 
; SJ FSSSHSSSESESESESSSOHSHS SES OSEST OHSS SOHSSSOHSS OSH OSSSOHESSSSTHH HS SOSS HOSES SS O0C1& OD 7? OOFF 125P 421 cLc 255 (128) ,READINC255 IPL CORE CORRESPOBD TO BEAD Data ? “, 
Oa21 38 O8 O0a65 58 BPGIN SBF BDSI0¢4,x%°08* S£T READ POR BEROVABLE DISK. 6 ° ocic co GT OC9D 422 BRE ROPE BRANCH IF SOT. sa 
OA25 38 068 OA3E 55 SSP SK0001,xK°08* O0C20 OD 7F CO7VF 14DP 423 cLe 127 (128) READING 127 
OA29 3C FP SBP 56 RDNIT RVI CRTBLO3,X°RR* SEI CONTROL PIZLD FOR RECALIBRATE. © Co 0C26 CO Of OC9D 124 BRE BOPE ERANCH IP sOT. a 
OA2c c1 AO ODS6 $7 TIO BTEDIA,X*A0* FRANCH IP DISK DRIVE-% WOT READY Oc2a OC 7F OOFP 1857 125 AVC 255 (128) ,DCP RESTORE DCP. ~ 
OA32 CT a2 0OD28 58 TIO BSYCK,X*A2* £EANCH IP DISK DEIVEZ-1 IS BUSY , O0C430 OC JF VOTF 13DF 126 svc 127 (128) ,BCP-128 
Oa35 31 a8 35CD 59. LI0 READ, X*au® LOAD DATA ADDRESS REGISTER. oO oO 0C36 38 10 0208 127 TBE SBYTE3,SS#1B SS¥ 1B SET ? 2 
9239 31 a6 I5SCP - 60 LIG cc#,zx*a6°* LOAD DISK CONTROL REGISTER. OC3A P2 10 07 128 JT 2410 JUAP IP SO. 
GCA3D F3 ad 00 61 SKOO s1o x*00°,x*ag° ISSOZ SIO TO RECALI BRATE. i 0C3B 3c 06 OCS2 129 eYT UP,X*°06° SET SPACE UP FoR 6 LINES. 
Oasud0 30 Az 15C1 62 SHSIT SHES STSBY1,X*A2* SENSE STATUS BYTE 1. 0781 F2 87 08 130 J se7 * 
OAe@ 38 10 15C1 63 Tee STSBY1,xX°10¢ SZEK BUSY BIT OB ? o 8 0C88 3c 02 0CS2 131 BYI UP, x*02° _ SET SPACE UP FOR 2 LINES. = 
Oase. co 10 OAsud 64 BT SaSIT CONTINUE LOOP IP SO. Ocas OC OF 1118 OFSD 132 ayc OKIPL (15) -STIPL STORE DISK ID. 

Oasc 38 80 15C1 65 TB STSBY1,xX*°80* CYLIUDER O BIT OB ? : -Ocse CO 87 O21A 133 - B PRINT PRIST IPL DATA OK. ok 
_-Ga50 cC 90 OCB9. 66 BP CYLCK ; EBANCH OUT IT BOT. o O. 0cS2 00 O0c52 1348 UP pc X1L7*00°* fe nes + gate SE Fee 
OaASwY C1 AO ODS6 67 I¥o BTEDYA,X*A0® . BRANCH IPF DISK DRIVE-1 IS NOT READY oc53 25 0c53 «135 Dc | ILU37¢ 

0a56 3c 00 155P 66 BVI CETRL¢3,x°00° SET CONTROL 7IELD POR BEADING. 6 oc5S& 1118 oc5S 136 be AL2 (OKIPL) a ows o, 
“OaSC 31. a6 15CP 69 LIO CCU, K*ae? LOAD COKTROL REGISTER. 8 ocS56 38 10 0208 137 TBN SBYTE3,SSH1B ‘SS@ 1B SET ? : = 
DATE. 138 aR70 OGAPER70 22ma¥70 O10CT70 290CT71 PROG ID ' 0B03-3 o ° DATE 138AaR70 O6APB70 228A770 010CT70 -290CT71 PROG ID 0803-3 ~’ 
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IBA BAINTENANCE DIAGNOSTIC PROGRAA . PART 5O. §129686 IBS BAISTEBARBCE DIAGNOSTIC PROGRAR .’ PaRt BO. 5129686 
Me a PAGE PAGE 2a 
. 6 9s 3 
B033 S648 IPL TEST B033 5828 IPL TEST 
ERR LOC OBJECT CODE ALDR STHT SOULCE STATEMERT © © ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 8 
OC5A ¥2 90 18 138 JP NEXT J0UsSP IPF yot. ; ; 0n15 cO 88 OCE!1 206 SP LPY LOOP TILL COUNT ROBS CUT. oy 
OC5D Of OF 10F3 OFSD 139 BYC DNOP (15) ,STIPL SET UP DISK ID. o ° 0n19 cG 87 O21A 207 B PRI ST SPACE OP PAPER. ss 
0C63 CO 87 O21; 140 B Paint PEIUT DUAP OPTION. ODID 16 OLripd 208 pc XL7* 16° 
0Cc67 42 OC6é7 141 pec XL9°82° OD1E CSG 87 6222 209 5 Salt IBLIHE BALT -98- OB -~BE-. ° 
0C68 22 , OCc6B 182 De IL 1¢ 348 @ So Ob22 accs ODp23 210 ILHLT OC XL 2* a000¢ 
O0c69 10P3 OC6A 143 Bec AL2 (DSOP) On28 cO EF OCTS att B WEXE GO DO BEXZT DISK GOR TERAIZATE. 
OC6B BOEE OCc6C «(186 BC XL2°* A0BEE* oDp28 CC SF 0278 272 BSYCK 8 PRIET PRIST BUSY CHECK. a 
OC6D 3C EE 0023 185 nvx ILHLT,X*BE* SET UP FOR ~EE~- HALT. © o Ob2c cé On2c 243 pc XL 3°C6* ID ~a098-. Mae 
0c71 CO 87 OCCD 146 B PRETHD GO DUSP THE IPL AWD READ DATA. CB2D 15 OD2D 218 DC IL1°24¢ 
LQ? SCSSOSSESERS SOSSE HESSEEOESS OEE EHEC SESE EDESEEESESESE SESE ESHESE SES OHO SERSE OD2ZE 71668 On2P 215 bc aL 2 (BUS ¥) “ 
148 © CHECK BOTH DISKS BEFORE TERMINATING SECTIGH. 2 8 @ 0p3G acse OD3t 216 pc XL2 20968 ad 
TUG PHASES TESTESSOHES SHESHE SKS SEESE RHEEESO HERES ASTETHHS HS SETS SEEEETESESERSESSERE 0n32 cO S7 0222 217 B HALT ERROR ELAT -98-. 
O0Cc75 38 O08 Oa65 150 BEXT TBE RDSIO¢1,z%°08* _BIXED DESK CHECKED YET ? = 0D36 Ages OD37 218 pe 1L2*2098? am, 
0079 Cu 10 0216 454 BT LIBR TERSIBATE SECTION IP SO. o @ 9D38 CO 8S? 0A21 278 5 BECIS GO START OVER. - 
OC7D 38 08 OA65 152 SBH RDSIO+¢1, 2° Cae SET READ COHHABD FOR PIXED DISK. Op2c OC OD 114aC OFSD 220 WOPS SVC NEPL(1&),STIPL SET OP DISK IB. 
OCS7 3a OF CA3E 153 SBu SKO0#13,x°08° Q OD&82 CO 8&7 O2t~a 221 B PRINT PRIET BG DATA TRABSYZARED. ~, 
0c85 CO 87 0429 1548 B RDMXT GO CHECK TEE FIXED DISK. 6 ODS6 Cé OD86 222 Dc EL 1°C6* = 
155 SSSCSHS SIE SSESESONSSSVESES VIS SHSSESLGOSSSTSEKSES SESS ESTHER OSSVTH THERES 9ESBSEE Opa? 38 opay 223 pc IL7*§2° 
156 © CHECKS * * ODsSe 118¢ Op&s) = 224 oc AL2(BIPL) = 
157 #eeeeneess SUBROOTIBE HANDLES ALL ERROR MESSAGES. s @ S OD4A AOSE CDSB 225 pc XL2 °a09?® = 
i568 ¢ * Opsc Cf &7 0222 226 8 HALT ERROR SALT -9F-. 

199 SEESODSSTEESTLEES SHSSESHS SS SSS SIKH SETS SOS SEKETHSTESESE HHS EREEEEHSESSEEEEESESE 0D50 ACOFE Op5% 227 pc RL2°Aa09PR* oe. 
0c89 CO 87 O21A 160 CYLCK 28 PRIST PRIBT RECAL. CHECK. o ° oDp52 CCG &7 OC75 228 B BEIT GO DO BEXT SISK OR TRERIBATZ. = 
OceP C6 CCB8D 161 pc X11 °C6°* id ~aA0EY-. 229 SHESSTESESSESSSSEHS FOSS LOT SS OOH 9DHS OO OS SESHHSSOSESE OSES HOSSS OS SSESOSOESSSE 
OCBE iF ; OC8E 162 Dc IL1°31° e ® 230 * NTRDIX * s 3 
OCc8F 1024 0c90 6163 DC AL2 (CAL) 231 Seesesesse ® 
CC91 AOOE Oc92 164 BC XL2* a00E* 232 ® SUBBOUTIEE IS CALLED SAZE A SPIBOLE DaOPSs e 
0C93 CO 87 0222 165 . B HALT ERROR BALT -O£F-. ° ® 233 ® REALY. THE STATOS BYTES POR THAT SPINDLE s “ 
0C97 ANGE 0C98 166 oc XL2* a0OE* 238 © AGE SESSZEC 45D CHECKED. A -BOT BEADY- . ™ 
ocs9 CO 87 OA21 167 B BEGI GO TRY ACAI. 235 & MESSAGE 15 PEIBTED IF ONLY THEE -INTERVERTIO’ ® 
Oc9D 38 08 OASS 168 NOPE TBM RDSIO¢.,X*°08* THIS BA FIXZUD DISK BUG ? 236 & BIt- IS CH. OTBESUISE TRE STATOS BITS ARE oe “4 
OCA1 F2 10 09 169 JT #412 JOSP IP SO. o e 237 * IBTEVPRETED AND PRISTEZD. s - 
OcaAu’ OC OD 1049 1005 170 AYC CKIPL(18) , BAY BUILD REAOVABLE MESSAGE. 238 . 
OCAA F2 87 06 171 J #49 239 © BOTE - ISSUE A TIO AS POLLORS, e* 4» 
CCAD OC OD 1049 OFF7 172 sYCc CKIPL (14) , FIX BUILD FIX BESSAGE. ° 6 280 @ = 
OCE3 OC 7F COFF 145P 173 mvc 255 (328) , DCP SESTORZ DCP. 241 & Tz0 BIRD II BRAECH IP SOT BDY. s 
O0CB9 OC 7F OCO7F 13DF ‘ 174 sYC 127 (128) , DCP-128 , 282 ® d ee7 JOAP IPF OC. es 
OCBF CO 87 O21A 175 5 PRINT PRINT IPL CHECK. © © 283 ¢ 8 APTzR RETURH HERE IS wr apre ~ 
occ3 c2 Occ3 176 DC . XL1°C2° ID -a09R-. 258 7 
Occ& 25 occa 177 bc IL1°37°* 2ZQS SOSHSTEOSESSSESSSES HESS SS SOS SOSEOS SS OOSHOSOSOESHSOSOSOSORSSESSSSOOSSESS =. 
OccS 1049 occ6é 178 be AL2 (CKIEPL) o ° 0DS6é 36 G8 15D1 256 NTBDYA A REGS ABR = 
OCCT AOOE occa 179 oc XIL2*a09Z* ODSA 3% CSE ODBE 2487 st 2DI¢3, ARR STCRE BETURE ADDRESS. 

OccS 3c 9E 0D23 180 avi ILGLT ,X*9E* SFT OP POR ERROR HALT -SE-. ODSE 30 Az 151 288 SEs STSBYt,x*a2* SEuS@ SPHEDL 1 STATUS BYTES O & %. 
OcCD CO B7 O2Z1A 181 PRTHD B PRIST ; PRIBZT DUAP BEADING. , ° 6 ODp62 30 a3 %5C3 2&9 sus STSBY3, 2° a3* SEESE SPEDL 1 STATUS BYTES 2 6 3. se 
ocDt 32 OcD1 182 pc ~L1°62° ODs6 38 &d0 15¢0 286 THE STSBYO,xX* &0* IBSTIERVEETION BIT OF PF 
OCcD2 4F OCD2 183 pec I1L1°79¢ ! OD6A PZ SO 22 251 JF DAP JUSP IP BOT. " 
OCD3 10BA OcD&’S 1648 pc AL2(HD®) 6 ; So OD6D 39 FPF 15C0 252 TBP STSBYO, 1° BF® ARE REST OF THE BITS OFF ? “ 
OCDS C2 01 126PF 185 La CODE-240,x 81 INITIALIZE “SPOUT ADDRESSES. 0571 F2 99 4B 253 JP DAP JO8P IF sOT. 
CcD9 C2 02 316PF 186 La READING 15, IR2 ! oDp78 39 8c 15C2 258 TBP STSBY2,X° 8C* ANY BITS ON IB BYTE 2 F o, 
OCDD 3c 10 15¢7 187 aVI TEBP, 16 S2T LOOP COUST ER. 8 ° On78 #2 $0 18 255 JF DSP J0eP IP SO. ™ 
Ocz1 3a 01 OCEB 168 LPY st Outi, xn1 256 © NOT READY ERROR MESSAGE @ 
OCES CO 87 O21E 189 B OMPacs ONPACK IPL DATA. € Op7B cO 87 O218 257 8 PRIsT PRINT SPINDLE BOT READY. at 
OCED 10 ocz9 190 DC IL1* 168 o, 6 OD7F cé op7P 258 pc IL1*C6° 1D -AOFE-. : 
OCkA 0000 OCEB 191 OUT! DC AL2(#-8) | opso 17 OD80 259 pc IL 1°23* 
OCEC 1582. OCED 192 oc AL2 (P8T-56) O0ns1 105813 Op82 260 pc AL2 (SPD la) om 
OCEE 38 02 OCFS 193 St OUT2, 182 , 0:90 0D83 AoFZz on8s 261 pc XL2*a0PR* = 
OCF2 CO 87 O212z 198 B ORPACK UNkACK READ DATA. | ones ce 6&7 0222 262 8 HALT ERROR BATL -¥E-. 
OCF6 10 OcFé 195 oc IL1* 16° 0D89 AOFrs CoBa 8263 DC XL2*AOPE® 3 
ocr? 0000 Ocr8 196 OT2 = C AL2 (#-#) eo; 0° 0D8B CO §7 C000 2v8 EDY B e-e RETORN TO NOT BEADY BRANCH. : 
OCcF9 I5BA OCrPA 197 BC AL2 (PRT) 265 © STATUS BYTE ERROR SESSACZ & 
OCFPS CO B87 O2Z1A 198 5 PRIIT PRIHT THE IPL AND READ DATA. oper CO 8&7 O27A 266 DAP B PRINT PRINT STATUS CHECK. ” 
OcFF 01 OCFP 199 vc X1L1°018° So | o 0D93 C2 0093 267 pc XLI*c2* ID -A097-. = 
0D00 SB 0D00 200 BC IL1°91° op98 OD cn9s 268 DC IL1°93¢ 
Op01 1SPa 0p02 201 oc AL2 (PBT) . op395 10956 ODn96 «§=269 pec AL2 (STSCK) yy 
0p03 OC SA 1SEBA 1588 202 AYC PRT (91) ,PRI¢1 CLEAR PRINT ARZA. G o On9gs7 a0s7 cp9s 270 pe XL2*a097* 
Or09 D2 01 10 203 La 16(,X81) ,XRi IBCREMEBT POINTERS. 0D99 C2 C1 OEOE 271 La BTS0¢2,xR1 LOAD TABLE ADDRESS IN INDEX REG 1. 
Ofoc 22 02 10 208 LA 16 (, ZR2) ,XR2 OCSD 3c 81 ODA2 272 SYI TSTOe¢T, x*O18 PRESET BIT POIATER POR BYTE 0. *y 
CDOF OF 00 35C7 15D3 205 SLC TESP (1) 8001 DECRESENT LOOP COURT. oe o OpAT 38 €O 15Cc0 273 TstoO TB STSBY0,X* 008 CORRENT BIT ON 2? 
: : omy 
DATE V3MAR70 OGAPE70 22HAY70 0100770 290CT71 PROG ID 0803-3 o 0 DATE 1322570 O6AERT70 228ar70 010CT70 290CT71 PROG ID 0803-3 ~“ 
EC NO. 571512 571516 571513 §71549 -571601 ' PacE 2C WO. 571512 571516 §71513 5715480 571601 PAGE - 2a 
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IBM HAINTEZSANCE DIAGHOSTIC PROGRAR PART 30. $129686 ISS MAINTENANCE DIAGHOSTIC PROGBAS PART nO. 5129686 
PAGE 3 ; PAGE 3A 
é e 9 9 
8033 S&S IPL TES? B033 5884 IPL TEST 
PER LOC OBJECT CODE ADDR STAT SOURCE STATEREST 6 @ ERR LOC OBJECT COLE ADDR STMT SOURCE STATEREET 
: f 
OpaS CO 10 ODE? 2748 BT PRTSTS GO PRIST XID IF so. e OF&C B2E240D4aC 1DSD2cS$ 335 5 
Opad D2 01 03 275 La 3(,%B%) ,XB1 IUCRESENT TABLE POTHTER. 6 OES4 DY 339 ad 
ODAC OF 00 ODA2 ODAzZ 276 ALC ST0¢4(9) ,TSTO44 SHIFT BIT POINTER TO HEX? SIt. 0255 CSESEXCIDIDRCSDS 6263 380 BTO3 DC CLIS*EQGUIPNEET CHBCR® 
CDB2 3D 00 ODaA2 277 CLI TSTG¢1, 2°06? ALL BITS TESTED ? OESD E340C3CB8C5C3D2 3480 
ODB6 CO 01 ODAI 278 BNE  TSTO BRANCH BACK IF #OT. 6 3 OFGR CYCIEICIROCICBCS GEED 34% BTCe pC CLIO*DATEA CBBCE® e 
ODER 38 08 15€2 279 TBs STSBY2, E268 HEAD SETTLIBG BIT ON P OE6C C352 3&4 
OLBE CO 10 ODE7 220 Bt PRETSTS GO PRIBT ID IP So. @ OEGE DSBSXULICSCIDEDS GEFC 382 BGS aC CL1S°BO BECGED Fouust ; 
ODC2 B2 04 03 2e1 La 3,481), ZR? IJHCBENERT TABLE POLETER. © 0276 C&40CEDEESDSC& 382 ° 
o0C5 38 Oe 15c2 282 TRH STSBY2,z2°06? IHDEX BIT OF ? CETD EILSCIC3ID240C3DH CBSt 343 BTOS we CL21*FeaCk COBDITIGS curcKe 
ODC9 CO 10 ODE? 283 BT PRTSTS GO PRIET ID IP So. @ GEBS DSC4CSESCIDEDS HC 323 “ 
ODCD D2 04% 63 208 La 3(,2R%} ,rR1 ZNCRESENT TABLE POINTER. e OFBD C3C8C5C3ID2 3&3 = 
ODDO 38 80 %5c2 285 BR STS8YZ,X*85* USSarE BIT GE 7? CES2 E2CSCSD28O6C3CEC5 GOESB 34% BTOF DBC CLIO*SfER CERcEs 
ODDS CO 10 SDE? 286 ef PETSTS GO PRINT ID IF $9. @ OFSA C3D2 38% 2. 
ODDS CO B7 G27R 287 B PRI ET SPACE UP TEE PAPER, & CESC ESDSE2ZCICECS CEA1 385 BY30 pc CLé* ONSaPSe ‘a 
oppc 16 oppc 268 pe EL9¢ 968 QEA2 C8CSCICUUOEZCSE3 OFAE 386 Bf35 BC CLY3°Head SETTL IBS? 
OLDD CO &7 6222 289 B HALT ZRROR EAL® ~9?-. & OEAAa E353C9DSC? 386 
ODE? A097 Obz2 290 DC 0 «EL2® 20978 © 387 © OPERATOR ZBSTRUCTICES. 3 
ODE3 CO SF OA24 294 8 BEGES GO START ALL OVER. OZAF CYD64OEICECSROCSKS GED1 288 LEST oc CL35°DO THR POLLOBIBSG VERY CAREPEREE - © 
232 © PRIKT BIT IG ® @ OZE? COLIDILGESGCSDSC? 3898 as 
ODE? 36 G8 ODFB 293 PRTSTS ST SPTe3, AER STChZ RETORR ADDRESS. 8 OFBPF &ORSCSD9EeROC3CI 388 wa 
ODEB iC 02 ODF7 90 29% RYC SPT-4(3),0(,2R1) STORE CORES HESSAGE ADRS/LEEGTS. CECT DICSCEEGDIDIEBLO 3&8 
ODFO CO 87 O2%~ 295 B PRIBT PRIBT THIS BEE ED. e @ OFCF 604060 388 - 
ODP& 84 Cprs 296 DC XL1°9%° OZD2 PIGBYOEZCS2380C8 OZPR 389 pe CL35°4,. SET BISPLAT ROLLER FO BOLE ¢ a * 
ODPS 00 OnPS 297 pc EL9°O08 RESERVED POR HESSAGE LEEGTE. OFLA CORZDIDICTEERODS 3893 
GDPG 00CO CDP? 298 pc Z3L2°0000¢ RESERVED POR MESSAGE ADDRESS. ° 6 OF¥2 DEDIDICSDINOR ISDE 389 + 
OprPs& CO 87 0000 299 SPT 2 6-8 COSTINJE THE BIT CHECK. OEZA SC"9DEDIDIZOF 180 389 " 
300 969090006065. 295089009609 O49 0 O0S8S SO 088 005890F6000FOSS09689SS SEO RO EES OFF2 &04804u0 349 
3041 © IDIOT @ * ° OEPS P2SBUCEIZUDSLS&O CPI? 350 Dc CL3S°2. 985 CH ALERESS COMPARE StToPF ° o, 
302 @ SRANCH HERE IP OPZRATOR DOES SYSTES BESET, 2» © OEPD DEDSBOCICacKDdCS 359 ~ 
303 @ START BEPOGZ DOISG AB IPL PROM THE DISK. e OFPOS E2E280C3DEDadNC4 359 
308 @ e 8 OFOD D9CSHOE2EIDED7ISO 350 tn 
305 0©000000060020060 000008000 00066698926 000000008 E50 RCE COCs OOOO eCOSeseNS08 © OPTS #08040 350 - 
Orrc CC 78 COFP 18SP 306 IDIOT arc 299 (128) , DCF BESTORZ DCP*S BOTTOR. OP18 PI8HLOFICSE3GOCI OF3R 251 BC CL.35°3. SEP CONSOLE Suzecaes TO 0090 8 
CEC2 OC 7F COTP 43DP 307 BYC 127 (326) , DCP-123 e@ OF20 LELSE2ZLEDICSBORZ 351 “a 
02808 CO 67 Oa2? 308 8 BEGIB GO STAPT OVRB. 6 CP28 RoCIEICICECSEIZaO 351 ” 
309 Seveneeees OFP30 BSS ROFOPCRCPCad 353 
330 © TABLES ® e OP38 «080085 341 o 
3FY ©0009 5008563509958 5 08 F808 9085959 E8 55 06068 O320209 00000099090 080O560S800S © OFPIF FaRHRORLCSE3BCCS CPSD 352 STIPL dC CLIS*&. SLT IPL Surrce Fo 7 “ 
Of0c 342 BTSO eQ0 08 TABLE OF STATUS BYTB O xD°s. OPa3 DIDIBOE. FECSEICS 352 
O8OC OA CEGC 333 oc riiewoe BIZ 7. 8 OFS CBSIBIDEROROGOEO 352 . 
OROD OF9a ChOe 38 BC —_ AL2. (B07) © OP53 &Ce0808CH0808080 352 2 
oecr 15 CEOP 315 pc ILi¢2t6 BIg 6. QFSB aCedad 282 
C10 OF91 O21 316 oc AL2 (#706) 6 OFSE PSaeBeOCeDbeCLIDs OPBO 353 pc CL35°S. DO PBOGRAS LOAD e 5 
Cei2 oF or12 337 pc IL is 45¢ BIZ 5. © OFEG ESCTLYC IDGR0D3DE 353 
OFY3 OFIC Ogle 318 pec aL2(8T05) CPOE TICRROEDR0AOSDRD 352 
C215 Ob OLIS 319 oc IL?°108 BIg? &, ° OP 76 sCeda0adeoscuded 353 ”, 
OEY) O1er Oe17? 320 Dc AL2(BT08) © OP72 eCsoad 353 “ 
0216 OF Ce18 321 oc ILV¢4958 err 3. OFPBl FEXEGOCIDIEICSDS CPA3 358 oc CL35*6. ALTES SAB TC -0CO0- ® 
OF19 OFE3 Okita 322 oc AL 2(8703) © OF 89 BSOEZCIDSSOREIDSBO 3558 ‘me 
OPiB 19 Oris 323 oc ILi917¢ srt 2. © OFGST GOPCCIFCRFOECKORO 358 we 
OFIC OFSS OFID 328 pc AL2 (8702) OPS9 8OeC80KCB0605080 358 
OEVE 15 CEIE 325 pc ILV¢299 erg 1. © OFA? 8046080 358 i 
CEIP O£83 O£20 326 oc AL2 (BT01) 6 OPAG PITQBUORIEZAHSDSLO OFCH 355 DC CL35°7. TURN OFF ADDRESS COSPARZ STOP * 
OF21 0S 02219 327 pc ILtese BIg? 0. OPAC CéC6C880C ICacaDs 355 
OF22 OF2ZE C223 328 pc AL2 (BT00) e OFBS CSEZE28O0CIDEDED? 355 a 
O£2% 329 BfS3 e#Q9 ®@ QABLE OF STATUS BYTE 3 ID°s 6 OFEC CILSCS&OE2ZE3DED7 355 v 
0228 OD O£2& 330 pc IL7°93° BIT S. CPCce “£08080 355 
Of25 O£AE CE26 331 pc AL2 (8735) OFC? PRYESOCEDESODIDG CREO 356 pc CL35°B. DO PROGHAN START ° as 
O£27 06 0227 332 DCCL: "68 BIT 0. o §¢ OPCP Lec?TD9C1DSsOR2E3 356 3 
OF28 OFA! O£29 333 pc &L2 (8730) GOFD? CIDIEI4O4ORCROKO 356 
334 eeesertevesorssescses OPDF UC&OS0R8CED4NOROKD 356 me 
335 @ RESSAGBS * o ¢ OFET GOURD 356 ee 
336 SOSSHOOEAEEEESEH ELSES ESE SOOKE SOOT ES OS OEEETSEEOOOECOSEESCOEERSSOEEESEES9DES OPFEA C6C9ETCSCEGOCHCS OFFF 357 PIE 5c CLYG° FIXED DISK® : 
OB2A CSLE60D6D7 CE2E 337 BTOO onc CLS *8O-OP* ee OFF2 E2D24040404K0 357 ie 
OZ2F CODSE3CSD9ESCSDS OF43 338 BTO1 DC CL21* INTERVENTION REQUIRED® eo ¢ OPF8 DICSDNDGESCIC2D3 1005 358 RAY pc CL14*BEMOVABLE DISK® 2 
OF37 E3C9DEDS4OD9CSD8B 338 1000 CSHOCSC9E2D2 358 
OE3F EScon9ecscy 339 1006 CUC9E2ZD240C4UD9CS 1024 359 CAL pC CL31*°DISK DRIVE 1 BECALISRATE CHECK. °* ma 
OF4Y DSDeXOCICaCcap9CS O£54 339 BTO2 nC CL17°NO ADDRESS MARKER* Cc 6 1OOE ESCSNOFIACD9C5C3 359 ~ 
| 
DATE 13HAR70 O6APR70 22mAY¥70 010CT70 290CT71 PROG ID 0B03-3 o 6°98 DATE 13HAR70 O06 APR70 22H AY70 010CT70 290CT71 PROG ID 0503-3 ~ 
EC WO. 571512 571516 §71513 571540 571601 PAGE 3 EC NO. 571512 571516 571513 571580 571601 ' PAGE 3a 
e.466°98 3 
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IES SAYNTESANCE DIAGNOSTIC PROGRAS . 7 ' PART BO. 5$129686 IBS BALETEMABCE DIAGHOSTIC PaROGRAR PAST BO. 5129686 
: PAGE & 6 Pace &a e 
{ 3 
B033 S884 IPL TEST 3033 5888 IPL TEST 
ZRR LOC OBJECT CODE ADDR ST1T SOURCE STATERENT o © ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST 8 
1016 C1D3ICSC2D9C74ICS 359 e 15cc 1160 15cD 392 READ o1BC AL2 (READIB) 9 
1O1E S0C3C8C5C3D248 359 6 15CE 15BC . 1SCP 393 CCH pc Al. 2 (CETRL) 
1025 COL7TD340CUCIEIC1 1089 360 CKIPL DC CL37°IPL DATA CHECK FOR THE* 15D0 FPPC ant tt aes = re. 
102D 90C3C8C5C3D280C6 360 15D2 0001 D s a 
tote DEbenORscecsaDas 360 ec oO 1558 15cC8 18D5 396 OUT pc AL2 (IDL) 8 
103D 4040804040408080 360 15D6 C08? 1SD7 «397 pc 1L2°cO87* 
1085 &C 40404040 360 6 1528 ODFC 15D9 398 BEECH DC AL 2 (IDIOT) 5 
TOUA EZEICTEIJESE200C3 1056 36% STSCK DC CL1I3*STATGS CHECK. * =) 399 ceseeseosuseseseses 
800 © EQUATES e 
sass eecoe bos ocanses 106B aes BOSY pc CL21° DISK DRIVE 1 XS BUSY.* © ° 401 cevecceseesencsoceuce seceeeessesescecosesecssssecossscossocsooessouesss 3 
-105F ESCSSCF140C9EB240 362 uoce rh a be aoe 
1067 C2ER8E2E84B 362 
106C. 40404040405C80480 1081 363 pc CL70® IPL DATA* e 0002 808 £R2 Zou 0S x* O28 gS 
1074 40408060C9D7D3480 363 @ 0212 805 ONPACK £QU xX*21z° 
107C CUCTE3ICTNONC8080 363 021A 806 PRINT 28995 xe2tae 
1084 8080404040400060 — 363 © e@ 0222 807 HALT £Q0  x*222 ; 3 
108C 40408045040808040 363 0216 S808 LIEK £QU £*02%6 
1094 4040804040408080 363 C20B &09 SBYTZ3 EQDU x°020B* 
109C 4040 404040908080 363 © 0010 810 sS¥1B 200 # Xx* 10° 9 
170A4 46040408040408040 363 @ OA21 11 ZBD BEGI# 
10AC 408040404080 363 
10B2 D9CSCICS4OCKCIE3 105A 364 RDN pc CL9*°READ DATA® © «6 3 
10BA C1 368 
10BB C&C9E2D2400C4D9C9I 10D1 365 SPDNR DC CL23*DISK DRIVE 1 NOT READY.* 
10C3 ESCSGOF1N0D5D6E3 365 ec e 3 
TOCB SODSCSCICHEBYB 365 
10D2 CUCTEICINOCNUESDY 1073 366 DHOP dC CL34*DATA DUSP OPTION -* 
10DA D74OD6D7E3C9DEDS 366 e ° 98 
1OF2 4C60408040404040 366 
TOEA 4040404080404630 366 
10F2 4680 366 oe 2 
10F& CID7ID34OCKCIE3C1 1118 367 OKIPL DC CL37*IPL DATA IS OK FOR THE® 
1OFC 4OC9E2Z40D6D240C6 367 
1104 D6D940E3C8C58040 367 6 e 3 
110C 4040408040804040 367 | 
7114 4040804040 367 atk 3 
(1119 COID7D340CHC1E3C1 118C 368 NIPL DC CL52°IPL DATA WAS NOT TRANSFERRED FROS THE®  @'@ 3 
7121 SOR6C1E28005D6E3 368 
1129 SOE3L9C tDSE2CECS 368 
1131 DOLICSCHKOCEDIDE | - 368 oe @ 3 
1139 DY80E3C8C5408080 368 rnd 
1241 6090404040808040 368 | 
1149 nONOUDUC 368 ° ° Q 
14D PSPUPSFASOCHC9E2 115P 369 IPLHD DC CL19°5444 DISK IPL TEST.* 
1155 D280C9b7D390E3C5 369 
115D E2E348 369 98 8 ao . 
370 8446S S48 SESSSESSESE . : 
371 © PRESERVED AREAS © 
372 SEEKVSSSEESSSSSHSTHSSSESSESSSSSSTIHSKSVS SS SEESSESSE SESE EE SSE SESESESS SOSSSTSSESESS e . 3 
1160 373 READIN EQU * , » @ 
1160 125P 374 Ds CL256 a. BEAD FIELD STORAGE. 
1260 135F 375 CODE Ds CL256 EXPECTED IPL PROGRAS PORSAT. 6 oO 
4360 145P 376 DCP DS CL 256 DCP CORE STORAGE. @ 
1460 155P 377 CHECK DS CL256 
1560 1584 378 PRT DS CL91 PRINT ARZA. ° ° 9 
15BB 40 15BB 379 pc KL1°aQ* 
158C 380 CNTRL £00 *¢ 
. Spe CCCCOC00O 15BP 381 pc XL4& 00000000 * DISK CONTROL PIELD. ce S 
'  45¢0 00 15cd 382 STSBYO BC saL1°008 STATUS BYTES @ 
15c1 00 15C1 383 STSBY1 DC XL1°00" 
15¢C2 00 1$C2 388 STSBY2 DC 1L1°00* ° 3 
15¢3 00 15C3. 385 STSBY3 CC —- XL.1°008 | ° . 
15c4 OCCOC00D 15C7 386 TERP DC XL *00000000 * WORK STORLGE. 
15C8 387 SIDL e£QU- ce. 3 
15C8 00320132 1scB 6388 pc ILS *00320132° SEEK TO TRACK SO CONTROL FIELD. © 
389 sesssesessess 
390 * CONSTANTS © ao 2 Co) . 9 
391 SOSSSSSSHSESSESSSESKEGESESSS SS SH HSSSHS OF SSHESSESSE SHEESH SS SSESESSESSSSSHSVSESSSEHSSS j 8 
: 2 @ 
DATE 13 MART7O OGAPETO 228 AY70 vlocT70 290CT71 PROG ID 0B03-3 © i 0 DATE 138aR70 O6APR70 228AY70 010CT70 290CT71 PROG ID re 
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_ IBa BATETEBAECE DIAcHCSTIC. PROGRAS : = PART 80. 5129686 IBM SAINTENANCE DIAGHOSTIC PROGRAS PART #0. 5129686 
PAGE 5 e @ a a PAGE Sa 9 
8033 S885 IPL TEST 8033 5868 IPL TEST 
. CROSS~RZPER ENCE oe 698 CROSS- REP ERERCE | 9 
SYABOL T LEN VALOE DEPH REPERERSCES ©. oO SYMBOL T LEB VALUE DEPH SEPEREBCES as 
ABR C001 COce 0402 0286% 0287 0293 SESIT &€ 008 CARO 0062 0068 
auor A 003 ‘OR0C 0020 - - ° Oo SPDNR £023 1001 0365 6260 a 
ESIR & 008 OA21 0058 0167 0219 0291 0308 0811 SPT £008 ODFB 0299 02938 02980 ~~ 
BRNCH A002 15D9 0398 0108 SSH1B € 001 0010 6810 06127 0137 
BSYICK A 008 0D28 0212 0058 6 STIPL & 035 OFP5D 6352 CO79* 0081 0132 0439 0220 
B8T350 8 009 OZ0C 0312 62718 . © STHUP A 006 OAD6 0108 0732 3 
ETS3 & 00% O£28 0329 ; STSBYO A O04 75CO 0382 0250 0252 6273 
BTOG & 005 OF2ZE 0337 - 0328 | eo ge STSBY1 2 007 15C1 C383  0062* 0063 0065 o288¢ zs 
BTO1 a 027 GFa3 0339 0326 = ON STSBY2 A 00% 15C2 0388 0258 6279 6282 6285 ve 
BTG2 A 017 GES4 0339 032% STSBY3 & 001 45C3 6365 0289¢ 
PTO3 A&A 015 OF63 0380 0322 a 6 STSCK & 013 1056 0361 0269 a 
BTCS 4 010 O86D 038% 0320 | , TEMP 200% 15¢7 0386  0083° 00909 0187© O205¢ 
BTO5 & 015 OE£7C 0382 0318 TSTC € 008 ODA 0273 0272 0276 0276¢ 0277 0278 
BTO6 A 027 0291 0343 0396 UMPACK C 001 90212 0805 0189 0198 ng 
BTO7 A O10 OF9B 0348 037% Cc °o UP a 00% OcS2 0138 0129 0131¢ ~ 
8130 k 006 EA 0305 0333 XR1 = € - GOT 0001 0803 00826 0088 0089 0089¢ OFESe OF8@ 0203 0263° 0271% 0275 0275 6281 
? 2 0287® 0268 0288¢ 0298 i 
BosY a 023 1068 0362 0215 o 9° X82. €:001 «0002 0808 01868 0193 0208 0208 ‘a 
aL 4 ; 
ccw £002 15cP 0393 0060 0069 TOTAL STATERENTS PLAGGED I8 THIS ASSEMBLY = © : 
CRECK aA 256 155P 0377 0109% 0119 o © “ 
CKIPL A 037 1089 0360 0170 0372® 0178 
CNTRL & 001 158C 038C 0056* 0068* 0393 | 
CODE a 256 135F 0375 0117¢ 0118* 0385 o @ o 
CRHES & 0C2 CA96 CC(BB o0Bue 
CYLCK & 00% 0C89 0160 0066 a 
ECP = A 256 «14EF «(0376 «= 00102 0103* 0125 0126 0173 017% 0306 0307 eo °o < 
DISK ~& 00% COGO ¢c003 
DOP &£ 034 1CF3 0366 0139% 0183 a 
DBP = a 0C&: «OODBF «(0266 ~=3— 002514 -:0253«0255 6 9 o 
FIX & 018 OFF7 0357 0081 0172 
HALT € 001 0222 0407 0110 0165 0209 0217 0226 0262 0289 
HON =6 A CO9:« 10BA «0368 =—s«(0 88 . | 6:06 
IDIOT A 006 ODFC 0306 0398 | 
ILHLT & 002 0D23 0210 0185* 01809 - 
INST 2.035 O£D1 0348 0082 6:9 2 
IPLHD ~€ 019 115P 0369 0089 
LINK C001 0216 0808 0153 | 
LPY A008 OCE1 0188 0206 0; ®@ 3S 
MIDL a 001 15¢8 0387 0396 cot 
NEGO a 002 15D1 0398 0286 
NEXT & 008 OC7S 0150 0138 0212 0228 o; 8 ? 
MIPL &€ 052 116C 0368  0220* 0228 
NOPE A£ 00% GCC9D 0168 0122 0128 | 7 
ROPS 2006 0d3C 0220 0120 o #98 3 
NTRDYA A COS 0D56 C246 0057 0067 0073 . 
NXTNS A008 OABD 0084 0091 ee 
N001 & CO2 15D3 0395 0090 0205 0:90 o 
CKIPL a 037 1118 0367 0132® 0136 
OUT A002 15DS5 0396 0100 € x 
OUT? A 002 OCEB 0191 01880 o °@ “ 
0012 a 002 OCFB 0196 0193¢ 
PRINT C001 021A 0406 0046 0085 0093 0133 0140 0160 0175 0181 0198 0207 0212 0221 ; 
0257 0266 0287 0295 o °o | o 
PET A091 15BA 0378 0085 0045* 0192 0197 0201 o2f2 02029 
PRTHD a COM’ OCCD 0181 0146 a 
PRISTS A 00% ODZ7? 0293 027% 0280 0283 0286 © 9 oo 
RDNXT a 008 0229 C0S6 0154. 
RDSIO & 003 OA6S 0C71 00548 0077 0150 0152® 0168 . 
RDY ACO’ ODBB 0264 027% o Oo ~ 
READ a 002 15CD 6392 0059 0070 0099 | | 
READIN A001 1160 0373 0121 0123 0186 0392 é i: 
RN¥Vs &-018—««100S.-s«0358 = 0079-—«s0170 9 2 
RTNOT A€ 001 CAD 0042 #0018 
SBYTE3 C 001 0208 O809 03127 0137 i 
SKOO £003 OA3D C061 0055* 0153¢. 6,9 ~ 
4 7 
DATE J38AR70 = OGAPR70 =. 22MAY70 = O10CT70. = 290CT71 PROG ID ope3-3 © : 0 DATE 13MAR70. O6APR70 22mAY70 O10CT70 290C7T71 PROG ID 0803-3 ~ 
EC NO. 571512 571516 571513 571540 571601 PAGE 5 BC WO. 571512 571516 571513 571580 571601 PAGE Sa 
} : 
° | e o | 
| 
i 
8 { 8 i 


IBB SAINTENAUCE DIAGHOSTIC PROGRAE 


pe ate dame AR me ae eae Pee SE Da a ta Na ee ae bee SS Rm tee Te ee 


' B0323 S#en IPL TEST 


THE CHARACTER 


OBJECT CARD LISTING 


CL 1 THEOUGH 16 CL 17 TREEOUGH 32 CL 33 TERGUGA 4&8 


weuycaic ce ge 
T+-Z5Ee"3Y  OL/P 
T+-DOc 44Pa Eay* 
T+-,,2)P3Y <~43 
T¢-0:CG@LPOC"CGa 
1+-15D *aa-1KaY* 
T+-20B ZVOA BETY 
T+-3 ,C"*<-0C" EEO 
1+-UGEQHS —380H* 
T+-5/)*BG /, FEJA 
T+-6*<H< 903/ ESC 
“To-7P] DEFT- ESC 
T+-8KOR*BP/S /08 
Te-9 (CXOHCHS CEC 
Te-: HE (LA6) .£6°P 
T+-6C2) SHECHI94 
T+-OcE<f ACOPPI(| 
To-a9S<GD1 (XE8>I 
ectac yeni 
Tebe?6Da GDA EDA 
T¢-"DO*LD6 *PSBuC 


DATE 
EC NO. 


13 BART70 
571512 


Bas F *"a<0/0 


AoA WO* E50 GGAP 


PC 8EPE"TO-DEULO 


~ [a&~1J~ Gaaroc 
K70A"C~O8POC" OED 
Dj BC#-0+DI~| P*B 
RBWA:B Y=On*HHeS 
<.0a"D*" /OHEOSE 


2@e 


BG/ AC:OH*BP-E 
sYIT /OBSYIT /OY 
20BH971P az $400 
“Dp 7xa-pec- (1-6 
SYI s01y( -(=10 
seveucoenesaicas 
09<xP5<PNeGCC2<P 
ratpeencc2crce>t 
L:DA-EDCIKSCS1:? ( 
” o'SeSacRincse’s 
25° 8>$1894 HE} 
“espa *™_ OpmT4)Y 
C5_LPO) XE&+.T5_) 


O6APR70 
571516 


228aT70 
$71513 


 $B$? /OHEI/<3P:C 


&OI <S*P-CHQS AG 


TE**4y SDOQOR*BP-3 


eo 


"Cis °C; 3074 


{1 5° g@kpa AcI4& 


G /Y IJDQ¢A BB"H 
G /,¥G1 UY # /08 


EKEB;}18(HaBG /D 


SESY<O/0: ES$?K JC 


/C IL") OH*BPSQ 


NO?HEECBG /,PEIC 
S18 (1% aCEDSAaP 
BC+* OR*BFYD C 
FCDGNSUCOS2ZiuaP 
CUSLAgaz OaTEZO*. 
KOXGPI*TEOS) S%P 
* sexssegaspcRs_ | 
PEDA 64 (.6¢.288C 


O&DA SDA SDA EDA 
BXGRE* JOE PCOOC 
&DCBKSCDSUCP6) $ 


0 10cT70 
571540 


INDICATES A BLASK COLUAN AND THE CHARACTERS DE 8 ImDICATE wOMERIC SHIFT. 


PART #0. 
PAGE 


5129686 
$ 


CL &9 THROUGH 6% CL 65 THROUGH 80 CL 81 THROUGH 96 


- ¢0- BRLSBBTES" 10 
®<EQN3 3PUEC73¥EC 
T CK K<j aPGE)! 
= G8 ~00C <653 
(~0a"D)" 62) CGa 


EF OFDI<|P*BG /Z 


SY # /OY¥/+ -HBWH 


BL 1B: O-DK $aHBDOa 


S/ | APG) / 3 
4DN2-XaBG SH-xaB 
3Y]@ /OBSY}# /0 
BOA (9°HA 3-HE*. 
"70 cca *13-cc~ 
R9* PHBSXOSACH1)T 
getcuatiobsa ace 
T8* | 15*<D5U0CT 2<B 
L1)¥ 6*8 6) SLa8C 
C5_PSS_| 860.82; § 
“spa 'a_ 1(m S*x 


OQDA SDA SDA EDA 


G6*GNE¢.T0) XTEDA 


290CT71 
571601 


®0R (HSSFSCK-1ZaP 
RY-ZX0OB (BT-EBEP 
/ D{OR*BP/QUZAP 


"ENS "@BG SH-€<3B 


BYI—CGR wip 4A 
BH/C31¢Bae-STOH? 
€BE0 ( DDUS A~ BGA-0 
aDAPG ( D<:aBG /8 


/OH*BF/$ /OHSY C 


GCGRtBAP3({ - (TTB 


OH*BPZH(DEE-VaH 


D 7X8-DC+H HOS 


~1]-~OH*HHE Yeu 18 


U2) XB1(POE<SD1(X 


US*LTG6*GCenccs_P 


1_SL4"Sug) PGE +P 


1EDA 84 1.66106)5 
C2<PS&4 941) CO8j A 
Ol* XASDCLSAGHVE DA 
” SDCTRSCTS (X¥6 (3 


GDA EDA EDA EDA 


PROG ID 


¢Gig’ 32020330001 
2D uO: 80230002 
(<Eq 3230330003. 
GB_Q 5$aB0330005 
BB" *&880330005 
<3L- 18180330006 
{DDU_=8880330007 
5°” ”” #0450330008 


7/00 £,%B0330609 


SE*p 37 80330010 


ac-8 6-0B9330011 


&C;* &1-B0330012 
¢05a 6.-B0330013 
B8>H $,820330018 


D2;< 66680330015 


B6;- 91080330016 


"s » 7x0B0330017 
“sp 62980330018 
“gp *-<80330019 
P10 7:9B0330020 
so”) $080330021 


0803-3 


PAGE 6 


€e 


©06©0068 8680600 6 6 6 80 6 8 86 6 Oe 8 e OC 6 6 C6 @ 


ecocoeceeoewownoeweweeoeee eee emhlcehmllemUlhemUc OU OCUCUh OU Ol OU Om 


TG/PRE 


IBE HATINTEWANCE DIAGEOSTIC paoceas 


B033 


CL 1 THROUGE 16 


T¢/ ¥2;~£1DCD236 
T+/a-5* ( 1<GTOBC 
T+/BSELE 2;X OPL 
T¢/COSDA EDA EDA 
Tt /DIIWLESSCOS=)} 
T+/EXEDA EDA B<X 
TD/E~*~L8*DCD2;3. 


BBSE*E7*=~DC" PHS 


O22 ee ewrewraseaenes wee 


1382R70 
571512 


DATE 
EC NO. 


5464 IPL TEST 


CL 17 THROUGH 32 


KEDA 6 (XES(S¥O®. 
C2<PCSUCPS_¥ Bat 
S:D_ 6A §DA GDB 
“gpa spa SDA EDA 
15_8 CEA EDA BDA 
PGRCDO; {a6+SABRC 
REC EPASCT15.TRO. 


2 LaHggac 


=] SP | i c 


O6APB70 
$71516 


2284770 
§71513 


ate Le : : : _ ] Soeh  Nee i Sass Suna, setcis . F a eigen anti ter eiggt te: aes ame ea eee Seen me mcs i a oe ae 
SRS RNR ene de ee a ee ee See Re ee eee eee et ee sete a eS eae ae te ae a eae ee te a ce IE CTE em Ter a Fa eee oe “ ‘ea “8 


! 


OBJECT CARD LISTIFG 


CL 33 THROUGH 88 CL 89 THRCUGH 68 


L718CD2;.K1<2S8GC 
= e 2 
ZUDA EBL EDA EDA 
Encrs® ¢ 1<cTosa 
&(XE0°3 1<GTOSL 
EDA SDA EDCIS* { 


B5>¢ 6°2AS;.F%) Z 


a-*O 8 JPHOgS (* 


rs asc 68h 6B 


010CT70 
571580 


D6*xV18C1E (ZEORG 
e = 
GDA O>JABHLSEK<4 
GDA SDA SDA SDB 
16% WexISen anc 
1<GTO ACIsUCOaNC 


ates 1 x0SDCT2<# 


92302028 C88 828 8888 
SSSR OH OSCE SSSESOBE 


e@eo Gee 2e2202000 


290CT71 
571601 


Wigan tone ty OEE PSH Re ue 


PaGs 


CL 65 TEROUGH 80 


L2°, 20; | BS< E10} 
1°; RROLIO_X 1(z 
@ @ e @ 
SDA SBA SDA &DA 
e 
BS>( SoPate s.1<6 
FS_¥ S8TRBEDA EDA 


° =» @ * 
SD& 65a Da EDS 


SSeenoeoeeeoeoeeneeo 
@eeseesveeoeoooaeenoe 


15870501703 


PROG ID 
PaGs 


5129686 
6A 


CL 81 THROUGH 96 


KKaU :QHBO330022 
19¢m 68080330023 
“gp ©. 080330028 
708 )8aBe330025 
"gp 39080330026 
“gp 8$-B0330027 


K 9303366028 


4-°80330929 


021712S-B0330030 





0803-3 
6a 


Be me owe 


oe eo © @ @ 6 6 @ 6: 


© @ © © © &© 8 & @ 


© 8 8 0 0 








LP aye Rome 385 Bose tk Mune “tae i ei i se 6 ee MA a et oe Re fee eh eet net 7 seh mam tee ated o ne ae Mar pe ee a ee DO Pe ea er ens at ve 


; ran AATETRRARCE DrAGHOSTIC procaan ae : PART RO. $129688 or “ren RAIRTESAUCE DIAGHOSTIC PROGRAR PART 20. $1429689 
. ; 7 PROB 4 en PAGE a 
808s DISK FRIENDS TEST r BOSS DISK FRIERDS TEST 
ERR LOC ORIECT CODE ADDR STAT SOURCE STATEREUT 6 ® EQR LOC OBJECT CODE ADDR STAT SOURCE STATERERT o 
2 DECK § | e Oa38 19C7 0a35) 70 oc AL2 (INTRON) . = 
09000 3 DISK STar? 0 6 OA36 AOTO 0437 71 : pc RL2°aR080° a 
oacte & ORG xe2e0* BAI8 3c 00 1hIR 72 avy? FLAG,0 CLYAR DRIVE COAGAND FLAG. 
5 FOSE9O4 090082 SO ST ESED NODES SEOONECERELD ESE LESOEE SESE EDESEESERERESEESESE OR3C CO 87 6222 73 8 HAL? HALT -FO-, 
6 ® 10 70% 770 LAST UpparTe * @ ® DASO ADES Oa 7&8 pc ZL2°anRa? 
7 SOCCOSOSSESSESHCETESSSSESS SOSECOEESEE ESEOSSCOOSEEHRESEES SOE ESESSESED EEE | OAR2 BG OO 01 75 RETRY SNS T{,XR2),K* GCS PERD/SSTGPY CORSOLE SBITCHES. 
&§ * DISK COSRAIDS TEST COKRSOLE SWITCH ENTRY e OA&5S 2p Of I7E4 81 FG cic 40005 (2) ,9¢, EP2) THIS LAST PETRY -~O00G- 7 
5 SOSSSED DSSS SOS SEESOLE SELES OSES OETERTHST S2SS ODES SEES SOEETERELSSSESELEE EE @ 6 OASA CO 8&4 ODSS V7? SF DORE JUEP TF 54H, 
30 * StcTio“n ROS ROUTIHES 64 - G2 % FR SCVPSOHEFSSES OES FSOOESS SOLOS OCOD TETES TES SEOEOHSES SEEK ESSEOHEESHAGREFARDOE 
41 SOCCTEE SOF FSETSOEESEETEETESEDEFESESESROEES SETSS HESS SEDENS SEREEECREEESSE EE 79 6 CHECK SBITCH 9 POP A CORRECT SPTTIRG. e 
42 8 SECTION PREPAC? ¢ © e RO SESHESS GOSH SHS SESS SESSESTTST OSHS HSEEETES SESE OOD OSHSEEESOSEEESESESERERTESS ESS 
FI SSCESSSSSSSSSS SOE SESSSOSCSE SSKLHKSHEES SECRETE VEE SK EGSH OVSHSRSSEKERSCRETSE EE OABE BO FO OS R4 TARP O(,%R2}, 7° FO° S¥ITCH 1 SFE eNO 0 7 
0a00 BOSE 6204 44 bc ELZ2° B0egt PROGRAN ID AND REVISION LEVEL @ OASY CO 10 OcFD 82 Bf PSu% JISP TO FRENR FESSARE YP SO, 
SRO? 08 0802 45 bc £2.7°9G* SECTIGR FLAGS e OA55 3¢ 80 171 83 RVI Teep. 0 CLEAR SNPKIRG BYTP, 
6203 31 6a03 5 pc RLEtot? CORRPRT ROUTINE RUBBER OASS 28 O2 T7F4 O80 8& ANZ TEYP,3(, 822) TSOYATP SBITCR 4. 
Oa0S 0006 caes v7 Be XL2*6COG* RESERVED @ OASE 3D OR 474 85 LY PERSE, 79 S#i7c4u 9 TOO LARGR ? 
HA6H OR 10 6aG? 28 ne BL2 (2TRG 25 PIRST ROUTINE RDDRESS 6 OA62 CO 88 OCPD 86 PR 2524 SUSP SIT FP So, 
SAOR FPS oac9 3% Be LL2*PePpre RESERVED OA66 32D OF T7F14 87 cur TEP? THIS & BITE YH COM*®ARB ? 
OAOA ADSOCD OaGc 20 AUST bc EL3*aOungg? SECTION PREFACE ODT TABLE © e QRER F2 041 63 88 JR? Ser, SVeP YF HoT, 
Gaon #01006 Oxor 21 BUDT oc 7239801000" OAGD BC 00 07 39 dT 20, X22) ,2°908 SET SPCTOR RISBER TO OO. 
22 90 SSPTHSSSSSTS SSHSOSISH HSS ESTES SESPHHSHKSS OHSHEHOSDESESETHOESESSEAESHETORASAREA 
23 91 6 CHECK SUISCH 2 FOR & CORRECT SPTTTRS. 2 
. 28 e@ & 92 SOSSSES SESE FOSS EOHOEEOSESOS SOS OV EOS SEE SHEESESEEESESESEOOSEEESEE8E998099998 
25 O0A70 B9 OF GO 93 TOP 0 (e972) ,2°Or* S¥I°CH 2 SPT TO 0 ? 
Zh SSESHSSSSESCHHSESS HOSTS SEIS SOSESOHESH SESOHESTE SSS SHES OSSSEEEESESSEHESSEEEE ® O0a73 ¢€O 760 ONES 98 ST Psu? JIN9P YF $9, 
27 ¢@ PROGRAS WOTES. * ° Oa77 8S OR O00 9§ TRE N¢, XR2) FP OKe SWITCH SPT TO AT LEAST 9 ? 
22 SHOSSSS SSSSESS ESSHSSSEOS SO OSSHSEESESE OS EEEETES TESTES S$EOESOGEEROEOEEREREE OATA F2 90 67 96 JP CRTRS JUSP IP #9T. 
29 @ , * © 3 OA7D B89 C7 00 97 TAP O(,LP2) 89078 SWITCH SET TO NOT GRPATER THAR 8 ? 
30 ¢ THIS PROGPAN CONTAINS THREE PARTS. ROUTINE OF BUILDS A TABLE @¢ i 6a8O CO 90 ODOS 9R BP esu2 JO@P ITP £9, 
371 ¢ OF DISK COWAANNS. BOTE - AN EXISTING TABLE FAY BE DELETED BY ¢ | OARS’ 26 03 1805 00 99 CKTHS =H SUANL,0f, 2972) ISOLATF SWITCH 2 SETTING. 
32 € CALLISG OUT ROUTINE Of AGAI™ AND *RUILD® A NEW TABLE OF FR THE © 0 e Oaks 3p O5 74865 366 CxLY SWANL,F*OS* SWITCH 2 SPECIFY A SPWDL -B- CHED ? 
33 ¢ OLD OSE. ROUTISE O02 IXTERPPETS THE TAPLE AWD BXECUTES PACH s GARD F2 82 3D 101 JL CRPRP JIO@P TP LOT. 
3a @  «TASLF. SOTE - SACH TIME THAT ROUTIWE OF IS PIRST CALLED, THE & ase 38 a0 4778 962 TBR OD?™, 2°age SPYNDLY -f- DEFISED ? 
3 e DISKS RFE RFCALIPRATED SO THAT THE PROGRAN BAS A STARTING s © e OA9G P2 90 22 763 JP RODE? SUSP IP WOT. 
36 & POIET. PNITISE O03 IS A LOGOUT OF THE CURRENT COMRARDS TABLE. @ OAS7T 35 O67 16805 106 cL? S¥auL_,? SWI°CH 2 SPECIFY FIXED DRIVE 2 ? 
37 «& ALL COOSTERS ARE RESET WHEN ROUTIKE O07 IS CAL*.ED. s OaSs F2 82 2F 768 JL CRPRe SUP IF ROT, 
36 6 e ® OAde 38 OF OaOP 106 TBR ROD?,.{OD3 THIS €ODFL 3 SYSTER > 
39 SOSS8OSS6SSESSSSOHSEESEESSBOTESEESSEOESESES 8952 600 6000S500 090098000986 o ORa2 F2 90 278 107 JF CK PRP JOMNP YF KNOT. 
80 108 © SOD 3 ERPOR SESSAGE ° 
Bf @ ORAS CO 87 O2ZIA 71609 8 PRIBT PRINT HOD 3 EPROR, | 
82 ° OAA® C6 Oaad 710 pe RL aecee ID -A0ER-. tt hae 
8&3 OAAAR 21 OQARA 911 oc IL1¢393° 
BE seseceses o/1@ OAAS 1BAR Oaac 112 pc AL2 (BODISK) | 
85 © RTHOT © OAAD A0ES OAAE 113 pc RL2*a0088¢ 
Kh SOSSSSSESS$OFSSSSSOOFSSEOSSSOSEHESESOCESSSSSESOSHOOOHSESSHSEEHETOORESOEOEES OAAP CO 87 0222 918 8 aL? OPEPATOR RALT -FI-. 
are oO @ OAS? aor casa 115 oc RL2Z°a2091° 
ag e ROUTINE 07 PROGRAS BUILDS A COSSANDS TAPLE BY READING e OA85S CO 97 OAS? 116 R RETRY GO TRY AGAIN. 
ag @ THE CONSOLE S¥ITCHES. e 117 9 SPINDLE -2- NOT DEFINPD #ZSSAGE > 
$0 ¢ e e OAHS CO 87 O21A4 118 RODEF 8 PRIST PRINT DEFINED CHECK. 
510 NOTY - LAST OPTION SHOULD BE -0000- TO e o OARD C4 GABD 119 oc XLI°*c6® ID -AOPE-, 
52 ¢ SIGNIFY END OF TABLE. € * OABZ 143 OABE 120 ae ILi¢398 
53 ¢ 2 Oo e OASP 2243 eaco 8 121 be AL2 (WOSP8B) 
5a ¢ NOTE - INDEX REGISTER 2 IS THE POINTER a OAC1 KROES oac2 122 pc RL2°*a0E6* 
55 «¢ POR THE COMMANDS TABLE. & OAC3 CO A? 0222 123 R HALT ERROR HALT ~-£6-. 
56 ¢ s o ® SAC7 ACEEB Oacs8 128 pc XL2*a02B6* 
57 S8SSESEESS FSS OF9FSSSOSHETSETEHETEEESSEESSEE$O8 99098898F8SE SERS CROEESE OACS CO 87 ORG? 125 8 RETRY GO TRY A&GAI#. 
OA10 01 0OA10 58 RTHOT DC X17°OT? ROUTINE O14 DACD 89 BO 66 126 CKPRP TBP 0 (,XR2} ,X* 20" ‘THIS A SEEK COMMAND ? 
Call 80 OA11 59 pc XL1°RO08 MANDAL INTERVENTION REGUIRED QO e OADO P2 10 A2 127 JT CKSa3 JUSP ITF sod. 
OA12 ODEB 0A 13 60 pc AL2 (RTEO2) ROUTINE 02 ADDRESS , QAD3 30 GA FIFA 128 CLI TEND, X°Oa? THIS A SPECIAL SEEX OPTYON ? 
61 OAD? P2 81 OR 129 JE CKSH3 JU"SP IF SO. 
Oais cO 87 1EC3 62 BEGIN 8B SETUDT GO SET SECTION FLAG. . @ OADA 36 O2 77D2 130 A WEGON2, XR2 DECPESENT POINTER TO CHECK LAST SS. 
OAI8 C2 O02 18CC 63 LA CeNDS, XR2 LOAD COMMANDS TABLE ADDRESS. © OADE 8D 01 61 78CB 131 cLe 2(2,XR2} ,HFOrPO IS THIS R2CALIBRATE FPLAG ? 
OAIC OC SA 19A3 19A8 64 fVC PRT (91) ,PRT+1 CLEAR PRINT FIELD. OAE3 F2 01 OD 432 JRE NOCL JOSP IP NOT. 
OA22 OC 78 1947 1948 65 ave SCK (128) ,SCK+1 CLEAR OLD SUMMARY COUNTS/TABLE. O e OARS5 BS 61 02 133 TBW 2(,XR2) ,x*O18 WAS HEAD 0 SELECTED AS EXPECTED ? 
OA28 OC 01 T7FT 1721 66 five TEMP (2) ,HOOO0D CLEAR WORKING BYTE. OAES F2 90 72 138 JF BADHD JOSP IP WOT. 
OAZ2E CO 87 O21Aa . 67 B PRINT PRINT OPERATOR SES TROCE IONS « OAEC 36 O02 17C6 435 A NO0O2, XR2 RESTORE POINTER. 
OA32 46 0A32 68 * pe XL1°a6¢ e OAFO F2 87 82 136 J CKsw3 GO CHECK SWITCHES 3 © &. 
0A33 23 ‘ 0A33 69 pc IL9°35° O OAP3 BD FF 00 137 NOCL CLI 0(,XR2) ,X°FPF* LAST CCS@AND A MULTI READ/WRITE ? 
DATE 1T3HAR70 O6APR70 22NaY70 ¢1A0G70 010CT790 28APR71 PROG ID ono4a-& o Ld DATE T3NAaR70 OGAPR70O 22NAY70 01AUG70 010CT70 28APR71 PROG ID OBO0G-4 
EC WO. 571512 §71516 §71513 $71537 571540 571565 PAGE 1 EC WO. 571512 571516 571513 571531 571580 571565 PAGE TA 
| - o|@ 














te peer erie cnet tee Mee Os eae a eri ee Se ae am ce an en Ueda een, ater ee ame ae 


Peranteau we ee mw 





2 


pe RY le a a ele Se a Be te inn oe we wet ae ae eo EP ps wc eer ae etd Fey cen BS age Ze 


te aa? eSB Se aise Fas eg oem |g 


es Po ele | | : | 2 
IN MAINTERASCE DIAGNOSTIC PROGRANR PART #0. 5129688 IBA NAINTERANCE DIAGHOSTIC PROGcRAR PART WO. 6920688 — 
PAGE 2 @ @ PAGE . 2a 5 
 BO8e DISK PRIENDS TEST Boos DISK PRIERDS TEST 
Fee LNC OBJECT CODE ADDR STRT SOURCE STATESERT 6 @ ERR LOC OBJECT CODE ADDR STEHT SOURCE STATERtRT a 
Oaré #2 01 8&7 938 IRE ORL JURP IP NOT. ; @ OBBE 34£2¢ OBBP 206 pc ALZ2(YMARD = 
GOaP>o 36 62 47D? 139 a NEGO2, XR2 DECRESENT POINTER TO CHECK HD SELECT © . eBce aces GBcti 207 pc RL2Z*AOPRE wt 
oarD 2c 66 2779 OY 780 AnYvC TERP (1) .1¢,XR2) STORE STARTING SECTOR ID OF OLD CHED eBc2 CO 8S? O2t2 208 B® HLT PA Go FRALT. 
OR02 2” 06 1774 02 144 ALC TEMP (1) o34,%82) ADD THE HULTI-READ/ERITE COURT. @ @ ‘ 269 SSSTSSS OL SE STH SBISESSOKE ESS SESH SE FETHHS TIES OE SE OELES OE 456ESESEOOEHE TION SG 
OF07 3D 18 1774 $82 cLY TER?, 28 DID IT GO TO WEE HEAD DURING THE OP? 236 @ TRLL OPFPRATOR TO SELECT @ SFOT9S8S £9 REAS/EPITE AND CHECK HIF. @ 
Of0R P2 AB IC kz JH CRS@HD JUSP ITF so, : 211 SEOSOSS$F5SSSSSEESS OF SSHEF SHES TELSESLOTTTEEEEH ESSE ES OTEHRERKESEHSEHERSOR 
OROF #6 OF SO 148 TBR 8 O{, X82}, 27078 READ 0 LAST SELEcTEeD ? Q GBCcé 83 70 60 212 CRAUL FAN O(,KR2),8°90° TS THIS A PULTI-SRITE ? 
O811 F2 70 09 16s Jt YEP JUAP IP so, @ OBce? F2 710 69 213 J? e%2 SnN@p TP ANT, 
0396 89 OT Ge 186 PRE &(,XR2} ,x*Ot# CURRENT HEAD SELECTION POR RD 7 ? oacc Oc O98 IPse icPS?e 27a S¥C SecsrT (5) , READ SE? SP @PSSESE FOR *2Pape, 
6847 F2 90 Bt 987 J? BADEDS SUMP IF BOT. o OBP2 F2 BS? 66 275 J ee9 
OFA P2 87 OF $58 d OUTRER GO CHECK SHITCHES 38 8, © | 6Bps OC Gh 16530 icFS 216 RIC SECSET(S) CURT TF SP? OP MFSSAGY FOR *URTrTee, 
CBID Af OF Oa 229 YEP4 TSB &(,ER23 -2*G1? CURRENT HEAD STLECTION FOR HDG ? OBMs co RT 6278 237 SPTR ® PRAT PRIV?T SPT PRTR SELTCHES, 
A820 F2 30 36 $56 JF BADADS JUSP If NOT. @ OBnP 36 OBDP 248 pc EL4*66¢ 
0323 36 G2 17cR {$7 OUTHER A NOOS ,.XR2 RESTORE THE POINTER. S OBrZO 39 O8FO 249 2c YLd¢57¢ 
0627 F2 RF an 152 3 CKSH3 GO CHECK SWITCHES 3 AND &, ORF 703D OnE2 220 BC AL2 (SECSE*) 
O52A B8 O61 GO 953 CKSYRD Tew 0(, %R2} 207° OLD HEAD SELECT START BITS HD G ? o Oo ORES CO 87 OZ22 22% a HALT THLIGS HALT -FP-, 
9R29 F2 479 06 958 JSF CRADE JTS" YP so, OPEV AOEF OB28 222 pc ZL2¢*a0rre 
07739 B84 01 O68 54 TaN &(,XR2) ,X*°OTe DOES WEY HEAD ALLOW’ FOR SWITCHING 7? Ones 50 60 03 223 SRS ¥(,192) 419 358 SPHSE THE COBSOLE SBITCHTS. 
0843 P2 906 25 156 oF BADHDG JUMP IF NOT HEAD 0 POR CURRENT CHED. e|1e OBEC BD 00 03 228 cut ¥(,872),2°90" #° SPLFe™ 00 FOR Muti ? 
0336 89 07 Gs 157 CRED? TRN 4 ¢,X%R2) ,X*578 NEW HD ALLOW POR THE SWITCH ? GREP P2 81 2P 225 JF 8AIPO4 ST4P YF sO, 
OR39 £2 10 tf. 2548 Ab g BADHDS JUaP IF WOT HEAD 1 POR CURRENT CNED. o2*2 8p 00 03 186C 226 cic 21,272) MAS DID OPPRAPOR SPECT" Y TOG ZRUY PFrans? 
ABic cO 87 6923 759 8 GUTHER GO CHECK SWITCHES 3 AND &. o o OBP7 F2 88 32 227 J8 Faayqy Jgze YF sn, 
0860 BS 8 00 $60 KORL TR 0 (,XR2} ,X*018 LAST SEEX USING HEAD 0 ? OAPA 2C 00 T7F4 OF 228 | avc TPPP TIN, 14,722) STOP! STARTING SECTNP SD4RFR, 
0882 ©2 19 ©9 161 JT yao JONP IP SO. ; QBrPr BS 601 00 229 FRR OC, kR7) KPOV! TAIS A YFAT 1 OPTION ? 
O866 £9 OT 02 142 TRY 2%, IR2) .X%*018 CURRENT CSND FOR HFAD 1 ? ° 6C02 F2 10 06 230 J* 269 Joe? YF ANT, 
ORS? F2 10 92 163 Jt BADHD JUNP IF NOT. oO 0c0S OF 00 17F4 19CE 231 ALC TEER (4) 8028 INVCPESPUT COUNT BY 28 SFECTIRS. 
OBac 72 AT 64 968 3 REROT GO CHECK SWITCHES 3 ABD 4. OCOB 22 00 1771 03 233? aLc TPEP (1), 3(,XR 2) TWNCSPCERT BY KOGKRER OF SILT YES, 
Orar AR Of 62 165 Yao TBS 2(,%R2) -X*07* HEAD 0 SELECTED POR CURRENT CHED ? Co 0C10 3D 30 17F1 233 CL Teep, x? 36e TOTAL HOPE THRY BR SFcCTOAS »? 
ORS2 FF? 99 09 966 JP BADHD JOSP IF KOT. 0 OCc18 F2 8&8 290 238 JH ERLRG JOSP IF SO. ‘ 
ORS5 £2 02 62 1647 HEROP La 2(¢XR2) -XR2 RESTORE TABLE POINTER. Oc17 BC FF 02 235 avr 24,492), k° Re! SZ™ S©CTC® TIMRER FLAG. 
0858 FP? 87 Wa 768 J CKSu3 GO CHECK SWITCHES 3 AND &. a 9 oc%2 22 02 02 236 La 2 (2 KF2) -2R2 IRCOSRENT TASLE POINTER. 
169 © SAD HEAD HESSAGE 2 “= 6c1D cO 87 OD2z 237 R Serr G. PAD HEXT IPTION,. 
Gesa ©) 0? 02 270 SADHDS LA 2¢,%R2) ,XR2 INCREVENT TABLE POINTER. 238 © SFCTOR ROGEE® PRROR RESSAGTS @ 
GRSe 72 07 0? 271 BADRD LA 2 (, XR2) ,XR2 INCREMENT TABLE POIRTER. ° 6C2%3 CO 87 O2128 239 “6OT00 8 PRIST PRIST HOT 00. 
OPA CO 87 0298 972 8 PRINT PRINT WRONG HEAD. o oc25 $2 oc2s 280 DC RLI¢82¢ 
0965 C6 OR65 972 oc XL1°C6* ID -BOZA- 8C26 OD OC24h «2ut pe TL9¢498 
ORSH 18 OR66 178 oc ILi*20¢ O o OC27 IBA oc2= 282 be, AL2 (KR ROTO) 
On67 29a7 ON68) 86975 pce AL2 (HDBD} Oc2S P2 87 43 283 J strra GO PEPTAT ISSTRUCTIONS. 
ORES BOER OB6a 176 pc ZL2*aGES* o¢c2¢ ¢O 67 G2728 266 EPRRY 8B PRINT PRINT TAO LAQGY A SETTING. 
On48 CO AP 0232 797 8 HALT ERROR HALT -£E8-. oO @ OCI 82 oc30 245 oe ZLIease 
O84" ROFS 6870 447A pc XL2* aGEea? ro 6c 31 2a Oc3i 286 oe IL?°a0° roee 
On71 CO 87 Oas2 179 B RETRY GO TRY AGAI®. : 0C32 1D65 0C33 287 oc AL2 (XCED) | 
789 OOO CSS ESSE SE ESERSESEREESS SESE SSEEESESESEESESESESESES $864 S8ETSEESEEEDESEOE e OC3e F2 87 GB 288 J SUTaa GO REPEAT INSTROCTIONS. 
WAT © CHECK SW CHES 3 & 4 FOR CORRECT SETTINGS. s 6 Oc??? CO 87 OZIA 289 ERLPG ® PRIVT PPYST PPAD/SEVITE OVERROW. 
182 SSSCSHISESSSESSSESESSESSHHESEKSRSSKESE SSE SSSESSEKKITK EK HSE EESHEESEKEEEERTEEEHOERESEOEEE 0C 38 9? 0C33 250 pe XRL7*AaA2* 
0875 29 0&8 1905 783 CKSW3 CLI SWANL,4 THIS A DRIVE 1 C#RD? Q ° eci3c 22 oc3c 251 oc Iz1*%e6°* 
6279 F2 ABS 07 188 JH #410 JUMP IF DRIVE 2 CARED. ; oc3D 1993 OC3E 252 oe AL2(VRUN) 
OB7C 3a 01 997A VAS SBR FLAG, X*01°* SET DRIVE 1 PFLAG. Ofc3Fr co 67 OBDB 253 S¥THA 8B StT4 GO RYPLAT INSTRICTIONS. 
O880 F2 AT O08 186 J 47 . 254 SSSSSKS SSTSESSHESESESE SEEES SEHHESSEHESTESSSSESCEHNSE SESS SHEESH EKTHSE SHO SEEEOOE 
OB23 3% OF 1k8tAK 187 SBN FLAG, X02! SET DRIVE 2 PFLAG. 0; 90 255 2 CHPCK SSWS 3 6& & AGAINST THF CAPACITY OF THE DISK. ® 
ORa? ag F0 00 TAR TRPF 0(, X82) ,X°EO* SWITCH 1 SET FOR A SEPK CARD ? 256 SSESSISSSSESVSTSE SSS SS SH SSSSEHESESSKESESESSESESHSEESESHESSSHESSERETSTESCTESCSEOHEHEEESE 
898 F2 10 RH 1R9 JIT CKSEK JUNP IF so. 6 ocds 28 03 7805 00 257 CKSTK &8N S¥VANL,0O(,K82) ISOLATE SWITCH 2 SETTING. 
OPFD 3c 00 I7F4 3190 Avy TENP,OC CLEAR WORKING BSYTZ. O oces 3D 05 1805 258 CLT SWANL,x*05° SWITCH 2 GREATER THAN S (SP"DL -8-)? 
B91 28 02 977? 00 191 SANZ TEMP,O (, XR2) ISOLATE SWITCH 14. Ockc F2 B82 15 259 JL A34 JUSP IF IT IS SOT. 
9896 3D OA 17F4 192 CLI ‘TENP, 10 THIS A SPECIAL SEBK ? OcSP 38 10 Y7PFA 260 TRH vpT, x*70° 1090 CYLINDER BIT OK FOR SPRDL -®- ? 
OFGA F2 C1 OA 193 INE $413 JUMP IF NOT. © ° 6c53 P2 30 07 261 JF #4190 JONP IP WOT. : 
OB9D 38 BO IATA 994 TBN PLAG, X*80* PREVIOUS SPCL SEEK DEFINED ? 0cS6 3C 67 OC77 262 avi CLC¢1, 103 SET CHECK FOR HALF CAPACITY DISK. 
OPA F2 10 18 795 JT WANY , JOMP IF SO. OCSA F2 87 79 263 J cLe : 
‘OBAS F2 87 9C 196 J CKSEK GO CHECK SSW 3 AND &. C | o 0C55 3C CB 0C77 268 “VI CLC#1,203 S2T FOR FULL CAPACITY DISK. 
OBA? BA BO 00 197 TSW 0(,XR2) ,x*80* MULTI-READ/WRITE OPTION ? 0C61 FP2 87 12 265 J eLc JUSP AND CHECK SHITCHES 3 6 &. 
ORBAR F2 10 19 398 JT CKSOL JUSP IF so. < OC68 38 20 17PFA 266 Aza TEN uptT, x?*20° 100 CYLINDER SIT ON FOR SPNDL -A- ? 
OBAD Bp 17 01 499 CLI 1.(, XR2) ,X* 178 SWITCHES LARGER THAN 23 ? G 3 0c68 F2 90 07 267 JF *+10 JUSP IP WOT. 
OBf0 cO 88 ODIC 200 BH ESCTR JUMP IPF so. 0C6B 3C 67 O0C77 268 VI CLC4+1,103 SET FOR HAL? CAPACITY DISK. 
of88 CO 87 ODF 201 B NEXT GO R¥AD NEXT SWITCH SETTINGS. ; OC6P F2 87 O04 269 J cCLce 
202 * TOO MANY SPECIAL SEEKS MESSAGE * o e 0C72 3C CB 0C77 270 NVI CLC#+1, 203 SET? FOR FULL CAPCITY DISK. 
0888 CO 87 O21A 203 SANY B PRINT. PRINT TOO MANY. 0c76 BD 00 01 271 “LC CLI 1(,XR2) ,X*00* SWITCHES LARGER THAN DISK CAPACY TY. 
OBRC Ch OBBC 208 Doe XL17*C6* ID -AOE8-. ‘0C79 F2 848 ASO 272 J8 ETRK JUSP IF so. 
OBBN 25 OBBD 205 oc IL1*37¢ 6 @ 2Q7Z SESE EEEEEEEERERSEETEREE SEEETEE SE EEEETEETEERE$SOE ES OSEOOSEEEODEDODOSE 
: : | . ; : : 
DATE TISARTO O6 APR70 22H AY70 01A0G70 010CT70 28APR71 PROG ID OB0u-a o ® DATE V3mART0 O6APR70 22mMAY70 01A0G70 010CT70 28APRT1 PROG ID ORn0a-s& 
wc WO. 571512 571516 §71513 571531 - 571540 §71565 PAGE 2 ; EC WO. 571512 571516 © 571513 $71531 571580 571565 PAGE 2a 
2 @ Ce 





Sern mraeeosi 7 procmam BART HO,” S129688 
pose 


-2RP LOT 


 ‘ee?e 





ocRro 
0C83 


0ca? 


OCA 
OC8E 
6col 


5 0c95 
 CoR 


a kas 


| CVE 


= ecat 


ocaa 
oca? 
OCAA 
OCAD 
oca0 
Ocs3 
OcB& 
ocs9 
_OCAD 
ecco 
occe 
eccs 
8ccsB 
occr 
ocDo 
ecp1 
ocn3 
ocDs 
ocos 
OcDB 
ocDF 
OCE2 
OCE6 


OCcES 
OCED 
OCEE 
OCEF 
OCcr1 
ocr3 
OcF?7 
OCcrd 


ocFD 

‘ 0p01 
~—OD04 
op08 
ODOC 
opoD 
ODOE 
OD10 
op12 
 0D16 
OD18 
-Opic 
> OD22 
 0D25 
-  OD2B 
. OD2F 


DATE 
EC 80. 


Sees Aine + die 


ea aa ee sate eg de ai ene ae ane se mene Abn wma 


OBJECT CODE 


3D 
r2 
3D 
¥2 
3D 
¥2 
3n 
F2 
P2 


BD 
¥2 
8D 


F2 


BD 
F2 
BD 
F2 
Be 
P2 
3a 
F2 
3a 
38 
F2 
co 
ce 
18 


o% 


ar 
62 


81 
05 
91 
06 
81 


87 


6a 
63 


SR 
a6 


80 
16 
ad 
87 
60 
co 
90 
87 


1DCc2 
AGES 


B9 
F2 
38 
F2 
38 
F2 


co 
C6 
30 


£0 
90 
a0 
87 
80 
87 


87 


TBEF 
AOE? 


co 


87 


a0E7 


co 


3c 
F2 
3c 
co 
C6 
18 


87 


F1 
87 
F2 
87 


1864, 
AOES 


co 


87 


AOES 


co 
oc 
F2 
oc 
co 
c6 


T3IRARTO 
S712 


87 
05 
87 
05 
67 


1808. 


4805 

4 

1805 

GA 

1805 

O03 . 
at - 


01 


91 
82 
01 
85 


36 
60 
C7 
IIR 


VATA 
TH7A 
73 

O2TA 


oo 
07 
187a 


181A 
29 


O21A 


0222 
OAS2 
1858 


1858 
O21A 


0222 


OAa2 

1B89 TAES 
06 

1B89 1TADB 
O2TA 


(| DISK FRIENDS: ‘Test 
“ADDR STAT SOURCE STAYEREST 


ocpo 


ecn2. 


ocba 


OCED 
OCEE 
OcFoD 
OCF2 


OCcrS 


opoc 
oDOoD 
ODOF 
OD11 


0D17 


OD2P 


OG APRTO 
571516 


295 COFFEES FOSSEEES B0SEEEESEEEERES BOS SOEEHETES OSES S CRETE SS OLESEEESS FENSEES 
276 CLI- SWANL,X*°O?* .$$8 2 SET TOA 1 ? 

277 - JB DATRK — JUSP IP so. 

278 CLI SWANL,x*02¢ — ssw 2 SET TO a2? 

279 JE DATRK JU"P IF sO. 

280 - CLI « SWANL,Z°0S* ssa 2s"T Toa s ? 

281 dE DATRK JUSP IF so. 

282 CLI SBANL,Z°O6* ss¥ 2 SET TOA 6? 

283. Jt DATRK SONP YF SO. 

288 3 WEXT GO READ NEXT SSW SETTING. 

285 oSecececceenceceeeessseseseeeeeeeeecesseteseneseseseeeeesoeteseeseesess 
286 © MAKE SURE THAT OPERATOR DOES NOT..SEEK TO TRACKS 4-6 NOR. TO * 
267 « 71-75 OW A RESOVASLE DISK. THIS IS A SAFE-GUARD TO PREVENT * 
242 ¢ | DESTROYING DIAGHOSTIC PATTFRNS ON REMOVABLE DISK. s 


x 


27a ¢ TEST TO SEE IF A REMOVABLE PISK was appressep. _¢ 


2789 00060560058800S6SSSnS88SSs SESE SEREEESEOCEOSETH SCENES SESES ESS SEEESEESEESE 
290 DATRK CLI 1(, 282) -%* 06" | TRACK ID GREATER THAN 6 ? 


291 ; a NXTST JUSP If NOT. 

292 | CLI %(,R2),%°03" TRACK ID GREATER TRA® 37 
293 38 DONSY " JUMP IF SO. 

290 WXTST CLI 1{, XR2) ,X*4B* TRACK ID GREATER THAN 75 7? 
295 Jf SAFE JOmNP IF #OT. 

296 CLI 1(, 282) oX*N6* . TRACK ID GREATER THAN 70 ? 
297 3H DOMAY goose iF so. 

298 Sarre TEN 0(,XR2),x%*°80* THIS A SPECIAL SEEK COMMAND ? 
299 oT #410 JUNP IF SO. 

300 SBN FLAG, X*S80* SET WORMAL SEEK FLAG. 

301 oJ +7. : 

302 S8N FLAG, X*80* . SET SPECIAL SEEK FLAG. 

303 TBN FLAG, X*CO* BOTH SEEK FLAGS SET ? 

3048 oF NEXT GO READ NEXT SSW SETTING IF HOT. 
305 IX B PRINT PRINT DO NOT 81x. 

306 pe XL1°C6* su ID -AOES-. 

307 pe TL1*27* 

308 pc AL2 (NIXUP) 

309 pc XTL2*Aa0e8" ; 

310 TSF 0(,XR2) ,X* EO! THIS A NORMAL SEEK ? 

311 oF *+10 JUMP If KOT. 

312 SBF FLAG,X*8O* RESET HORBAL SEEK FLAG. 
313 J eT = 

318° SBF FLAG,x*80* 2 RESET SPECIAL FLAG BIT. 
315 J HLTES - GO RALT. 

316 * BAD TRACK MESSAGE * 

317 DONNY 8B PRINT _. PRINT BAD SELECTYOR. . 

318 pc XL1*C6* ID -AOE?-. 

319 pc IL1¢Be" Bit) tips Peg 

320 Dc AL2{STUPID) 

321 pc XL2* a0E7* 

322 8B HALT ERROR HALT -E?-. 

323 Dc XL2* AOE7* 

328 B RETRY GO RETRY. 

325 * SWITCH SETTING ERROR MESSAGES * : 

326 ESW1 NVI RIGSSW-12,X'F1* SET UP FOR SWITCH 1 ERROR. 
327 J 47 

32A ESR2 nviI BYIGSSY-12,X*F2* SET UP FOR SWITCH 2 ERROR. 
329 B PRINT PRINT SWITCH CHECK. 

330 pe XL1°C6& ID -AOE8-. 

331 pc IL1°20¢ 

332 DC AL2 (BIGSSW) 

333 DC XL2*a0EB* 

334 HLTES 8B HALT FRROR HALT -E6-. 

335 pe XL2* aOEB? 

336 B RETRY GO SACK AND RETRY. 

337 ESCTR MYC LRGSSW(6),SECTOR MOVE IN SECTOR LABLE. 

338 J +49 

339 ETRK NVC ©6LRGSSW (6) , TRCK MOVE IK TRACK LABLE. 

340 B PRINT PRINT SSW 368 ERROR EESSAGE. 
341 pc XL1°C6* ID -AOE9-. 
22M AI70 01A0G70 010CT70 28AaPR71 PROG ID OB0a—-& 
571513 571531 571540 571565 PAGE 


eo. 


PSEA AAET HALES ESE ESS Ee Se 


‘ 


Bop Gs 16 OB Be S O Ole: OS 0.6 6.6 68: 


oO Oo 9 





a anne 


mest 


ORR Nee Ae NaI eT ace ai tng AF gt eae heed 48: a de ce a erin ea ee ea alee 


EC 


Boae 
BRR Loc 


0D30 
OD31 
8p33 
oD35. 
oD39 
GD38 


0D32 1 


opat 
Opus 
onan 
opec 
onar 
0D53 
0D$7 
ops 
0060 
0D66 
op69 
ODED 
OD6F 


OD73 
0D77 
0D78. 
OD79 
OD7B 
onReo 
opss 
oD85 
ODss 
oDs8 
opsc 
6D94 
op9e5 
0D99 
on9sD 
OD9IE 
OD9oP 
ODA1 
ODA? 
ODAA 
ODAF 
ODB2 
ODBS 
ODB9 
ODBD 
onc 
ODCc7 
oped 
ODD3 
ODD? 
opDSs 
ODDS 
ODDS 
ODE1 
ODES 
ODE? 


DATE 


nO. 


DISK FRIENDS Test 


OBJECT coDE 
23 — 
1389 
adee 


0 8? 0222 


Aces 
F2 87 31 


38 01 OD6E 
3C £1 OD6E 


3C £2 OD6E 
34 02 17714 
OD 61 17F2 1775 


OD O71 T7Ft 1757 
¥2 81 OA 
c8 87 6222 


CO 87 0a42 


cO 87 O2ZiA 

04 

oc 

TADS 

8C 01 01 1781 
co 87 O21~A 

02 

&0 

1397 

C2 902 18CC 

2C 03 OD98 O03 
CO 87 143E 
60000000 

cO 87 O21~A 

01 

58 

1943 

OC SA 19A3 1948 
E2 02 G2 

BD 01 01 I7E1 
P2 81 O08 

BD FF 00 

co 81 ODA? 

co 87 GDBC 

3c SC 1989 

oc 35 1928 1989 
oc OB 1972 1AC9 
oc 03 198D 1A3F 
cO 87 O21A 

06 

5B 

1943 

OC SA 19A3 19A8 
co 87 0222 

A0E3 

cO 87 0216 


ODGE 


oD77 
op7s 
OD7A 


ops 
opss 
0D87 


0D98 


OD9D 
ODIE 
ODAO 


ODD7 
oDDB 
ODDA 


ODE6 


T3MSARTC O6APR7O 
571512 571516 


TB" AATHTERANCE pIacuosTIC PROGEAR 


apon sTs7 SOURCE STATELEIT 
O03 382 be TLI* 37¢ 
ODd32 383 oc AL2 (LRGSS8) 
oD3s «6348 oc RL2* 20E9* 
oe, 6888S _ 8 RaLt 
OD3A «0386 — pve XL2*a0Es* 
387 3 ROSLT1 


> EPRCOR HALT -E9-, 


GO PACK AND RETRY. 
BBQ SCHSSSHS HEHEHE SESEESEESSEES SEES ESEES STEROL EE SESSEEEESESPLEECT ES SOSSEESOCS 


389 © INCREZENRT TABLE POIKTER FOR KEXT COMMARD. ° 


Fae ee 6 ee ee oe 


PAGE 


PART fo. 5129688 - 
VA. 





350 SSHESCTHSES FSET SSE SKSESESHSSEHESESEEESEEESEEESE SOK SSEAHSESESEEHOSTELCCCECESSEOSSEOEESE | 


351 NEXT La 


352 TBS 
353 37 
358 : avTI 
355 3 
356 “VT. 
357 ST 
358 cic 
359 JE 
360 cLc 
361 JE 


362 


8 
363 RDALT DC 


368 8 


2{, 222) -XR2 

RDHLT, £°OT! 

e196 

RO:ILT,XZ* ET 

se? 

Bunty es =e" 
emp, IR2 

eeepiay  eNnea 

S0cR 

TEMP (2) , ENDO2 

20c8 

Halt 

132° gR082*- 

RETRY 


INCPEMENT TABLE POTML ES FOR NEXT OWE 
LAST HALT AN ST ? 

JOSP IF KOT. 

SET UP AN -FI- HALT. 


SET fP AN -f2- HALT. 

STOPE CHNDS TABLE POTTER. 
FILLED UP TABLE YET 7 
JUSP IF $35. 

FILLED UP TABLE YET % 
JO“P IPF $9. 

INLINE HALT -E%- OR -E2-. 


GO READ THE WENT “WITCH SETTINGS. 


365 EETSEEKRS SSESSTSS SSSSSHESE SSESESE SKSCHTSSSSE SSESSSSTSESSSESSEESE . £6 FF KOSEHEESSEKHESHE ESD 


366 * DUMP CURREST 


COSSANDS TABLE. 


367 SSSSCSES SHES SSE SHSSE SSS SSSSESESESSKES SEES ESE SHKSSE SHES SEKESSSESKE KS CSETEHEESESHES 


368 AUCH 8 


369 sc 
370 Dc 
371 oc 
372 “vc 
373 DORE 8B 
378 3c 
375 oc 
376 pc 
377 LA 
378 SVIN avc 
379 B 
380 ORG bc 
381 8 
382 pc 
383 oc 
384 bc 
385 / wwe 
386 XRC2 LA 
387 cic 
388 JE. 
389 CLI 
390 BE 
3391 8 
392 GENIT SSVI 
393 aye 
398 vc 
395 ayvC 
396 8 
397 pc 
398 de 
399 be 
200 svc 
801 8 
802 bc 
803 B 
goa 

805 


R06 *ese08808 
807 * RTNOZ © 


PPINT 

XL1°0R° 
YL1°42° 
AL2(FILUP) 
1(2, 2R2) , #0000 
PRINT 

X¥L1°02° 
IL1*6u* 

AL2 (CHNDAS) 
CIWS, KR2 

ORG (8) , 3 (X82) 
NTRPT 
1L8*00000000" 
PRINT 

XL1°918 
IL1*918 

AL2 (PRT) 

PRT (91) -PRT*1 
2 (-XR2) -XR2 
1(2,XR2) ,80000 
GENIT 

0 (,XR2) ,X°FF* 
INC2 

AVIS 

PRT-26, C**? 
PRT-27 (58) , PRT-26 
PRT-49 (12) , LSTONE 
PRT-86 (8) , DECOO 
PRINT 

XL17°06* 
IL1°91° 

AL2 (PRT) 

PRT (91) - PRT*1 
HALT 

XL2*a0E3* 

LINK 


PRINT *FYLLED UOP* 


STOPE FND OF TABLE PFLAG. 
PRINT HEADING. 


REINITIALIZE TASLE POINTER. 
STORE CURRENT SETTING. 3 
GO INTERPET PRESENT SETTING. 


PRINT CURRENT SETTING/SINTEROPFTATION 


CLEAR PRINT AREA. 
INCREMENT TASLE POINTER. 
THIS THE LAST SFTTING ? 
BRANCH BACK IF NOT. 

THIS A& -FF- FLAG ? 

SKIP THIS OPTION IF SO. 
GO ANALYIZE THIS OPTION’. 
GENERATE A LINE OF *** 5S. 


SET UP END OF TABLE LABLE. 


PRINT END OF TABLE LABLE. 


CLEAR PRINT AREA. 
INLINE HALT -23-. 


RETORW TO DCP. 


2308 HES SSERSES TALES F EVKSTVSEETSV STKE SHE EKEKSECKKEKAKHSRKEEAS KE THASTEKKASECES LSE SS 


809 + s 
22NAY70 OTAUG7O CIOCT70 26EPRI1 PROG ID OBO4-& 
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PART BO. $129688 


" TRA SAINTERANCE DIAGHOSTIC PROGRAR > 
2 ar } Pace tis : * 
' ROR DISK FRIENDS TEST 
‘ 9R8 Loc ossece core ADOR STEHT SOURCE STATERERT 
#10 ¢ ROUTINE 02 a THE COMAARDS STORED 1% “one TABLE ane e 
etise , _ ISSUED SEQUENTIALLY TO THE DISK aD e 
#12 ‘° THE RESPONSES CHECKED. % 
813 6 ae e 
als eS @ie COOSSE DOSE SEES SEES ETE ES EOE RESO OS eee ce CSEE bet eeCEe DROS eeseceaeoeseCoSe 
‘ODER 02 ODEB 815 RTHO2 DC XL1°02¢ ROUTINE NORBER : 
onEec 00 ODEC 816 bi a XL9°O08 . BO MANDAL INTERVENTION’ | 
ODED %1£2 ODEE 617 sc AL2 (8T03) ROUTIKE 63 ADDRESS. 
ae 818 ; . 
ODEr CO AF O21A aig 8 PRINT PRINT ROUTINE HEADING. 
on?? 85 ODF? 420 pe XL7°a8se : 
ONPa 42  ODFe 4821 pec IL@*78¢ 
Oprs 1A%9 Ort6 #822 be AL2(mD02) 
one? ana? “ODFB 64423 pc XL2*a0a2* 
Onr9 OC Sa 1403 14988 42a SVC 8 =—s_- PRT (91) J PRTS1. 
‘Qner cz 52 3ACA - 625 LA CHNDS~-2, XR2 ; PRESET TASLE POYETER. 
OFC} 3A 08 TATA 26. Ser FLAG, x*08° TURK OFF GO SIT. 
7 B27 C8SSESE SES SSCEESESESEESETENSES CESSEESEOOSEESSES DEST CE RERESE SE REEEOEECES 
a2An 2 RECALIBRATE TY DISKS SEYOPE STARTING THE COMSANDS TRBL®. s 
: . a29 SHEE SESS OSHSTES CESSES EES ESSE SEES HEESESTEETESEEHEESSEEESSSESHSEEEHKESEKEESES 
O£07 38 20 189A 4830 DOCAL SBP FLAG, X*20* CLEAR THE ISSUED FLAG. 
.OFOS 38 07 184K 831 TBR PLAG, X*O1* ANY DRIVE 1 CORMBSANDS USED? 
‘AEOP FF 90 BS 8320 oF. CLRBZ JUMP IF WOT. 
‘OL12 38 Of I84R 833 TBN . FLAG, X*0a* GO BIT OF? 
OFri® F2 10 OR “36 aT ‘GOA JUMP IF Yes. 
oF19 c? AO 1205 &35 TIO NTRDYA, X* A0* BRANCH OUT IF SPKDL -1- NOT READY. 
OEID F2 AT 04 836 3: «&e7 JUSP IF OK... 
OF20 CO 87 0819 437 B *-7 TRY AGAIN CY NOT READY. 
OF2% 3B O48 781K &3A GOA SBP PLAG,X*'oOu* TURN OFF GO BIT. 
OE28 C1 AP 1776 439 TIO BUSYA,Z*A2* BRANCH OUT IS SPNDL -1- BUSY. 
OFI2C 37 AG VIF? auo LIO RCALA,X*AG* SET SPINDLE -¥- DFCR ADDRESS. 
OF 30 37 Au TFS 891 LIo DARA, X*au? SET SPINDLE -1- DAR ADDRESS. 
Of348 P3 AO 00 4&2 STO x*00*,x*a08 ISSUE SIO TO RECALIBRATE SPINDLE -1- 
OF27 30 AZ 71809 363 WATA SNS STSBY1,X*a2¢ SENSE STATUS BYTE 1. 
OSE3B 38 10 71809 sau TBR STSBY1,XK"°10° SEEK BUSY BIT OX ? 
-GEIF CO 10 0837 8as BT WATA LOOP TILL BIT DROPS. 
OF43 38 BO 1809 Ba6 TBN STSBY1,K* aot CYLINDER 0 BIT OR ? 
Of“? F290 59; ou7 JF RCLCKA JUMP IF NOT. 
‘ OFGA OC 01 1800 1773 aus svc LSEKA (2) , SEEKO+1 SET F AND C BYTES FOR SPHDL -7-. 
: OF50 38 02 TRHIA aug TRN FLAG, X*02°* ANY DRIVE 2 COMMANDS USED? 
: OFS& F2 90 7F &50 JF REINIT JONP IF KOT. 
: OF57 38 Cu 181A 457 CLRB2 TSR FLAG, X*' One GO BIT ON? 
: OESB F2 10 038 852 JT GOB 
, OESE Ci BO 12FC 453 TIO NTRDYB, X* BC? BRANCH OUT IF SPNDL -2- KOT READY. 
; O£62 F2 27 04 85a J ae7 SUSP IF Ox. 
i 0765 CO 87 OESFE 855 8 *~7 TRY AGAIN OR NOT READY. 
2 OF69 35 O8 181A 356 GOB SSF FLAG, x" 0a" TURN OFF GO BIT 
i OF6D C1 82 79D 857 TIO BUSYB,X*B2* BRANCH OUT IS SPRDL -2- Busy. 
: Of71 31 86 TIFT &5A LIO RCALB,X* BSE SET SPINDLE ~2- DPPCR ADDRESS. 
t OF75 31 BA 17F9 859 LIO DARA, X*' Bue SET SPIRDLE -2- DAR ADDRESS. 
; 0£79 F3 RO 00 860 SIO X*00* .x*Bo? ISSUE SIG TO RECALIBRATE SPINDLE -2- 
i OE7C 30 B2 1809 864 WATB SNS STSSY1,X"B2¢ SEASE STATUS BYTE 1. 
OFSO 38 10 1809 &62 TBN STSBY1,X*10° SEEK 8USY BIT OW ? 
OF8& CO 16 OFFIC 863 BT WATR LOOP TILL BIT DROPS. 
OEBB 38 4O 1809 868 TBR STSBY1,K* sot CYLINDER O BIT OK ? 
OFRC F2 90 09 a65 JF RCLCKB JUMP IF NOT. 
OEBY OC 01 1802 17F3 466 nvC LSEK8B (2), SEEKO¢4 SET F AND C BYTES FOR SPRDL -2-. 
GE95 F2 87 3D 867 J REINIT START EXECUTING COMMANDS TABLE. 
868 * RECALIBRATE ERROR SESSAGE * 
6£98 3C F2 IAFF &69 RCLCKRE NVI BRATE-18,X°F2* SET UP SPINDLE -2- CHECK. 
OF9C 30 B3 180R 470 SNS STSBY3,X'"B3* SENSE BYTES 2 5 3. 
GEAO F2 87 C8 a7t 3 £414 
F OFA} 3C F1 AFF 87> RCLCKA SVI BRATE-18,X°F17* SET UP SPINDLE -1- CHFCK. 
OXA7 30 AZ 180R a73 SNS STSBY3,X*A3° SFNSE BYTES 2 6 3. 
a OFAS OC 00 1839 IAFE uve HVC STSCK-13(1),BPATE-18 STORE DRIVE ID. 
f O£R1 CO 87 O21A a7s B PRINT PRINT RECALIPRATE CHECK. 
f OFS85 C6 OEBS 476 pC XL1"°C6* Ip -AQOE-. 
i OESH 19 OFB6 &77 pce IL1*25¢ 
Ek DATZ 1T39AR70 O6APP70 228aY70 OTADG70 010CT70 28aPR71 PROG ID ORO4u-8 
f ec nO. 571512 571516 5§71513 571531 571540 571565 PAGE a 
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oeE7 
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SEsB 
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OfC7 
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| OFEO 
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OFEA 
OEEE 
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ISH BAINTERAWCE DIAGROSTIC PROGRAS PART WO. 5729688 
; : Aes PAGE aA 
DISK FRIENDS TEST 
OBJECT CODE ADDR STHT SOURCE ‘STATEREWT 
7800 ores ate pc AL2(BRATE) 
aooe OfBA 4279 pc ZL2°a008* . 
38 FF 1808 a8 TRF STSRYO,X¢Pre STATUS CLEAR ? 
cO 90 71368 at BY | STSER BRANCH IF #97. H 
39 68° 180R °° ” ‘ 982 TRF STSBY2,x% au? STATUS CLEaPr ? 
CO 90 1368 93 eP STSER BRANCH IP ROT. 
cO 87 0222 | ane ‘g fALT ERROR HALT -OF-. 
ado” 6fD0 485 pc KL2*a00£* 
co 87 O£D7 88K 8 DOCAL GO TRY AGAIN. 
: aS? SHSESEE CESSES E SEE ESSE HEEES OEEE EEE SSHECHEEEESEEEDETEHTO8ETESEEDEEEESEE OF 
BAR © STAPT EXECUTING COMMANDS TABLE. ® 
asa SSE CESS SSKSESHSSESSEET SESE SESE SESE SESCEESEEHRESC EEE SCORE SEHD OEHRESESAEREEOOSOESS 
C2 92 18cc 890 REINIT LA CANS, XR2 INITIALIZ® C4XDS TABLE POINTER, 
386 01 020A ag} TRY SSYTE2,SSH17 SSW 17 TORKED of ? 
F2 90 18 892 IP CLRcCe JOMP IP WOT. 
3c Sc 1989 assy SVI PRT-26,%°SC? GENERATE A LIWE OF -@-*s, 
OC 3F 39f8 1989 a9s “vc PRT- 27 (44) , PRT- 26 : 
co 87 0218 &95 B PPINT PRINT THIS LIWe. 
014 OZER 896 rc ILI*OFF a 
SB GEEF 497 pc ILU*#9T 
9A2 OEF1 498 DC AL2(PRT) 
Oc SA 19A3 1948 &99 AVC = PRT (91) J PRTOD CLEAR PRENT SPPA. 
OC 03 1815 1816 $00 CLRCCW AVC THFCCH(G) ,THPCCHeEI CLEAR OLD CONTRO* FIFLD AND SIO. 
Oc 01 1619 183A 501 five TSPSYO42(2) ,HFFFF 
8D 01 01 17814 $02 cLC 1(2,XP2),89000 THIS NEW COMMAND THE LAST IN TARLE ? 
cO 8&1 T11CE 503 RE ENDIT BRANCH YF So. 
BD FF 00 50s CLI O(,%P2) ,xires THIS A SECTOR COUNT OPTION ? 
F2 014 07 505 JIWE CLROXE JNeP IF “OT. 
£2 02 02 506 LA 2(-XP2) ,XR2 YNCRESFRT PCINTER TO SKIP THIS. 
cO 87 OEFS 507 8 CcLeccw LON? SACK AND TEST FOR LAST OETION. 
5038 SVEKEKS SHES HSHK ESTES HHESTHSEES SETS STAHETESES SKEET EEKESESRESSETEKREKSESEERDEROROSS 
$09 © ANALIZE CURRENT SWITCH 1 AND SODTFY START I/O ACCORDINGLY. * 
. 5170 SES TKS SSSSSSESSSSSCSHHEKSK SESH SE SETS FH ESRSESEHHETEESEEKO TT SE SS TEKETEEEEEEEDEOEEOE 
C2 01 1839 $71 CLROK LA OPTSW1,XKR1 STOPS ADDPESS OF SSH1 OPTION TA®LE. 
28 G2 1805 00 512 SNZ SWAKL,O (,XR2) STOPS SSB 1 VALUE FOR ANALYSIS. 
D2 O01 02 $13 INCSW1 LA 2(,XR4) X21 INCRESENT TASLE ADDRESS. 
OF 00 1805 17ca Siu SLC SWARL (1), 8001 DECRFRFYT SWITCH VALUE. 
co 88 OF23 $15 BP Ives BRANCH BACK IF NOT ZERO. 
ic 01 1819 04 516 RVC THPSIO¢2(2),1(,xXR1) BRING IX NEW COMMAND. 
S17 SHLESHKSEASTLAKLKSASCKHKKEKESKSETRUOSCKSKESESKTEARESTSH EHTS SHKKEKES SAE SERETETHOESOETS BE 
Sik * ANALYIZE CURRENT SWITCH 2 AND MODIFY START I/O ACCORDINGLY. * 
$79 SSRTSEKRLITSAKESRE SSE SHE VHT ESSE ST FOSH SAKES SHEKEE SES EKEEKLE CS SHAKES SKE STAROCSKE HATE 
C2 01 1857 520 LA OPTSH2,XF1 STORE ADDRESS OF SSH2 OPTION TARLFE. 
28 93 18CS 00 521 ANN SWANL,O(,X%R2) STORES SSH 2 VALUE FOR ANALYSIS. 
D2 O14 01 §22 INCSW2 LA V{,FR 1) XR INCREWENT TASLE ADDRESS. 
OF 00 1805 17c& $23 SLC SWANL (1), 80017 DECRESENT SWITCH VALUE. 
CO 8& OFIE $28 BP INCSH2 BRANCH BACK IF NOT ZERO. 
1C 00 OF55 00 525 Svc SETT#7(1) ,0(,X81) “OVE 1N PITS TO BE TUPNED OR. 
38 91 OFS5S §26 sBeP SETT¢1,X*018 ERAS® ANY HEAD % FLAG BITS 
3a 00 1818 $27 SETT SSN TMPSIO4¢1,X'O08 SET BITS IN SIO ACCORDING TO SS@ 2. 
33 07 1818 528 TBF TMPSIO#71,xX°07* NEW COMMAND SE A SEEK ? 
F2 10 62 §29 IT SKFLD ; JuMP IF so. 
530 CECKERE EEREEEEECEERSESCEETS HE EEETEREET SEO TEES ED COESTETE ERTS EARS TERE RES 
531 2 BUILD THE CONTROL FIELD FOR A RPEAD OF WRITE COMMAND. » 
532 KRECKSESESHKAEKSES AA SEKSSSKEKSTHKSESRSARKSKASKEKKEKKESCEE SHAE KESTHE FHTTTESETAGESKHTEEHEEBD 
2C CO 47714 074 533 MVC 8 =TENP{1),1(,XR2) STORE CURRENT SSW 36 &. 
OZ 00 17F1 17F4 534 ALC TEMP (1), TEMP PUSH THE SECTOR ID BITS OVER THO 
OF 00 17F1 17F14 535 ALC §=TEMNP(1) ,TESP PLACES FOR THE -S- CONTROL SYTF. 
78 01 00 536 TBN 0 (,XR%),X*01° HEAD 1 FLAG SET BY SSW 2 OPTION ? 
F2 90 O48 527 JF x47 Jap IF Kot. 
3a 80 17F1 538 S8R TEMP,X*80* SET HEAD 1 BIT ON IW -S- BYTE. 
Oc 00 1878 17F1 539 “VC TMPCCW-1(1), TEMP STORE -S- SYTE IN CONTR: . FIELD. 
38 10 1818 540 TBN TMPSTIO+1,XxX°10* THIS FOR SPINDLE -B- COMNSAND ? 
F2 90 09 541 JF *412 JUMP IF NOT. 
Oc 01 1813 1802 542 MVC TMPCCW-2(2),LSEKB BRING IN TRACK ID AND FLAG FOR -B-. 
F2 87 06 543 J 49 
oc 01 1813 1800 544 HVC T4 PCCH-2 (2) ~LSEXA BRING IN CUPRENT TRACK AND FLAG ID. 
BD PF 02 545 CLI 2 (,XR2} ,X* FF® THIS A MULTI-READ/WRITE COMMAND ? 
13NAR70 O6APR70 225AY70 O1A0G70 010CT70 28APR71 PROG ID OFRO0a-a 
§71512 571516 571513 571531 571586 5715€5S PAGE SA 
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P2 
2c 
or 
F2 
IC 
39 
P2 
2c 
38 
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or 
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VAIS VICw 


0& 
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75 
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past #0. $129608 
pac? § 

STAT SOURCE STATERENT 
$a6 It corur JUSP YP HOT, 
Sav? avC)|0O P#EPCCH (I), 3, R2) STORE KUMBER SECTORS TO READ/ERITE. 
548 SLC TNPCCH Lt), 2008 SET If TO DISK LABGUAGE.. 
589 J ee? 
550 GORTR VI THPCCH, £°00° PEADSBRITE 7 SECTOR. 
554 CLI TPPSIDe 2, K402° THIS BR DIAGNOSTIC FPEAD CORSARD ? 
552 INE TSRDY GO OF IP eT. 
553 8YC TMPCCH E19}, 1, ER 2) STORE @ SECTORS. TO 8FBB. 
58a SBP TRPCCH-1,K*7C¢ SET STARTING SECTOR TO 06. 
555 J TSRYY GO ISSUE THIS COHRAYD, 
S56 AES SCCASOHFEeLPSR OSCARS HSS SHSPSOSES SHSSVSS VICK GH AKSLS HES SESS SES COSKLSEHVLTSCRRSSSSHVsees 
557 ¢ BUILD CONTROL FIELD FOR A NEW SPEK CCSSAND. & 
558 SSOCHPVSH] SSHSSSKLLCS SAS SSE SSPSSHRAAVPSKOLSSHOEVsKL AS Vs ESSSRSESS GF SE SESSBSEHSOAGLEBRELEBSS 
$59 SKFLD TR 0 (,%22) ,%°8C° “HIS A SPECIAL SEEK COMPARED 7 
560 oF HDTHSOS JG4P PP KOT. 
5461 TBR PLAG,X* 20% ISSUED THIS CONSASD YET ? 
562 oP HDiA JUSP YF 8OT. 
563 LA 24,%R23 ER? INCRESENT TABLE POYETER. 
S658 B cLPcc"e SKIP TRIS CONNANWD. 
565 HD4H SBN PFLAG, X* 20° TURH ON ISSDED FLAG. 
S6f TBR O(, KR4) - 22024 SS@ 2 SEY FOR AFAD 4 FLAG ? 
Tn oF seF IDSP IF HOT. 
56a SRN TSPCCH-1,%°80° TORK OW HERD BIT TH THE -S- BYTE. 
569 RYC TYPCCE-2 (7), 1¢, 222} STOR® CURRENT TRACK ID IH ~C~ BYTE. 
570 TRY TIPSTOCT, F°I0® THIS PCR SPINDLE -B- COMMAHD 7? 
574 JF e942 JUSP YF "OT. 
S72 nyc TEMP (i) - LSEKS STORE OLD TRACK ID FOR -5-. 
573 J 649 
578 N9C TEMP Z1) ,LSEKA STORE OLD TRACK ID POP -&A-. 
575 cic TESP (1), TEPCCE-2 CURRENT TRACK ID GtEaATPR THANK OLD ? 
576 aL WERLPG JUEP IPF SO. 
S77 SLC TE"P (1) , TUPCCH-2 FIGURE & TRACKS TO ZOVE REVERSELY. 
578 3 STRIT 
&79 WEWLPG S¥C TEIP (1), TEPCCH-2 MOVE CURRENT TRACK YD. 
580 TB THPSIO¢1, 27° 708 TRIS FOR SPINDLE -3- COSSAND ? 
534 JP #312 JUSP I? KOT. 
582 SLC TEMNP(1) -LSEKB FIGURE & TRACKS TO S072 FORWARD, ~B- 
593 J 49 
58a SLC TENP(1) ,LSEKA FIGURE @ TRACKS TO HOVE FORWARD, -A- 
585 SBN TRPCCH-1,X%°01? TORN OR FOVE FORWARD BIT Ih -S- BYTE 
S86 STPIT MVC THPCCW (1) ,TEAP STORE @ TRACKS TO FOV?, 
SQV £EFKFSSSVESESETESTESR HET ESOSKES EESTSKOVSS CEES BESS ITSETERSSHS SSE SSSSHSETSESLOEKEREOKSHR 
SRS * MAKE SURE THAT THE SPIRDLE YS READY REFORE ISSUING A CONAARD. 2 
QQ SESSSCeESSESKSSSSEKEKRAKESSSESESSESCKBSPSLSESSPSCSSHCS GSE ES KSESST VSESHSSHSSESOSASEE BES SES 
590 TSPDY TBH THPSIOS 1, 4° 16° NEXT Cl¥D FOR DRIVE -2- ? 
591 JT RDYB JUSP IF SG. 
592 RDYA TIO NTPDYA,Z* ac? BRANCH IF DRIVE -t- IS NOT READY. 
593 ‘J CHIE GO DO KEW CHND IF READY. 
Soa B RDYA GO TRY AGAL®. 
505 RDYB TIO RTRDYR, K° BOF TRANCH IF DRIVE -2~ IS WOT READY. 
596 J CK16 GO DD HEW CHED IF PAD. 
597 8 RDYR GO TRY AGAI®. 
Bg9S SESSACKSSUESOCSKKSSSEKEKSSSVSVSEKERSBSEGS SR SSeS sey SE SK KRHA ASRBSEGBVSSS AEC SER*Lsesaang 
599 9 CHFCK SSW OPTTONS BREFGRE ISSUING FE CONSSAYD. Ed 
696 SSECEKAE SO SASS SSHKRKKSKSSEHSSAKTEALEAVKHSGSRSOKRSEKTASECSVCSESSEAKHBACESHKAASVTS eS Swe 
607 CKI6 TBN SBYTE2,SSH17 Ss¥ 47 SPT ? 
402 BT DUSPIT Go USP CORE ISAGE Frc. 
603 STHRASCKVSPRAASHESSSHOASLKSSEVASVECHS He SHE wUeOwAR: « SEPVVPME SEAS KEBTHVSAAHAS HEB SERRE GC ASss 
60a 2 FILL MAXIMO READ/EPITE ARER OTR PRES, = 
HOS FSHERSSHSS ERE ARASREKRSSE PLS SAT ERS SRSS KSEE HE OKRA EWS ST SEST SASS SRE GE RKGERSSKSRES 
606 8SZ0 TSN SBYTE3,SSHWIC SSE 1C SET ? 
£07 aT pONe3 SKIP FILLING IP SG. 
608 LA PIL4¢X*O1N0® RRA SPT BRODRESS FOR 4 S®CTOR. 
669 CLI MAX,X°70° © 16 SECTOR THE MAXL8O ? 
6710 INF ee7 JURP YF ROT. 
6174 LA PILEX*OFOO® ,ER2 SET KDDRESS FOR 16 SPCTORS. 
612 CLI MAX,X°202 32 SECTOR THE MAXIBDS ? 
613 INE ee? SUSP IP WOT. 
225RY70 O1A0G70 010CT70 2B8AaPR71 PROG ID OB0u-& 
571513 571531 §7154806 571565 PAGE s 
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1078 
WO7C 
1080 
1083 
1087 
108" 
108F 
7093 
1999 
705D 
1043 
TOR9 
TOAC 
1936 


40Ru 
7OBR 
qOCO 
TOC6 
occ 
10D6 
10D8 


4007 
GDB 


TODE 
WE2 
TORS 
VOFB 
TOF1 
1OF?7 
iOF8 
CFF 
4705 
27709 
3763 
T3414 
WFa8 
1778 
7723 
VIF 
F722 
1728 
TI2B 
tt 2F 
4132 


T4335 
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DATE 
EC WO. 
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DISK FARIFEDS TEST 


OBJECT cope 


C2 
3o- 
P2 


C2. 


38 
3% 
38 
or 
3c 
oc 
oD 
P2 
36 
co 


oc 
oc 
on 
GR 
37 
31 
F2 


01 
30 
o4 
01 
04 
01 
04 
o1 
FF 
PF 
04 


‘61 


C4 
87 


O74 
63 
00 
66 
rN) 
A& 
$7 


apea 
180 
o8 

aDEB 
109¢ 
10Rn2 
10AC 


70aG- 


S060 
oo0o 
qDAO 
ce 

I7DS 
{O87 


IGUD 
20DA 
OCD 
I6Di4 
TFC 


V?FE 


Os 


So0cococs 
F3 00 06 


39 


08 
os 
oc 
Ci 
co 
OF 
co 
a | 
39 
F2 
38 
F2 
3D 
F2 
OD 
F2 
39 
F2 
FZ 


08 
36 
38 
co 
38 
F2 
oc 
¥F2 
oc 
F2 


07 
70 
oS 
60 
01 
A2 
87 
07 
82 
A2 
02 
30 
01 
$0 
01 
04 
60 
81 
03 
16 
87 


G9 


A2 


46 
70 
46 
SO 
01 
87 
G4 
87 


373¢ 
7869 
1809 
Vi3B 
1GDC 
0% 

1802 


1800 
2F 


T3SAR7O 
571512 


SOURCY STATPRERT 
&93- La. FILENeVPO08 rF4 SET ADPRESS FOR 32 SECTORS. 
695 CLy Sar, x1 * 36° 88 SECTORS THF HAKISTA ? 
616 JRE eet ANP IP NOT. 
647 La PILEL’ 2°00". xRY SET ADDRESS POR G&A SECTORS. 
6718 sT#ys Sf AIVSe 3, E84 BUILD BOVE INSTROCTIONS TO FILL aLt 
619 sT sOVSe9, ¥R4 T4F REAN/SURITE ANEA WITH -¥FF-"°S. 
620. st Sovset xey 
17ce 625 SLO. 8#N¥S47 (2) 8003 
622 HCUS “vi S-B  KIFPe DO THE @CTVRL FILLING. 
oc00 623 SVC = © - (2563 , s-@ 
TAOE £28 cL¢ ROVS+7 (2) ,-LSTADR FIWISH#ED THE FILL YET ? 
€25 JF DGONT3 JUSP IP So. 
€24 R RFGC254, KRY DECPERENT THE ADDRESS. 
627 3 Stays COWTINGE THE SHOVESEHT. 
EPR LFSVPSS SCSCEHSSSSKREHSIESSKSSEPCKASHEESSKCSAKEOSKSS ES KE HKHCSVSELESEOS HSK SKS ESTOS OE 
G29 ¢@ WF@ CORNMAND IS STORED IW THE INSTRUCTION STREAR AED FP TUT H, © 
EIQ SCSSHSSKSKHKSESSKSEETHERHEESSISCKSESKSESSHSECSGSLSSSESKRESKGHSS SSE SSHPEHKCHIHAOSTHS | 
1699 637 DOME #vC ILSI942 £2) ,TYPSTOe? BRING IN WFw SIO aan TORT S95 TIELD. 
FRVS 632 eFC TLCOCH (ay  TAHPCCH ‘ 
wWpC 633 BZZ LODFCR+*T, ILSIOCY SET CP LIO CHNDS TO CORES FT. SPKDL. 
39DC 6 38 F272 LDDRRST,FLSIO¢§ 
" @35 tpohec¢e Lic CCW, F* a6? LOAD CONTROL REGISTFR. 
S36 LORAR LIO DAR, KeRSE LOAD DATA ADDR” S RFSISTES, 
627 a ILSIS JONP GVEP CORT, f FUFLE. 
HR SCHSHSISS SS SSHSSIHRASEKIKSSCSKSS SCSTOAKESHE SSE SASECHSEHAASSEERKSSESE HS SKS SEKSTST ESSE SHIH OE 
£39 « IW-LYINY START I/0 COMAAND AND ITS CONTROL FIELD STOCaSE. «| 
ODA G68G TLCCH pc K¥Le*o0o0go00* - CONTROL FITLD STORAGE. ¢ 
6&9? TLSI0O sro K8aG*, x*OGF ~ IWNLISE START T/9 COPE RED, © 
ALP? SPAMSKSSS MESSE SETECKSE SSCA HSAKESS SSC CE SOELSEEENMGKKSEVSSK HAE FESS STH CHESHSERHSSOSEISEHOSGRG 
623 ge ti ee 
684 SSKSTERSETESSS FOETATECRAEHSEREE ERIE HS ESSTARESTARVOSE TASC ECE SER SETI AR ETE 
625 © MONITOR ROSY TILL IT TIES CUT CR "HANGS DPS. * 
GUG FSS Se SS FHSS HES SSE TSE SHESTSESSTSH SSKS TEKS SKSSKCEKSSATESEKKS SSHHCHESESCHSTR HRT WAGES ADE 
647 TRF ILSYoe7,x°o7* THIS COS*ARD A SEEK ? 
8A JT BSYSK JOSP TPF SO. 
7O0Dc 689 "ZZ FAANGSOY, ILS IO¢%4 SET BP SUSY CO™SAKDS.~ 
tODdCc 650 aZZ BOSY<eT, ILSIO¢?1 
VER 654 HVC COUNT (2) , BSYTI#£ CLEAR BUSY COUNT. 
@52 BUSY Tio VINY,X*AR2° BRANCH IF SPINDLE 35 BUSY. 
653 R ROSST GO PRINT KO BUST Of. 
W7c2 654 YYHY sic COUNT (2) , XOG% DECRESERT STALL VALUE. 
655 BA TOLNG LOOP TILL DONE STALLIKG. 
656 HAG TIo YISY,x°A2* STAY HERE TILL ROSY DROPS. 
657 TBF ILSTO¢1,x%*C2¢ THIS A BRITE COMMAND ? 
658 JP INCTE JOUNP YP SO. 
659 TSH ILSIO¢4, 1°09? THIS A READ COPSARD ? 
6690 JF INCER JUSP IF ROT. 
664 CLI ILSTIO¢2,K20t® THIS A READ ID COP*RRD ? 
652 JRE INCER SUIP IF WOT. | 
7893 663 cL¢e YLCCH-2 C1), TIPCCR-2 EXPECTED AYD ACTUAL TRACK YD*S FOUL? 
66% JE . INCER Jo4P IP so. 
665 TSF TLecw-3,x%*03* THIS AX ALTERNATE OF DEFECTIVE TRAK? 
$66 JT BADID JOP IF NOT. 
667 J IRCER GO DO KFXT COMFREBD. 
SSR FSRSECHTSSESSC TS SESH H SK SAHKSE SSCS CHES YT HKAHTE PS RHE GCERSCOKAS SE He SVECS HEGHRH EEE 
669 * TIGE OUT SEER BUSY. ~ 
670 SMESSVSSESHRSTECVSE CHEST ESE ST SSHSAS SHE GLKKSE GARE CIF SKASRK SSE SCE SELES HS VIHSCSEITV EK SSH 
ODE 67% BSYSK %2Z SNS*T, TLSIOCF SEY GP CORRECT SENSE COMSRND. 
S72 SS S&S STSRY?,K*aoe ISSUM STKSE FOR STATUS BYTE FT. 
o73 TRE STSBY7, X* 708 SEZK BUSY RIT ON *F 
676 BT SS STAY IN LOOP TILL BIT DPIPS. 
E75 TBR ITLSTIO¢3,%° 140° LAST COM@MARD FOR SPINNLE -3- 7 
676 JF +12 JOMP IF NOT. 
4008 677 aye LSEKB (2) , ILCC#-2 STORE THE F AND C PYTES FOF - B-. 
672 J eed 
1O0Db6 679 AYC LSESA (2} , ILCCH-2 STORE THE F AND C BYTES FOR ~a-. 
680 J INCER GO INCREBENT COUNTERS. 
662 * SEEK CHPCK MESSAGE © 
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IHF FAV ViGF 
1975 TCPP 174 
1172 CO AF OZTA 
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F1DS CO 87 G7222 
41D ADFS T4DA 
798 CO 27 C242 
TIRE CO 87 Sens 
VdPR OF 9TES 
TtTea GO V9PB 
TPS Pree VES 
Vie? CC OF T3267 FSORR 
TEEN C2 02 *8CK 
VIF CO A? OPTR 
T1F5 82 VTRS 
VFA IN ViPS 
Vir? TAa24 4175 
23FO pOR2 FIPA 
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7201 SC OF TOR3 TA29 
Narre TI8APTC OF RPPTIO 
FC HOW «579592 571516 
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738 
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736 
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739 
7a° 
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7a? 
7&3 
748 
Fes 
TEE 
Fay 
Pus 


SOURCE STATERER®T 
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pe 
Be 


Rr 


UBPACE 

YLeeqe 
AL2ZCILOCCR= 25 
ALZ(SKITCR 
UMP RCK 

IL7°98@ 
AL2(THPECCH-2) 
AL2(SKITPCK- 40} 
PRINT 

XLI°C6® 

YL22 36° 
AL2Z«{SKITCK) 
XL2°aGcort 
STSOK , 
23¢2,KR2}, 8001 
HALT 

RLZ°RO0AR* 
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UNPACK &CTOBL TRACK IB. 
OHPACK EXPECTED TRACK ID. 


PRINT PEPT/ACT PRACK ID*S. 
ID ~AQGA-. 


GO CHECK ODT STATES. 
FRCRESENT EPRROR COUNT. 
ERROR HALT -O&-. 


GO TRY AGAIBF. 


SHSOS$SROSESKOSHSHEHSSHELCRKELSSSERESIRSEVEBSRKSEECSHARVSSRSHKSEPCEPRKRSARSESTREREKLAAKEKEKS SS 


THCORERE ST LOG-OUT TABLE COURTERS, 


CHECK SSB OPTIOKS. * 


SHS SHEEESESSSR SE KSSH SHPSRGASEA YSERA SEH SVSKSESKSLHSECESSSH SSE HACKER SIRE SKE SBPKSE SSS SS 


TRCER- 


S08 
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&3(2,KR2}, 8001 
STSOK 
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SPYTE3,SSH1A 
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TERPS *OD8 
TEMP (2} , "901 
SUR 

TEST 

ILSI244, 29028 
GOCLR 
ILSIO+¢7, 2°07" 
ROCLR 
SBYTEI,SSu1S 
DEDATA 

CLRCCH 


GO CHECK STATUS ODT. 

IRCREMENT INDIVIDUAL CHND COURT. 
INCRESENT CHRD TABLE POYXTER. 

S$S8 18 SET? , 

JUMP IF WOT. 

READ CORSOLE SWITCHES FOR STALLING. 
LOOP TILL DONE STALLIAG. 


TEST POR SSH CHARGE. 

BAS LAST COSSD POSSIBLY A READ ? 
JOP IF FOF. 

READ RIT OW F 

JOP IP NOT. 

SS# 19 SET ? 

GO DUMP READ DATA IF fC. 

GG BACK aXP SET UP Ek COMMAND. 


SRECSKS SSE SSHESKSESKEKHOHE RSS HTH AHSKHRSEASRESHE ST SE RLS STHSSLVES PSH SERS ae Se 
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67 T7FF 
oD 
06 
26 
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3245 
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4988 
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23 
3255 
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T7749 
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V7F4 
oc 
TSA3 875 
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T7E 4 


F7nS 
V7ce 
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{TRH SRINTERAKRCE PIARGEOSTIC PROGRAA 


PERT HO. SI2VGRR 
Pace 6B 

STR SHURCE STET EOP NT. 

a9 8 PRT RE PRIWY SSBS HPABTWG. 

758 pc ZLU°G2e 

754 ec TL92998 

752 pe AL2 (PRT? 

353 AVC PRT ES1y  PRTS4 CLEAR PRIWT REEB. 

758 pot cLe 12, 3R2), 40000 THIS THE LAST COMHAED ? 

755 3£ KOK JOSP IF SO. 

F56& CLI O(,ZP2),K"FFE TRIS A SPCTOR COUNT OPTION ? 

757 oN UNWR Juep IF KNOT. 

7458 LA 2(,ER2) ,xXR2 ITRCRYM ERT POINTER TO SKIP THYS. 

759 8 DH0 GO CHECK YOR LAST OPTION. 

760 KOK HYC TEMP (4), SCK STURF TOTALS. 

761 NYC PRT-17 (6) , SIMS STOPE SUPHARY HEADING. 

762 BUI PET-26,Cee6 GENFRATE LIWE OF @¢5, 

763 BYC PPT~27(58) oPRT- 26 

768 vc PRT-89 £12) ,LSTOWF 

76S ad TKCT 

766 UNHR HVC SEG2(8), 36, KR2) 

F679 e RTPPT GO IWTERPRET THIS COP She. 

FHR pc KL2Z°ooococ0n® 

763 RPC TEMP-2 (2) ,42,XKR2} BRIBS YH CURREET LOGCDOT THFO. 

776 eYC TES EZ}, 834, KRZ3 

774 ALC SYS (2), TEaP-2 TRCPENENT TOTAT COUNTERS. 

72 RL SCR (2) ,TESP 

773 INCT RYC PRT {75} ,SUR3 THITIALIZ= COUNTZE 5. 

774 LPCLR CLO TE™= Peay, #0000 ALL COUNTFPS ZERO ? 

775 JE WEWOR JDGP IF so. 

776 cic TEMP-2¢73 , 30000 ISSUED COURT O ? 

797 JE ERCKT JOMP TF Sn, 

77R AZ PRT<-S (AG _DECOTIT INCPEQENT DECIASL COURT. 

779 sic TEEP- 2125 ,KOOA DECPESENT RINARY COUNT, 

JAG ENCHT CLe TENPE2> ,HOONG FRROP COUNT 6 ? 

7691 JE CON JOGP IF so. 

782 AZ PRT (6), GECOT (73 THCPEAERT DECT#AL FRAOR COONT. 

783 sic FRHPE?y ,WOO4 DECREVFET PIWARY COGRT. 

788 COR 8 LECLR CONTINUE CONVTFPSION LOOP. 

FRS HEHOH BF PRIET PRIWT COPRENT INFORSETION. 

Fa oe ELG2OV8 

FRI pe FLU°S4" 

788 pe AL2 iPRT 

FRE HYC PRT CST ~PRTS CLYAR PRPIWT ARTA. 

790 cic ¥£2,ER2) ,HO008 THIS THY LAST CORMAED 

794 JE SPCUP JURE BOT IF So. 

FSF LA 2 (RR 23 oe KRZ TRCPEMENT TABLE POINTER. 

FBy 5 266 GO FIWISH UP LOOP. 

79a gpryuP 8 PRIGT SPACE UP? THE PAPER. 

FOS pc XL7T2V62 

2 OK 8 SALT JSLYR"T RARLT -EBS-. 

Fa 9c XLZ*aGese . 

FOR B SUNK RETURR Tl DCP, 
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ADOR S7AT 


SUBROUTINE SENSES THE CORRESPONDING HRTYP?S 
STATUS BYTES AND CHECKS FOR SRRORS, 
THE SUBROUTINE ®RANCHES BACK, 


“S2T UP FOR SPIENDL® -2- CHECK. 


PART #0, 


5120608 
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SAVE NOT READY RETURN ADDPESS. 
SENSE SPHDL A STATUS BYTES 09 6 1. 
SENSE SPNDL A STATUS BYTES 2 € 3. 
SET UP POR SPINDLE -1- CHECK. 

GO ANALIZE STATUS BITS. 


SAVE NOT READY RETHRN ADDRESS, 
SENSE SPHDL A STATUS BYTES 0 6 4. 
SENSE SPNDL A STATUS BYTES 2 6 3. 


INTERVENTION RIT OW ? 

JUMP IP NOT, . 

AR® REST OF THE BITS OFF ? 
JUMP IPF NOT. 
AWY BITS ON 

JUMP IP $0. 


Iw BYfe 2 ? 


PRINT. SPINDLE HOT READY. 
1p ~Aa0PE- 2 


EPROP RALT -FE-. 


PPTNON TO NOT READY BRARCH. 


DP  FSSSSSSE FS SSSESSSSSSSSESSESSKESESSEESEEESESE EES HOSE SSE SESS SS SESE SHEESH SESESEESSESD 


IP Of, 


FREON ERE ESE SES ESEREEEEe EEE SED SE RES SEESECOEE SEDO EE CED OCEOSOCESeOOeSS 


2marrre 


source STATPREUT 
at? st enve3,an7 -_ 
ayn SNS = STSH91, 2°42 
Ate. SNS. STSHY3, 3°43! 
820 AVI 0s SPDNR-10, 08 FI 
a2t 3. cxour 
R22 NTROTA A 2003 ,aR2 
823 st RDVS? ARR 
“826 SNS STS8Y1,2°n2¢ 
825 SWS) s- STS BY3, ¥° R39 
‘826 °° | AVI SPDwA-10,X°P2? 
827 CKOUT TRN . STSBYO,X*40* 
_ 82a JP paP 
‘#29 TBP S°SBTO, X°BFe 
“840 IP? DPP 
831. TRF STSSI2,z7°88¢ 
932 -- JF. pap . ee at: 
833 © NOT READY ERRO BESSAGE: a 
ee 8 so PF I"T oe 
1319 835. DO ELT#CHS 
T34a  AI6- pc. = FL4eR78 oe 
WIC RA BC AL2(SPDNR) 
T3942 938 pc XL2*a0ree 
839° 'B WALT 
1324 «980 oc £1L2° a0ree 
Rat RDY 8 e-¢ 
Ru? 
943 * STSOK © 
RaQ Seesee248 
RUS @ 
ABs © 
8a7 © 
Rug 
REO STSOK ST  IKST#3, ARR 
10DC 850 SZZ = SA#1T, TLSIOS 
10pC 851 #ZZ2 «= SBT, TLSIOC1 
R52 AVI STSCK-13,C* 2° 
953 TSK ILSIO¢1, 1° 10° 
954 IT ee7 
A55 AVI STSCK-13,C°18 
AS6 SA SNS STSBY1, 1° A2° 
257 SR SNS STSRY3,x°A3° 
B58 TSF STS2T0, K° Pre 
859 JF sTsPe 
R60 TRY =- STS 9V2, X° Gut 
861 JF sTsre 
R62 OKST B e-e 
R63 © STATUS BYTE FPPOe AVSSAGF © 
1AB3 864% DMP avC)|0OSTSCR- 13M, SFDWR-10 
A6S STSEFR 8 PPTRT 
136C R66 pc XLt9¢c7 
1346) 967 pc YLV*20¢ 
VIAF ABR DC AL2(STSCR) 
1371 ABD 2. OE 1L2°a0978 
R70 TaN say-r2,ssei? 
a7 If es7s 
Ay2 CLI 9(,3%2) 2 °PPe 
873 ar eT 
Are a BPC? X82 
03 975 MVC = 0 9.2, 94, BA) 
A76 B aTePr 
138" RI7 pc XLe*oo0nn0coe 
Q78 CLI Of, 2"%23,4°FP? 
479 IRF ee? 
890 A W092, 282 
aay B Prrer 
139" «aR? pc ELI°9OTe 
139F Gay pc ILT°6ee 
13a1 A948 pc AL2Z(C®8DAS) 
OF APETO ?29AaY70 01a0G70 oIncTIO 
571543 | 571580 


571516 


571531 


571565 


STORE RETTON ADDRESS, 
BUILD COPRS SENSE CoNMANDS. 


S"T UP 4FSSAG® FOR 
TRIS DRT¥e 2 °? 
JO@P TF SO, 


DRIVE 2. 


SET 1° MPSSAGE POR DRIP 9. 


STOPE COPRS SENSE THPORMATION. 


S?Tavus OK ? 

PPANCH IP OT. 

STATIS OF. ? 

RPAYCH TP BOT. 

RETORE “TO MATE PROGRAR, 


STOPES SPINDL? 19. 
PRINT STATOS CHECK. 
19 ~anerv-, 
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ssu 17 sv? ? ; 
SEITP CONFANS ID APSSAGE IF $9. 
THIS A -FP- FLAG ? 
J5ePp TF en, 
DPTCRAEST POTETEP SORE HORE, 
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INTPRPRET CIRRELT COPSAND. 
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DISK PRIENDS TEST J 
ADDR STHT SOURCE STATENERT 
co 87 O2tAa Aras a PRINT PRINT THIS COMMAND ID. 
62 1306 6886 i L1*82¢ 
a W3ay Ra? DC IL1¢91¢ 
7943 309 = «6AAR BC AL2 (PRT) 
OC SA 1923 1928 aAag fave PHT (919 , PRT CLEAR PRINT FIELD. 
cO 87 021F - 4890 8 OWPACK YNPACK CORP IRAGE OF SIO CAND. 
03 W388 86891 nc TL1#3° ; 
10DD 13% 992 pc AL2 (ILS10¢2) 
1B78 1388 86893 ne AL2 (THGP- 23) 
co 87 0212 894 B UNPACK UNPACK CCRPF IMAGE OF CONTROL FIFLD. 
O08 1385p 6895 DC TLI¢ue 
10DAa 138F 8 6AGSK DC AL2(I=CC#) 
1832 13c1 806897 DC AL2(I"G2) 
cO 87 02178 - - 998 8 PRINT PRINT THF COR® IMAGE. 
92 13c6 0-899 pc XL1*092° 
32 43C7 900 pe :sCéaELL #508 
1332 13c9 0901 DC AL2(19G*) 
38 61 1807 902 ST SVIR1, 284 Save PFGISTER 3. 
c2 01 81D 903 FSTS LA RTS0+2, 1281 LOAN TASLE ADDRESS IN runes R2G 1. 
3c¢ 61 1397 9048 avVY TST049, 0°01? PRESET AIT POINTER POR BYTE 0. 
38 00 180" 905 TSTO T3N STSBYO, 4° 00° CURSPNT RIT ON ? 
co 10 1825 906 ST PRTSTS| G? PRINT ID IP SO. 
D2 01 03 907 LA 3( ERD, TT INCPEGENT TARLE POINTER. 
OF 00 13D7 13D7 908 ALC TSTOS1E1) -TSTOT SHI¥* ®I?T POINTER FO BERT BIT. 
3D 00 13D7 909 CLI TSTO¢4,1°90° ALL ®"I7S TESTED ? 
cO 01 13D6 910 Rae 8 86TSTO BRAKCH SACK IP #OT. 
28 08 180a 911 TRW STSSY2, 2°08? 4FAD SETTLING PIT OW P 
CO 10 1825 912 aT PRTSTS GO PRINT ID TF? SO. 
D2 01 03 913 LA 3(,ER1) PI INCOFAFET TABLE POTETER, 
3C 3a 1480D 914 Avi RGS, Xe sae “27 TO TRS OW GO RIT. 
38 AO 1808 915 TAN STS8Y2, T° aCe MNSAPS QI" OW ? 
2 90 OF 916 JF RSS Jv@P re #OF 
3¢ 38 1860D a17 Avi RGS, 1° 3Re ser tO ene" OFF CO BIT. 
co 87 1825 9qA B PRTSTS GO PPINT UNSAFE 1D. 
38 08 1818 919 RGS SBF PFLAS,X*98° SPTsBeSer GO 
CO 8&7 O21A8: 920 B PRINT SPACE TP PAPER. 
16 1815 921 pc KL1¢168 
8 01 53 17c& 922 ALC 83 (2,122), 4001 INCSFETE FRENF COUNT, 
co 87 0222 923 B HALT ERPN® HALT -97-, 
aoo7 1820 «6924 DC XL2*a097° 
cO 87 OF07 925 B DOCAL GO STAPT ALL OVER. 
926 * PRINT BIT IND ¢ 
38 OR 1439 927 PRT*STS ST SPT+3,AeP STOPE PFTUPHN ADDRESS. 
1c 02 1835 00 928 avC SPT-1(3) ,0(,"219) STIPE CORRS APSSAGE ADRS/LENGTR. 
cO 87 O21Ak $29 3 PRINT PRINT THIS SIT ID. 
81 1832 930 pc XL7°97¢ 
00 1433 «931 DC KL1°00¢ RPESFRVED POR SPSSAGE LENGTH. 
0000 1835 6932 pc XL2*00023° FESFRYTD FOV NFSSAGZ ANDRESS. 
cO 87 0000 933 SPT B a-¢ CONTIQOS THE SIT CHECK. 
: 934 SESESEEAESEETE CS SERESESHEDHSTEEESES EH OHOOEOOSHSHOFSOSHSHOOSOSOEOSOOESOSES . 
935 © RTRPT ¢ * 
936 eeeseeses SURTOUTING INTEQPRYTS SEKRSF SWITCH SETTINGS © 
937 © INTO AN ENGLIS! PFANING. OUTPUT IS STORED e 
938 © IN "PRT POTN? AREA, SUSROUTINE IS CELLED 2 
$39 « BY- > 
980 © es 
9a1 6 R NTRPT e 
982 Dc 2e KP ACTIAL SENSE SWITCH S"TTING® * 
983 «© pc 2,X"NPEX™ SETTING IB TABLE, * ° 
Gan ¢ OUTPIT ITS FORMATED AS- ¢ 
9a5 6 : * 
986 © SSUS COMMAND NISK ID LOCATYIOS e 
947 © SSWS COMMAND DISK ID. LOCATION * 
oan © 0000 ¢¢ END OF TABLE ee * 
949 ¢ * 
950 SST SEESSHTESSEKSCEKS SES SHSHHEST SHEE SEHSE HEE SHOHOHESEEOSSS OS FEHSSS HOSHKEEOSESE 
00000000 1w3nM 951 pc KL4’ *000000900°* SSWS STORAGE 
36 08 17c8 952 MTRPT A N003, AR 
T34AR70 O6APR70 228aY70 OTAUG70 019CT70 2BAPR71 PROG ID ORO8-& 
571512 571516 571513 571531 577520 571565 PAGE 7a 
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: See. Loc 


3882 
4486 
taec 
+350 
1358 
1858 
1aSE 
3864 
1967 
TGA 
€ T86E 
i: - 48EP 
ae 4871 


oy hate tae 


1 a7 


3e85 
9882 
tuSP 
4893 


Ta99- 


449F 
28a5 
WAd 
Tsat 
W480 
78-36 
TkBAR 
78C0 
acs 
WSCA 
WacD 
1890 
Tape 
TODA 
34nd 
18E3 
I8E6 
38EC 
18 F2 
TaP6 
urs 
T4PD 
WFE 
1500 
4 1502 
; 1806 


1508 
150£ 
150F 
; 1510 
1512 

S17 

151B 
ee 15%F 
é 1523 
?. 49528 


< DATE 
EC WO. 


igiwes 


be 
\ 


3493: 3 


> 687 


DISK FRIEEDS TEST 


OBJECT CODE 
38 08 1885 
@c 03 1832 
36 08 T7C8 
38 Of 1509. 
38 01 1807 
0D 61 1833 
01 69 

15 1968 
9c 
0212 


18¢c8 
+850 


17P1 
vr 
1866. 
170¢ 
17T?1 17c0 
1981 


TasR 


oF @0 
co sa 
38 01 1898 

ec 65 129% 0900 
000000000000 

08 03 1771 183A 
C2 01 1823 
¥2 87 oe 
26 G1 17C8 
OF OO 17F7 
co 88 14~AC 
oc 15 197C 
1c 00 1596D 
qc 06 797¢ 
7D pe? O01 
F2 01 06 
oc 08 7975 
39 £0 143A 
F2 10 09 
8c 08 1989 
¥F2 87 06 
oc 08 1989 
oc 07 1989 
3D FF 143¢ 
F2 C1 09 
CO 87 O2TE 
01 
4t83D 
195, 
35 01 
co 87 


T7Cce 


IDDD 
00 
62 


1DC7 


TAE7 


ADE 
19RD 


1807 
9006 


cO 87 O21A 
01. 

a0 

1A07 

2C 03 ISTE 03 
cO 87 I&3E 
co000000n 

cO 87 OZ1A 

02 

58 


T3IRAETO 
571512 


O6RPRT 
571516 


158 HAINTESAECE DIAGHDSTIC FROGRAE 


hate laa NY A tae *  nE  ENE —aalge eiNE NMenee te ee ae tn 


ADDR STRT SOURCE STATEREST 


1862 
9870 
4872 


TS FD 
Tarr 
1501 


1502 
150F 
1571 
Ste 
1823 
1528 


$3 st *¢9,ARRh : : 

8S4 av NTRPT-1 (6) ,O-* STORE SENSE SWITCH TO. BE IvTERPRETD. 

955 a #001, aR : 

9%6 ST  RPT+3,aRNeR STORE RETORW ADDRESS. 

‘957 st SVXR1,xR1 SAVE INDEX REGISTER 1. 

58 CLC s- ET RET-3 (2) , HFOFO THIS THE RECAL. FLAG ? 

$s9 SNE RECT - ' JOP IF KOT. 

960 RVC PRT-59(22) ,STCKIB SET UP INITIAL STATUS CHK ID. 

961 ; 3 RPT : ; 

962 REGY 8 UNPACK ONBPACK SWITCHES INTO PRIBT AREA. 

963. wc IZ1¢2¢ 

964 oc AL2 (NTRPT= 3) 

965 pc. AL2 (PRT-86) © 

966 SBF TENP,X*PF® CLEAR WORK AREA. 

O67...  BNZ «= TENP WT RPT-8 BRING IN STITCH 1 POR INTERPRETATION 

968. - Za # RVCHED, X21 SET POINTER FOR *#OVEt TABLE. 

969 apps =A W006, X81 : INCREMENT POIKTER FOR NEXT SHOVE. 

970 SLC TERP(1), 8009 DECRERENT SWITCH 1 VALUE. ~ 

971 BF ADDG6 CONTINUE TILL SWITCH VALUE IS ©. 

‘972 ST: %49,zR1 3... STORE POINTER ADDRESS. 

973 RIC 0 411 (6) ,e-2 BRING IN *NOVE® COMMAND. 

O78 pe XL6* ONCeOOOOHONN © DO THE *HOVE* (INTERPRET) 

975 anu) |= TEMP, NTKPT-38 BRIEG YK SWITCH 2 VALUE. 

976 La IDHEAD, XR1 SET POINTER TO DISK ID TASLE. 

977 J e797 

978 ADD22 A w003,X81 INCREMENT POINTER FOR WEW ID. 

979 SLC ‘TERE(1} , NOC DECRENERT SYITCH 2 VALUE. 

980 BP ADD22 CONTIKUE TILL SWITCH VALUE IS 0. 

9381 AVC) 8 =—- PRT- 39 (22) , SHELL STORE SHELL MESSAGE. 

982 MVC PRT-S58(1) ,0(,XR1) MODIFS SESSAGE POR SWITCH 2. 

983 AVC PRT-39(1},2(,XK1) 

98a CLI 1(,XR1} ,C*R? THIS REMOVABLE FLAG ? 

985 JNE 49 JUSP IF HOT. 

986 AVC) «6 PRT- 865) , BAVBL STORE REMOVABLE FLAG. | 

987 TBF UTRPT-8,K* £0% IS THIS A SEEK COMMAND ? 

988 St DOSEK JUSP IF SO. 

989 HvC 4 8=— PRT- 26 (9) , SCTR STGRE SECTOR LABLE IN OUTPUT ARFAR. 

990 J #49 

991 DOSEK AVC £PRT-26(9) , TRACK STORE TRACK LABLE IN OCUPOT AREA. 

992 AVC =—s PRT- 26 (2} , PRT-8E6 BRING IK HEX VALUE OP LOCATION. 

993 CLT NTRPT-2,X°PRPt THIS A MULTI-RELD/ERITE CCHSAND ? 

994 INE ROMULT JUMP IF WOT. 

995 B UNPACK USPACK SUSBER OF SECTORS. 

996 pc ILiete 

997 pe AL2 (RT RPT-1} 

998 pc AL2 (PRT-7 3} 

999 WORULT L SVXR1, X84 RESTORE INDEX REGISTER 1. 
1000 RPT B e-¢ RETURE TO ROUTINE. 
TOOT SFSEeeeKSSSSSSSHESSSSEKESESSSSSSSSE STEVE SHKSSESSSE SE SA STKE SSHETERASTESESESETEH AAAS 
1002 © DUBPIT *# s 
1003 *#eesee828 SUBROUTINE DURPS FOLLOWING INPORSATION- = 
1008 * . * 
1005 * SSWS COMSARD DISK ID LOCATYIOR * 
1006 ¢ AXXX AXAXXXXX AXXXXIK AXAXKXXX * 
1007 = 
1008 © CORE IMAGE- CSSD XXXXXX CONTROL XXXXXZXX = 
1009 * * 
TO 1D SHESKSESSSSHESKSESSS SE SSSTSERESESESKTCESACEKTSEKSE SRLS STK ES SEK ST SASCEST SEES SERIE KAASCE SE 
1011 DUMPIT B PRINT PRINT SSW LASLE. 
1012 pc XL1°O9* 
1013, Dc IL1*6a? 
1018 pc AL2 (CERDSS} 
1015 RYC HATE (9) ,3(,XH2) STORE CURRENT S¥ITCH SETTYEGS. 
1016 B NTRPT IKTERPET CURRENT SETTING. 
1017 HAIR pe XL8*'00000000°* 
1018 B PRINT PRINT THE INTERPEETATIORN. 
1019 pc XL1°02° 
1020 pC IL17*99# 
22mAY70 QC 1A0G70 010CT70 28APR71 PROG ID OBp0a-6& 
571513 571531 571580 571565 PAGE 8 
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DISK PRIEWDS TEST 


E9R LOC OBSECT CODE 


4525 
1527 
152D 
1531 
1832 
1538 


153A 
1538 
153D 
1537 
1583 
1588 
1545 
1587 
1583 
1588 
1552 
1555 
1589 
355¢ 
1560 
1561 
1568 
1569 
156C 
156F 
1572 
1577 
1572 
ISTE 
1582 
1585 
1589 
158D 
1593 
1897 
1598 
1599 
1598 
15a1 


1525 
S29 
TS5a€ 
1530 
15B3 
1587 
1558 
ISBE 
15C2 
156 
15CA 
15CE 
15D2 
15D5 
ISDA 
15DD 
1550 
1SE5S 
ISEB 
1SEE 
15P2 


DaTE 
EC #0. 


1943. 
oc Sa 
co 87 O2TE 


1879 
1848 
3536 CO 87 


1815 
7832 


co 
01 
32 


87 


1832 


38 
¥2 
38 
¥2 
38 
F2 
co 
41 
¥2 
6D 
F2 
BD 
¥2 
ED 
F2 
3c 
3c 
F2 
3c 
3c 
oc 
co 
06 
58 


| 
90 
02 
4108 
ao 
30 
87 


1943 7948 | 


O21E 
G21a8 


1818 
1818 
0208 
0212 


87 3D 


01 
e1 
TF 
Ct 
61 
£4 
€0 
o1 
87 
5c 
OG 
3F 
87 


1922 


oc: 
co 


38 
F2 
Ct 
F2 
cs 
ct 
F2 
co 
36 
3D 
co 
35 
F2 
2c 
BD 
F2 
2c 
OF 
F2 
3c 
co 


IZERRTO 
571512 


Sa 
87 


10 
1b 
ao 
87 
87 
BO 
87 
87 
02 
01 
81 
03 
81 
00 
FF 
Ct 
00 
96 
87 
00 
87 


O3 1721 
19 
02 
o8 
0S 17E% 


1989 
1599 
oe 

1969 
1897 
1988 
O27 


1689 


1983 
1058 


Sas 


DC 

oB 

12D5 

or 

ac 
I2ZEC 

04 

1587 
17D2 
ODD 
16CF 
10DD 

BS 

1810 67 
02 

CE 

180F 03 


18OF 17C48 . 


0a 
180F 
O218 


ADOR 


1526 


1539 
1833 
1835 


1538 
18% 
1532 


1583 
15488 
1586 


1569 


1897 


1598 
159A 


OGEPR70 
571516 


ee enn al ae SE ge Se OU a al at i det Une ete tte nt ee nie nm se hn a a OR I RR Be aig NS eile Ee A Nl ie I INL Ce ye Ria 


dine sie 0 


PART KO. 5129688 
PAGE 8a 
STAT SOURCE STATERETT 
71022 se AL2 (PET) “8 : . 
1022 nyc PRT (21) ,- PRTC CLEAR PRINT ARZA. 
1023 8 arPack URPACK CORE IMAGE OF STO CSHD. 
1028 pc TLI*3¢ 
3025 oe AL2 (TRPSTIO*?2} | 
71026 pe AL2 (THGE- 2 3) : 
2027 's UNPACK OHPACK CORE IMAGE OF CONTROL FIELD. 
1028 oc IL7*s* 
1029 pe RL2 (THFPCCH) 
1030 ac AL2(19%G%} 
1037 8 PRIST PRINT THY CORE IMAGE. 
71032 oc ALI°O1* 
1033 ac IL7°S0¢ 
1038 be AL2 (TAGE 
1035 TBR TAPSIO¢ 1, % 404 * SIO BEAD BIT OF ? 
1036 JF exoc JUSP IPF KOT. 
9037 TSN THPSIOC1, K*2¢° WRITE BIT on 7? 
7038 JT cxoo J0SP IF so. 
1039 TBR SBSYTEY,SSui9 SSW 19 TURNED OW ? 
7680 a? cx0o0 JVHP IF KOT. 
3084 B PRIUT SPACE UP THE PAPER. 
1082 oc RLI* 19? Ss 
1083 J BSTOT BRANCH BACK. 
7088 CKOO cLc¢ 3 (2,282) , #0000 WEXT COMMAND THE LAST ? 
10485 JE LIKE JUSP IF So. 
10a6 CLI 2(, X82) -X* FF THIS A SULTI-OPERATION COMMAND ? 
103a7 INE teT1 Jusp YF XoT. 
3048 ciLe § (2, X82} ,HO0GO THIS THE LAST COMBAND ?. 
1029 JZ LINE JUSP IF SO. 
1056 AVY PRT-26,C*-* GENFRATE A LINE OF *-* S. 
71051 SvI SPS, %°S 1° 
1052 J GcuxItT : 
41053 LIBE avi PRT-26,5%°SCt . GENERATE A LIKE OF -*-'S. 
1058 AVI SPS,X"*G65 
1055 GRIT BYC PRT-27 (68) , PRT-26 
16056 8 PRIRT PRIRT TAIS LIVE. 
1057 sPs. Be IL1*o06* 
1058 pe IL1*9te 
1059 oe AL2 (PRT) 
1066 AVC PRT (91) , PRT+1 CLEAR PRINT AREA. 
1061 BSIOY 8B BSIO RETURE TO MAINSTREAS PROGRAS. 
4062 SEEESES SE FECES SESE SHSSESESCSSSTSSSHKESSEKSESESESHEAHSTSESCESE SSE KRKSETTAESSESSES SSS SS 
1063 * DSDATA * s 
1068 *#*ses2%488 SUBROUTINE DETERMINES TYPE OF READ COMMARD * 
7065 + ISSUFPD AND DUEPS THE CORRESPORDISG DATA. ef 
* 
tees SEVVEKSKTRE EST STEKESESSHKABDSE SVS KESSESELESRERKE SESE STEHT YF CE SA FCHHKESERESOESSS 
19068 DSDATA TB ILSIO#71,x*10* LAST CHRD FROM SPINDLE -B- ? 
1269 JIT RDYRY JUMP IPF so. 
4070 RDYAY TIO RTRDYaA, X* ao?® BRANCH IF SPINDLE -A- WOT READY. 
10714 J CKOK JUMP IF READY. 
1072 8 RDYAY GO TRY AGLI". 
1073 RDYBY TIO WTEDPT B, X* BO* BRANCH IF SPINDLE -8- NOT READY. 
1078 J CKOK JUMP IF READY. 
1675 B RDYBY GO TRY AGAIN. 
1076 CKOK R WYGO2,XR2 SUBTRACT 2 FROS CAND TABLE. 
1077 CLT It.STO*#?2, K*OF* THIS A READ ID CONHAND ? 
1078 RE OTRERD JUSP IP so. 
1079 CLI LS10+2,x%°*03* THIS & READ VERIFY COBSAND ? 
3080 Jz STRE JUBP IF SO. 
1031 NYC WRK2Z (1), 1(, XRZ} STORE STARTING SECTOR ID. 
1082 CLI 2, XE2) ,X*FF* THIS A MOLTI-READ COMMAND ? 
4083 JNE e17 JUSP IF KOT. 
408a "vc WRKI C1), 3 (,XK2) STORE SECTOR COUNT. 
1085 SLC BEK1 (72), BOOT SET VALUE FOR LOOP COURT. 
1086 J 27 
1087 RFI WRK1, x*Co* SET cCouNT TO O. 
1088 B PRIBT PRINT DUAP EEADING. 
22EaY70 O1AUG70 etocT7¢e ZSAPRT1 PROG ID OBGR-B 
571513 §71531 5715806 §$71565 PAGE Sa 
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— | at im, 288 | elie. , a oe 
-toM SRINTERAUCE DIAGHOSTIC enocnas cru _ oe “se. 4 part #O. stassee TBH narerce FARCE : pracsostre = procera 8 — "oO. 5129688 = 
: 30G8 «DISK PREENDS TEST et a 3088 DISK FRIENDS TEST . 
ERR LOC OBJECT cope ADOR STST SOBRCE STATERERT 6 e ERR LOC OBJECT CODE &DDR STRT SOURCE STATEREST 
18 | e ‘224 a “$6D3 62 16D3 1187 oc £L9°920 
‘lens es | 156 ‘ase te tear  @ 6 46D9. 09 16D4 1158 DC OTL Yeg¢ 3 
1SP8 1BPS 1579 1091 BC OF AL 2 (DEPOP) . 16D5 15Pa 16D6 1155 DC AL 2 (DEPOP) 
IPA 38 61 0202 1092 TRY 86- SBYTE2, SSW17 ssa 77 SET ? . 16D7 36 014 0204 - 4960 TBN 4 «6SBYTE2,SS897 Sse %? SPT? ~ 
‘ee F2 10 1D 1093 3T Ise SKIP HEADING IF $0. 6 @ 16DB F2 10 23 1164 ST UPCCE SKIP AFADING IF SO. 
4601 2c 03 16D 03 1096 HVC 046128} 3 (,%82) STORE OLD SS® SETTING. _ 16DE CO 87 0248 sebs ie a ee PRIST COMMAND ID BTADIBG. 
1606 CO A7 1832 1095 8 ETRPT INTERPET THE READ COMMAED. e 8 ie 01 aces eee ee ae ~ 
160a 00000000 160D 1096 DC XL8*0000G000° eee eer eee eens a ihe +a eee ce ao fi ocesces) 
1842 ro ee 1612 pd Re Gees @ 16E6 2C 03 1672 03 1166 AVC 8 =—- 6. 12 (8) 6 30, KR) STORE THE SWITCH SPTT IGS. 
1613 6&6 1613 1099 _ oc TLI*68¢ So 16EB CO 87 183 4167 3 WTRPT INTERPRET THE CORHAED. 
1618 TACT 4615 1400 DC AL2 (CHEDHS) IGEF 00000000 16F2 1168 pc KLS*90000000¢ 
1616 CO 8? O27A 9964 B PRINT PRINT CONHARD INTERPRETATION, @ .® ate 87 0278 oe A ae os PRINT COMMAND ID. 
1618 92 164A 1402 pc sees on =. aa RS = ertiaes 
y | } 2 ; ¢ 
aie aes ten aie ae pe ; i @ 16F9 1943 IFA 41172 Dc AL2 (PRT) 
+1 CLEAR PRINT AREA o 16PB OC SA 1923 1928 1973 RVC = PRT (915 S PRTS4 CLEAR PRINT FIELD. 
WIE OC SA 19A3 19a8 9105 YERD AVC PRT(91) PRT . tea eaeeerne coe Bee an oes 
1628 C2 01 IDEA 1186 LR READIN- 1,%R1 INITIALIZE READ IN ADDRESS. | 1701 CO 87 0212 aio ee ee persce ¥ i" 
4628 3c OS 1872 1107 DHORE AYI #RK3,8 SET COUNTER FOR 8 LOOPS. co ®& 1705 64 Seas a a eee 
162C 36 071 47D0 1108 INCBLK & NO32,2R1 INCREMENT READ IN POINTER. scan 10DdAa a eee tase oe asttae ce, 
1630 38 O67 7638 1109 ST UONPK, X81 STORE A -32- BYTE BLOCK ADDRESS. pa SS asuk saa ; eer ? saves ets coeenai eee 
9638 CO 87 O272 47110 B UNPACK UNPACK THIS BLOCK. oe ie = doge nae . a . 
1639 0000 1638 1942 UIPK DC AL feee) 170F 1D 170P 1180 DC | «TLt#29" 
1633 1943 163C 1113 DC AL2 (PRT) @ 4710 40715 W711 79184 pc AL2(IDFLD} 
“463D CO 87 O27a 1918 B- PRINT PRINT THIS BLOCK. 0 1712 CO 87 168: 1982 B STRE RETOUR TO HAINLIBE. 
1183 SVSOSKSS SSCS SSS SISSETOESSSHKS HIS SSE FSERHESEESSTS EK EKRSEEHSSESZOOSEEO4EEESSEOEBOS 
1681 01 1681 1375 pc XL1°078 . ieee anes : 
a 2 
scar ae teas Ha ne ic a o ®@ 1185 #seseec¢ SUBROUTINE IS CALLFD SHEN A BUSY ERROR e 
teas oc e on 1186 ¢ OCCURS POR EITHER SPINDLE e 
1645 OC 5A 1983 19A4 1918 MVC = PRT ($1) , PRT +1 CLEAR PRINT FIELD. Ps eee | 3 : 
aca a oe Seoe ute? eee rg Stceee. anes eeaeiane Gcae ce cea POSITIVE. ° : § 1788 SESSLER DES EESS SES SESESEOES 98659995809 S8C CEES HEERESESEOLESE0900080009 
1655 CO 87 029A 1921 B PRIEST SPACE UP THE PAPER. Hs = pe es ae BUSTA ae io SET UP FOR SPINDLE -%-. 
1659 114 1659 1122 pc XL1°478 1 ? ) 6 oe 
165A GCF 00 1ROF 17c8 1123 SLC wWRK1(1) ,8001 Seer ace edgar achat 0 6 aie ac F2 ie ie BUSY — eree ree es ee oo 
1660 F2 82 27 1124 a8 STRE JUMP O NE. : $s f ‘ 
1663 OF O60 18106 17c4 9925 ALC 8K2(1),8O001 INCRESENT SECTOR COUNT. O a 1725 CO 87 O22 1193 8 PAINT . fe reeae ERROR. 
1669 CO 87 O21E 1126 B UNPACK UNPACK SECTOR ID. i oe nae “2 = arisce. . 
7 D 14 1°49 
1668 1810 166P 1128 DC AL2 (#RK2) i 172B 1C88 T72C 1196 bc AL2 (BISZY) 
1670 AE? 1671 1129 pc AL2 (CRSCT) oO sd 472D 4098 3728 1197 DC XL2*a098* 
1672 90C OA 1989 1AE7 1130 HYC 8 =©PRT-26(9) ,CRSCT STORE LABLE. bad od 0222 ee oo a es caeas PRROR HALT -96-. 
sere 4 ey 167C 1s se 71.403" Eee enna ae, eee 6 6 1735 CO 87 CEO7 1200 B DOCAL GO BACK AND RECALIPFRTE. 
167D 5B 167D 1133 pc IL1°94° 1739 38 10 10DC 1201 NOBSY TSE YLSI0O+1,x°10" THIS CAUSED BY SPYDL ~-2- ? 
167E 1923 167F 1138 pc AL2 (PRT) O @ 173D F2 10 07 1202 St +10 JUSP IPF SO. 
1680 OC 5A 19A3 19A8 4135 AVC 8=—- PRT(91) , PRT#4 CLEAR PRINT ARBA. i. soae Ss a T oo he a re SET UP FOR SPINDLE —1-. 
js | 
ican < ao iaee +437 STRE i; 1002, x82 pestoue CHAS TAbid POINTER 1787 3C F2 IC4UF 1205 AVI WNBZY-16,X*F2* SET UP FOR SPINDLE -2-. 
: ECT : Go: ®@ 7 87 178 1206 B DNOP GO DUMP CONMAND IN =P80R 
168E BD PF 00 1138 CLI 0O{,XR2) ,X*FP? THIS A SULTI-SECTOR. DUAP ? 178B CO 8 c pec eetcntacce SESSREE. ° 
1691 F2 01 08 1139 JNE CKPRS JUMP IF Not. 174F CO B87 O21A 1207 B PRIST : seen 
1694 8D 01 03 1757 1180 CLC 3(2,XR2) ,#0000 THIS THE LAST CONBSAWD ? o '¢@ aces - wae ao saa acs I 
1699 F2 81 13 1181 JE GEL JUMP IF SO. 
169C 8D 01 01 1781 1182 CKPRS CLC 1(2,XR2),H80000 NEXT COMMAND THE LAST OBE ? ee — ue ba se ara ieceey € 
7641 F2 81 OB 1143 JE GEL JUNP IF SO. } 
1648 3c 60 1989 1188 NVI PRT-26,c*-°* SET UP A LINE OF *-* s, o ® ee el 0222 en ae a er srcaeek ERROR HALT -99-. 
e § = 
ae ; —o See of saat = 0 @ 175P F2 87 26 4218 J DOCALY GO DO RECALIPRATE ASAIE. ‘ 
I6AF 3C 5c 1989 1187 GEL NVI PRT-26,cte* SET UP A LIWE OP *#* 5s, ue > : soe 20 TOLKNG = SFr ostent ret Bat cavers BY SP¥DL -2- CHWD ? 
1283 3c 06 16C1 1188 AVI WOMB, X*'06* 2 ! "1 - 
1687 OC 3F 1988 1989 1189 HVC 8 =PRT-27(68) ,PRT-26 GENERATE THIS LIE. 0: e aS os - ede ae oie de SET UP FOR SPNDL -t— HESSAGE. 
nece oo ee Key AISA BUMB Be Tiron’ pangs Hee rene 1770 3c F2 1831 1219 M¥I BSYLNG-148,x'F2?* SET UP FOR SPNDL -2- SESSAGE. 
16C2 5B 16C2 1152 pc TL1*998 1774 CO 87 178C 1220 B pD#oOP GO DUNP COMMAKD IN EPPOR. | : ~ 
16C3 1943 16C& 1153 pc AL2 (PRT) o @ 1778 CO 87 027A 1221 B PRIST PRINT BUSY CHECK. “ 
16CS OC SA 19A3 1944 1158 AVC) = PRT. (91) , PRT*1 CLEAR PRINT AREA. 177¢ C6 477C 1222 pc xL1°C6s : ID -AOBE-. 
16CB CGO 87 OEFS 1155 8 CLRCCW BRANCH BACK TO SAIN ROUTINE. oe 177D 15 177) 1223 pc IL1°21 | ‘a 
16CP CO 87 021A 1156 OTRRD 8 PRINT PRINT DUSP OPTION. IW7E IBBF WTF 1228 DC —-_—s« ALL (BS LEG) . i 
DATE §$13HAR70 O6APR70 22mAY70 01AUG70 010CT70 28APR71 PROG ID opoa-, © e DATE 134AR70 O6APR70 22NAY70 01A0G70 010CT70 28APR71 _ PROS ID a 
EC WO. 571512 571516 571513 571531 571540 571565 PAGE 9 EC RO. 571512 - 571516 571513 571531 571580 577565 PASE 
6 ® . 
a ea 





Ao Der BPR ce ABB TR Se en det msi ame ee ne i el eR a ee ete ne ae a ae eee aie Rf 


‘PAGE 70 PAGE 10a 


BOSS DISK FRIENDS TEST B0a8 DISK FRIEWDS TEST 


ERR LOC OBJECT CODE ADDR STHT SOURCE STATERENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATERERT aa 
1780 a0se 1781 1225 pe XL2* aOSE* 
1782 CO 87 0222 1226 B HALT ERROR HALT -8E-. 
1786 AO0se T78? 9227 pc XL2* 20048? 
7788 CO 87 OF07 1228 DOCALY B DOCAL GO START OVER. 
1229 ¢ DUMP CONSAND ID THAT AAS SUST ERROR. 
478C 36 08 17C2 1230 DHOP st 4P+3,AaRR STOPE RETORN ADDRESS. 
1790 38 01 020a 1231 TBN SPEYTE2,SSHI7 SSW17 SET ? 
1798 F2 10 28 4232 oT ap SKIP COMMAND IB DUMP IF SO. 
1797 2C 03 1703 03 1233 AVC = PH (8), 3 XB) STORE CURRENT OPTION. 
779C CO 8? 483F 9238 B ATRPT 
17a0 00000000 4703 1235 PS pe XL& * 00000000" 
17A4 CO AP OZIA 1236 8 PRIEST PRINT HEADING. 
17A8 01 V7aR 1237 pc ¥L1°018 
F7A9 4O 47A9 93238 DC IL1*68¢ 
F7AA 1A07 T7AB 4239 BC AL2 (CHBDAS} 
I7aC CO 87 O2TA 1280 8 PRIEST PRINT CURRENT OPTION. 
1780 02 1780 12481 pc XL1°092* 
1731 58 : 1784 1282 DC IL1*94e 
77B2 1943 1783 1243 pC AL2 (PRT) 
17B8 OC SA 19413 19A08 1248 HVC 8 =PRT (91), PRT+1 CLEAR PRINT FIELD. 
17PFA BE 01 53 17¢C8 1285 ALC 83(2,XR2) ,N001 INCREMENT ERROR COUNT. 
17RF CO 87 0000 1266 MP B t-s 
- 9287 
1248 @¢ecee¢eesesesseseses 
1249 © CONSTANTS * 
12590 FSS FOES ESEESEEESESEESHS SESEE SESE SESCEESERESTSEEE FEES SERS SEBS SES SESSEHSESTEOVOSS 
17¢C3 0001 17c8 1251 "001 pec IL2¢17°¢ 
17¢c5 0002 17C6 1252 W002 DC IL2¢2# 
17¢7 0003 17CB8 1253 N003 DC IL2*3¢* 
17C9 0004 T7CA 125% 8008 pc IL2*a* 
17CB 0006 17CC 73255 "006 DC IL2°6* 
17cD 001A TICE 1256 N02 pc IL2*248° 
17CF 0020 17D0 1257 "032 pc IL2*32°® 
17D1 PRFFE 17D2 1258 NEGO2 pC XL2*PPrFe? NEGATIVE 2 VALUE. 
17D3 PFOO 47Du 1259 NFG256 DC XL2*PFOO® REGATIVE 256 VALUE. 
17D5 F1 17D5 1260 DECO? pc CL1*42 
T7D6 OA18 17D7 1261 BYPAS DC AL2 (BESI +8) 
T7D8 VIDA ; 17D9 1262 CKID DC AL2 ({IDCCW-3) 
17DA 00000000 17DD 1263 IYDCCW DC XL4*90000000° 


180D 1Z89 1802 1293 LSTADR DC = AL2 (READTW258) | 2 
18OP 66 180F 1298 ERKT DC XL1*60° 4 
1810 00 1810 1295 BRK2 DC = XL1°00° 
1811 00 1811 1296 WRK} DC = EL 19008 
1297 
FPFGR SCHKESSHSASHSESE SS SCHSESBMESTERS OHS SSSCH SELES ETEECSHHS KUSH SETH HSE OETSEOHSR~ GETHEOESS 
1299 & TFSPORARY STORAGY ARFA FOR RE NISK \aT ° 
1366 * T/O COSMARD ANTM IF*S CONTROL PYIYELD. ® 
| 4301 © ° 
RPRET THIS OPTION. 1812 00000000 1815 1302 THPCCH DC = =—- XL4* 00000000" ~ CORTROL FIELD STORAGE. 8 
oo A RTEREF 1816 06 18%6 1303 DC 8 XL7*00* - CLEAPING SYTF, ° 
1817 F3 00 09 1304 THPSIO SIO x*00*,x*00* ~ START I/O STORAGP. e 
: TICS SEKTESS SSSSSSHTSSSESATCSSHAHSESSSHVSTSE SHESS SS SSEHHSHHHSSE THK E HE HOOESEOEDEOHEI4G8E39 
1306 : 
TIOPF KHSEKRTTAKHSSSSKESCSSEESHSSHHSTSH SESS HESSERESSHOESHOHROTSE SOSH SHES EFS HTEEOHSCOSSEROSEY 
18 1a 00 181A 1308 FLAG pc = XL1"9008 DRIVE SSAGE FLAG. 
: 1309 
1310 


* 


* RIT O - SPECIAL SEP COMPARD USED. 
1311 @ 
1312 ¢ BIT FT - WORMAL SEFK COMM@AKD USED. 
1313 
BRANCH BACK. 1314 BIT 2 - SPECIAL SPZK COPAARD ISSUED, 
1315 © 
1316 BIT 5S - FORCES STO TD CLEAP STATHS 
1317 « . 
1318 © 6. 
1319 © 
1320 7 
1321 © 
1322 © 
1323 
1328 34468239 
1325 * TABLES ¢ 
9326 SEELSEES SSE STE LESTER HESS EEKEE KEES ESTES SHSHEEEEHES SE ECOSEHSSOEESESESESEROSEED 
181B 1327 BTSO Fou # TABLE OF STATUS BYTE 0 INS 
181B OA 1878 1328 pc IL1*108 sIt 7. 
11C 1CD1 181D 1329 pc AL2 (BT07) 


3BIe 15 1B1E 1320 pc ILit2t¢ BIT 6. 


BIT 6 = DRIVE 2 CO™SANDS UDS¥D. 


BIT 


2 
e 
e 
s 
3 
3 
* eae 
2 ed 
s 
2 
s 
e 
- DPTVE 1 COMSARDS OSES. * 
s 
* 


ESET SESSEESTE EEE KTKSESSHSES SHVESCSEHTSESETSEKESESTHNS CE SESHHES SEEK ESTSTHSETENTBSOE 


i 2 ae _ : . z : 3 ‘ etter - 3  § 
IRM MAINTEMARCE DIAGROSTIC PROGRAG ae PART 80. 5129688 | _ 18M MAINTENANCE DIAGNOSTIC PROGRAA a : . PART #O. 5129688 
| 
184? 4CC7 7820 1331 pc AL2 (BTO6) 
! 


000000000008 00060 F000 ee @ @ 


a oo Oo 


17DE 00000000 17£1 1268 HOO000O pC XL4*00000000°* 3A24 OF 1821 1332 pc IL1*15* SIT 5. 
1782 ODDD 17£3 1265 BSYTIM DC XL2*OpDD* READ/WRITE BUSY TIME-OUT VALUE. 1822 132 1823 1333 Dc AL2 (BTOS) 
17E8 1870 17¥5 1266 ENDOT DC AL2 (FILD) 1623 OA 1828 1338 pc IL17*10¢ BIT &. 
V7TE6 182 1727 1267 ENDO2 DC  AL2{(PILDe2) 1825 1Ck3 1826 1335 pc arzterey) 
1728 109A 17£9 1268 ADRO1 DC AL2 ("OVS+1) ADDRESS OF BYTE LOCATION. 1827 OF 1827 1336 DC IL1*15 ‘BIT 3. 
I7EA 18CC 17EB 1269 ADRO2 DC AL2 (CHEDS) ADDRESS FOR OPTION SETTINGS. 1828 1€99 1829. 1337 DC AL2 (BTO3) 
IVEC DEB 17ED 1270 ADRO3 Dc AL2 (READIN) ADDRESS OF READ/SRITE AREA. caee aces sese ee =< an BIT 2. 

1271 

1c FFE 0459S $0FE9E FE TSESE 3982p 15 182D 1340 pc IL1°29°9 BIT 1. 

1273 © RESERVED AREAS * W2F 1079 182P 1384 pc AL2 (8T0 1) 

1274 SO EFE 0 $56 £44644 S FEES KEEEKEEEEEES ESSE EEEEESERESEEESEDEEE EEE OOOEOEESBERD 7830 05 1830 1382 Dc ILit5¢ BIT 0. 
I7EE 00000000 17°71 1275 TEMP DC XL& *00000000* TEBPORARY 1831 1C68 oe Nice meee ee Bez (ere®) i te teen EA ee al ete 
17F2 1276 SEEKO EQU ¢ z a 
17F2 000000FF V7FS 1277 DC XL&* O00000FF* CONTROL FIELD TO SEEK CYL. 0. 1933 OD 1833 1365 pc IL1*13° BIT 5. 
V7P6 17F2 17F7 1278 RCALA DC AL2 (SEEKO) . 1938 ices 1835 1386 pc AL2 (BT35) 
17P8 1DEB 17F9 1279 DARA DC AL2 (READIN) 7836 06 1836 13487 oe IL1*6 BIT 0. 
17FA 00 17FA 1280 UDT DC KL1"00* UDT FLAG BYTE. 1837 1¢D7 es Den. eee iPtse) Sore decane ene miRee 
17FB 10D7 17FC 1281 CCW DC AL2 (ILCCw-3) CONTROL FIELD ADDRESS. 1839 1349 OPTSW1 EQU) ® : ; ots cot ; . 
17FD 1DEB I7FE 1282 DAR DC AL2 (READIN) READ IN FIELD ADDRESS. C 1839 FPP? 183A 1350 bc Breet ee UNDE De 
17FF 0000 1800 1283 LSEKA DC X1L2*00008 LAST SEFK CHND’S F & C BYTES FOR -a- 1833 a060 183C 1351 DC XL2 apoo* SEEK. 
1801 0000 | 1802 1284 LSEKB DC  xL2*0000° LAST SEEK CMND’S F & C BYTES FOR -B- 183D A700 163E 1352 3 eee Bein Losers 
1803 0000 1808 1285 COUNT DC  xL2*00008 BUSY SIGNAL COUNTER. a 183P A109 a980, 1339 oe. ee eis Gricancee 
1805 00 1805 1286 SWANL DC XL1°00° SENSE SWITCH ANALYSIS BYTE. = 1881 A162 1882 1358 Dc XL2 n02 RED pater ° 
1806 0000 1807 1287 SVXR1 DC XL2°0000* STORAGE FOR INDEX REGISTER 1. ae a103 a“ ie Be See Cee 
1809 00 | 4809 1289. STSBY? pe | XLWODe STATUS BYTE 1. Oo. 1807 A203 waae 1357 De XL2"A201" WRITE IDENTIFIER. 

; c 7 A100" MULTI-READ. 
180A 00 180A 1290 STSBY2 DC =‘ XL1°008 STATUS BYTE 2. 1889 4100 ace aaes oe aera aa. SULTI-WRITE 
190¢ 00 180C 1292 eae De ar isbo: aannee Breen : Co iaab noes — 1BRE 1360 DC —_—soXL2* A000° SPECIAL SEEK COSMAND. 
MBER SFCTORS ABLE TO READ. | 1ABD A000 oe . 
DATE §13MAR70  O6APR7O 22MAY70 01A0G70 010CT70 28APR71 PROG ID osou-3 CO DATE %39AP70 = O6APR7TO = 22NAY70 = =01A0G70— OOCT79 Oeere be TD Cenges 
BC WO. 571512 571516 571513 571531 571580 571565 .  ° PAGE 10 FC WO. 574512 571516 571513 571531 —§71590 57156 
Co | Ce 
| 


| 
I 
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IBM MAINTERANCE DIAGNOSTIC PROGRAS PART FO. §129668 ‘TBH MAINTESANCE DIAGNOSTIC PROcRAaZ PRET 8O. $7929688 
ae 3 PAGE 79 oo: °e “ PAGE W738 5 
BOSe DISK FRIENDS TEST BOSG 8 _ DISK FRIENDS TEST 
ERR LOC OBJECT COPE ADDR STHT SOURCE STATERENT o 8 ERR LOC OBJECT COPE ADDR STNT SOURCE STATENP ST “ 
188F FPF 1850 1362 BC XL2¢PPPrs UNDEFINED. ©: 38 99A8 4&0 7949 1829 pe XL1* aoe ws 
1851 PPFP 1852 1362 BC XL2¢°PFFFP* | UNDEFINED. 1 18306 ~ 
1853 FFP 1858 9363 oc XL2¢*PPPrre UNDEPINED. 1821 sececeesesessseceses 
- $855 PRFF 1856 1368 BC XL2* Pree UNDEPINED. @ 8 1832 # RESSAGES * ee 
9857 9365 OPTSw2 £00 Py SWITCA 2 PLAG TRELE. 41823 SSSSESHSSSVESESCHS SESS SHSSTIWIS SOTO SESS SK STSE HOSES SESSH HTS FE 8OHESESEEEE SERED ‘wi 
1857 FP 1857 1366 pe XLI¢ Pre UNDEPINED. TDAS E2CSESUODEDIEICE 19C? 41638 INTRO DC CL3S*SF™ OPTIONS IN SWITCHFS, PESFET HALT? 
1858 ao 1858 1367 pc XL1°a0? DRIVE 1 - RAVBL - BD O e o ISAD B6DSEZNOCODSHOE? 7238 m 
1859 at 7859 1368 oc XLY*a%4* DRIVE 7 ~ RAYBL - #D 1 19BS FEC9OEIC3CBCSE263 1% 38 " 
FASA AB 785A 9369 pc XLi*age DRIVE 1 - PIXED - 8D 2 198D SOD9CSE2C5E360C8 1838 
1855 aS 1858 1370 pc XLitase DRIVE 1 - PIXZED - aD 3 ei1e 19C5 C1ID3E3 1438 
9785C BO 485C 1371 pe ELV! aos. DRIVE 2 ~ REYBL - HD O 18CR DEDTF3CSDEDS4HONO I9FP 71835 pe CLO6*OPTION CONBAND DRIVE READ? 
185) Bt 185D 1372 oc XLI*pt? DRIVE 2 ~- RHYSL - HD 1. 1SD0 ¥OsOCc3DED4SDECIDS 1835 
185E 36 IASE 1373 pc ZL1* pgs DRIVE 2 - FIKED - 8D 2 ele 19D8 C&h404040L20408080 1835 
1857 BS IASF 1378 pe XL7°BSs DRIVE 2 - FIXED - BD 3 I9EO0 80808 0408048 0C4aD9 1835 
1860 FF 1860 1375 pc KL’ PP? UNDEFINED. 19E8 CIESC5&O8048 04040 1835 
1867 FF 1861 1376 pe XL1¢° Pr UNDEFINED. 6:¢ 1SP0 CUCIE2ZD24G8 ONOKO 1835 
1862 FF 1862 4377 pc XLIC Prt UNDEFINED. 19F8 C8C5SCICHHOSONORO 7835 
1863 FF 1863 137A oc XLY°FF? UNDEFINED. 1809 D3DE6C3ICIEICIDEDS 1407 1436 CHRDNS DC CLS* LOCATION? 
qRER PP 1864 1379 pc XL4‘*Pre UNDEFINED. a TA08 CSE7TCSC3ESE3ICIDS 1811 1837 pc CLIO*EXSCHTING * 
1865 FP 78965 1380 pc XLU¢FPre | UNDEFINED. ¥ 1A10 C740 1837 ; 
1866 FF TRG6H 1381 DC XLI‘¢ Pre UNDEFINED. VA12 C3DEDALSCIDSCSE2 1421 1838 SUM pc CLIG*COWSANDS SUS@ARY® 
1866 1382 RYCSND EQU ¢-4 SWITCH 1 DEPINITIOWS TABLE. C & TATA BOEZESD4EDUCIDIEB 1838 
7867 OC 03 1956 TaAR5S 3393 ‘ VO PRT-77¢4) SK SEEK. oo IA22 COEQEZESCSCK4OAO 14830 14839 SUN2 oc CLIS*ISSUED CHECKS? 
186D Oc 08 1958 1AuE V3ARY HVC = PRT-72(9) , RDDAT READ DATA. ; JAZA GOC3C8CSC3D2ZE2 1339 
1873 OC OC 195P 1A5B TIPS MVC = PRT-~68(13) ,RDIDR READ IDENTIFIER. es @ 1A31 FOFOFOFOPOFO4040 1437 1840 SUR2 DC CL15*000000 0090008 
1879 OC OF 1961 AGA 1386 MYC) = PRT-66 (15) ,RDDIAG READ DIAGROSTIC aan 1039 SOPOFOFOFOFOFO 1840 
187F Oc OA 795) 1A75 13A7 MVC PRT-70(11) ,RDVR READ VERIFY. 1A80 E3D6E3C1D3IE2 TASS 3441 SUMH DC CL4*°TOTALS?® 
78285 oc 09 195C 4A7F 1388 MVC PRT-71(10) ,WRDAT WRITE DATA. a TASH DYCSCICUHOCKECTES TAME 1842 RDDAT DC CLO*READ DATA? 
1888 Oc 07 195A 1A87 1399 HVC) 8 =—s- PRT-73 (5) , WRID WRITE IDENTIFIER. TASE Ci 1882 
1891 OC OF 1942 1CP& 1390 MVC PRT-65(16) ,RDMUL READ MULTIPLE. VASP DICSCICH4DEIDIC1 4A58 1843 RDIDR pC CLII*READ TRACK Ip? 
1897 OC OF 1962 1p04 1391 AVC PRT-65(16) ,WRMUL WRITE MULTIPLE. © Cc 1A57 C3D240C9CH 4843 
7189p Oc OC 195P 1AA5 13S2 YC PRT-68 (13) ,SPCLO1 ONE-TIME SEPK. TASC DSCSCICHHOCRCSCI 1A6A 1444 RDDIAG DC CLIS*READ DIAGNOSTIC? 
18A3 1393 IDHEAD Eou ¢ SWITCH 2 DEFINITIONS TABLE. TAGE CTDSDEEZE3CIC3 TaG8 : 
1843 FIDSFO 1BAS 72398 Dc CL3*1R0¢ DRIVE 1 RAVBL HD O nn TR68 DICSCICREKLOESCSDS 1475 1445 RDVR DC CLIT° READ VERTFY?* 
TRAG FIDIPI 18AA 1395 pc CL3*iRV DRIVE 7 RAVBL 8D 7 se 1A73 C9C6FS 1445 
1849 FIC6F2 WRAR 1396 pc CL3°1P2¢ DRIVE 1 FIXED #8D 2 1A76 EGDOCSEICS&OCHC1 TA7P 4446 WRDAT DC CLIO*WRITE DATA? 
WAC PICHFI 18AE 1397 pc CL3*1F3* DRIVE 1 FIXED #D 3 0.66 WAVE £3C1 1496 
TAP F2D9FO 1881 13998 DC CL3*2R0* DRIVE 2 RAVBL 8D O FASO EGDSCOIE3CSAOCICS 1A87 14647 WRID DC CLS*WRITE ID® 
1882 F2D9F1 18348 1399 DC CL3*2R1° DRIVE 2 RSVBL 8D 1 {R88 C3ICIDSYODEDSDIEB 7A98 14648 Dc CL17*CAN OWLY HAVE 1, °° 
18BS F2CHF2 4687 1200 pc CL3*2F2* DRIVE 2 FIXED HD 2 ° 7A90 SOC8CTESCS4OFIEB 1988 
¥RBR F2ZC6F3 WABA 1801 pc CL3*2F3¢# DRIVE 2 FIXED #D 3 G 4A98 40 1848 
18B8 1802 "AXSCT EOD # CORE VS SECTORS TABLE. 1A99 DEDSCS6OE3ICIDSCS 1AA5 1449 SPCLO1 DC CL13* ONE-TIME SEEK? 
16B8 PP 18BB 1803 “oe XL1* Pre CORE SECTORS 06° TART SOF2C5C5D2 1849 
7aBC FP 18BC 1408 pc XLi¢ Pre = TAR6 “OD6BD7E3C9D6DS5 TAAC 1850 YNAN pC CL7* OPTION® 
IABD O02 18BD 1805 pc XL1*02? 08 K 2 TRAD CUDSCUESCSYOE7T4SO FABD 1851 SPDNR DC CLI7*DRIVE X KOT READY? 
1BBE 10 18BE 1806 DC XL1°708 12 K 16 G 1AB5 DSD6E340D9C5C1C4a 1851 
183F 20 18BF 1907 oc XL1°20° 16 K 32 G JABD ES 1451 
18C0 FF 18CO 1808 pc XL1*PPe TABE CSD5SCUKODECE4OE3 1AC9 1852 LSTONE DC CL12*EXD OF TABLE? 
18C1 30 1R8C7 1809 pc XL1°30¢ 24 Xx a8 3 TAC6 C1C2D3C5 1852 
18C2 FF “18C2 1410 pc XLItrre Cc JACA E3ICIC2ZD3C540C6C9 TADS 1853 FILUP DC CL12*TABLE PILLED® 
18C3 30 18C3 1411 Dc XL1°30# 32 Kk a8 TAD2 D3D3C5CH 1853 ~ 
18CG PP 18C&’ 1412 Dc XLI°FPFe = S IAD6 EIDICICIDZ4OROFO IADE 1854 TRACK pC CLO*TRACK 00* 
18C5 PF 18¢5 7613 pCO s«XLY °F Fe ad TADE FO 1458 | 
18C46 PF TACK 1414 pe XL1°PFe JADP E2CSC3E3DED94OFO 1AE7 1855 SCTR DC CL9O*SECTOR 00? 
18C7 FF 18C7 1815 pc XL1°FPe O 1AE7 FO 1855 
18C8 PP 18C8 1816 DC XL1‘*Pre Cc : 1AE8 CUDICIESCSYOE7T4LO 1800 1456 BRATE pc CL25*DRIVE X RECALIBRATE CHECK® 
18C9 FP 18C9 1417 pc XLI'FFe TAFO DICSC3CID3C9IC {NI 1856 . Bye 
1418 © MISCELLANEOUS STORAGE AREAS. cS TAFB CIE3CS¥OC3CRC5C3 1856 
18CA FOFO 18CB 1819 pc XL2*FOFO? RECALIBRATE FLAG. c 1B00 D2 1856 2 
18CC 1820 CANDS EQU ®* 1801 CIDEN9CSHOC9ID4EC1 1B32 1857 INGE DC CLSO*"CORE IMAGE - COMMAND XXXXXX CONTROL FIELD XUXXXKXXX* 
18CC I8P3 1421 DS CL40 DISK COMMANDS TABLE. ~~ 1B09 C7C5K060L0C3DEDa 1857 
18FO 1422 FILD ¥EQU) *-a wo 1B11 D&CIDSCK&OETETE? 1857 
18Pa 1918 1423 Ds CL&0 SUMMARY COUNT TABLE. 1B19 EVE7E740C3 D6DSF3 1857 
191¢ 1943 1428 Ds CL40 ERROR COUNT TABLE. _ = 1B21 D9D6D3480CECICSD3 1857 
1944 19485 1825 SIs DS CL2 SUSMARY OF CNSDS ISSUED. ce 1B29 CUHOETETEVETETE? 1857 
1946 1947 1826 SCK DS CL2 SUMMARY OF CSNDS CHECKS.  1B31 EVE? 1457 
19288 1948 14827 DS CL1 CLEARING BYTE. 1B33 C4UDICIESCSYOETUO 1B46 1458 STSCK DC CL20°DRIVE X STATUS CHECK* 
1949 1943 1428 PRT Ds CcL91 PRINT AREA. ec Cc 1B3B E2E3C1E3E4E240C3 1458 
DATE 13¥8AR70 ‘O6APRT7O -22"aY70 01A0G70 010CT70 28aPR71 PROG ID OB0a-8 c 36 DATE 13MART70 O6APR70 22NAY70. 01A0G70 010CT70 28aPR71 -PROG ID OR0u-8 
fC WO. $71512 571516 571513 _§71531 571540 571565 PAGE 41 EC WO. 571512 571516 571513 571531 571540 571565 PAGE VIA 











2 7 elie | | | 2 
IBA MAINTERANCE DIAGKOSTIC PROGRAR . PART #O. 5129686 | IBA MAINTENANCE DIAGNOSTIC PROGRAN : PART WO. 5129648 
ay PAGE 12 - ao, : PAGE Fa 
mee a Pe @ie 2 
- pO84 DISK FRIENDS TEST | BOYS . DISK FRIENDS TEST 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATENENT eis ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4883 CB8C5C3D2 1658 € 6 1D15 SOE3DEU0E2CSD3C5 18863 
1B&87 E26B80C9ODSCSEICE 1850 1459 STCKIN DC CL10°S, INITIAL* IDID CIEZSOCBCSETRODS 1883 
TBSP C1Dp3 1859 : 1D25 ESDeC2TSD9NODSCE 1883 
1851 E2ZE6C9EICICBUOE? 1364 1460 BIGSSH PC CL20*S#WITCH xX IS IN FRROR* ¢ | 6 ID2D SOE2CS5C3EIDSEDIEZ 1883 
1859 &O0C9E240C 9D54 0C5 1660 ! 1D35 4&6 1483 
1R61 DIDINSDI 1460 1D36 EID64UOOUNROLOSO ID3D 1488 SECSET DC CLAtTHE 
1B65 EZE6C9IEIC3ICBCSEZ2 1889 1461 LRGSS@ DC CL37*SHITCHES 3,4 TOO LARGE FOR THE® se ID3E C3ICIDSUODSDHE3K80 1D65 71485 XCED DC CLOOTCAN WOT SPECIFY #ORF T4HRN 4FX xR SECTORS? 
IBAD 4OF36RF4S0E 3DEDE 1861 ¥ 1D86 E2D7C5C3C 9CKERSO 1885 
1B75S BODICIDSCICSHOCE 19614 IDE DEDEDSCS4OE3CBCI 3585 
iB7D DEES4OFICKC5HOKO 1864 Cc 6g 1D56 DSSOCBCSETROEVET 1485 
4PAS 4ONORDHO“O 9461 ¥ IDSE BOE2CSC3E3DEDIE2 4885 
1BBA C6CIETCSCHROCYCS 1897 7862 pc CLIG*PIXED DISK OF ? IDh6 E2EICIDSE3CIDSC? 1093 148h VRUB pc CLUG*STARTING S®*CTOR PLIS WIMRFH YS GREATER THAN &R? 
1B92 E2D2KNO0D6CHR0 1862 oc 8 ¢e IDGE SOFICSCIEIDED9NO 1486 
1B98 CUDOCSIESCSSOF2Z40 IBAA 41463 NOSPB pC CLIG'DRIVE 2 ROT DEFINED® ve 1D76 DIDIEME2QVODSESDS 1486 
TRAO DSDGE340CEC5SCEC9 18663 IDTE C2CSDIBOCSIEZKOCT 1886 
IBAB DSCc5cu 9663 GC @ 1D86 DICSCIEICS DIBOEI 1886 
TBAB CULICSFSCSSOFT7T4UO IBBP 14648 BSYLES Dc CL21*DRIVE X BUSY TOO LoRG* = IDBE CACTIDSSOPUFS 18 86 
1B83 CZ2ESF2ERS OE 3D6 DG 1868 1D94 CBCSCICSKOE2ZC5D3 IDAT 14887 HDBD pc CL20*° HEAD SELECTION CHFCKE 
1BRBB YODIDE6D5C7 1866 o e 1D9C C5C3EICSDED5SHOC3 1887 oT 
IRCO CICIDSDSDEEIBOESR IEP 1465 STUPID DC CLUR*CANNOT DSE TRACKS 4-6 OP &7-4B ON REMOVABLE DISK* * IDA CBC5C3D2 1087 
IBCR E2CSHOEIDICICIN2 1865 IDAS C3ICIDSDSD6E340CI IDC2 14888 MIXOP DC CLZ7*CANYOT INTEP!ITE OPTIONS T,A° 
IBDO E280F860F 640D6 D9 "94865 r. e 1DBO DSEICSDSODUECIET4UO 1888 
1BD8 SOF&PT60F4C250D6 14965 i IDBS DED7TE3ICIDEDSE2Z4NNO 1488 
IBEO DSYONOCSDEDGESCI 1065 DCO P16BC1 188A 
IBEB C2DICSVOCECOF2D2 1865 es € 1DC3 DIDSESC2D3 1DC7 1889 RMVBL pC CLS*RAVBL? 
IBFO CUCTEICI“VOCUEY DS BFR 1466 DEPOP DC CLO*DATA DUMP? = 1DC8 CUDICIESCSAOETKO IDDD 1490 SHELL DC CL22°DPRIVE x YYXED uD xe 
IBFB D7 1466 1DD0 SO“OCECSETC5CB84UD 1890 
1B?9 C3IDADSEIDIDEDI4O 1015 1867 IDFLD nc CL2Z9*CONTROL FIELD READ — XXXXXXXX! o 1DD8 BO“OCACRSOET 1890 
1C01 C6C9CSDICAHODICS 1067 ke € IDDE C3CIDSDSDEESMOEN IDEA 14691 KNOTO pC CL1I3*°CASNOT USE 90° 
1009 CICUUNEOROETE7TET . 1867 IDE6 E2CSHOFOFO 1494 
1C11 EVEVEVEVE? 1467 QO 1492 CHESHESSSSSESE SEES SES ESSE SESE SEO E SES ESEES ESET OESENESEHSESSESEDESS OSES 
1C16 DICSCICUKOCICKSO 1039 1868 SKITCK DC CL36*READ ID CHECK, EXPECTED XK ACTUAL XX* & 1DE83 1493 READIN EQU * * 
ICIE C3C8C5C3N263480C5 1868 1494 K8eteeeseseoes BEGINNING OF DIS READ/WRITE FIELD. * 
1026 EVLD7CSC3EICSCHHO 1868 : 1895 * = 
IC2E EVFETLOCICIEIESCI 1868 Ss @ 1496 SKFEKTEE SKSSSETSSSHSOKSHHSESTAE SESS SHEHKESEHKHEEES HEHE SEKHEEEEREEEEKEEEEEEEEE ED 
1C36 DINOETET - 9468 —s IDES DICTETCIDBESPHRO 1£E1B 1497 HDSUB DC CLYO*MAXINUM NOSBER OF SFCTOPS TO READ/SWRITE IS HEX xy? 
1C3A CUDICIFSCSHLOPT7T4NO 1C4HB 1869 RISZY pC CLIS*DRIVE xX IS BUSY?* on e IDF3 DSEUDEC2ZCSDINODS 1497 
1C42 CIE2ZUOC2ZFUEZEA 1869 i IDF3 Ch640E2CSC3E3DED9 1497 
ICUI CUDICIESCSHOETKO ICS" 1470 NRZY pc CL23*DRIVE X DID NOT GO 3uSY* 1E03 E24OE3T640D9C5C1 1497 
1€51 C¥C9ICS4ODS DEF300 1870 n 1E03 C4U61EBL9SCIE3C54UO 1497 
1€59 CTDA4YOC2ZEGE2ZES 1870 Me ts Sc 1E13 COEZ4OCBCSETUOE7 1497 
1C60 D5D660D46D7 1C64 1871 BTOO pC CL5*NO-OP* 8 1F18 £7 1097 
1C65 CIDSEICSDIESCSDS 1079 1872 BTOI Dc CL21"° INTERVENTION REQUIRED? oe sie TEC CUCTE3CIMOC2ESE3 TE4C 1498 ALTPAT DC CLUO*DATA BYTE -FF- AT XXXX GEKEPATES WRITE DATA FIELD® 
IC6D EICIDSDSRODICS DB 1872 . ~ 1228 C5¥060C6C66040C1 1498 
1075 Eacopscsca - 9072. 1E2C EXUOEVEVEVETUNCT 1298 
IC7A DSDE4OCICUCUNICS 1ICBA 1473 B8TO2 pC CL17*NO ADDRESS MARKER® ry 1E34 CSDSCSDICTE3CSE2 1498 
1C82 E2E280pac1D9DI2Cc5 1873 bo VY 8 1E3C 4OE6DICIE3C540CH 1898 
JCBA DI 1473 TEUB C1E3C1TR0CECIC5D3 1898 
1CK8B CSDSESCIDIDACSDS 1€99 14748 BTO3 DC CLIS*EQUIPMENT CHECK®* O TE4c ca 1498 
1093 E34¥0C3CKCSC 3IP2 1474 3 c JERD C3CSYOE3D9CIC3D2 IESE 1499 CFLOC DC CLI8*°CE TRACK IS HEX xx* 
IIA CUCTEICINOCICRCS 1CA3 1875 BTO’ pc CL10* DATA CHECK® 1E55 4OCSE2Z4OCACSETES 1499 
1CA2 C3D2 2 14875 mm fom 1E5D EVE7 1499 
1CA4 DSD640D9C5C3D6D9 1CB2 1876 BTOS nC CL15*NO RECORD FOUND? Mee TE5F EZEACIEIC3ICBUODG 1£78 1500 STERT DC CL29"°SWITCH OPTIONS STORED AT XXXK? 
AICAC CUSOCHKT6EERDSCSE 1876 | IEG? DIEICIDEDSEZUOE? 1500 
1€33 E3D9C1IC3D240C3D6 ICC? 1877 BTO6 oC CL21* TRACK CONDITION CHECK® a 1E6P EIDEDICSCH4OC1E3 1500 
ICBB DSC&CIFICIDSDS HO 1477 SL 1E77 SOEVEVE7F7 1500 
1CC3 C3IC8CSC3D2 1877 ; TETC DICSCICRETE6D9CO TE9F 1501 STRFLD DC. CL36*RFAD/WRITE DATA FIFLD STARTS AT XXXX° 
1CC8 E2C5CSD240C3CBCS ICcD1 1478 BTOT pC CL10"*SEEK CHECK® co | in TE8K EICSHOC8C1TE3C140 1501 
ICDO C3D2 1878 — Me ee TERC C6CICSD3ICK4OE2ZE3 1501 
1CD2 EYDSF2C1C6C5 | 1CD? 1879 8T30 c CL6"UNSAFE?* 1294 CIDOFIEZNOCIE340 1501 
1CD8 CSCSCICULOE2ZCSES 1CE4 1880 BT35 nC CL13*HEAD SETTLING* age SE Sse 1E9C EVEVETET 7501 
I1CEO E%D3C9N5C7 1480 $5 a = 1EAO FSFSUFSFUROCUCIE2 1EB4 1502 BHDBOS pC CL21°54¥4 DISK FRIEND TEST® 
ICES DICSCICSHOGOFOFO ICF& 1481 RDEUL DC CL16*READ O00 SECTORS® TEAS D2UCCED9C9CSDSC4 1502 
ICED 4YOE2ZCSCIE3IDED9E2 71481 ele see 1E80 SOE3CSE2F3 1502 
ICF5 E6DSC9IEICSYOFOFO 1D08 1882 WRATL pC CLI6*WRITE 00 SECTORS*® Mee > ee 1£85 CUCSEZD240EUCKHE3 1EC2 1503 UDTCK nC CLIU* DISK UDT CHECK® 
ICFD SOF2ZC5C3IE IDEDIE2 1482 | 1EBD 40C3C8C5C3D2 1503 
1D05 EWVE2CSHOE2ZERCIES 1D35 1883 pc CL&9*USE SWITCHES 3,4 TO SELECT H®X NUMBER OF SECTORS? , a cae 1508 
IDOD CICKCSE2ZKNOFIG6BFS 1883 C ae 1505 FEES EKESESES ESE ES EHEREREEE SE EEERERE CEE CEES SER ESESEEREREEE SSE TORRES EDS 
DATE 13MAR70 OfAPRTO 22MAY70 0 1A0G70 010CT70 28APR71 ' PROG ID OB04-8 c o DATE 13M ART70 O6APPT70 22"AY70 01A0G70 010CT70 2RAPR7A PROG ID OROG-4 
EC NO. 571512 571516 571513 571531 5715480 571565 PAGE 12 EC NO. 571512 571516 571513 571531 5715380 571565 PAGE 2A 
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i | | 9/0 | | : Ss 
ws SRINTERANCE DIAGKOSTIC PROGRAN PERT RO. $729688 | IBA HAIVTERARCE DIAGNOSTIC PROGRAT . i. oer #0. : 
i ee . <9 pace 30 ¢ |e P 3 

“pOee DESK FRIENDS TEST | | | | sous = DISK FRIZWDS TEST a | 2 
Pa , ; : 2 : i { S. . ; oa se .: ° a: 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT 6 { : ERR LOC OBJECT CODE | ADDR STAT SOURCE STATERERT ‘ ; es 
in . , | 1506 © SETODT * & 8 ° sep 38 20 1!rat VS74 TSR 8 UDT,%*20* THIS 1/2. CAP DISK ? am 
. +oo8 WE ONY FIN 2 1FS1 F2 90 68 " 9975 SF 0 a7 _ « JOSP IF wot. * 
: ns tees a Pe Sue ae. SET eee cae Lat erat iccorernne: * TPS8 3C 67 I7F1 ; 576 avi TEMP, 103 SET UP FOR 1/2 CAPACITY. 
ae 1509 © 8 € ° 1F58 CO 87 0212 : 1577 8 GePACK . OWPACK CE TRACK ID. * 
1510 © UDT FLAG BYTE ‘ODT’ IS AS FOLLOUS- e coe es ee oe me oe | 
1511 «© or . * : ; 

s sITt MEANING * 1PSP TESE aF60 1580 pe AL2{CELOC)} eo * 
sea * . , « 9 6 1762 CO 87 021£ 1581 B UNPACK UNPACK SHITCH STCRASF ADDRESS. 
151n © 0 SPINDLE -1- DEFINED. * 1F65 02 1F65 1582 _ ee IL1#2° : 
1515 «© * e TF66 1728 1F67 1563 pc AL2 (ADRO2) 2 
1516 *® 4 SPINDLE -2- DEFINED. e 6 P68 TE7B 1F69 158¢ pc AL2 (STENT) z 
S17 © * 1F6a CO 87 0212 1585 8 UNPACK UNPACK RFAL/SWRITE FIELD ADDRESS. 

1518 * 2 SPINDLE -1- HAS HALP CAPACITY. * 9/0 ce pee bike a S a eae a 
qa51ic ; * i ‘ . 
1520 * 3 SPINDLE -2- HAS HALF CAPACITY * i 1F71 1E9F IF72 15886 Dc AL2(STRFLD}. : na 
1923 © - * o| © ¥F73 3C 60 1978 1589 AVI PRT-80,ct-* G2MFRATE LIRE OF *-*S. * 
1522 ¥EOROO ESOT 8666S EEEE ESTE EEE EESEEES EEE RENE ESE 6 EES6EEECEEDSOESEEE BO ae ee 31 197A 1978 : ~ SVC = «—-PRT-&1(50) , PRT-a0 Said OS eee gi 

9523 , tT? cO 87 O2i7A 1591 B PRINT : - " e -*S. 
1520 FOCESSCE FEE SEEESEEEEES FE EEE SHEE EEEEEEEEEEEEE ES EEE ES FEHRESESESEESEESESEEOE Oo ® 1FRt 01 FBI 1592 DC XL4*01* 
1525 PROGRAM NOTE ; _ tFA2 SB IFB2 1593 pc ILa*9O1* . 
1526 THROES SEEEEESSEESESEEEHEE SOEEEEEESEEESEESESESE HESS SEEEESEE ES SRESSEESESS 1F83 29A3 TFB 1594 pc AL2 (PRT) . as te ze -_ 
1527 * THIS SUBRODTIVE IS RUN ONCE AND THEN IT IS DESTROYED. AFTER * Oo @ 1F85 cO 87 021A 1595 8 PRINT : PRYNT PARTIES SECTCS TO READ/SUPITE. 
1528 «© THE FLAG BYTE IS DEFINED, THIS SUBROUTINE BECOMES PART OF * see = ae. oe a as 
1529 © THE DISK READ/WRITE AREA. * : 
1530 SOS S EES EEE ERE EEKESEEREREKS EEE EOEEESEEEES EE KO EE EEE S EG 4ESOEEEKESSEKEEES ER CG ! e 4FSB 1518 FRc 1599 pc AL2 (HPS93) . ey 

VFC3 38 20 OAOR 1531 SETODT TBS AUDT-1,%"20° SPINDLE -A- DEFINED ? a | 1F8D CO 87 O21A 1599 B PRINT : PRINT CE TRACK LOCATION. 

VEC? F2 90 O48 1532 J? *+7 sump IF wot. 1791 01 1F91 1600 pc XLi*O91 

VECA 3A BO ITPH 1533 SBN uUDT, x*80! TURN ON SPINDLE -A- FLAG. GC : @ 4F92 42 4F92 1601 DBC IL1*18* 

*ECE 38 20 OADGE 1534 TBN BUOT~-1,X'20* SPINDLE -B- DEFINED TO DCP ? 4F93 IESE 1F94 1602 pc AL2(CELOC) Len ss 

TED2 F2 906 08 1535 JF +7 JUGE IF ROT. ; 4F95 CO 87 O2TA 1603 _. B PRINT PRINT ALTER ADDPESS. 

1205 3A 80 17PA 1536 SBN UDT,X*SO° | SET SPINDLE -B- FLAG BIT. Co @ 1F99 01 1F99 1604 DC XL1°OT* 

T£2D9 39 CO 17FA 1537 TBF uDT, x°co? ANY FLAG BITS SET ? : Sioa aene ace oe st hoses 

A4EDD P2 10 £3 1538 JT ERUDT GO PRINT MESSAGE IF NOT. 60 RLTERTY f. os 

VE5O0 36 02 GAOT . 4539 TBN ADDT,CaP2 100 CYLINDER FIT ON ? oO 6 1P9D CO 87 O2ZTA 1607 3 PRILT PRINT ADDRESS FOP SWITCH STAPAGE, 

; EES F2 390 O8 1540 JF *+7 JUSP IF WOT. TFA1 01 IFA? 1608 pc XLIUGI 
_ EF? 3A 20 17PA - 15481 SBN UDT,x*20* SET SPINDL -A- HALF CAPACITY FLAG. hey quae 7 ice 6s Ris eteesi 

TEES 38 40 17PA * 7582 TBN UDT, X* 40° SPINDLE -B- DEPINED 7% 

TEEF F2 90 08 1543 JF PARE JUMP IF NOT. c1¢ 4PAS CO 87 021A 1611 R PRIET PRINT PEAD/WRITE ADDRESS. 

TEF2 38 O02 OAOF 1544 TBR BSUDT, CAP2 190 CYLINDER BIT OW ? ie a. aaa acts os ae nee 

4EFA F2 90 G4 7. 9505 JF *+7 JUMP TF NOT. ; A / 

TEFO9 3A 10 T7FA | 4546 SBN UDT, X° 108 SET SPINDL -B- HALF CAPACITY FLAG. 0 6 FAB 1TE9F 1Fac 1614 BC AL2(STRFLD} oe 
SUT OES EAESEEEHERESEEE EEE EEEEEEK EEE EEEKEESSEEEEEEEEHE SEED OEE EEEEEHEEEECESREEESE IFAD CO 87 O21TA 1615 B PRINT PRIN® LINE OF *-*S. 
1548 © PRINT PROGRAR TITLE AND INPORMATION FOR THE CE. * Q @ 1FB1 048 : 1FB1 1616 pe XTL1°OS* uo, : a 
FSU SEEEESSEEETEEE ES EKEEEEEEEEE EERE EKEEE EEE EEEEEES EE EEE EEE ED EEEEEESEEEEEEEESS 1PB2 SB 1FS2 1617 bc ILO 

TEFD OC SA 1943 19A4 1550 PARE AVC PRT (91) ,PRT+1 CLEAR PRINT FPIELD. ie Spa sents TF BR a ae eee ay ene cee) Gp ete aniiee wees 

1FO3 OC 14 196R EBS 1551 avVC PRT-~59 (21) ,HDPOS BRING IW TITLE. O oS , ; ° one - ‘ “ 7s 

, 's r 7 v BEGIN¢ BYPAS MODIFY BRANCH INSTESCTION. 

Coogee | apap 4853 De «xLIF018 See ore 7 iFPP CO 67 OAI4 1621 3 60OBEGIN GO START PROGRAS. 

'.  4POE 58 FOE 1554 pc IL1*°91° ole 1FC3 CO 87 O21A 1622 ERUDT B PRINT PRINT ODT CHECK. 

fa POF 1943 4FI0 1555 pc AL2 (PRT) TFC? C6 1FC7 1623 pe XL1°C6* ID -AOPA-. 

pe F117 68 O2 17F1 0202 1556 ANZ TENP,SIZE-1 ISOLATE CORE SIZE. ' IFC8 OF FCB 1624 pc IL157a* 

Ue WFI7 C2 01 1ABB , 1557 LA MAXSCT, XR1 LOAD TABLE ADDRESS. 0 | 3 FCS 1EC2 1PCA 1625 poe AL2 (UDTCR) 

1F18 36 04 17F1 4858 A TEMP, XR1 INCREMENT POINTER TO CORRS TO CORE. | 1FCB AOEA 1FCC 1626 pc XL2°AOEK* en AL? <Eaq 
_<IFIUP 7D FF 600 1559 CLI 0 (, XRT) ,X* FF THIS AW INVALID SELECTION ? : ice 7 87 0222 — alee ae Be he ERROR H ° 
- 4F22 F2 01 07 1560 JNE wosOo JUMP IF NOT. 5 FDT AOEA 
~ + 4F25 3C 02 180C¢ 1561 SVI SAX,X*02° SET MAX SECTORS FOR READING TO 2. 6 0 4FD3 CO 87 1EC3 1629 B SETUDT GO TRY IT AGAIN. 
“ ) VF29 F2 87 05 1562 J *+8 : ee Ss aouhers 

ies iF2c 1¢ 0 00 1563 Koso avec MAX(1),0(,XR1 STORE MAX NUMBER OF SECTORS TO READ. 

co AP co 87 onte 1564 : B ONPRCK’ Pate, UNPACK MAXIMUM NOMBER. oOo. .6°8 1632 ##8E8KS £EESET EERE EEEEES ESE SEES TEES ESE RENEE SEER ES SE ESSSEESO SESE SS EES SS 

pa SF35 OF 1F35 1565 pe ILi*19 0008 1633 ARR EQU x*o8* 

fo 4F36 180C 1F37 1566 pc AL2 (SAX) O Q 0222 1634 HALT FQU x* 222° 

} .. SF38 1E16 4739 1567 DC AL2 (HDSUB) 0216 1635 LINK EQU x*216* 

pas IF3A OC 01 1D5D 1£18 1568 NVC KCED-8(2) , HDSUSB SAVE FOR LATER REFERENCING. O21A 1636 PRINT EOD X*21A° 

o- “F420 CO 87 OC21E 1569 B UNPACK UNPACK ADDRESS FOR PRINTING. a Q 0212 1637 TEST EOu X*212* 

bi IFGR O2 1F8a 1570 be ILt*2°* = O21E 1638 UNPACK EOD X*21E* 

Le . VFR5 FTES TFR6 41571 pe AL2 (ADRO1) 0001 1639 XR1 EQU x*o7* 

ot TFaT 1E31 IFaR 1572 be AL2 (ALTPAT-27) Oo oC 0002 16480 XR2 EQU x*02° 
.  "tFuUS 3¢ CB ITF1 ' 4573 AVI TEMP, 203 PRESET CE TRACK ID. VEEA 1647 FIL EQU READLR+255 
ae = a-4 
DATE 13MARTO OEAPRTO 22MAY70 01A0G70 010CT70 28APR71 PROG ID opou-n O G DATE 13MAR70 O6APR70 22MAT70 01A0G70 e10cT75 2RAPRII eae ID a ete 
“Ec wc. 571812 571516 571513 571531 571540 571565 PAGE 13 EC WO. $71512 571516 571513 571531 5715860 571565 S 
| o 8 
es Oo .¢ 
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a Ss ee ast : : aoe ‘ - : a sgh ode fog as 3 ae iPad sia ‘ ‘ . A ate Cm ee eee 
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ror RATUTEMANCE DIAGNOSTIC PROGRAN ' ‘PERT ROL §129688 ISS MAINTESARCE DIAGKOSTIC PROGRAG . . PART FO. 51279688 | 
% : : : ted 
Rose = CDISK FRIEWDS TEST | 8088 8 = DISK FRIENDS TEST : 
eer Loc opsecr cope ADDR STRT SOURCE STATEMENT G : 9° | . CROSS-REF ERENCE . 
W7E1 17682 5000 Fou #0000 aa . 
0208 1488 SBYTE3 FON x*O0208¢ 
0001 1685 ss¥1? EOD x°01* | eens : eee eae SS ee 
0080 1646 ss#18 00 8 x*80* 6; 0 ADRO®T a 002 1759 1268 1574 “ 
0080 1687 ssH19 EOD x*uo* ADRO2 A002 ‘47EB 1269 1583 
PC20 1648 SSWIA EQD xX*20° ADRO3 A 002 I7ED 1276 1587 
ey ti aeee ss#i¢ £08 ee = 6; 0 ALTPAT A 089 1E8C 3498 1572 1606 . . 2 
cee sees sda ee Nd . " ARR C 001 0008 1633 OR816* O9617 0922* 0823 0889 0927 09528 0953 0955¢ 0956 1230 
dace: sees aero. ‘Eee eae, ele AUDT & 003 DADC 0020 1531 1539 a 
Sos ace oe eae grees A34 a 008 0C68 0266 0259 . ks 
NaeY Acta ches cue, eee - 7 BADHD a 003 OSE 0171 013% 0163 0166 
1A3P 1655 DECOO FON SUn3 €;c caste ; ose age aca Seee Uae One Pe * 
: saee a - c Es ita BEGIN A008 OA14 6062 1261 1620* 1621 1692 
: qauaceees bo a 3 clio BIGSSHY a 020 1868 1860 0326* 0328¢ 0332 “ 
. tees ices ace ee? aoe BISZY & 015 1C88 1469 VIRD® 1199¢ 1196  « 
tems SECO SRT ee! cen ae a BRATE A025 800 1656 0569¢ 0877¢ 087% OU7B8 1665 
sors teen cnpee woo tram | C/o Srey tem iit Soot 188 
co vce oe oo ag BSYLNG A021 IBBF 1868 1217* 1219¢ 1228 ‘ 
; TAPA 1668 RCLB  EQU  BRATE-6 6; 9 assis ; aa i763 toes ace - 
IBAA 1665 NODISK EQU wWOSPB 6 
BTSO A 00% 1818 1327 0903 
WA19 1666 HDO2? £09 Soni-s Cc O BTS3 A 002 1833 1388 
aoe ee BTOO a 005 1¢68 1871 1383 
1669 SSRN SES CERES eeEEKSeESEES SESE SES REREeSTESeEs ae : pe — ee iad 
1670 eee SETESKE $F FEKESESEKS ESEKRECEEEE Cc C BT02 A 017 CBA 1873 1339 
BTO3 a 015 1€99 1878 1337 
as ae BTOR a 010 CA3 1875 1335 
acne eats els BTOS a 015 1¢€82 1876 1333 
. teae pa BTOR aA 0241 1CC7 1877 1331 
. BTO7) a O10 IcD1. 14878 1329 
f aoe TREP cle ST30 A 006 1CD7 1879 1388 
1676 TREP BT35 a 013 ICES 1880 1386 
oe TREP BSUDT a 003 OAOF 90021 0106 1538 15484 
hte ed clo BUSY a 008 140F7 0652 0650¢ 
seas ies BUSYA A 008 1716 1189 0839 
BUSYB A 008 71D 1193 0857 
sees pals elo BYPAS A 002 17D7 1261 1620 
es eaee CAP2 C001 0002 1661 1539 1588 
seae eee ccw a 002 17FC #1281 0635 
a ee els CELOC A 018 ESE 1899 1580 1602 
eeee saa . CKHD1 & 003 OB36 0157 0158 
aa z CKID A 002 17D9 1262 
sees ce oie CKSUL a 003 OS8C6 0212 0198 
oes ooee CKOK a 008 15C2 1076 1071 1078 
oo. CKOUT A 008 1300 0827 0821 
eos nee 010 CKPRP A003 Oacd 0126 0101 0105 0107 
Aeieaees: P CKPRS A005 169C 1182 1139 
2 END SEGIN CXSEK A005 Oc&3 0257 0189 0196 
0 0 CKSWHD A 003 CB2A 0153 0133 
CKSW3 A008 O575 0183 0127 0129 0136 0152 90168 
CKTHS aA 00S OaABE 0099 0096 
° CKOO a 005 1568 1088 1036 1038 1080 
o CX1S a 008 «#11830 0711 390707 
CK16 aA 008’ 1053 0601 #0593 0596 
°° CLC A 003 OC76 0271 0262* 0263 0268* 0265 0268* 0269 0270* 
CLRB2 A008 OF57 0451 0432 
CLRCCW A 006 OFFB 0500 0892 0507 056% 0718 1155 
ee. PN CLROK AO0& OF1IA 0511 0505 
vw CHNDMS A 008 1A07 1836 0376 0747 0888 1018 1100 1165 1239 
. C™NDS A001 18CC 1820 0063 0377 0825 0890 0781 1269 1652 
O CO COUNT A 002 1808 1285 0651* 0654a¢ 
. | CRSCT A009 1AE7 1656 1129 1130 
DAR & 002 17FE 1282 0636 
alse DARA A002 17F9 1279 0821 1663 
‘ DARB A 002 17F9 1663 0859 
DATE | 
ee a5: aye ee 22mAY70 = OTADG7O = O10CT70 = _28APRII PROG ID opou-4 CO | S DATE 13SAR70 G6APR70 22"AY70 010670 010CT70 28APR7I PROG ID OROG-8 
rs 571531 571540 571565 PAGE - $8 Ec NO. 571512 571516 571513 571531 571580 571565 PAGE 1a 
ci? 
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IBS MAINTESARCE DIAGHOSTIC PROGRAA 


YT 


SY“BOL 


DATRK 
DECOO 
DECOT 
DISK 
DMADATA 
DROP 
DYORE 
DEP 
DAPOP 
DOCAL 
DOCALY 
PONE 


- DONE 


DOSEK 
DOO 
DUENY 
PUMPIT 
ENDIT 
ENDO 
ENDO2 
FRCNT 
ZRLRG 
ERMNY 
EWuDT 
ESCTR 
fSTS 
ESWi 
ESW2 
FTRK 
PIL 
FILD 
PILup 
FLAG 


GEL 
Gtyuit 
GNIT 
GOA 
GOB 
GOCLR 
GORTN 
HAIR 
HALT 


HANG 
HDSD 
HDBO4 
HDSUB 
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0000 3 DISK START 0 0453 3A 10 OF95 71 SBu PFLAG, X* 10* SET HAL? CAP FLAG. 
oagd a ORG x*a00* OAS? F2 87 26 72 J LOKS 
5 FEE SSE ESESESS OFS SESS SHOES SEEEOEOES SHE EEEEEDSE4E SE EEE FOE ESSEE EERE EESE OASA 3C 64% OFEB2 73 SET100 AVI TEMP, 100 SODIFY I8CR FOR FULL CAP. 
6* 9417/72 LAST UPDATE s OASE C2 01 0£32 9a HEY LA CENDS ,3R1 SET POINTER TO CONSARDS TABLE. 
J FPR SSOESESE SES EE EEE EE SEREOEDE SED EEE OE SEESEESESEERTEREEDE SEO SESESSEETS Oa62 YE OC O4 OFB2 7s. ALC & (1, ZR1) ,TESP SODIFY THE COMMANDS TABLE TO CORES 
B* DISK SYSTEM TEST MODULE os OA6&7 4E O00 O68 OES2 7 ALC 6(1,X81) , TEAP TO A FOLL CAPACITY DISK {ADD 100). 
Q FREREEE ESS SEEREEEEE EEE SSS BSEESEESEERESOEEEESSESEDSEEES O6006640060499928 OA6C &E 00 08 OF82 m7 ALC 8(1,%81) ,TERP 
10 * SECTION PREFACE * 0871 4E O00 OC OFS2 738 ALC 12 ({1,XR1) ,TESP 
42 O88 £9SS F865 68 SES SOSERESEEEEEEES EEEEESEEECEEEOSESEEEES SESE OO 940800792802 ree - ae a. os ao) 43 ALC 16 (1,281) , TEP 
On00 AOF6 oaot = 12 DC ZL2*a0Fr6® PROGRAMS ID AND REVISION LEVEL ATB 4E 6 OF82 so ALC 22(1,%R1) ,TEBE 
-*~ eons . OA80 38 20 OAOE 81 LOKB TBH BUDT- 1,X* 20° SPIFOLE -2- DEFIBED? 
0402 90 — oa02 89613 DC —s-XL1°00 SECTION FLAGS 0A8% F2 10 07 82 aT = 86.10 30%? IF BOT. | 
0a03 01 0a03 14 ac XL12401° CURRENT ROUTINE NUSBER 0487 3C 00 ODB4 83 #VI JRP4¢2,X*00* BODIFY JUBP COMMAND IB *SIO* 
Oa0Q4e 0000 oaos 15 pc XL2*0000* RESERVED Oat8 F2 87 13 88 J BUSY 
Oa06 0A11 GA07 = 16 DC = AL2 (RT#01) FIRST ROUTIHE ADDRESS OASE 38 02 OAGF 85 TBE =6BUDT ,CAP2 SALF CAPACITY DISK? 
OA08 OEAD goa0g 8017 pc AL2 (ERTAB) ERROR TABLE ADDRESS QA92 F2 30 OC 86 JP BUSY . @UBP IF 207. 
OADA 204000 exec 18 ADDT DC XL3* a0ugon* SECTION PREFACE UNIT DEF. TABLE Oa95 3a 20 0895 87 SBa FLAG,X*20* SET SPIEDLE ~2- HALF CaF. FLAG BIT. 
OA0B 861000 OAOPF 19 BUDT BC XL3* BO1)00* SECTION PREFACE OBIT DEF. OASS F2 87 05 88 J BUSY 
2D HSE SELESES EES SEREHESEREEE DES O4SESSSHESETESES EESEESS $0088 5240880040054 89 senecese 
21 *& PROGRAM ROTES _ 2 90 * BUSY * 
2Q SHEERS ESE SOE SOEEESEEEELESESSEESE ESE SEEES SEE 4EEEEES ESSE EEE TESST EOSES eee seeeseane 
23 * WARNIKG - DO NOT ALTER PROGRAM WITHOUT CAREPULLY STUDYISG HOE? ; 97 FESS EEE SESEE EE SOKEERECES ES FOEERESS $089 OE 49988454 O608E50099 
2a * **eeeee 8 8€6©6IT RUNS. TO CONSERVE CORE, FONNY THIAGS ARE DOHE;' * 52 * PROGRAN CHECKS TO BE SURE THAT * 
25 * ~BE CARE?FUL-. : s 93 * THE SPIEDLES ARE BOT IRITIALLY * 
26 * 2 $4 * BOSY. s 
27 * TO CCASERVE CORE, PROGRAB PAETS -RTNO1~— -CHPAB- -BUSI- -—BALF-* : G5 SESSSESSEEESE SE FOOSE S94E O9E9FSSEESTESEERDESEEEEEESESEESE £0448 6006588 5E SEER 
26 * NEED BE RUN ONLY ONCE. THEREPORE THEY WILL BECOME PART OF THE* oagc CO 87 OFS2 96 BISY B ERROR LOG ERROR ~ BUSY CHECK. 
29 * BEAD IH AREA. NOTE, A BRANCH TO -GOOF- OR BUSY- IRSTRUCTION * OaAd 02 GCaao = =97 BC IL7°02° *ID -02- 
30 * XS PLACED WHERE -BEGIN- IS. THIS WILL ERANCH OVER TSE READ * OAAl 3B 10 OFE3 98 BUSY SBF ALTID-1,x%*10* SET UP FOR DRIVE 1. 
31 * IN AREA.  @ QaaS C1 A2 OASC 39 TIO BISY,X*a2!* BPRAKCH IF SPINDLE ~-1- IS BUSY. 
32 CHEKSSEEEKESES SOG OEG 2EETSEEEEEOSEEEEESEEEEES EEREDREEEEEEOGES EES EEEEEDBEVES GAAS 38 20 OADE 106 TBE BUDT-1,%°20* SPIFDBLE -2—- DEFINED? 
33 * OAAD F2 30 08 sOq JF Cupar JUSE IF WOT. 
34 * GaBO 3a 10 OFE3 102 SBN HLTID- 71, x* 108 SET GP FOR DRIVE 2. 
= RECLDLS: OABY Ci B2 0A9C 103 TIO BISY,X*B2* BRANCH IF SPINDLE -2- IS BUSY. 
J] SHESSEE SES SSESSERESESELEDHESERS CHEESEEEELE SEE $OOESEEEESEEKEED O59E285008 104 #48 86¢¢40% 
38 * PROGRAM SENSES STATUS BYTES OF * 105 * CAPAR * ; 
339 * TEE SPINDLES AND CHECKS FOR ANY *# * 106 FF4 SEE SSEE SS EESESS ORESESEOEEEEEEESESESEEEERSE OS EE OE E9SEESEREESEROERERED 
ge ie 40 * . ERROR CCHDITIONS. * 107 * PROGEAR LOADS AND SENSES THE DISK? eo 
Q] SE SEESESE EEE EES HSS OSEDS SEES EEEEEEREESSTEEEEEOESERESEEESEEESEEETEEEEERET : 108 * BEGISTERS. A CHECK IS MADE TO e 
0at0 00 Q0a170 42 Bc XL1*° 00° PAD : 109 * EdSURE THAT THE LOADED DATA COs- * 
OAtl 01 oA 11 43 BTNO1 DC XL1°01° ROUTINE SUMBER 110 * : , PARES WITH THE SERSED DATA. * 
Oa12 00 OAt2 && pc ZIL1T° oo! HO SANYAL INTERVZETION REQUIRED VTL SHS BSR SHERSEEEEEES EHEEKE LES OCHEERESEEEEES EES ESEEETEEEEEESEOSTTEDERESE 
OATS FRFF Gals 4&5 ac XL2°*FPEF*  EASL ROUTIRE OABS 3B 10 OFE3 1312 CMPAR SBF BHLTID-1,x° 10° SET UP FOR DRIVE 1. 
0A15 30 A2 OE9P 86 BEGIN SS STAT1,X* A2* SEESE STATUS BYTES 0,1,2,3, FOR OABC C2 01 ORGB 9113 LA PATER, XB? _ LOAD TEST PATTERH ADDRESS. 
OA19 30 A3 OEFAI 87 SES STAT3, X*A3* SPINDLE -1-. GacdO 71 a& 60 114 Lio} LIo 0(,XR1) ,X*aa* LOAD DATA ADDRESS REGISTER. 
0A1D CO 87 OA3B &8 B CKST GO ANALYIZE THE BYTES. 0ac3 71 AG OC 415 LIO O(, 281) ,X°a6* LGAD COBTROL REGISTER. 
0423 38 20 OAOE &9 TBR BUDT-1,%* 20° SPISDLE -2— DEFINED? OAC6 30 AY OEDF 116 SNS STaTtT1, xX" aa* SENSE DATA ADDRESS REGISTER. 
0a25 P2 90 24 50 JF HALF JUNE IP Ot. OACA 30 a6 OzAI 117 SNS STAT3,X*A6? SENSE CONTBOL REGISTER. 
Oa28 3A 10 OFE3 51 SBu HLTID-1,X*10° SET UP FOR DRIVE 2. OACE 4D 61 60 OESF 118 CLC 0(2,XR1) ,STAT1 DATA re aoe REGISTER AS EXPECTED? 
OAD3 F2 01 &9 119 JNE AaSTK JURE IP wot. 
OazC 30 B2 OEIF 52 Sus STAT 1, X*B2° SENSE STaTOS prTg5 Oe le293 FOR OAD6 4D O01 00 OEA1 120 CLC 0(2,XR1) ,STAT3 CONTROL REGISTER &S EXPECTED? 
0A30 30 B3 GEA! 53 SNS STAT3,X* B3° SPIBDLE -2-. GADB F2 01 41 421 JWE ssTK JOSE IF BOT. 
0a34 CO 87 0a3B 54 B CKST GO ANALYIZE THE BYTES. OADE 7D a&B 00 122 CLI 0{,XR1) ,.X*aAs?® LAST TEST PATTERN? 
OA38 F2 87 11 55 J HALF GO CHECK DISK CAPA&aCITIgs. OAE1 F2 81 07 123 JE DAFLG JOME IF SO. 
56 * CHECK THE STATUS BYTES FOR THE SPINDLE {S).~ OAE4Y D2 01 01 124 LA 1(,XR1) ,XE1 INCREMENT TEST POINTER. 
OA3B 34 O8 OA46 57 CKST st STCK?3, ARR STORE THE BETURS ADDRESS. 
OA3F 36 10 OE9F 58 TBE 4 =STAT1,3°10" SEEK BUSY BIT STUCK O87 OAEs CO 87 OACO 125 B L101 GO TEST NEXT PATTERA. 
OaS3 CO 90 0000 59 STCK BF Ce BRANCH BACK I? OFF. OAEB 38 20 OAOE 126 DAFLG TBH BUDT-1,x*20°* SPINDLE -2- DEFINED? 
0a47 CO 87 OF52 60 B ERROR LOG ERROR ~ SEEK BUSY CHECK. OAEF P2 90 1F 127 JF CLIT JOBF IPF BOT. 
OASB 01 OagsB 61 .bC XL1°01° *ID -Oi-. jOAP2 38 10 OACl 128 TBE 1T01#1,x° 10° SPINDLE ~2 -REGISTERS CHECKED? 
62 teeease00 OAF6 F2 10 18 129 JT CLIT JUNE IF SO. 
63 * HALP * OAFS 3A 10 Oact 130 SBN LiIG1¢1,x*106° SET UP THE LIO'S ABD SEBS*S FOR 
G4 ERASERS CEES OSSEE SEEDS EEEEEOE EEE ESSEEESEERERESSEREEESHEEEEESEEETEEBERED OAPD 3A 10 O0aCcK 131 SBN LIOV4#s ,x*10* SPINDLE -2~ ADDRESSING. 
65 * DETERMINE SHETHER OR NOT THE * OBOT: 3a 10 OaC? 132 SBE LIO1¢7,x* 10° 
66 * DISKS ARE FULL OK HALF CAPACITY * 0B0S 3A 10 Gace 133 SBR LIO1411,x°10° - 
67 * AED SODIFY THE COMMABDS TABLE * GBO9 3k 10 OFPE3 © 138 SBR HLTID- 1,2° 10° SET UP FOR DRIVE 2. 
68 * ACCORDI EGLY. s OBOD CO 87 OABC 135 8 CHPAReG . GO DO SPIBLCLE -2- LIO AUD SES. 
OA&8C 38 O02 OAOC 69 HALF TBA AUDT,CAP2 HALF CAP DISK? O511 SC 09 06 07 136 CLIT AYC 6 (10,281) ,7 (,X81) CLEAR COBTROL FIELDS. 
OB%5 OC 03 OA18 OB27 137 BYC BEGIN@3(4) ,BRICH2 STORE NEG BRANCH ADDRESS. 
DATE O6APR70 228arx70 01a0G70 010CT70 28APR71 15NABR72 WITLI2 PROG ID OR0P-6 ; 
EC NOW. 571516 §71513 571531 5715400 571565 571591 571638 PEGE 1 DATE OSAPB70 22BAY70 0180670 010CT70 28 APR71 1SSAR72 1730£492 PROG ID OA OF-6 
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; BAGE : 2 ; av PAGE . 2a 
adFro DISK SE¥STEA TEST NODULE AOF6 DISK SYSTEA TEST BODDLE . ! 
ERR LOC OBJECT CODE ADDE STBT SOURCE STATESERT ERR LOC OBJECT CODE ADDR STST SOURCE STATEREET 
0B1B CO 87 OCDC 138 B coor GO RECALIBRATE DISK{S). OBD1 38 20 020k 206 TSH = BUDT-1,X*°20* DRIVE -2- 
: 139 * LOAD/SENSE EBROR BESSAGE * OBDS F2 30 OC 207 JF BEG GRFIEED 7? 
O31F CO 87 OF52 480 ASTK 8B ERROR LOG ERROR ~ LIO/SES CHECK. OBDS Bb 02 00 OFW2 208 CLC =0(3, X82) ,CHNDS¢ 16 
0B23 63 OB23 141 DC XL1*03* ®ID -03- OBDD F2 81 OD 209 JE CKiIt CBRECK TO SEE IPF 
0524 C087 OB25 142 pc XL2°CO87* OBEO CO 87 Opia 210 B SI0 THIS IS CE TRACK 
OB26 OCDC 0B27 183 BRECH2 DC AL2 (GOOF) OBES 8D 02 00 OENS 211 REG CLC 0(3,XR2) ,CHUDS*20 BEAD, SKIP I? OT. 
184 22094420 OBES CO 01 ODA : 2172 BRE  siIo 
145 * DECID * OBED 213 CKIT EQU * 
+46 #¥SOSESOREESS TEESNS SERESE NDE ON ESSENSE SESRESEEEOEE ES CUEEEESEEDORSEEESS OCBED 38 01 OFS 214 TBs BEAD#+2, x0 1# THIS THE ALTERNATE PATTERE 7 
a7 * PROGRAE DECIDES IF If IS SPIELLE * OBF1 F2 90 OF 215 JF cKOces . SUBP IF 8OT. 
148 * “-I- OR SPINDLE -2- TORR POR A * OBF4Y OD FF 0B18 0C28 216 CLC DATA#255 (256) ,ITBSY*256 
149 * COABAND. A CHECK IS BADE TO SEE * OBFaA CO 81 ODA 217 BE SIO , JUBE IF DATA WAS BRITTEN ABD READ OK 
150 * IF THE SPINDLE IS BUSY. * OBFE CO 87 OF43 218 CKOC B ERRORS LOG ERROB - WRITE DATA CHECK. 
, oco2 OC 0c02 2719 DC xL1°0C* *Ip -0C- 
151 FECEOASES ETO TES 045 5 06 O8FE 8S 498EOEE TOES 44994 0498448 £5008 88EE SETTERS OcO3 OD FF OB18 0C27 220 cLe DATAt255 (256) , ITBSY¢255 
Q528 OF 01 0827 OA11 452 ITBSY SLC WORK (2) ,8901 DECRENENT TIME-OUT COUsT. 0CO9 CO 61 ODIA 221 BE SiO JUMP IF DATA WAS BRITTED AND BREAD OX 
OBZE F284 65 453 oP BECID CONTINUE IP VALUE IS STILL POSITITE. OCOD CO 87 OBFE 222 B CKOc 
0B31 CO 87 OF43 154 B ERRCRS LOG ERROR - BUSY TI#2-O0T CHECK. 0C11 CO 87 OF43 223 XFER B ERRORS LOG ERROR - READ DATA CHECK. 
0535 O8 0835 155 oc. ZL 1* 08* eID ~28-. 0C15 Oa 0C15 224 pc XL1*Oa* *ID -O0a- 
0836 CO 87 GDC2 156 DECID B ExIt EXIT TILL SELECTED SPINDLE WOT BYSY. 225 #94988 46% 
OB3a 3a 01 OD2Z5 157 SBN SET, 3°01* TUEH OFF SET BIT IN SET INSTRUCTION. 226 * SEKBOS * 
OBaE 38 10 OpaC 158 TBH ASTO0e¢1, 2° 198 | LAST CHND SET FOR SPINDLE -2- 2 227 FOEHEEE EG ES OE8ESEED ES OO 850040655488 9048 0884999886 OER E OEE ONEEESSERERE 
OB42 F2 10 12 159 aT ITSA JUSP TO SPINDLE -1- IPF SO. 228 * SEEK DUSY IS MONITORED AND ala 
OB45 C1 Az OB28 160 TIO ITBSY, X*A2* 229 * BD FOR NOT TISING CUT. 
OB49 38 20 OADE 161 TBH BUDT-1, xX" 20° IS SPINDLE -2- DEFINED? 230 eaesanscuacescesssesssnsesesansenaecsssesausesstsesssecesesenersceces 
0C16 OC 04 0B27 ODSE 231 SEKBOS MVC WORK (2) ,SKTIS STORE SEEK TISE-OUT VALUE. 
OB4D F2 90 OB 182 a? ENDFF GO TO SPINDLE -y- Ip yor. Ocic 38 10 ODAC 232 SNSIT TBH ASIC#¢1,x*10* THIS A DEIVE 2 COBSAND? 
085° 36 01 OD25 163 SBF SET, X*018 TURN ON SET BIT IK SET ISSTRUCTION. 0C20 F2 90 07 233 JF *+10 JUSP IF EOT. 
O0B5& F2 87 O08 164 J - EBDFF 0C23 30 B2 OE9SF 238 Sus STAT1, X*°B2* SENSE DRIVE 2 STATUS BITES 0 & 1. 
OBS7 Ci B2 0828 165 ITfSAa TIO ITBSY, X*B2° BRANCH IF SPINDLE IS BUSY. OC27 F2 87 08 235 J *¢7 
OBSB BD FF 00 166 ENDFF CLI O(,XR2) ,X*FF* EBD OF TABLE FLAG? OCc2a 39 A2 OESF 236 SES STAT, X*°a2* SEHSE DRIVE 1 STATUS BYTES 0 & 1. 
OBSE CO 81 OCcDC 167 BE GOOF JUNE TO RESET POINTER IPF SO. OC2E 38 10 OE9F 237 TBA STaAT1,z%°10° SZ2K BUST BIT ON? 
168 *eeene0¢2 
169 * DARCK * 8032 F2 90 13 238 JF CKSEEK SUAP IF wot. 
VW70 FESSSES EEE EERERSESEER EEE SEESEHEREEEEEES SESE GOEEERSE EOOEEENEOEEREREERES 0C35 CO 87 GDC2 2359 B Exit GO £IIT. 
714. CHECK THE DATA ADLEESS REGISTER *¢ 0C39 OF 01 OB27 0217 240 Sic WORK (2) , #001 DECREMENT SEEK TISE-OUT FALUE. 
72 «* FCR PROPER INCREMNcETATION AFTER * OC3F CO 8& OCIC 241 BP SNSIT CORTISUE LOOP IP STILL POSITIVE. 
173 * DOING A READ OR WRITE. A CHECK IS? 0c4#3 CO 87 OFu3 282 B ERRORS LOG ERROR - SEEK TIME-OUT CHECK. 
174 © BADZ TO INSURE DATA TRANSMISSION * 0C&87 07 0C8? 243 DC XL1°07* *ID -07-. 
——— 175 * AFTER READ AWD WRITE COBHANDS. *# 244 s*eeteeeeese 
. W716 ESCSEESESEREE EE SE EEESEEEDEES SS OOETEREESESEEESEESSEESEESEREEKES 646448502808 285 * CESEEK * 
OB62 39 07 ODAC 177 DARCK TBP ASIO#1,X%°07° | LAST COBBAND A SEEK2 296 SSH SESS ESTE SEETESSESESEEE ESE ECAEREKSSSERESERDE ORE OTS 9DEKEEEEESEEEEDEDE 
OB66 F2 10 AD 178 JT _SEKBOS JOP IF SO. 247 © THE SEEK COMHARL IS CHECKED TO * 
OB69 38 03 ODAC 179 TBR aSI0#1,%°03* THIS A SCAN TYPE COSRAED? 248 * SEE IF THE HEADS ARE AT TBE COR- * 
OB6bD CO 10 ODIA 180 8T _ SIO JUHP IF SO. 2&9 * RECT TEACK. s 
0B71 38 10 ODAC 131 BN ASTO#1,x° 108 LAST COMMAND FOR -2-? 250 SHKSERSEKESEEATE DEES DESESESAESESERES TED HERES S SERED OESEKEESEEEEHERSEREES 
0B75 Fz 10 07 182 JT *#10 JUSE IF SO. OC4¥’s OC 03 OEA7 OE99 251 CKSEEK MYC CCWX(4&),CCWA STORE SPINDLE CONTROL REGISTER. 
0B78 36 A& OFA 183 SHS DAR, X*AS® SENSE DRIVE -1- DAR. OC&E 38 10 ODAC 252 TBE ASIO4#1,K*10* LAST SEK FROS SPIEDLE ~2- 7? 
OB7C F2 87 04 . 184 J *e7 OCc52 F2 710 09 253 JT CKYB JUHP IF so. 
OB7P 30 BY OFA 185 SHS D2LR,x* Ba? SEWSE DERIVE -2- DAR. 0C55 OC 00 O£A3 OEAS 254 SYC aAP(1),CCHX-3 STORE FLAG BYTE. 
0OB83 OD 01 OFA? OF86 186 CLC DAB(2) ,LSTAD DID THE DAR INCREBEET FOR A READ? OCSB F2 87 06 255 J CRICK 
0OB89 F2 81 34 187 JE CkD&aTa: GO ON IF EVERYTHING DUCKY. OCSE OC OO OEA2 OEAS 256 CKYB BYC BP {t),CCWX-3 STORE FLAG BITE. 
OBBC OD 01 OEA1 OE88 188 CLC DAB (2) ,LSTWR BID THE DAR INCREBEST FOR Agu RXTE? 0C64 OC 03 OESD OEAT 257 CKYCK sa¥C CCH#r(&) ,cCwX SET UP CONTROL FIELD FOR READ ID. 
OB92 F2 81 2B 189 JE CKDATA GO ON IF EVERYTHING DUCKY. GC6A 3B FF 0B9D 258 SBF CC@Y,X* FF® SET CONTEOL FIELD*S B@ BYTE TO 0. 
0B95 OD 01 OFA! OESA- 190 CLC DAR (2) ,LSTWR+2 BID THE DAR INCREMENT FOR A WRITE? OC6E 08 OO 0C89 ODAC 259 ZZ VERt1,ASIO¢1 SET UP DISK BET/SPINDLE ID Im SIC. 
OB9B F2 81 22 191 JE CKDATA GO OS IF EVERYTHIBG DUCKY. 0C74& CB 00 0CB8S ODAC 260 BZZ VER-3,AS10e1 BUILD LIO FOR COB&S SPINDLE. 
OBSE 3D 00 OF96 192 CLI CCWA~-3 ,x*00* IS THE FLAG BYTE CLEAR? OC7A 08 00 0C814 ODAC 261 MZZ TIOID+1,aSIO+1 BUILD UP TIO CONAMAED. 
OBAZ F2 81 16 193 Jf EROS JUSP IF SO. O0cs0 C1 00 GCD7 262 TIOID fT10 ERROE,x*0C! BRARKCH IF DEIVE IS WOT BEADY. 
OBAS 38 10 OpaC 194 TBA ASIO#1,2° 10° THIS A DRIVE 2 COABAND? 0Cc8s& 31 26 OEIC 263 LIO TSTID,X*A6* LCAD FCR BITB TEST ADDRESS. 
OBA9 P2 10 07 195 JT *410 JUBP IF SO. OC88 F3 Al 01 268 VER Sto X*O7", X*at# ISSUE A BEAD VESIFY COMSAED. 
OBAC 30 a2 O£9F 196 SNS  STAT1,X°aA2* CLEAR DRIVE 1 STATUS. OC8B OC 01 0B27 ODSE 265 AVC WORK(2),BSYTIAB STCRE READ BUSY TISE-OUT CCUST. 
OBBO F2 87 O04 1397 J +7 0c91 CO &7 ODC2 266 GOXIT 8B Exit RETURN TO. DCP 
0BB3 30 B2 OESF. 198 SNS STAT1, X°B2° CLEAR DRIVE 2 STATUS 0c95 08 00 OCaaA ODAC 267 aZZ TI0¢1,ASIO¢1 SET UP TIO FOR BUSY COABAND. 
OBB? CO 87 OD 1a | 199 B sIO GO TO NEXT COMMAND. OC9B OF 01 OB27 OA114 268 si~c WORK (2) ,8O01 DECREMENT BUSY COUNT. 
-OBBB CO 87 OF43 200 ERO? iB BRROBRS LOG ERROR -— DAR INCR CHECK. OCAT F2 84 05 269 JP T10 CONTINUE IF STLLL POSITIVE. 
OBBF 09 OBBF 201 BC XL1°098 *ID -~09- OcAs CO 8&7 OP&3 270 B ERRORS LOG ERROB - BOSY TISE-OOT CHECK. 
OCAs 08 OCA8 271 pc xXL1*08* ‘SID -08-. 
vECO 38 02 ODAC 202 CKDATA TBH ASTO4#1,x%°02* LAST COMMAND A WRITE? ocas Ci a2 0C91 272 TIO T10 GOXIT, X*A2* RETURN TO DCP IF BUSY. 
OBCN CO 10 ODA 203 BT S10 JUBP IF So. OCAD OC 03 OCB6 ODA2 273 BYC #49(4) ,TIOIT#e3 
OBC8 OD FPF 0C35 0518 204 CLC DECID#255 (256) , DATA#255 
OBCE F2 81 40 205 JE XFER JUBP IF DATA IDD HOT TRANSFER. 
DATE OGAPR70 22NAx70 0140670 010CT70 28 APR71 WSaAB72 W7ITL72 PROG ID OA OF~6 
‘ EC #0. 571516 571513 571531 §71540 571565 571591 571638 PAGE 2a 
NaTE OGAPR70 228AY70 0120G70 010CT-70 28APR71 1SSABR72 1735UL72 PROG ID Ok0F-6 
EC HO. 571516 $71513 571531 571580 571565 571591 571638 PAGE €% 2 
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BOP6 DISK SYSTEM TEST s#ODULE 
EBR LOC OBJECT CODE . ADDR STNT SOURCE STATESERT 
0cB3 00000000 OCB6 2748 DC HELI°O0* 
OCB7 GD 00 OFAS CESB 275 CLC CCHX~-2 £2) -CCHI~2 EXPECTED AND ACTUSL TBR ID TEE Saa 
OCBD F2 81 5A 276 JE SIO JORP ID SO. 
OCCO OD 06 OEA3 0000 277 ALTTBK CLC AF, 3° G* IS THIS ALT FLAG OB 
OCCe F2 01 51 276 JRE si0 IF Ob CONTIEDE 
OCCY OD 00 OEA2 0009 279 CLC BF, £* 0° IS THIS ALT FLi2G Of 
OCCF F2 01 4&8 280 SHE SIO i? Of CONTIEUE 
281 * SBEK CHEEK MESS&GES ¢ 
Ocb2 CO 87 OF43 282 B ERRORS LOG ERROR - SEEK TRAVBL C#BCR. 
OcD& O4 CcD6 283 BC XL1°O8 6 *ID -08-, 
OCD7 CO 87 OF43 264 ERROE B ERRORS LOG ERROB - ROT READY CHECK. 
OCDB O£ ocDB 265 - BC £11 "OE? eID -O0B-. 
: 286 FHESSERSES EES EEL SENSESE CHEE SESSEEESSSES SECTS GIREEE $F SHE OYE IHS4S9EG ED 
287 * BEINITIALIZE CONBANDS TABLE FOINTER AMD ALTER THE SELECTIOR + 
“286 * © OF TRE HEADS AED/OF DISK. ® 
gers on 289 o900984s64594694027 SEEPS CEE TSO 6SSES 69 64-69SESSE OF 095959500598308 0 
OCDE C2 02 0F32 290 GOOF LA CHUDS , ER2 RESTORE CAWDS TABLE POINTER. 
OCEO 34.01 6D25 291 SBN = SET, 2* 01 RESET FOR SPINDLE -t-. 
; 292 SRE SESS ESE SE EESLSE FERED FS 4RS 9OSSSESESOSSVSEREG EES SEEK SEREE PERETRSOESBANS 
293 * HOTE - LABLE *ITBSY* MUST BE OW AB EVEN ADDRESS FOR THE * 
294 * POLLOSING TO WORK PROPERLY. * 
235 SEKIAKSE SHS TOVSE SESS ESSE SS VSS TSE ESSE SHOOT OERECESEEEERSE LSS ESEEERSEESE 
OcE&Y 38 01 OD29 296 TBE 8 SETR,X*01° DID WB DO FIXED DISK ? 
OCES F2 90 07 297 JF RAYBL 
OCEB 3B 01 0D29 298 SBP SE&TR,X*O1* SET FOR FIXED aD 
OCEF F2 87 28 299 J SIO EXECUTE 17. 
OCF2 3a 01% OD29 300 BAVEL SBE SETR,2*01* SET FOR BEAOYABLE DISK. 
OCF6 38 01 OD32 301 TBS STHDA,xX*O1° LAST CHBD OW BEAD 0 ? 
OcFA F2 90 07 302 JF Doo 
OCFD 3B 01 0D32 303 SBF STHDA,x*°01* S®T HEAD 1 auD 
CD01 F2 87 16 304 J SIO EXECUTE IT. 
ODO4s 3a 01 OD32 305 DOO SBM STHDA,zZ*01° SET HEAD 0. 
OD08 38 01 OBS 306 TBH 8 BEADOC2, 3°01 ALTEREATE 
Op0C P2 10 07 307 aT #410 CE TRACK 
OLOF 3a 01 DEBS 308 SSBB READ¢2,X° 01 aBITE TEST 
0D13 F2 67 04 309 J sro PATTERB. 
UD16 3B 01 OFS 310 SBP BEaD+¢2,x*01* 
311 #eseteee 
312 * SIO * 
313 SFE RESS TESTES REE ED SESE RE ENE SERED EAEEEEEENOOS CEES EO REDES SERSREREDORES 
214 * THE LIO*S AND SIO COMHANDS ARE # 
315 * SET UP AND EXECUTED. I8DEX REGIS-* 
316 * TER 2 CONTAINS THE POISTER POR 
317 * THE COBMAEDS TABLE. * 
: 378 SHECFERSSSSE SS SSSESLSARHES HS SHS EKT TESS FEEKEETESE EEA SE OE SSHEES FOCRESERES 
ODIA OC PF 0B18 0C35 319 SIO BVC = =DATAt255 (256), DECID¢255 FILL READ FIELD BITH CODING. 
OD20 2C 00 ODac 03 320 BVC A&SIO#1(1),3(,X82) STOKE HEW COBAAND. 
0D25 3B 10 ODAC 321 SET SBF ASIO¢1,x°70¢ TURN -B- BIT OB/OFF. 
OD29 3A 08 ODAC 322 SETE SBH ASIO+¢t,x*O8* TORR PIXED DISK BIT ON/OFP. 
OD2D 2C 02 0899 02 323 BYC CCWA,2(3,XR2) SET UP CONTROL REGISTER. 
0b32 3B 80 O£Y8 324 STHDA SBF cCCWa-1,x"60° TORM CB/OFF HEAD BIT. 
0D36 OC 02 ODAZ 0F91 325 AVC) TIOIT+3 (3) ,TIOA+2 SET OP DRIVE 1 TEST I1vO CORBARD. 
OD3C OC 00 OF96 OEA3 32 MVC CCWA-3(1) ,AP SET PLAG BYTE TO CORES. 
OD42 36 10 ODAS 32 SBF LIOA#1,x¢10* SET THE LIO COBMANDS FOR SPIEDLE - 
OD46 3B 10 ODaA8 328 SBF LIOBet,x*10° 
Op’a 38 10 ODAC 329 TBH =ASIO¢1, 3°108 S THIS A SPINDLE -2- COANAKD? 
ODSE F2 90 2E 330 oF RDWET JOSEP IF wot. 
331 SEE SEEAESESSEAKEHSE SESESSE CEE STESESTERERTE EEE ESTES HSE 2E9EERESEEHEOENEEE 
332 * SKIP SPIBSDLE -2- WRITE CMND IF 2°S CAP. IS DIFFEREST FROB 1°S* 
333 FESSHESESESTKESEEAESESSEESSE SKEKESSEHEEESESEEREES SHS HSKSHEEEEDEEEEERESEEDS 
Op51-0C 02 ODA2 O£94 334 SIOB s¥C 8 TIOIT#3(3) ,TIOBe2 SET UP DRIVE 2 TEST I/O COBMAND. 
OD5S7 BB 01 03 335 TBH 8 63(,XB2) ,X*01" IS THIS A BOS-@RITE CBED? 
ODSA F2 10 14 336 JT DOITB SOSP IP so. 
OD5D BS 02 03 337 TIMVAL TBM 3{,XB2) ,x*02* IS THIS A SRITE CAND? 
OD60 F2 90 OF 338 JF DOITB JUAP IF WOT. 
OD63 368 30 0£95 339 TBE PFLAG, X°30* BOTH SPINDLES HALF CAP.? 
OD67 F2 10 07 340 aT DOITB JUSE IF SO. 
OD6Aa 39 FO O£95 341 TBF FLAG,Z* FO? ARE BOTH SPINDLES FULL CAP.? 
DATE O6APR70 22MAY7C 0180670 010CT70 28aPR71 1SHAR72 1730L72 PROG ID OaOF- 
EC NO. 571516 571513 571531 571580 571565 571591 571638 PAGE 
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JUSP IF 8O0T. 
SET FLAG BYTE I CONTROL FIELD. 
SET LIO COHBAEDS POR SPIEDLE -2-. 


SET ADDRESS FOR REBDING. 

CURRENT COBSAND A #RITE. 

JUBP IF Sd. 

SEI ADDRESS FOR WRITE NG. 

THIS A DRIVE 2/FIXZD DISK CHD? 
JUNP IF BOT. 

THIS & HOD 3 SISTER? 

J0GP IF So. 

CORRESPOSDING TIO FOR THE DRIVE. 
LOAD DISK COHTROL REGISTER. 

LO&D DISK DATA ADDRESS REGISTER. 
ESSUZ THIS COMMAND. 

LAST COBHAND FOR SPINDLE ~2-7 
JUEP IF NOT. 

INCREMENT POINTER FOR WEXT COBBARD. 
STOKE BUSY TIME-CUT VALUE. 

GO DECIDE NEXT COBBARD. 





EFSSSLEKSH SS CLOGS SESS OST HS SOK SSSTHRSESSESSESTESSE LS HSER KERESES ELE SHESESEESERE 


* 
THIS SUBROUTINE IS A LIBK BETMEER® 
THIS MODULE AND DCP. * 


FES SER ETKESTES EHTS EESTSE SSS EAS ERKSSEREES H8EHESSEOEEEEEEESDOS TEE ONEEEEOEEE 


SECRE BRODOLE RETORE ADDRESS. 
THIS SODULE IH SYSTES TEST? 


BETURES TO SYSTEB SUPEBTISOR. 


HST SSE SLE KEE SESS ES SESEEHSH YY OST ESTHET ELH STE SERES HES OETS SES ESEKSEESTKSE 


s 
SUBROUTIBE IS CALLED WEEN A SPIN-#® 
DLE DROPS READY. THE STATOS BYITES*® 
ARE SENSED ABD AWALYXISED FOR AY . 
EEBOR CONDITIONS. 


sssaestusseunnssssenssenssnecsresecersssenssssuressesseaesconeseueses 


SEHSZ SPINDL -1- STATGS BETES 0 € 1. 

SEBSE SPINDLE -1- STATUS BITES 256 3 
GO CHECK RESULTS. 

SEHSE SPIEDLE -2~ STATUS BYTES 0 & 1 

SEESE SPINDLE -2- STATUS BITES 2 & 3 

IS STATUS EYTE 0 BS EXPECTED? 

JUBP IF CT. 

IS STATUS BYTE 1 &S EXPECTED? 

PRINT -NOT READY- IF SO. 


LOG EBROB - STATUS CHECK 
eID -05- 

SOVE IN PRASCH COAMBAND. 
LOG ERROR - NOT READY. 
*ID -06- 

GO EXIT. 

IS DRIVE 2 NCT READY? 
JUSP IF SO. 

DEIVE 2 DEFINED? 

BRANCH IP OT. 

SET UP FOR CRIVE 2 CHBD. 


SET UP FCR DEIVE 1 CBSD. 
INCR POINTER FOR HEXT CHHD. 
ERD OF TABLE FLAG? 

JUSP IF 30. 

GO EXECUTE THIS WEW CBED. 


SSK SOSH SEHK SS SESLESESSES ST SCSS SHS SSE SKSLSEKS SES SKHTESTESTSESESHSESTSHREDIHSLSSE ESSE SE 


j 
| 
a0QP6 DISK SYSTEM TEST BODULE 
| ERR LOC OBJECT CODE ADDS STAT SOURCE STATERENT 
OD6OE F2 90 44 382 3? IsIac 
E?! 0D71 OC 00 O£96 OEA2 343, DOITB HVC  CCHB-3{1),BF 
0D77 3A 16 ODAG 3ay SBR LIOA+3,%°70¢ 
OD7B 2A 16 ODAS 345 SBB LIOBe1,x° 108 
OD7F OC 01 DEB2 OE8O 386 RDURT HVC READ (2) ,READ-2 
0P85 BD a2 03 387 CLI 3(,2R2) ,X*a2* 
CD88 F2 01 06 348 J8E 689 
OPEB OC 01 OF2 OFB4 349 BVC REMD (2) ,READ+2 
6D91 38 78 ORAac CC. 350 TBR aSIOs?,=*18¢ 
OD$5 F2 30 67 351 oF {I0It 
0bSB 38 07 OAOF 352 TBH BUDT,SOD3 
OD9C F2 10 67 353 St ISPS 
OD9F C1 O60 GOD 358 TIOIT TIO *%=*, x9 90" 
ODaz 31 AG ORTE 355 LIGA LEO DFCR,X*a6* 
ODay 32 AS OEB2 356 LIOB LIO READ, xX? 48° 
ODAB F3 00 00 357 ASIO SIO x*00*,2z*008 
| ODAE 38 10 ODAC 358 CKLST TBH <ASIO*#,,X*10° 
ODB2 F2 90 03 359 JSP IF pox1t 
ODBS E2 02 04 360 ININC LA &@{,XR2) »ZR2 
ODBS8 OC 01 0B27 ODSE 361 DOXIT SVC W#ORK(2),8SYTIA 
ODBE CO 87 0B36 362 B recip 
{ 363 
| 368 * EXIT 
365 833 SO¢e & 
| 366 4 
367 
ODC2 34 O08 ODDS 368 EXIT Sst XIT¢3,AER 
ODC6 3D 40 OA0O0 369 CLI 42°0A00*,xz*~a0° 
ODCA F2 872 04 370 JE x1t 
ODCD CO 87 OAOA 371 B SYS 
O0DD1 CO 87 0000 372 x17 B o-+ 
373 
374 * WHATX # 
375 2 
376 * 
377 * 
378 « 
379 
ODDS 30 a2 OEYP 380 WHATA SNS  STAT1,X*A2? 
ODD9 30 A3 OFA? 381 SRS  STAT3,X*a3® 
ODDD F2 87 O8 382 3 CKOUT 
ODEO 30 B2 OEGF 383 WHATB SBS  STAT?,xX*B2° 
ODF4 30 B3 OEA1 384 SES STAT3,X*B3* 
ODES 39 BE OEVE 385 CKOUT TBP STATO,X*BE* 
ODEC F2 90 07 386 JF oops 
ODEF 39 80 OEAO 387 TBP STAT2,.x%°8O° 
ODF3 F2 10 05 388 jt BTRDY 
389 © STATUS EBROR BESSAGE ¢@ 
ODF6 CO 87 OF43 390 COPS B ERRCBS 
ODFaA 05 ODFA 391 Dc XL7°05% 
ODFB OC 03 ODFE OESE 392 NTRDY MYC KETRDY+3(4) ,JHPP 
0E01 CO 87 OF4&3 393 B ERRORS 
0£05 06 OL0S 394 pc XL1*06¢ 
1- 0E06 CO 87 ODC2 395 JSPR B EXIT 
OEOA 38 10 ODAC 396 TEN aSIO¢1,x° 10° 
OEQE F2 10 OF 397 aT DUAYB 
O£71 38 20 OACE 338 TBR BUDT-1, X* 208 
0£15 CO 90 OCDC 399 BP GOOF 
0519 3B 01 OD25 400 SBP SET,x*01° 
OZID F2 87 OE 801 3 60S10 
OEZ0 3A 01 OD25 402 DUMNYB SBR SET,xX*01° 
O£24 E2 02 04 403 SKIP LA &(,XE2) ,XR2 
0E27 BD FF 00 808 CLI O{,XR2),X°PF* 
O£2—a CO 81 OCDC 805 BE GOOF 
OE2ZE CO 87 OD1a 406 GOSIO B SIO 
807 
808 * COMBARDS TABLE * 
409 © 
6 DATE O6APR70. 225AY70 OtauGc7C 010CT70 28aPR71 
3 EC WO. 571516 571513 571531 571540 571565 
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THE NEXT DISK COSBAND IS SELECTED* 
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— PAGE «wa 
: A0PFO DISK SYSTEN TEST BODUIE a a AOP6 DISK SYSTEN TEST SODULE 
ERR LOC OBJECT CODE &DEBR STST SGURCE STATESEET ERE LOC CBJECT CODE ADDE STAT SOURCE STATEMENT 
; 
n 410 * PROM THIS TABLE. THE TABLE FORRAT? = &78 * RESERVED STORAGE * ‘ : 
ee ai. IS AS POLLONS. s B7Q SBS SEES EE TS EL ESESEE 9988654509998 FS FEE SSEEEEEEESESEEEEEEE SSO S89EREEEROS 
me gRi2 ¢ * 4 GES6 00000000 OE9S #80 CCBA Bc XL&* 08000000* CURRENT COETRCL REGISTER STORAGE. 
a 4iz * bc RL3* DISK COBTROL FIELD® * | OESA £a5565488 CESB 481% CCW¥Y bc ¥L4*405565a8* TESPOBAEY STORAGE CF CONTROL BEG. 
2 Q7a + Bc RLG*STAET I/D CORNAED® % 0292 60 OESE 482 STATO dC ZL1*Go° STATUS BYTE G0 STORAGE. 
e QS Set FOSS SESS CS SHS IEE SEHGESE SSE SES SEREREEEG REESE SSSEREE BESKESEEDRELEST ERED | QE9F 30 OESF 4&83 STAT1 5c ZL1* 00% STATUS BYTE 1 STORAGE. 
fe OE32 816 CANDS BQU > CORZAZDS LOCATIONS | QERS 60 OZAQ 488 STAT2 BC ¥L7*60* STATUS BITE 2 STORAGE. 
a 0£32 CO0O0PF 623% 817 oc” sE3*0000FF? SEEK TERECK GO | CzAt OG QOFA1 4485 STAT3 DC KL1?700¢ STATUS BYTE 3 STORAGE. 
: GOE35 ad 0235 418 : BC 3L7* a6* | CEA2 O66 OEA2 486 BF ps ZL 4°00 FLAG BYTE STORAGE FOR <~2-. 
© QE36 670167  €838 479 pc 22.3* 670767? : SEEK cE TRACK : PEAS 09 GEA32 &87 AF bc XL7*O0# FLAG BYTE STORAGE FOR -1-. 
ee QOESS ad . 8239 G20 — Bc ZL1*2O? (BAL? CAPACITY} | CEAu 60006006 GEA? 488 CCHE bc EL4S* 290900009 TEAPORARY CCH STORAGE. 
& GE3a 670900 0E3C 421 Dc XL3* 6700005 . BRITE SECTOR 0 OEAS 00 GCERB 489 Dc XL17*°008 CLEARING BITE. 
ee OE3D. a2 . O£3D 422 : pc xL1*%a2° GQ SSE SESS 49 OTHE SSEHES CLES ESCHSE SEK SSEVESEAECESELESTRFSTHE SOLES SEE RIOKSEREESE 
: 3 GEO 423 De XL37670000* . SEEK CE TeacK | &91 * ERTAB + _% 
OfRt 424 BC ZL7°ao* | | 482 sesseeess ERROR RECORDING TABLE FORSAT - ¢ 4 
OBNS 4825 pc  ¥L3*670000* READ SECTOR 0 ' 893 % s 
OBYS 826 | BC XL1¢g7¢- : oe £94 * S4u4 ERROR LOG 
Q80:05F OB88 &27 DC 2L3*08005F* - SEBR TRACK 8 | aos * HALT STATUS BITES SIO 
BE#9 40 CE&9 - 428 DC XL1*a0° ' 496 * Ip 0 42 3 «96 B 
OE4A O80800 - OFSC “429 BC XL 3* 080800* . BEAD. SECTOR 2 | 
OEAD AT : OEYD 83 pc XILI*atse | 497 2 B008& 00 38 23 08 AO 03 
OENE OFO107— 0250 431 pc XL3* OFO707* SEEK TRACK 15 498 * A004 OO 38 23 08 ~aO 01 
OE51 a0 0251 432 pC XL 1"A08 | 499 * BOOS 00 38 23 08 BO 04 
OES2 OF2800 - O0£58 833 pc 1L3*OF2800* BEAL SECTOR 10 500 * . 
CESS Al O£5SS «634 Bc XLi* ate | S01 FFF S69 68 FS EREKE SEE AEKS SHETE SKOSES SES ESS OE S49 9EEESESEESEEOOEEEROEGE EO i 
GES 460137 0256 435 pc XL3*860137* SEEK TRACK 70 , pg OEA9 502 ERTAB £QU * 
0E59 AO OFS9 436 pc XL.7* ao*t : GEASS 8005 OFAA 503 Dc X41L2*8C008* 
OESA 460000 OESC 437 bc XIL3* 460000* SCAB EQL SECTOB O OEAB FSPAPYFYXOD3ZE6C7 OEB2 504 pc CL8*5aua LOG? 
OESD A3 OBSD 436 pc XL1*a3* ‘ : QEB3 8016 OEBY 505 Dc XL2 "80 16° 
OESZ 3CO00K OEGO 4839 pc XL 3* 3C0008* SEEK TRACK 60 : CEBS C8C IDZEZ4OE2ZE3C1 OFCA 506 Bc CL22*HALT STATSS BYTES Sio* 
OF61 a0 OZ6% 440 pc XL7*a08 OEBD ESESE24O0C2EB8E3C5 506 
GE62 3€c5c00 , OE68 441 pc XL3*3C5C00* BEAD SECTOR 23 QOECS E24 080E2C9 D6 506 
QE5 al OF65 4842 BC XL7°aAt® O£ZCB 8017 oEcc $07 De X¥L2*8017* 
Q£66 280014 GE68 4&3 pc XL3*280018* SEEK TRACK 4&0 OECD 4OCSC&4ONOFOUOKO OEE3 508 DC CL23" iD G© 12 2 3 Q rR 
Q5E69 AO OE6S9 484 pc XL1*a0* OEDS FIGOKOPZ4O40DF 380 . $08 
OEGA 290101 OZ6C 48a5 Dc IL3*290101° SEEK TRACK 41 OEDD 40460480D84040D9 508 
OB6D AO O£LG6D 886 pc XL1*a0° OBES 8017 OFES 509 pc XL2*8017°8 
OEGE 270002 OE70 8Uu7 Bc XL 3* 279062° SEEK TRACK 39 OCEEG SBYBSBYBYOSBEBUO OEFC 510 LG dc CL2Z3* cece 0s oe ce ce te ce® 
O0E71 AO O£7% 848 _ oe XL1*a0¢ : OFEE YBaBsOeBUBSOUBUB 510 
a QE72 48C0125 OF7& 8a9 pc XL3*8C01725¢ SEPK TRACK 76 OEF6 8040884 BYOUBSB 510 
' OE75 Ad 0E75 450 DC xL1°20° OEFD 8017 OEFE 51% pc XL2*80178 
OET6 3€0010 0£78 451 pe X1L3*3C0010* SEEK TRACK 60 OEFP SB4B4B4BYOSBYBSO OF15 $12 LG2 pc Chl 3 eiw ick: Sa. we ee. sae bee 
OE79 ad OE79 4852 DC XL1*a0* QFO7 4B4Be04B4B 40GB 4B 512 
OE7A FF OE7A &53 ac XLi¢*FF? $* 23D OF TABLE #*% 
B54 £449488848845 OFOF SOU0KBY BEDS BAB §12 
@55 * COSSTAITS * OFt6 8017 OF17 513 Bbc ZL2*8017* 
456 SSE SITES SS SESS FS SHEETS SESSSSSHISSSSSSHSSRILSSECKSESSSAKSESETSESKSE SEKRESRSREKELS LE OF 18 4B&BEBE BUOYS BY BSD OF2ZE 514 LG3 Dc CL23* weae co ease! ae ase eo* 
OE7B OE9A OE7C 457 TSTID dC AL2 (CC¥Y-5) : OF2Z0 S5E4YBYOSBSBLORB SB 51a 
' OE7D OEI6 ‘ OE7TE 458 DFCR pc AL2 (CCEA-3) OF28 SO404B54 BUOGBNB 514 
Oo OF2F FFFF OF30 515 pc XL2*FFPPF* 
OETF OA19 . OE80 459... pc a2 (para) OF31 SB4UBYOUBSBSOS BSB OF42 516 LGCLR DC CL1B*.. co oc co co on® 
OE8? 0000 OE82 &60 BEAD ac AL2 (#~#) OF39 SONBUBROYORBYB SO : 516 
OE83 0828 OE84 &61 pc AL2 (ITBSY) $ OF4S1 4&BYB 516 
OE8S 0B19 OB86 462 LSTAD DC AL2 (DATA¢256) 517 
OES7 0C28 OFE88 463 LSTWR DC &L2 (ITBSY +256) 518 FFE FFKOESSEEESEEEIERESESERSESESERSESRORSSEETETESENEESEEE SESE OEE E$S9494S S89 
OEB8S O0C29 OE8A 464 nc AL2 (ITBS%#¢257) 519 * ERROR * ; * 
CESB C087 OBBC 465 cc IL2*C087* 520 *e¢ eed. * SUBROUTIBE STORES ERROR HALT ID *# 
ooo OESD OEN6 OBSE 466 JNPP BC AL2 (JPR) , 527 * ' LB THE ERROR LOG-CUT TABLE AKD s 
$ OESF AO OESF 467 TIOA pe XL7*a0* — 522 * THEN HALTS. * 
# : CESO ODD5 0B91 a68s pc AL2 (SBATA) SQZ> SCHESECSRESSKKRERSSSESELSSEHEKSSE SCAKSERKECHKEESKSEESSEESSOSEEEEKSESEEEKSESEEREROSOSEEE 
OE92 BO OE92 469 TIOB oc XLI*BO° OF43 3B 10 OFE3 528 ERROES SBF HLTID-1,x*10* SET UP FOR DRIVE 1. 
0£93 ODEO OESa 470 BC AL2 (WHATB) a OF47 38 10 ODAO $25 TB TICIT<?1,x* 10* THIS A DRIVE 2 ERROR? 
QT 88S 898 8SSS SES EEEEEKEEREREEES OES OOS EE OEEEEEEEESOEOKEO 8785549 09S SEESE4 OF4B F2 990 O48 526 oF #47 JUNE IF BOT 
GE95 00 OE9S 872 FLAG pc ZL1*OGQ* | : FL&G BYTE. * OFSE 3A 10 OFE3 $27 SBR HLTID-1,x* 10° SET UP FOR DRIVE 2. 
a73 * : BIT 2 ~ SPIEDLE -2- HALF CAP. 2 OF52 3% O08 OFS5SB 526 ERROR Sf *¢+9 ARR STORE ERECR ID ADDRESS. 
a74 , BIT 3 - SPIABDLE -1- HALF CAP. = OF56 OC O00 OFEY OCOD 529 aVC HLTID(1) ,*-* STORE THE ERROB ID. 
B75 FECKEREEKE SEG ETEESE SEE EOS TEEEESSEREEESERESESORESTEES $2988 5E82 895 SEOESS 530 
476 @ - 531 & UPDATE ERROR TABLE LOGOUT. 
G7] $6894004866040404402968 532 
OFSC Oc 16 OEFC OF15 533 aYC LG1(23) ,LG2 ; BOVE UP PREVIGUS ERRORS. 
DATE O6OAPB70 $22ma¥70 0 1A0670 010CT70 28aPB71 ISHART2 V7IVLI2 PROG 1D OAOF-6 
EC WO. 571516 571513 §71531 571549 $71565 §71591 571634 PAGE : 4 DATE O6APR70 228A170 O1AUG70 0710CT70 28 APE71 ISHABI2 W7IOLI2 PROG ID OAOF-6 
& ; EC WO. 571516 571513 577531 5715u0 571565 571591 5716348 . EAGE aA 
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2 PART 40. zie IBA sh sesaiece placKostic PROGEAA PART 20. 5129650 
‘ mse s. PAGE 5a. 
nore” “DISK SISTEA TEST SCDULE AOF6 = DISK SISTER TEST ACDULE 
BRR LOC OBJECT CODE ADCR STAT source STATEMEST CROSS-REFERERSCE 
OF62 OC 16 0F15 OF2ZE 530 ave LG2 (23) ,LG3 . : | SYSBOL T LEN VALUE DEPH BEFEREWCES 
OF68 CO 87 021E 635 B GRPACK HOVE I8 LATEST ERROR. fe Bae ; 
OF6C 02 OF6C 536 REC 4L 12 i AF A 001 OFA3 0487 025%* 0277 0326 
OF6D OFES OF6E 537 DC AL2 (HLTID) ALTTRK A 006 OCCO 0277 
OF6F OF1B OF70 $38 pec AL2 {LG3-19) ARR € 001 0008 05848 0057 0368 05286 
OF71 Oc 11 OFZE OP42 539 MVC) =. LG 3 (18) , LGCLE CLEAR LOG ouTPUT. aSIO A CO3 ODAB 0357 0158 0177 0179 0181 0798 06202 0232 0252 0259 0260 0261 0267 
OF77 3D 04 OFES 540 Cll &#LTID,& SKIP THE REST IF THE RALT ID DOES 0320* 0321* 0322* 0329 035C 0358 0396 Q566 0576¢ 
OFTB F2 82 61 581 JL SKIPIT NOT PERTAIBS TO A SIO COSSAND. AUDT A 003 OAOC 018 0063 
OF7E 3D 06 OFES 5482 CLI HLTID,6 BEGIN A 008 OATS 0046 0137* 0573 0586 0598 
OF82 F2 81 SA 543 JE SKIPIT BF A 003 OEAZ 0486 0256* 0279 0383 
‘OF85 38 10 OFE3 Sua TBH 8 =ALTID-1,X* 10° THIS DRIVE 2 ERROB? BISY A 00% OASC 0096 Coss 9103 
OF89 FZ 10 OB. 545 JT SESB JUEP IF SO BRNCH2 A 002 OB27 0143 0137 
OF8C 30 A2 OE9OF 546 suS  stTaT1,x*a2* STORE DRIVE 1 STATUS BYTES. BSYTIN A 003 CDSE 0592 6265 0361 
OF90 30 a3 OFA1 547 SNS STAT3,X*~a3* é BUDT a 003 OAOF 0079 0049 0081 0085 0100 0126 0161 0206 0352 0398 
OF94 F2 87 08 548 ag ee11 BUSY A 004% O4a1 9098 0084 0086 0088 
OF97 30 B2 OEOF $89 SNSB SES STAT1,X°B2* STORE DRIVE 2 STATUS BITES. CaP2 CC 001 0002 0594 0069 0085 
OF9B 30 B3 OFA} 550 Sus STAT3,X*B3* 7 CCWA A 004 OES9 0480 0192 0251 0323* 0324* 0326* 0458 0575" 0593. 
| OFOF 3c 04 OEB2 551 SVI 8 TEMP,4 SET LOOP COUNT TO & cC#B 864 004 0£99 0593 0383* 
OFA3 Cz 01 OESE 552 La STATO ,XR1 INITIALIZE INPUT/OQUTPUT ADDBESSES. § CCWX A 004% OFA? 0488 0251* 0256 0256 0257 6275 
OFA7 C2 02 OF IE $53 La LG3-16 , X52 3 CcwY a 00% OESD 0481 0257* 0258¢ 0275 0457 0588 
OFAB 34 01 OFB9 554 LOP& = ST UNPK 1,XR1 STORE CURRENT ADDRESSES. CKDATA A 004% OBCO 0202 0187 0189 0191 . 
OFAF 34 02 OFBB 555 st UNPK2,XR2 fa CxiT A 001 OBED 0213 0209 
OFB3 CO 87 O21TE 556 B UNP ACK OSPACK CURRERT STATUS BYTE. CKLST A 004 ODAE 0358 
-OFB? 01 ; OFB7 557 pc “yLaew | CxOUT A 004 ODES 0385 0382 
OFBB 0000 OFB9 S58 UNPK1 DC AL2 (#-#) _ CKSEEK A 006 OC4B 0281 023€ 
OPBA 0000 OFBE 559 UBPK2 vc AL 2 (*-*) CkST &€ 0048 OA3B 0057 0088 00548 
OFBC D2 01 01 560 LA 1(,XE1) ,3B1 ISCRESEST ADDRESS POINTERS. CKYB A 906 OCSE 06256 0253 
OFBF E2 02 03 561 LA 3(,XR2) ,XR2 . CKYICK A 006 O0C64 0257 0255 
OFC2 OF 00 OF&2 OA11 562 SLC TEMP(1) .NO001 BECREMENT LOOP COURT. CKOC A 004 OBFE 0218 0215 0222 
OFC& CO 01 OFAB $63 BSZ LOFa STAY TILL DONE. clit A 008 OB11 0136 G127) 0129 
OFCC CO 87 O21E $64 B UNPACK URPACK TH SIO COMSAED. CauDS aA 001 0O£32 0816 607% 0208 0211 0290 0574 
OFDO 02 OFDG 565 DC ILi¢2¢ CHPAR A 004 OABS 0112 0101 0135 
OFD1 ODAD OFD2 566 pc AL2 (ASIO#2) DAFLG aA 008 OAEB 0126 0123 
OFD3 OF2D -OFDS 567 Bc AL2(LG3-1) DAR A 001. OEA1 0587 0183* C185* 0186 C188 ©0190 
OPDS OC 01 OF2ZE OF2D 568 HVC =: LG 3. (2) , L1G 3-1 SPACE OUT THE Q Aly BE BYTES. DABCK & 004 O0B62 0177 
OFDB 3C 40 OF2C 569 BVI LG3-2,c* ¢ DATA aA 00& OA19 0586 6204 0216 0220 0319 0459 0462 
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84 JE IDERR JUMP IF 8 RETRIES HAVE REEN MADE 
85 
86 RB STRTIO TC RECALIBRATE 
OAT6 87 Dc XL1*0# FUNCTION CODE, (CCNTROL) 
OAT7 88 DC XL1°4° CONTROL CODE, (RECALIBRATE) 
OA79 &9 DC AL2 (WRTDFC) CONTROL FIFLE£ ALDRESS 
90 B *+ 
91 
17D c2 SLC RETRY(1) ,ONE DECREMENT RETRY COUNTER 
$3 EB INITAD GG SEEK AGAIN 
Sy MVI DISKTP,O SET FOR REMOVABLE 
S5 INITBE RB Si RTIO TO I/O SUBROUTINE TO WRITE ID. 
CASO a6 pc XL1°G2* FUNCTION CODE 
0A91 97 pc XL1°01! CONTROL CODE 
0A93 98 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
99 E STEP12 ERROR RETURN, 
100 
101 CLI ERRFLS,O. WAS THERE ANY ERROR? 
102 JNE  INITAF JUMP IP YES 
22M AY 70 01AUG70 07CCT70 PROG ID OFFS-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAZ , PART NO. 5129658 IBM MAINTENANCE DIAGNOSTIC PROGRAR ~ s . tae 3% “PART NO. 5129658 
. PAGE 2 . € | o . PAGE 2A a 
FP53 cE DISK INITIALIZER FFS3 cE DISK IWNITTIALIZER 
ERR LOC OBJECT CODE ALDR STMT SOURCE STATEMENT S ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OAOF 38 7P 1774 103 SBF WRITDFC+2,Xx'7F!* SET SECTOR BITS TO ZERO cle OFGA FBI3CIDSCHUC5SD94O 168 - 
OAA3 3C 17 1775 104 NVI WRTDFC+3,23 NORMAL RETURN, SET TO VERIFY. OB72 C2C5CEDEDICS4OES 168 
OAA7 CO 87 166D . 105 R STRTIO TO I/O SUBROUTINE TO VERIFY. OB7A CYCIEZCIDSCT4 OC9 168 
OAAB 01 OAAB 106 Dc XL1°01° PUNCTION CODE Gilg 0382 Cu 168 
OAAC 03 OAAC 107 cc XL1*03! CONTROL CODE 169 
OAAD 1772 OAAE 108 DC AL2 (WRTDF) CONTROL FIELD ADDRESS 0B83 170 CYLTBL EQU) * 
OAAF CO 87 1223 109 E STEP10 ERROR RETURN Cie OBB3 04050647 OB86 171 DC XL4* 04050647" 
110 OB87 4B49uAuB OFSA 172 BPC. oXLU'UBHON ABE 
OABS 3D OO 1778 114 CLI ERRFLG,O WAS THERE ANY ERROR? OB8B O0B&B OB8C 173 TBLEND DC AL2 (*) 
OAB7 F201 2D 112 ONE INITAP JOMP IF YES Gcile OB8D 0000 OB8E 178 SAVXR1 DC XL2*0* 
713 175 
114 = TEST ONE TRACK WITH. DATA PATTERN 00. . 175 
415 . © | e 176 * INITIALIZATION IS CONPLETE, NOW READ THE ID ON EACH TRACK 
OARA 3D 00 177A 116 CLI WORK,0O HAVE BOTH DATA PATTERNS BEEN USED? 177 * AND COMPARE IT AGAINST THE EXPECTED ID 
OABE F2 81 08 117 JE INITAQ JUMP IF YES | 178 
OAC1 3C OO 177A 118 MVI = WORK,X*00! CHANGE PATTERN Cig CB8F OC 00 1773 177C 179 INITAH MVC WRTDFC+1(1), TRACKS SET CYLINDER NC. TO LAST ONE 
OACS CO 87 OA25 119 B INITAC . | OBS9S 3A BO 1774 180 SBN WRTDFC+2,X'80* TURN ON TRACK 1 BIT. 
120 4 0899 35 02 OF2D 181 i LSTADR, XR2 INITIALIZE POINTER 
121% REPEAT 5 TIMES IF SSW16 IS ON <r oe OBID 34 02 OF2B : 182 ST LSTSAV,XR2 AND SAVE 
122 OBA1 34 02 OF29 183 ST ALTLST,XR2 
OACI 38 O2 020A 123 INITAQ TBN SWITCH,X*O2* CHECK FOR OBAS OC 02 1498 1774 184 INITAI MVC WRTSAV (3) ,WRTDFC+2 SAVE ORIGINAL FLAG, CYL & HEAD. 
OACD F2 90 17 128 oF END16+44 SENSE SWITCH 16 ON Cc € OBAB 3C 08 (720 185 MVI.- RETRY,8 LOAD RETRY COUNTER 
OALO 3D 00 176E 125 CLI countT,x'co’ INITIALIZE OBAF CO 87 166D 186 INITAN B STRTIO ’ TO I/O SUBROUTINE TO SEEK 
OADY F2 01 06 126 JNE #49 COUNTER FOR OBB3 00 OPB3 187 |. DC XL7*°00# FUNCTION CODE 
OAD? OC CO 176E 176F 127 MVC CGUNT(1),PIVE FIVE REPETITIONS c C OBRY 00 OBBS 188 pc XL 1" 068 CONTROL CODE 
OADD OF CO 176E 176D 128 SLC COUNT (1) ,ONE WRITE AND VERIFY OBBS 1772 OBB6 189 DC AL2 (WRTDFC) CONTROL FIELD ACDRESS 
OAE3 CO 01 CA21 129 END16 BENZ PROCED FIVE TIMES OBB? CO 87 T4EC 790 B SEEKER ERROR RETURN | 
- 130 C . - 494 ; 
131 * BOTH PATTERNS HAVE BEEN USED, NOW STEP TO THE NEXT TRACK : .OBFB CO 87 166D 192 INITAE B  STRTIO. TO I/O SUBROUTINE TG PEALD ID 
132 . OBBF 01 ORBF 193. DC XL1#O18 PUNCTION CODE 
OAE? 38 80 1774 133 INITAF TBN WRTDFC+2,X*@O! IS TRACK #1 BIT ON? eee 3 OBCO 01 OBcCO 194 DC XL1*01°' CONTFOL CODE 
OAFP F2 10 08 134 JT INITAG _ JUMP IF YES | OBC1 1776 OBC2 195 Cc AL2(RDDFC) CONTROL FIELD ADDRESS 
OAFE 3A 80 1774 135 SBN WRTDFC+2,X'80! SET ON IF IT WAS OFF 0BC3 CO 87 OcCc4 196 B READER ZRROR RETURN 
OAF2 CO 87 0A21 436 B PROCED PROCEED TO TEST NEXT TRACK aie 197 ed 
OAP6 33 BO 1774 137 INITAG SBF WRTDFC+2,X'89!' TURN OFF TRACK #1 BIT ee OBC? OD 00 149A 1773 198 CLC WRTSAV-1(1),WRTDFC+1 COMPARE EXPECTED YS RECIEVED. 
OAFA OF 00 1773 176D | 138 ALC WRTDFC#1(1) ,OXE ADD ONE TO CYLINDER NUMBER OBCD F2 81 45 199 JE INITAJ JUMP IF EQUAL 
0800 33 08 O20A ° 139 TBN SWITCH, X*9Bt TEST FCR INITIALIZING ALL CYLINDERS e t = DBDO 3D 02 1776 200 CLI RDDFC, 02 DOES FLAG BYTE =G2, (DEFECTIVE) ? 
OPO4 F210 2A 140 JT INITBA JUMP IF YES be OBD4 F2 81 Ag 201 JE INITAK YES, GO SET ADDRESS IN TABLE 
ORO7 38 4O C20a 141 TBN SECTSW,X*'4SO! TEST FOR RUN ON FIXED DISK. A OBD? 3D G1 17756 202 CLI RDDFC,C1 5, x DOES FLAG BYTE =01, (ALTERNATE) ? 
OBOB F2 10 23 Th2 JT INITBA. JUMP IF YES Che OBDB F2 81 B8 203 | JE INITAL YES, GO COMPARE READ ADDRFSS VS 
143 a eS 204 * THE ADDRESSES IN THE LIST. 
OROF C2 01 6B83 144 LA CYLTBL,XR1 SET XR1 TO POJNT TO TABLE OBDE 3D 00 OF30 . 205 CLI RETRY,G HAVE 8 RETRY*S BEEN MADE ? 
6B12 1D 0O 1773 00 145 CKCYL CLC WRIDFC+1(1),0,XR1) CHECK THIS ADDRESS Ce OBF2 F2 81 1C - 206 JF INITAO JUMP TO PRINT IF YES 
OB17 F2 01 06 146 JNE STPPTR JUNP IF NOT EQUAL TO ONE IN TABLE ae ae OBES CC 02 1774 1498 207 MYC WRTIDFC+2 (3) ,WRTSAV RESTCRE CONTROL FIELD 
OR1A OZ 00 1773 176D “487 ALC = WRTDFC+1(1) ,ONE STEP WRITE ADDRESS ONE CYLINDER ' QOBEE CO 87 166D 208 —- RB STRTIO DO RECALIBRATE IF NO 
0B20 D2 01 01 148 STEETR LA 1(,XR1) ,XR1 STEP XR1 #1 re a OBEF 00 OBFF 209 pc XL1°O# FUNCTION CONE (CCNTROL) 
—0B23 34 01 OBSE 149 ST SAVXR1,XR1 STORE FOR COMPARISON Re OBFO 01 OBFO 2106 pe XLi"01" | CONTROL CODE (RECALI ERAT £) 
0B27 CD 01 OBBE OB8C 150; CLC SAVXR1(2),TBLEND CHECK XR1 FOR STEPPED TO LIMIT ; OBF1 1772 OBF2 211 pc AL2(WRTDFC) _ CONTROL FIELD ADDRESS  & 
ORZD CO 01 OB12 151 PNE CKCYL | BRANCH IF NOT DONE . x. OBF3 CO 87 GBF? 210. . B #44 ; 
152 7 OBF7 OF 00 OF30 176D 273 SLC RETRY(7) ,ONE DECREMENT RETRY COUNTER BY ONE 
0831 0D 00 1773 177Cc 153 INITBA CLC | WRIDFC+1(1), TRACKS IS THIS VALUE HIGHER THAN MAX. OBFI CO 87 OBAF 2174 B INITAN TRY. TO READ ID AGAIN 
OP37 F2 84 55 154 JH INITAH YES, PROCEED TO PART 2. ae 215 
OR3A CO 8&7 0A21 155 - &B PROC: NO, USE THIS CYLINDER | . 0CO1 CO 87 021A 216 INITAO B PRINT GO PRINT DUE TO AN INVALID CONDITION 
156 . 0COS C6 0coOS 217 cc XL1*C6! LAGS 
OB3E CO 87 O21A 157 IDERR f& PRINT TO PRINT READ ID ERROR = e OCO6 2A 0co06 218 © DC IL1*42¢ LENGTH 
0 BY2 Cb CBY2 158 DC XL1'c6* FLAGS , . .0CO7 OEBA OcoOs8 219. pc AL2(ERROR3) | ADDRESS CF LAST PRINT CHARACTER 
OB43 31 0B43 159 rc IL 149 LENGTH OCOS. AOOA OCOA 220 pc XL2*acOaAt | MESSAGE IDENTIFICATION 
ORU4 OBB2 OB85 160 pe AL2 (IDERMS) MESSAGE ADDRESS 2 1s OCOB CO 87-0222 221 B HALT TO DCP HALT. 
OB46 AOFS OBU7 167. DC XL2"*aAOF9! MESSAGE ID OCOF ACOA 0C10 222 DC XL2*a00a! HALT ID 
% 162 0c11 CO 87 0A11 223 B INITAB-& TO TEST FOR ENTRIES 
OB4Ye CO 87 0222. 163 ee :) HALT TO DCP ERROR HALT : o 224 
CRUC ADPS OBUD 164 DC XL2*AOF9! HALT ID a2 OC15 OC 02 17748 1498 225 INITAJ MVC WRTDFC+2(3),WRTSAV = RESTORE CRIGINAL F, C & S BITS 
165 OC1B 38 80 1774 226 TEN WRTDFC+2,X'80! TEST TRACK ONE BIT FOR ON. 
-OEUE CO 87 0A11 166 B INITAB-§ OC1F F2 90 08 227. JF “INITAM JUMP IF CFF 
167 . . - A 0C22 3B 80 1774 228 SBF WRTDFC+2,Xx' 80" TURN OFP EF PREVICUSLY ON. 
OB52 C3ICIDSDSDG6EZ4OE2 OBB2 168 IDERMG DC CLUS'CANNOT SFEK TO CORRECT CYLINDER BEFORE WRITING ID? 0C26 CO 87 OBAS 229 B INITAI GO READ ANOTHER ID 
OFSA C5SCSD240E3D640C3 168 - - c OC2A 3A 80 1774 230 INITAM SBN  WRTDFC+2,X'80" _ TURL ON TF. PREVICUSLY OFF 
0362 DSDSDICSCIE340C3 168 oo . LO OC2E OF 00 1773 176D 231 SLC WRTDFC+1(1), ONE REDUCE CYLINDER VALUE BY ONE 
DATE O6APR7O 22m AY70 OTAUGTO 010CT70 . FROG ID OF FS-3 i” DATE 06 APR70 22¢A170 01AU0G70 010CT70 2 PROG ID OFF5S-3 
EC NO. 571516. 571513 571531 * 571540 © ‘ | PAGE - 2 EC NO. 571516 571513 571531 571540 . ae eae PAGE — 2a 
é ° , : 


ps See Ogg a Sine fier 
’ B “nats oe: de eae nye in vibe enna Aho be ase Mig yg EE RE ag A 
Jip ewes genirinr - aehiae ne cae papers + rs ae Serer Sued i 








IBM HA INTENANCE DIAGNOSTIC PROGRAS 


FF53 
ERR LOC 
OC 34 


0c38 
Oc3B 


OC3F. 


0Cc42 
OCc46 
OCCUR 


OCUE | 


ocs4 
o0c57 
OC5SE 
0Co1 


ocb* 
OCc69 
Oc6D 
0c71 
0c72 
0c? 3 


Oc75 
oc 7S 
OC7B 
OC 7F 


ccR0 
Ocaeyu 
- 0C89 
OC8c 


0C92. 


0C96 
OCSA 
OCIE 


OCA3 
OCA6 
OCAC 
oc Bo 
GCBY 
OcBS 
OCB& 
OCEB 
OCBA 
OCRE 
occe 


occs 
occs 
occe 
ocp1 


ocDs 
ocDS 
OCDA 


dCDB. 


ocrL 
_ OCDF 
0CE3 
OCES 


- DATE 


EC NO. 


Cz pIskK 
OBJECT CODE ADDR STAT 
232 
38 08 O20a 233 
PF2 10 2A 234 
38 40 O20A ‘ 235 
P2 10 23 236 
237 
C2 01 OE2D 238 
ID OO 1773 00 239 CKCYLI 
P2 01 06 280 
OF 00 1773 176D 2461 
D2 01 01 242 
34 01 OBBE 243 
OD 61 OBSE 0F36 264 
CO 01 OCK6 285 
246 
3D FP 1773 2U7 IRITAP 
cO 01 ORAS 248 
CO A7 O2Z1A . 289 
06 0C71. 250 
1B 0C72 251 
1797 OCc7& 252 
253 
cO 87 0222 2548 
AOFS COC7A 255 
COQ 87 O22A 256 
00 OC7F 257 
258 
35 02 OF2B 259 INITAK 
ec 01 01 1774 260 
PR TP 01 261 
OF 01 OF2B OF2F 262 
co 87 0C15 263 
= 264 
35 02 OF2S 265 INITAL 
3B 7F 1498 266 
2D 01 189B 01 267 
268 * 
F2 01 OA 269 
OF 01 OF29 OF2F 270 
co 87 0C15 271 
CO 87 O21A 272 PRIERY 
C6 CCBY 273 
30 ocBS 274 
OFBA OCB? 275 
AOFS © OCB9 276 
CO 87 0222 277 
AOFU OCBF 278 
cO 87 0A11 279 
280 
3D 00 OF30 281 READER 
F2 81 CA 282 
OF 00 OF30 176D 283 
CO 87 OBFB - 284 
285 
CO 87 O21A 286 READPT 
C6 ocD9 287 
2a ~OCDA 288 
Of 60 ocDdDC 289 
AOOF OCDE 290 
c0O 87 0222 291 
AO OP OCES 292 
CO 87 OAT1 293 
O6 APR70 22MaY70 01AUG70 
571516 


INITI 


571513 


ALIZER 


SOURCE STATEMENT 


571531 


TBN SWITCH,X‘08* 
JT INITAP 

TBN SECTSW,X*4O! 
IT INITAP 

LA TBLREV,XR1 
CLC WRIDPC+1(1),0(,X81) 
JNE £49 

SLC WRTDFC+1(1) ,OTE 
LA. 1(,XR1),XR1 

ST SAVXR1,ZR1 
CLC  SAVXR1(2),TELENE 
BNE  CKCYLI 

CLI WRTDFC+1,X*FF 
BNE INITAI 

E PRINT 

DC XL1°06" 

pc IL1*27# 

DC AL2 (MSG01) 

B HALT 

pc XL2* AOF8? 

B LOAD 

DC XL1*u0! 

L LSTSAV,XR2 
MVC 1(2,XR2) ,WRTDFC+2 
SBF 1(,XR2),X'"7F* 
ALC  LSTSAV(2) ,TWO 
P INITAJ 

L ALTLST, XR2 
‘SBF  WRTSAV,X*7F* 
CLC WRTSAV(2),1(,XR2) 
INE  PRTERG 

ALC ALTLST(2),TWO 
B INITAJ 

B PRINT 

re XL1"°C6* 

pc IL1*us? 

DC AL2 (ERROR4) 

pc XL2"*AOF4! 

EB HALT 

DC XL2"AOFU! 

B INITAB-4 

CLI -RETRY,0 

JE READPT 

SLC RETRY (1) ,ONE 
E -INITAE 

B PRINT 

cC - XL17*C6! 

Dc IL1*42¢ 

DC AL2 (ERRORS) 

DC XL2'AOOF! 

B HALT 

pc XL2"AOOF? 

B INITAB-4 
010CT70 
571540 
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TEST 
JOMP 
TEST 
JUMP 


FOR INITIALIZING ALL CYL. 
IPF YES 

FOR RUN OW FIXED DISK | 

If , YES 


LOAD TABLE ADDRESS IN XR 
CHECK THIS ALEDRESS 

JOSP IF NOT IN TABLE 
REDUCE ADDRESS PY ONE 
STEP XRi +1 

STORE FOR COMPARE 

CHECK FOR FINISHED 
BRANCH IF NOT DONE 


TEST FOR MINUS ONE 

BRANCH IF ROT DONE 

TO PRINT COMPLETION MESSAGE 

see aa 

LENG 

ipsness OF LAST PRINT CHARACTER 


GO TO NEXT SECTION 


LOAD XR2 FROM SAVE LOCATION 
FLACE ADDRESS FROM BAD TRACK IN 
TURN OFF ALL SECTOR BITS 
INCREMENT POINTER BY TWO. 

GO STEP REQUESTEL ADDRESS 


List 


LOAD XR2 FROM SAVE LOCATION 
TUPN OFF ALL SECTOR BITS 
DOES SEEK ADDRESS EQUAL 
ADDRESS FROS THF LIST? 

IF NO, GO PRINT ERROR 
INCREASE PCINTER BY TWO 


AW 


YES, 
FLAGS 
LENGTH , 
ADDRESS OF LAST PRINT CHARACTER 
IDENTIFICATION 

TC DCF HALT 

HALT ID 

TO TEST FOR ENTRIES 


PRINT ERROR 


HAVE 8 RETRIES BEEN MADE? 
JUMP TO PRINT IF YES 
DECREMENT RETRY COUNTER 
REPEAT READ ID 


TO PRINT ERROR ON READ ID 

FLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER. 
MESSAGE ID 

TO DCP HALT 

HALT ID 

TO TEST FOR ENTRIES 
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FF53 


ERR 


Loc 


OCE? 
OCEA 
OCEB 


OCEL 


OCF1 
OCFS5 
OCFB 


OCFF 
0D03 
0D07 
ODOB 
ODOF 


0D13 
oD17 
0D18 


-0D19 


OD1B 


ODIF 
0D23 
OD26 
OD2A 
OD2E 
OD2F 
0D30 
0D32 


0D35 
op3c 


OD3F 
OD&3 
OD4&6 


OD4&9 
OD4D 


0D50 
OD54 
0055 
OoDS6é 
0D58 


opnsc 
O0D62 
CD66 


-OD6A 
. OD6E 


OD6F 
OD70 
OD72 


DATE 


EC 


kee gaa oT 


NO. 


cE 


OBJECT CODE 


02 
00 
FFFF 


co 87 


00 
00 
090 


55 
17 
TF 
00 
3c 08 


87 


03 
10 
67 


00 
81 


87 


DISK 


OF314 


1772 
1773 
774 


ATTA 


1775 
1774 
4778 
OF30 


166D 


14EC 
O20A 


1075 
766D 


occa 


1773 
27 


4776 
1D 


OF30 
5C 


166D 


oD5c 


OF30 
0D13 
1075 
166D 


' ODCO 


O6APR7O 


571516 


WIC 


1777 


176D 


22MAY7 
571513 
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ODi7 
0b18 
ODIA 


OD2E 
OD2F 
0D31 


ODS4 
0DS5 
OD57 


OD6E 
OD6F 
OD71 


0 


INITIALIZER 





PART WO. 
PAGE 


5129658 
3a 


SOURCE STATEMENT 
295 SESE EK EEE SEES EEEEER EES SHOES EEEKS HEE SH SS SS KEKBSHEESESEHESHESESE SEHESESEEHS ASSES 
297 * THIS ROUTINE IS USED TO INITIALIZE THE CE TRACK ONLY. * 
a * SELECTION OF THIS ROUTINE IS VIA OPTICN F202. * 
* e 
300 SEKSSERERAASEKL KK SASH SELAH SSDVE $9 ERES SKIES NEES SSAHEBKHESSSESESEEFAS HPSS SSHSSESSEE 
301 * ROUTINE PREFIX 
302 RTNO2 Dc X¥L1*02° ROUTINE KURBER 
303 pc XL1#00° NO INTERVERTION REQUIRED 
304 pc XL2°* FFFF? LAST ROUTINE 
305 * . & 
306 SKREKREKESTANKASEKMKHKSE EKEKERSE SKKSSE SKSKRKSE ESTEE FES HSE SEKEKSTSE SAEHSERESGEOESSCEKS HOE SHES 
307 XXX B INITAA SFTUP FOR INITIALIZATYOSR 
308 * 
309 * SET INITIAL VALUES PRIOR TO BEGINNING DISK INITIALIZATION 
310 * 
311 nYI WRTDFC, OU SET FLAG BYTE TO OO. 
312 MYC WRIDFC+1 (1) , TRACK# SE: FOR CORRECT CYCLINDER NUHBER 
313 BVI WRTDFC+2,00 SET HEAD AND SECTOR TC OO. 
314 
315 * TEST CE TRACK WITH DATA PATTERN 55 
316 
317 PROC? MMVI WORK,X#558 SET DATA PATTERN IN WRITE AREA 
318 INIT13 AVI WRIDFC+3 ,23 SET NO. CF SECTORS TO EQUAL 28 
379 SBF WRI DFC+2,X'7F! SET SECTOR BITS TO ZERO 
320 NVI ERRFLG,O ZERO FLAG 
321 BVI RETRY, 8 SET SEEK RETRY COUNTER 
322 
323 INIT14 B STRTIO TO 170 SUBROUTINE TO SEEK 
324 pc XL1*00# FUNCTION CODE 
325 pc XL7'00* CONTROL. CODE 
326 DC AL2 (WRTDFC) CONTFOL FIELLE ADDRESS 
327 B SEEKER ERROR RETURN 
328 
329 TBN SECTSH,X*40? TEST FOR RUNNING ON FIXED 
330 3ST INIT 22 JUMP IF YES 
331 MVI DISKTP,xX*08* SET FOR FIXED DISK 
332 B STRTIO TO READ ID 
333 pc XL1°01! FUNCTION CODE, ({RFAD) 
334 Dc XL1*O18 CONTROL CODE, (ID) 
335 DC AL2 (RDDFC) CONTROL FIELD ADDRESS 
336 B READER - ERROR RETURN. 
337 
338 CLC WRIDFC+1(1) , RDDFC+1 COMPARE ACTUAL ALDRESS WITH EXPECTED 
339 JE INIT22-4 JUMP IF SEEKED TO CORRECT ADDRESS 
340 
341 TBF RDDFC, X*03* CHECK FOR BOTH FLAGS OFF 
342 JT *+6 € IF OFF, RETRY COMMAND 
343 J INIT22-4 OTHERWISE CONTINUE 
344 ; 
3a5 CLI RETRY,0 CFECK RETRY COUNTER 
346 JE IDRR JUMP IF 8 RETRIES: HAVE BEEN MADE 
347 ~ 
348 B STRTIO TO RECALIFPRATE 
349 pc XL1*0# FUNCTION CODE, (CONTROL) 
350 DC XL1°1" CONTROL CODE, (RECALIBRATE) 
351 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 
352. B *+4 
353 é 
354 SLC RETRY(1) ,ONE DECREMENT RETRY COCUNTEP 
355 B INITI4Q. GO SEEK AGAIN 
356 MVI  . DISKTP,0 SET FOR REMOVABLE 
357 INIT22 B STRTIO TO I/O SUBROUTINE TO WRITE ID. 
358 De XL%*02° FUNCTION CODE é 
359 pc XL1'01! CONTROL CODE 
360 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 
361 B ST EPCE ERROR RETURN, 
362 
€e xt 
01A0G70 010CT70 PROG ID OFF5-3 
571531 §71540 3A 


PAGE 


oy 


oy 





$e g 
| 
c °@ S 
IBB MAINTENANCE DIAGNOSTIC PROGRAM yw PART NO. 5129658 IBS NAINTENANCE DIAGNOSTIC PROGRAK PART BO. 5129658 
. | PAGE 4 GO 6 PAGE oA a 
PF53 CE DISK IWNITIALIZER FF53 CE DISK IFRITIALIZER 
: § G 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OD76 3B 7F 1774 363 SBF WRTDFC+2,X°7F? SET SECTOR BITS TO ZERO Cc 6 OEOD 39 28 176A 829 TBF STATUS-1,X*28° CHECK FOR MISSING ADDRESS #ARKER cy 
OD7A 3C 17 1775 364 SVI WRTDPC+3,23 NORMAL RETURN, SET TO VERIFY. | O£11 CO 10 ODFB 430 BT S102 OR DATA CHECK 
OD7E CO 87 166D 365 B STRTIO TO 1/0 SUBROUTINE. TO VERIFY. | 0£15 cO 87 O27A 431 B PRINT PRINT ‘ERROR 
OD82 901 OD82 366 DC xXL1°01* FUNCTION CODE o 18g OE19 C6 OE1S 432 pc XL1°C6° OCCURRED WHILE c 
0D83 03 CD83 367 pc XL1! 036 CONTROL CODE | DE1A 40 CFIA 433 Dc IL1*64? DOING A VERIFY 
ODB4 1772 OD85 368 DC AL2(WRTDPC} CONTROL FIELD ADDRESS OEIB OF 27 . OEIC 438 cc AL2(SSGVRF) ON THE CE TRACK? 
0D86 CO 87 ODDs 369 B STEPC1 ERROR RETURN e | e OEID ACFA GEIR 835 DC XL2"ACPA® 7 
370 4 36 
371 * TEST CE TRACK WITH DATA PATTERN 00. a OETF CO 87 0222 Q37 E HALT HRLT OF 
372 cig OE23 AOFA OF24 438 pc XL2°aAOFA't -Pa- a 
ODAA 3D 00 477A 373 CLI wWORK,00 HAVE BOTH DATA PATTERNS BEEN USED? | CE2£ 3c 00 1271 439 MVI  ERCONT,X*008 RESET COUNTER 
ODBE F207 73 374 SNE STEPC3 JOMP IP xo | 0£29 CO 37 0000 U4G ENDSTP B *-* RETU RN 
0D91 CO &7 O21A 375 B PRINT PRINT cie 444 : 
0DS95 06 0D95 376 DC XL1' 06° INITIALIZATION ; OF2D 4&42 TBLREV EQU * 
0D96 1B : OD96 377 DC IL1#27° IS NOW OF2D 4B4A49KB 0E30 443 DC XLG'SBUANIYB? 
0097 1797 op9e 378 rc AL2 (8SGO 1) CONPLETZ an 0831 47060504 OF34 Huy DC XL4'87060504" 
375 | 0E35 0F35 OF36 445 TBILENE DC AL2(*) 
0D93 CO 87 0222 380 E HALT HALT OF 446 
OD9L AOFS ODSE 3871 Dc XL2°*AOFB! ~F8- < € O£37 CSDODODEDISOE6BCB8 OFES6O0 HT ERRORS DC CL&2*° ERROR WHILE READING ID, PROGRA® TEREINATED? 
OD9SP CO 87 O22A 382 B LOAD LOAD NEXT SECTION : \ CE3SF C9D3CE4ODSC5C1Cs 447 
ODA3 CO ODA3 383 Dc XL1*00* OE47 CIDSC7THOC 9C4EBYO 447 
: 384 Cc #s€ OESF D7N9OL6CTDICIDY4O 447 
ODAS 3c OO 177A 385 STEPC3 MVI WORK,X*OO! CHANGE PATTERN . OE57 E3CSD9DSCIDSCIE3 447 
OPAE CO 87 ODO3 386 B INIT13 © , OESF cScy 847 
ODAC CO 87 O21A 387 IDRR B PRINT TO PRINT READ ID ERROR Ce OE61 E3CB8C540CSC4HOD9 OESA 448 ERROR3 DC CL42'THE ID READ DOES NOT EQUAL THE ID EXPECTEL® 
ODBO Cé - ODBO 388 Dc XL1°C6? PLAGS OF69 C5C1ICHSOCHDECSE2 aug 
ODB1 31 ODB1 389 DC IL1"49" LENGTH - 0E71 SODSD6E340C5DBES 448 
ODB2 0B&2 0DB3 «390 DC AL2 (IDERMG) _ SESSAGE ADDRESS ae OE79 CIDIHOE3ICBC540C9 4488 
ODBS ADF ODBS 391 DC XL2"a0F?? MESSAGE ID 0£81 C4 8OCSE7D7C5C3E3 448 
392 | OE89 CSC4 448 
ODE6 CO AF 0222 393 R HALT TO DCP ERROR HALT Cle OE88 CSDIDSDESD94OCIDS OEZBA 449 ERROR DC CLU8* ERROR IN ALTERNATE TRACK ASSIGNBENT, PGM. TERM. °- 
ODPA AOF9 ODBB 394 DC XL2*AOP9! HALT ID O0£93 40C1D3E3C5D9D5C1 449 
ODBC CO 87 OCED 395 . E XXX RESTART ROUTINE | OESB EICS80E3D9CIC3D2 489 
396 c jc OLA3 GOCIE2ZE2C9CT7DS5D4 449 
396 OEAB CSDSE36B40D7C7D8 “yg 
opCO CO 87 021A 397 STEPCE B PRINT PRINT * ERROR OEB3 SBYNE3CSDID“UBIO 849 
ODc4’ Cb Opc& 398 rc XL1*Cc6! OCCURRED c c OFBB C5DIDSDEDSNOD6C3 CEE7T 450 BSGWID DC CLS5* ERROR OCCURRED WHILE DOING A WRITE ID CO#SAND® 
opces 2D opc5 399 Dc ILi'ase WHILE DOING OEC3 CI EYDSTSCSCUUORS 850 : 
ODC6 OEE?. ORC7 400 DC AL2(MSGWID) WRITE ID COMMAND* CECE C8C9D3C540C4D6C9 450 
opcs acgc Opc9 401 DC XL2*a09C# Soe OED3 DSC740C14CE6D9C9 850 
402 | OEDB E3C540C9C4480C3D6 850 
ODCA CO 87 0222 403 B HALT HALT OF OEFE3 C¥LSC1DS5C4 850 
ODCE a09C ODCF 404 DC XL2*aO9gc? -9C- gC ~ OFES8 CSD9DIDEDSEODEC3 OFOT 451 BC CL32* ERROR OCCURRED WHILE DOING A VER? 
OrpO CO 87 OCED 405 P XXi RESTART ROUTINE OEFO C3 EYDIDICSCH4CES 451 
406 oo OEF8 C8C9D3C540C4 DECI 451 
406 7, OFOO LDSC74OCI“OESCSDY 451 
807 * THIS SUBROUTINE WILL RETRY A VERIFY OFO8 CSC6EBLOCHCITE3C1 OF27 452 SSGVRF DC CL32*IFY DATA COMMAND ON THE CE TRACK*® 
808 * UP TO A MAXIMUM OF TEN TIMES BEFORE : OFI0 4SOC3DED8L4ci1D5c4a 452 
u09 * PRINTING AN ERROR MESSAGE Cue OF 18 SOD6D540E3C8C540 452 
| #10 . OF20 C3C540F3D9C1C3D2 452 
ODDS 34 OB OEF2c 411 STEPC1 ST ENDSTP+3, ARR SAVE RETURN ADDRESS ; OF28 COCO OF29 453 ALTLST DC XL2"08 
OrD8 CO 87 1657 412 B SENSE SAVE Ce OF2A 0000 OF2B 454 LSTSAV DC XL2'00° 
-ODDC 02 oppc 443 DC —-«. XL1°02' ‘STATUS oe OF2C 17F5 OF2D 4855 LSTADR DC AL2 (LIST) 
ODD 39 28 176A aty TBF STATUS-1,X*28! CHECK FOR MISSING ADDRESS MARKER OPZ2E 0002 OF2F 456 TWO Dc XL2'02" 
ODE1 F2 10 45 15 JT ENDSTP OR DATA CHECK <= ¢c OF30 00 OF30 457 RETRY DC XL1' 0? 
ODES 3D 00 1271 816 CLI ERCONT, X00" CHECK COUNTER 3 458 
ODES F2 01 04 417 INE *+7 458 
ODEB 3C OA 1271 4318 NVI ERCONT, 10 36 459 * 
ODEF CO 87 166D 419 SIO1 8B STRTIO TO I/O SUBROUTINE TO VERIFY 460 * THIS SUBROUTINE WILL PRINT INSTRUCTIONS { ¢ 
ODP3 01 ODF3 420 DC XL1°01! FUNCTION CODE 461 * NECESSARY TO SELECT THE DESIRED DISK AND 
ODF4 03 ODFH 421 | DC XL1'03° CONTROL CODE & &62 * SPINDLE THAT IS TO BE INITIALIZED. 
ODFS 1772 . ODF6 422 © De AL2 (WRTDFC) CONTROL FIELD ADDRESS 463 * : 
ODF? cO 87 OEODS 423 B SI03 ERROR RETURN OF31 34 08 1074 464 INITAA ST ENDSET+3, ARR SAVE RETURN ADDRESS 
OPFBR OF 00 1271 176D 426 S102. SLC  ERCONT(1),ONE DECREMENT COUNTER Coe OF35 3c 00 1761 465 MVI  FRSTPS,O INITIALIZE SWITCH 
OFO1 F2 8125 © . 4825 JZ ENOSTP CONTINUE OF39 3C OV O20A 466 MVI SECTS®#,0 ZERO SWITCH AREA 
O£©O4 CO 6&7 ODEP . 826 Bo S101 TO VERIFY OF 3D 3C 00 176E 467 MvI = COUNT, 0 ZERO COUNTER 
0208 CO 87 1657 427 SIC3. B SENSE SAVE crn OF41 3D 01 0A03 468 CLI CRTNO,X'O1" CHECK FOR ROUTINE 1 
OEOC 02 OE0C 428 DC XL1"02° STATUS | ° OF45 F2 81 11 469 JE CONTUE JUMP IF CAME FROM ROUTINE 1 
ae 2 oie . | 
DATE O6APR70 22MAY70  01AUG70 010CT70 PROG ID OFFS-3 DATE O6APR70 22MAY70 01A0G70 010CT70 . - PROG ID ORO: ? 
EC NO. 571516 971513 571531 571580 . PAGE — 4 ‘ EC NO.. 571516 571513 571531 5715480 -  -PAGE SA 
: €G : CG ae! Hee ; . 
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or 


cy 


ey © 
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ERR LOC 


OF48 
OFaC 
OF52 
OFS6 
or5s93 
OFSD 
OF63 
OF67 
OF6B 
OP 6C 
OF6D 
OF 6F 
OF71 
OF75 
OF 76 
Or77 
or 79 
CF7D 
OFTE 
OF TF 
OFRi 
OF AS 


OF87 . 


OFSE 
OF SF 
OF92 
OF96 
OF9S9 
OFOD 
OFSE 
OFOF 
OFA 
OFA3 
OFA? 
OFAS 


OFAL 
OFB 
OFB? 
OFBA 
OFBE 


OFCY 
OFc8 
OFCE 
OFCF 
OFD2 
OF D6 
OFD? 
OFDB 
OFDA 
OFDC 
OFEO 
OFE2 


OF E6 
OFEC 
OFFO 
OF F3 


OFFS” 


OFFD 
1003 
1009 
100F 
1015 


1018 


DATE 


EC NO. 


Cc 


OBJECT CODE 


3¢ 
oc 


“3c 


F2 
3c 
oc 
3c 
co 
42 
00 


E 


ae 
01 
a4 
87 
31 
61 
38 
87 


10¢3 
AOFO 


co 
01 
2? 


87 


TOFC 


co 
06 
248 


87 


1133 


co 


87 


AOFO 


c8 
F2 
O08 
3c 
C8 
08 
08 
08 
08 
08 


co 
Fi 
87 
00 
F2 


00 
00 
00 
00 


00° 
00 


DI 


GF6C 
103D 
1038 
OF 

OF6c 
10 3D 
TW38 
O27A 


O274A 


O21A 


0222. 


0212 
O20A 


O20A 


21 
O21A 


0222 
Ors? 


1075 
116B 


- 1075 


1168 
020A 
O20A 


21 
O2TA 


0222 


Or s7. 


16AT 
1158 
OA 

16AC 
1158 


16B0 


16B4 
16B7. 
16E4 
1665 
170F 


O6APR70 
571516. 


S Kk. 


1222 


1220 


1182 


1190 


1768 


1765 


16aC 
T6AC 
16AC 
T6ac 
T6AC 
16ac 


IRIT T 


ADDR STHT 


OFGB. 


OF6C 
OF6E 
OF70 


OFTS 
OF76 
OF78 
OF7D 
OF7TE 
OF80 


OF 86 


OFOD 


| OFOE 


Orad 
OFA2 


OPAS 


OFDE 
OFD?7 
OFDS 


OFDB 


OFE1 


‘22MAY70 


571513: 


470 
471 
472 
&73 
47a 
a75 


u76 


877 
&78 
479 
480 
481 
482 
483 
484 
885 


‘4 BG 
“8B7 


468 
88g 
490 
494 
492 
893 
894 
495 
436 
497 
498 
499 
560 
501 
502 
503 
504 
505 
$06 
507 
508 
509 
516 
511 
512 
513 
514 


ALIZER 


SOURCE STATEMENT 


CORTUE 


MODY 


SETDSK 


SETRMYV 


SETPXT 


SETSPL 


515 


516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 


537 


SETA 


SEB 


} 


‘SETBTH 


01A0G70 


BVI moD1,78 
“VC MOD5 (2) , HOD3 
NVI 40D%,65 
J e417 
SVI MOD1,49 
NYC MOD5 (2) , BOD2 
BVI MODS, 56 
B PRINT 
boc XL1* 425 
pc IL1?06! 
pe AL2(STRTAS) 
Dc XL2*aOFOQ® 
B PRINT 
DC XL7*O48 
pc ILi* 39% 
Dc AL2 (NODISK) 
B PRINT 
pc /KL1°068 
Dc ILi? 36! 
rc AL2(NOSPND) 
B HALT 
DBC XL2' AOFO? 
R TEST 
TBN SECTSW,X'80# 
JT SETRE&Y 
TBN SECTSW,X'40# 
JT SETFXT 
B PRINT 
DC XLi'c6t 
DC IL1# 57! 
DC AL2(NODISK) 
Dc XL2*AOF1* 
B HALT 
DC XL2‘*AOF1? 
B SETDSK 
NVI DISKTP,OC 
MYC DSKPRT (14) ,RMDISK 
J SETSPL 
MVI DISKTP,X'O8? 
MYC DSKPRT (14), FXDISK 
TBN SECTSW,X'208 
oT SETA 
TBN SECTSW,X*10! 
JT SETB 
B PRINT 
DC XL1"*C6! 
Bbc ILi*55¢ 
De AL2 (NOSPND) 
rc XL2*a0F2¢* 
B HALT 
pc XL2"AOF2¢ 
R SETDSK 
ZZ LDFCR+1,SPNDLA 
wVI RUNPRT-2,Ct1* 
J SETSTH 
NZZ LDFCR+1,S PNDLB 
AVI RUNPRT-2,C'2! 
BZZ LDFDR+1, LDFCR+1 
NZZ SI0+1,LDFCR+1 
MZZ. WAIT+1,LDFCR+#1 
MZZ TSTERR+1 J LDFCR+1 
MZZ SNS*1,LDFCR+1 
 8ZZ RLDFCR+1 , LDFCR+1 
010CT70 
5715480 


571531 





PART KO. 


—-§129658 
PAGE a 


MODIFY 


ROUTINE ONE 
TO PRINT BEFORE HALT 
FLAGS 
LzZNGTA 
SESSAGE ADDRESS 
MZSSAGE ID 
PRINT 

DISK 

SELECTION 


PRINT 
DRIVE 
SELECTION 


TO DCP HALT 
HALT ID 


GO READ CONSOLE SWITCHES 

TEST FOR REMOVABLE DISK SELECT 
YES, SET TO RUN REMOVABLE DISK 
TEST FOR FIXED DISK SELECT 
YES, SET. TO RUN FIXED DISK 

NO DISK SELECT 

PLAGS 

LENGTH 

ADDRESS OF LAST PRINT CHARACTER 
MESSAGE IDENTIFICATION 

TO DCP HALT 

HALT ID 

LOOP TO ENTER AGAIN 


SET TO RUN ON REMOVABLE DISK 

SET PRINT FIELD FOR REMOVABLE DISK 
PROCEED 

SET TO RUN ON FIXED DISK 

SET PRINT FIELD FOR FIXED DISK 


IS SWITCH 12 ON ? 
YES, SET TO RUN SPINDLE A 
IS SWITCH 13 ON ? 


YES, SET TO RUN SPINDLE 8. 
NO SPINDLE SELECT 
FLAGS 

LENGTH 


ADDRESS OF LAST PRINT CHARACTER 
MESSAGE IDENTIFICATION : 
TO DCP HALT 

HALT ID 


LOOP TO ENTER AGAIN 


' SET TO RUN ON SPINDLE A. 


SET PRINT FIELD FOR DISK paiye. 1 
PROCEED 

SET FOR SPINDLE B. 

SET PRINT FIELD FOR DISK DRIVE 2 


SET 
SET 
SET. 
SET 
SET 
SET 


FGR 
FOR 
FOR 
FOR 
FOR 
FOR 


CURRENT 
CURRENT 
CURRENT 
CURRENT 
CURRENT 
CURRENT 


SPINDLE 
SPINDLE 
SPINDLE 
SPINDLE 
SPINDLE 
SPINDLE 
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PF53 
ERR LOC 


1021 
1027 
1028 
102F 
1032 
1036 
103A 
1038 
103C 
103F 
10480 
1044 
1085 
1046 
1048 
1OaC 
1048F 
1053 
1054 
1055 
1057 
10SB 


105r 
1061 
1062 
1066 
106A 
106D 
1071 


1075 
1076 
107E 
1086 
108F 
1093 
1098 
10A3 
10AB 
1083 
10BB 
103 
10C4 
10CC 
10D4 
10DC 
10E4 
10FC 
10F4 
10F8 
10FD 
1105 
110D 
1115 
274D 
1125 
112C 
1134 
113¢ 
1164 
114C 
1154 
115¢ 
-115E 
1166 
116C 
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PART NO. 5129658 
PAGE SA ¢3 
cE DISK INITIALIZER 
' i 
OBJECT CODE ADDR STMT SOURCE STATESENT y 
08 00 1713 16aC (538 MZZ RSIO¢1 ,LDFCR¢1 SET FOR CURRENT SPINDLE 93 
3C G6 10488 539 BVI HOD6,X*06! 
39 08 O20R 540 TBP SWITCH ,X*O08* IP SSW 18 IS OW, 
P2 10 048 541 aT *47 SETUP FOR EXTRA % 
3C 02 1044 542 AVI “0D6,X*02° WARNING MESSAGE 
CO 87 O21A 543 B PRINT TO PRINTCOT OPERATOR SETUP 
42 1O3R 545 DC XL17*y28 FLAGS % 
CG 1035 545 wob4a BC IL1*00? LENGTH 
0000 103D 546 MODS pc AL2 (*-*) ADDRESS OF LAST PRIST CHARACTER 
AOF3 103F 547 DC XL2*aOF3¢ oa 
CO 87 O27~A 548 B PRINT PRINT . 
00 1044 549 NODG rc XL1*00* CAUTION 
3 1045 550 pc IL1*62? MESSAGE 
11CE 1067 551 DC AL2(SGCAT) 
39 O08 O20A (552 TBF SWITCH ,x'08* IP SSW 1a 
F2 10 08 553 IT *+11 IS OX, 
CO 87 O21A 554 B PRINT PRINT *ALL 
06 1053 555 PC XxL1*06* TRACKS 
50 1054 556 DC IL1* 80? WILL BE 
1212 1056 557 pc AL2 (NSGALL) INITIALIZED?* 
CO 87 0222 55e B HALT TO DCP HALT 
AOF3 105c 559 DC XL2*a0Pr3* HALT ID 
560 
CO 87 1657 561 E SENSE . TO SENSE SUBROUTINE 
02 1061 S62. DC XL1"°902"* ASK FOR DEVICE STATUS BYTES G & 1, 
3c CB 177C 563 BVI TRACK#,203 SET FOR FULL CAPACITY DISK 
38 08 1768 564 IBN STATUS ,X*08* TEST FOR 1/2 CAPACITY DISK 
F2 90 O48 565 JP ENDSET IF OFF GC TO END 
3c 67 177C 566 - SSVI TRACKS, 103, SET FOR 1/2 CAPACITY DISK 
cO 87 0000 567 ENDSET B +--+ RETURN TC ROUTINE 
568 
568 
00 1075 569 DISKTP pC XL1200° 
C6D6D940C 3CS40E3 1092 570 DC CL29'FOR CE TRACK INITIALIZATION, ’ 
D9IC1C3D240C9D5CI9 570 
E3CICID3ICIESCIE3 570 
CIDEDS6B4D 570 
E2CSEZHOE2ZE6C9E3 10C3 571 STRTMS DC CLU9*SET SWITCHES TO SELECT DISK SURFACE AND DRIVE wO.°* 
C3C8C5 F24 0E3 D640 - +571 
E2C5D3C5C3E340C48 571 
CIEZD240E2ZEU DICE 571 
C1C3C540C 1D5C 440 571 
CADICIFSC5XOD5D6 571 
uB 571 
D5D640C4C9F2D240 10F7 572 pc CL52*NO DISK SELECTED, ENTER 10 POR REMOVABLE, OR 117 FoR * 
F2C5D3C5C3E3C5C8 572 : 
€B40C5SDSE3SC5D9ORNO 572 
FIFOSOC6DEDI“ODE S72 
CSDSD6E5C1C2D3C5 572 
6B40D6DISOP1F 140 572 
C6D6D940 572 
C6OC9ETCSCY 10FC 573 RODISK DC CL5*FIXED? 
DSD640C4HD9CIESCS 112B 5748 rc CL4U7'*NO DRIVE SELECTED, ENTER 12 FOR DRIVE 1, 13 FOR* 
4OF2C5D3C5C3E3C5 574 
C4 6B4OC5DSE3C5D9 574 
4OFIF2R0C6D6D94N0 574 - 
C&D9CSE5SC54 0F16B 574 
HOFIF340C6DED9 574 
KOC4DICSESCS4OF2 1133 575 WOSPND DC CLO8* DRIVE 2* i 
D7D9DECTDICIDSSO 115D 576 RUNPRT DC CLU2"PROGRAM WILL NOW INITIALIZE DISK DRIVE x, * 
E6C9D3D340D5D6E6 576. 
YOCODSCIE3CIC1ID3 576 2 
CIESCSYOCUCSE2D2 576 
KOCK DICIESCS4OET 576 
6B 40 576 
4O40404040804040 1168 577 DSKPRT DC CL14a¢ ‘ 
4D4ORONOR OND 577 
.60C3CS4GE3D9C1C3 1174 578 CEIRK DC CL9"-CE TRACK* 
O6APR70 22MAY70 01A0G70 0 10cT70 PROG ID OF FS- 
57 15 16 571513 571531, 571540 PAGE SA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR PART HO. 5129658 IBS MAINTERANCE DIAGNOSTIC PROGRAS PART WO. 5129658 
PAGE 6 e@ @ - . PAGE 6a oO 
PP53 cE DISK INITIALIZER e eae cE DISK IBWIFIALIZER 
: . S 
EPR LOC OBJECT CODE ACDR STMT SOURCE STATEMENT ZRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4 . { 
1174 p2 | 578 . ee 623 * AN ERROR WAS ENCOUNTERED DURING A WRITE ID OR, Qo 
1175 DICSDSDGES5CIC2D3 1182 579 RSDISK DC CLIS*RENOVABLE DISK! 624 * A MISSING ADDRESS MARKER, O8 
“VITIE CSHCCUCIEID2 579 | 625 * DATA CHECK WAS DETECTED DURING A VERIFY CATA OPERATION 
1183 CHCSETCSCYHOCUCS 1190 580 PEDISK DC CL1S8* FIXED DISK ‘ e:'°9@e 626 *. THE NEXT AVAILABLE ALTERNATE TRACK WILL BE ASSIGRED 8 
118B F2D200404040 580 627 * FOR USE IN PLACE OF THE DEFECTIVE TRACK AND THE DEFECTIVE 
1191 CICTEVE3IC9DEDS60 1183 581 DC CL35*CAUTION--THIS PROGRAM WILL DESTROY * 628 * TRACK WILL BE FLAGGED TO PREVENT SUBSEQUENT USE 
1199 €0F3CBCIE260D7D9 581 S |  ) 629 : a 
11A1 D6C7DIC1IDSUOE6CS 581 630 * DETERMINE IF DEFECTIVE TRACK IS AM ALTERNATE 
V1A9 DILIGOCUCSE2E3DS 581 ive 631 
11B1 D6EBUO 5814 eo 86 1272 38 08 1396 632 STEP12 ST ST12EX4+3, ARR SAVE EXIT ADDRESS. oe 
1134 CIDID3ISOD7IDICSES 11CE 582 MSGCAT DC CL27*ALL PREVIOUSLY WRITTEN DATA® | 1276 35 02 1846 633 L TABADR ,XR2 LCAD ADDRESS OF ALT. CYL. TABLE. } 
11BC CODGESE2ZDIEBY OES 582 127A 34 02 1771 634 ST BUFPR1,XR2 SAVE IN BUPPER. | 
11C4 EYECIEZEICSDSHOCH 582 os 127£ 35 02 1771 635 ST12A L BUFPR1,XR2 LOAD XR2 FROM THIS BUFFER. 2 
11CC C1E3C1 582 1282 8D 00 00 1773 636 CLC 0(1,XR2),WRTDFC41 COMPARE CURRENT CYLINDER. 
JICF FICSDSE2ZCSSDE2E6 11F9 583 DC CLUZ*SENSE SWITCH 14 IS ON--ALL TRACKS INCLUDING® ; 1287 cO 81 1451 637 BE ST12E DEFECTIVE TRACK 33 AN ALTERWATE. 
11D7 CIEIC3CB8UOFIFURD -  §83 o:8e 128B OD 01 1771 14a8 638 CLC BUFFR1(2) ,BUFPR2 TEST FOR FINISHED COMPARING. cP 
11DF C9E240D6D56060C1 _ §83 1297 F2 81 Oa 639 JE ST12B YES. 
J1E7 D3ID34HOEIDICIC 3D2 583 129% OF 01 1771 176D 640 SLC BUFFR1(2) ,ONE NO, REDUCE COUNT. 
TIEF EF2G0C9L5C3D3E4C4u 583 GS 6&6 129A CO 87 1272 641 B ST12A AND REPEAT. 
11F7 C9DS5C7 583 682 
JIFA 4OCID3C9C7D5D4C5 121E Sek NSGALL DC CL37* ALIGNMENT TRACKS WILL BE INITIALIZED' 129E 0c 03 1898 1775 643 ST12B MVC WRTSAV(4) ,WRTDPC+3 SAVE PARAMETERS FRCH INITIALIZATION 
1202 DSE340E3ID9ICIC3D2 584 . Oo 6 12A4 3c 07 1773 644 BVI WRIDFC+1,01 SET CYLINDER NUMBER TO 01. 
120A EF240E6C9D3D340C2 588 12a8 3c 00 1778 645 NVI «s- WRTDPC+2,00 SET HEAD AND SECTOR TO 00. 
1212 C540C9D5C9E3C9C1 584 646 
121A L3ICIEICSCH 584 Cc ¢€ 12AC OC 03 149F 1775 647 ST12C MVC ALTSAV (4), WRTDFC#+3 SAVE ADDRESS OF ALTERNATE TRACK 
121F 1168 1220 585 mOb2 nC AL 2 (DSKPRT) 12B2 CO &7 166D 648 B STRTIO TO I/O SUBROUTINE TO SEEK 
1221 1174 1222 586 HOD3 DC AL2(CETRR) | » 689% eee ace | 
587 Cc G 12B6 00 1286 650 DC XL1* 00° FUNCTION CODE 
587 12B7 00 12B7 651 Dc XL1*00° CONTROL CODE 
587 12B8 1772 12B9 652 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS — 
586 * AN ERROR WAS ENCOUNTERED DURING A VERIFY DATA OPERATION, Cc 12BA CO 87 14EC 653 B SEEKER ERROR RETURN 
589 * THE DEVICE STATUS WILL BE ANALYZED AND THE OPERATION 654 
590 * MAY BE REPEATED TEN TIMES. . : 12BE CO 87 166D 655 B STRTIO TO I/O SUBROUTINE TO READ ID 
591 e ¢ 656 * OX ALTERNATE TRACK 
1223 34 08 126P 592 STEP10 ST S10EXT+3, ARR SAVE EXIT ADDRESS 12C2 01 12C2 657 ve XL1°01! FUNCTION CODE 
1227 CO 87 1657 593. B SENSE TO SENSE SUBROUTINE . ; 12C3 01 12C3. 658 DC XL1°01° CONTROL CODE 
122B 02 122B 594 DC XL1*02¢ ASK FOR DEVICE STATUS BYTES 0 + 1. ¢ ¢& 12c4 1776 12C5 659 pc AL2 (RDDFC) CONTROL FIELD ADDRESS 
122c 39 28 176A 595 TBF STATUS-1,X'28* TEST FOR MISSING ADDRESS MARKER, 12C6 CO 87 12CA 660 B +4 ERROR RETURN 
596 * OR DATA CHECK. 661 
1230 F2 10 39 597 JT SIOEXT JOMP IF NONE OF THESE ARE OW. c 36 12CA 3D 01 1776 662 CLI RDDFC,01 DOES THE F BYTE = 01, (ASSIGNED)? 
598 ae Es 12CE F2 81 DA 663 JE ST12CA YES, UPDATE TO NEXT ONE 
1233 3D 00 1271. 599 CLI ERCONT, 00 TEST FOR FIRST ENTRY : 412D1 0C 03 1775 664 BVC WRIDFC+3 (4), WRTSAV RESTORE ADDRESS CF DEFECTIVE TRACK 
1237 F2 01 O04 600 INE #47 JUEP IF NO . | o $3 7 665 , 
123A 3C OA 1271 601 HVI ERCONT, 10 IF YES LOAD ERROR COUNTER TO 10 12D7 cO 87 166D 666 B STRTIO TO I/O SUBROUTINE TO SEEK DEFECTIVE 
602 : ted. 12DB 00 12DB 667 Dc XL1*00* FUNCTION CODE me 
123E CO 87 166D 603 S10A_ B STRTIO TO I/O SUBROUTINE © 6 12DC 00 12DC 668 pc XL1"00* CONTROL CODE 
1242 01 1242 604 DC XL1*01* PUNCTION CODE, (READ) 12DD 1772 12DE 669 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 
1243 03 1243 605 pc XL 1903" CONTROL CODE , (VERIFY) 12DF CO 87 18EC 670 B SEEKER ‘ERROR RETORN 
1284 1772 1245 606 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS © 9 671 
1246 CO 87 1257 607 B $10C ERROR RETURN 12E3 0C 02 1775 149F 672 HVC WRITDFC+3 (3) ,ALTSAV PLACE ADDRESS OF ALTERNATE IW DFC 
124A OF CO 1271 °176D 608 S10B SLC  ERCONT(1),ONE SUBTRACT ONE FROM COUNTER 12E9 3c 02 1772 673 BVI WRIDFC,O2  ~ SET FLAG TO 02, (DEFECTIVE) ws 
1250 F2 81 19 609 JZ S10EXxT TO EXIT IF 10TH TIAE oe Ss '42ED 3B 7F 1778 674 SBF WRIDFC+2,X‘'7F* TURN OFF ALL SECTOR BITS ‘ed 
1253.C0 87 123£ 610 B S10a OTHERRBISE LOOP AGAIN 12F1 3C 17 «1775 675 BVI WRTDFC+3, 23 SET TO WRITE ONE TRACK wo 
6911. 676 
1257 CO 87 1657 612 S10C 28 ~= SENSE TO SENSE SUBROUTINE e 9s 12F5 CO 87 166D 677 B STRTIO TO I/O SUBROUTINE TO WRITE ID OR os 
125B 02 125B 613 Dc -XL1°02# “ASK FOR DEVICE STATUS BYTES 0 ¢ 1 678 * DEFECTIVE TRACK 
125C 39 28 176A 614 TBF STATUS-—1,X'28° TEST FOR MISSING ADDRESS MARKER, 12F9 02 12F9 . 679 pc XL1*02° FONCTION CODE a 
615 © OR DATA CHECK. o os 12FA 01 12FA 680 pc XL1°01* CONTROL CODE ] 
1260 CO 10 124A 616 ET S10B BRANCH IF NONE OF THESE ARE O8 12FB 1772 12FC 681 BC AL 2 (WRTDFC) CONTROL FIELD ADDRESS 
1264 CO 87 1272 617 B STEP 12 AT LEAST ONE WAS ON, GO ASSGB 12FC CO 87 1301 682 B +4 ERROR RETORR 
618 AN ALTERNATE TRACK 6 Ss 683 
1268 3c 00 1271 — 619 — MVI  ERCORT,0O0 ZERO ERROR COUNTER 1301 CO 87 166D 688 B ST RTIO TO I/O SUBROUTINE TO READ ID 
126C CO 87 0000 620 S10EXT B- *-* EXIT oA 1305 01 1305 685 DC XL1*01* PUNCTION CODE — = 
1270 0000 1271 621 ERCOKT DC XL2" 00° 6 ¢e@ 1306 01 1306 686 DC XL17*O1* CONTROL CODE iG 
3 1307 1776 1308 687 DC AL2 (RDDFC) CONTROL FIELD ADDRESS 
1309 CO 87 1397 . 688. B . $12D ERROR RETURN ow oi 
Co 9d 639 . . 7 : 
130D 0c 03 1775 1489F 690 MVC = WRTDFC+3 (4) ,ALTSAY SET DPCR TO ADDRESS OF ALTERNATE TK. 
| : : . 
DATE. | 06APR70 22MAY70 O1AUG70 -010CT70 PROG ID _OFFS-3 i DATE O06 APR70 22MAY70 01AUG70 010CT70 PROG ID Orrs-3 
EC NO. 571516 571513 571531 571580 | PAGE 6 Ly a EC NO. 571516 571513 571531 571540 PAGE 6A a 
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cz DISK 


 FFS3 


ALIZER 


SOURCE STATEMEST 





IsgitrTtyr 
ERR LOC OBJECT CODE ADDER STST 
1313 cO 87 166D 691 
1317 00 4317 692 
9316 00 1318 693 
4379 4772 ~~ 4372 694 — 
1318 CO 87 HEC 635 
V37F OC O02 1775 1898 656 
$325 3¢ 01 W772 637 
$329 3B TF W778 698 
1320 3C 97 4775 659 
$334 ¢O 87 166D 790 
701 # 
F335 62 41335 7O2 
9336 07 1336 793 
3337 3772 1338 7048 
93339 CO &7 133D 765 
1330 CO 87 7799 706 
4347 Fase 1342 707 
1383 WorE 1344 768 
709 
1345 38 R80 is9p 7Fi0 
73489 F2 10 O09 Fi 
V34c OC O48 14855 THAB 742 
1352 F2 #7 06 743 
91355 OC O& 1855 14B0 71a 
715 
135B CO 87 17995 716 
135P 199) 1360 717 
1361 4873 1362 718 
719 
1363 38 80 1498 720 
1367 FP2 10 09 721 
136A OC OW TU7TR TURB 722 
4370 723 
3373 724 
725 
1379 726 
137D 01 137D 727 
1372 25 1372 728 
TI7TF IW6A 1380 729 
730 
1381 CO 87 O21aA 731 
J3Af5 06 4385 732 
4356 2D 1386 733 
V387 1897 1368 734 
735 
T3R9 OC O03 31775 1898 ~ 736 
V3RF 3C FF 1778 7137 
1393 co 87 ©G000 738 STI2ZEX 
739 
1397 CO B87 O21A 740 $12D 
139B c6 1398 741 
139C 34 139C 742 
139P Tuas 139E 7&3. 
139F AOF6 1320 744 
13A7 CO R7 0222 745 
1T3A5 AOF6E 13A6 786 
13A7 CO 87 OA11 7u7 
748 
V3AE OC 03 1775 149F 7&9 STT2CA 
1381 38 80 17748 750 
1385 F2 10 08 751 
1388 3a 80 1774 752 
138C CO A7 42AC 753 - 
13c0 38 80 1774 758 ST12CB 
13C& OF 00 1773 176D 755 
13CA 3D O08 1773 756 
13CE CO 01 12aAC 757 
13D2 CO 87 O2TA 758 
DATE 06 APR70 22M AY70 O1AUG70 
EC NO. 571516 571513 571531 


TBR 


HVC 


AVC 


Dc 


TBN 


Mvc 


RVC 


BVC 


SBF 


010CT70 
5715480 


STRTIO 

XL1*00°* 

XL1°00° 
AL2(WRTDFC) 

SEEK ER 
WRTDFC+3 (3), #RTSAV 
WRIDFC ,07 
WRIDPC+2,X'7F* 
WRIDFC?3 23 

STRTIO 


XL7? 02! 

XLIt or! 

AL2 (ARTDFC} 
Re & 

CYD 

AL2 (WRTS AY-2) 
L2(DEFECT- 28) 


BRTSAV-1,X*80! 

*+ 42 

DEFECT-21(5) ,OPPER 
*+ 9 


DEFECT-21 (5), LOWER 


CYD 
AL2(ALTS AV-2) 
AL2 (ALTPRT-36) 


ALTSAV-1,X"80"~ 


+412 
ALTPRT-29 (5) , UPPER 
*49 
ALTPRT-29(5) , LOWER 


PRINT 
XL1°01° 
IL1* 37° 

AL2 (DEFECT) 


PRINT 
XL1°06! 
IL1'a5e 
AL2(ALTPRT) 


WRTDFC+3(4), WRTSAY 
ERRFLG ,X*FF? 
*-* 


PRINT 
XxL1°C6* 
Ini'52* 
AL2(*RRORS) 
XL2'AOF6* 
HALT 
XL2"AO0F6* 
INITAB-4 


WRIDFC+3 (4) , ALTSAV 
WRTDFC+2,X'80? 
ST12CB 
WRTDFC+2,X*60" 
ST12C 
WRTDFC+2,X*80! 
WRIDFC+1 (1), ONE 
WRIDFC+1, 04. 

ST12C 

PRINT 


PART NO. 


5129658 
PAGE q 


TO I/O SOBROUTINE TO SEEK ALT. TK. 
FONCTION CODE 

CONTROL CODE 

CONTROL FIELD ADDRESS 

ERROR RETURN 

PLACE ADDRESS OF DEFECT. TK. I8 DFC 
SET FLAG BYTE = O01, {ASSIGHED}). 
TURN OFF ALL SECTOR BITS 

SET TO WRITE ORE TRACK 

TO L/0 SUBROUTINE TO WRITE ID OF 
ALTERNATE TRACK 

FUNCTION CODE 

CONTROL CODE 

CONT POL FIELE ALQDRESS 

ERROR RETURN 

TO CONVERT DEFECTIVE CYLINDER EC. 
ADDRESS OF SOURCE 

ADDRESS OF DESTINATION 


TEST FOR TRACK 1 BIT OR 
JUNP IF OW 
SET "UPPER! 
PROCEED 

SET ‘LOWER' IN MESSAGE 


IN MESSAGE 


TO CONVERT ALTERNATE CYLINDER HO. 
ADDRESS OF SOURCE 
ADDRESS OF DESTINATION 


TEST FOR TRACK 1 BIT OR 
JUMP OF OR 
SET "OPPER® 
PROCEED 

SET *LOWER' 


IN MESSAGE 
IN MESSAGE 


‘TO PRINT DEFECTIVE TRACK ADDRESS 
FLAGS 
LENGTH 


ADDRESS OF LAST PRINT CHARACTER 


TO PRINT ALTERNATE TRACK ADDRESS 
FLAGS 
LENGTH 
ADDRESS OF LAST PRINT CHARACTER 


RESTORE ORIGINAL PARAMETERS 
SET ERROR FLAG 
EXIT 


TO PRINT MSG. 


-PFLAGS 


LENG TH 

ADDRESS OF LAST PRINT CHARACTER 
MESSAGE IDENTIFICATION 

TO DCP HALT 
HALT ID 

TO TEST FOR ENTRIES 
PLACE ADDR. 
IS TRACK #1 
JUMP IF YES 
SET ON IF IT WAS OFF. 

GO SEEK NEXT ADDRESS 

TURN OFF TRACK #1 BIT 

ADD ONE TO CYLINDER NUMBER 
HAS CYLINDER VALUE REACHED 4&? 
NO, GO SEEK NEXT ADDRESS 

YES, NO ALTERNATE TRACKS LEPT 


OF ALT TK. IB PIELD 
BIT ON? 


PROG ID OFFS5-3 
PAGE 7 
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IBM MAINTEMANCE DIAGHOSTIC PROGRAR 


PART WO. 51259658 
PAGE 7a 
PP53 cE DISK IRITIALIZER 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATERERT 
13D6 Cé 13D6 759 pC XL1°C6¢ FLAGS 
33D7 2c 13D7 760 Dc TLitgge LENGTH 
13D8 1674 13D9 761 DC AL2(ERROR2) ADDRESS OF LAST PRIMT CHARACTER 
V3DA aB0F5 13DB 762 DC XL2°*aOFS* MESSAGE IDENTIFICATION 
13DC CO 87 0222 763 B BALT TO DCP HALT 
13E0 KOFS 13251 768 pc XUZ*aAOFS* HALT ID 
13E2 CO 87 OARW1 765 B INITAB-& TO TEST FOR EXTRIES 
766 
I3E6 DSDESOCID3E3C5D9 1441 767 ERRORZ DC CLS4"*NO ALTERNATE TRACKS LEPT, PROGRAM TERAINETES® 
V3EE DSCIE3ICS40E3D9Ci1 767 
13F6 CIDZE26OD3IC5céE 767 
13FE 6BYOD7DSDEC7TDSCI 767 
1406 DU4OE3CSD9DACSDS 767 
WOOF CIE3ICS5CE 767 
1412 CSLIDIDEDSHOESCE 1445 7668 ERRORS DC CLS2"*ERROR WHILE READING ID ON DEFECTIVE TK. DROGRAR TERNS 
VH1A COD3CSLOD9ICSCICE 768 
1822 CIDSC7THOCICHHODE 768 
142A DSUOCECS5CEC5C3E3 768 
1432 CSESCSHOE3D24B4a0 768 
1&3AR DIDOLECTDICIDYYO 768 
14482 B3C5D9DA 768 
1446 EXSD9CICSD24OETE7T 146A 769 DEFECT DC CL37*TRACK XXX, XXXXX SURFACE IS DEPECTIVE® 
1WAE EVEBSLETETETVETET 769 
1456 WOEZE4D9C6C1C32C5 769 
1Q5E VOCIE2NOCUC5C6CS 769 
1866 C3E3C9ESCS 769 
146B EILICIC3D24OE7E7 1497 770 ALIPRT DC CLUS'*TRACK XXK, XXXXX SURFACE IS NOW THE ALTERFATE® 
1873 EVEBSOETETETETET 770 
187B SOEZE4D9C6C1C3C5 770 
1483 YOC9E24ODSD6E640 770 
THBP F3C8C540C 1D3IE3C5 770 
1493 D9D5C1E3C5 770 
1498 00000000 148B 771 WRISAV DC XL4*00t 
149C O0CO00009 149P 772 ALTSAV DC XL4U*008 
ISAO 070203 74A2 773 TABL12 DC X¥L3*010203' TABLE OF ALTERNATE CYLINDFSS 
1QA3 T4UA0 14A4 774 BUFFR2 DC AL2 (TABL12-2) 
TBAS 1422 1486 775 TABADR DC AL2(TABL12) 
TGR? EQLTDICSDY 14AB 776 UPPER DC CLS* UPPERS 
18AC DIDEEBCSDYO 1480 777 LOWER DC CL5*LOWER® 
778 
14B1 3C 01 1772 779 STI2ZE BVI WRTDFC,01 SET FLAG TO INDICATE A DEFECTIVE TK. 
18ES CO 87 166D 780 B STRTIO TO I/O SUBROUTINE TO WRITE ID OR 
781 * ALTERNATE THACK 
14B9 02 16B9 782 DC XL1*02¢ FUKCTION CODE 
14BA 01 10BA 783 DC XL1¢018 CGOKTROL CODE 
WWPB 1772 14BC 784 DC AL2(WRTDFC) CONTROL FIELD ADDRESS 
T4BC CO 87 14C1 785 B +4 ERROR RETURN 
18C1 3C 00 1772 786 MVI WRTDPC,0 SET FLAG BACK TO NORMAL 
198c5 CO 87 1799 787 B CVD TO CONVERT DEFECTIVE CYLINDER BO. 
1ucd 1773 tUCA 6788 DC AL2 (WETDPC#1) ADDRESS OF SOURCE 
14CB 184F 14cc «46789 PC AL2(DEFECT- 28) ADDRESS OF DESTINATIOR 
790 
IUCr OC O08 1455 1480 791 MYC DEFECT-21(5) ,LOWER SET "LOWER*® IM MESSAGE 
1453 38 BC 149A 792 TBN WRTSAV-1,X°80! TEST FOR TRACK 1 BIT CW 
16D7 F2 10 06 793 JT #49 JUMP IP OR 
18PaA OC O48 1855 18AB 79% RVC DEFECT-21(5) ,UPPER SET *UPPER® IN MESSAGE 
795 
18P0 CO 87 021a 796 B PRINT . TO PRINT DEPECTIVE TRACK ADDRESS 
1BEL O01 1wES 6797 ¢ DC XL1°018 PLAGS 
WES 25 1UE5 798 pc IL 1°37? LENS TH 
14E6 196A 14E7 799 DC AL2 (DEFECT) ADDRESS OF LAST PRINT CHARACTER 
18E8 CO 87 138P 800 gf STIZEX-8 
DATE O6APR70 22m AY70 01A0670 010CT70 FROG ID OFFS- 3 
EC NO. 571516 571513 571531 571540 PAGE 7A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129658 IBM MAINTEWANCE DIAGNOSTIC PROGRAS PART BO. 5129658 | 
te: PAGE 8 eo eo PAGE 8a 
PPS3 cE DISK INITIALIZER o| FFS3 cE DISK INITIALIZER ° 
. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © ERR LOC OBJECT CODE ADDR STAT SOURCE STATESERT cee 
5. 802 * AN EPROR WAS ENCOUNTERED WHILE SEEKING, SC 6 1599 CO 81 OCED 870 BE XXX IS PRESENTLY EXECUTING 9 
803 * THE DEVICE STATUS WILL BE EXAMINED AND 159D CO 87 0A11 871 E INITAB-4 
804 CERTAIN RETRY PROCEEDURES WILL BE DOSED ; | 872 
Cc 805 * IN AN ATTEMPT TO ELIMINATE THE FAILURE. GS @ 1541 34 08 15D0 873 RESEEK ST EXTS AV, ARR SAVE RETORW ADDRESS. Qa 
| 806 15a5 CO 87 166D 874 B STRTIO TO 1/0 SUBROUTINE TO RECALIBRATE 
14EC 34 08 1582 807 SEEKER ST SEKEXT+3, ARR SAVE RETURN ADDRESS 1549 00 1589 875 DC 8s XL7*00" PUNCTION CODE 
c 14FO 3c 00 15D1 808 AVI CHKRTY,00 ZERO SWITCH CG @e6 1SAAa 01 15AA 876 pc XL1*°07° CONTROL CODE 9 
1WWF& CO 87 1657 809 8 SENSE TO SENSE SUBROUTINE 15AB 1772 15AC B77 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS 
TUFB 02 18F8 810 DC XL1702? ASK FOR DEVICE STATUS BYTES 0 & 1%. 15aD CO 87 15B1 878 B +8 -ERBOR RETURN 
3 811 o ¢6 15B1 CO 87 166D 879 B STRTIO TC 1/0 SUBROUTIKE TO SEEK 9 
14F9 38 10 176A 812 TBN = STATUS-1,X* 10° IS EQUIPMENT CEECK BIT ON? 1585 00 15B5 880 pC —sa&KL1*00" PUNCTION CODE | 
T4PD F2 10 2A 813 ST EQUC HK JUMP IF YES 1586 00 15B6 881 pc XL1*00* CONTROL CODE . 
1500 38 40 176A 814 TBN  STATUS-1,X*40! IS INTERVENTION REQUIRED ON? c ¢6 15B7 1772 15B8 882 DC AL2 (@RTDFC) CONTROL FIELD ADDRESS 3 
1504 F2 10 4E 815 ST INV REQ JUMP IF YES 15B9 CO 87 15C1 883 B EXITER ERROR REIURN 
1507 38 01 176A 816 TBN STATUS-1,X'01" IS SEEK CHECK ON? 15BD CO 87 15C8 884 B EXITOK CK RETURN 7 
. 150B F2 10 63 817 oT SEEK CK JUMP IP YES Cc ¢ 885 2 
150E CO 87 O21A 818 B PRINT NO, PRINT ERROR 15C1 35 02 15D0 886 EXITER L EXTSAV,XR2 LOAD XR2 WITH RETORE ADDRESS 
1512 C6 1512 819 DC XL1°C6! PLAGS 15C5 £0 87 CO £87 B. 0 (,XR2) ERROR EXIT 7 
; 1513 13 1513 820 pc IL1*198 LENGTH Cc ¢6 15C8 35 02 15D0 888 EXITOK L EXTSAV, KR2 LOAD XR2 WITH RFTUR® ADDRESS . 3 
1594 15E4 1515 821 DC AL2 (ERRORA) ADDRESS OF LAST PRINT CHARACTER 15cc £0 87 08 889 B 8(,XR2) GOOD EXIT Sa a 
1516 A009 1517 822 DC XL2*A009# MESSAGE IDENTIFICATION 890 ee : 
1518 CO 87 0222 823 B HALT TO DCP HALT G @ 1SCF o¢o0 15D0 891 EXTSAV DC xL2*00" & 
151¢ A009 151D 828 DC XL2*a009* HALT ID 15D1 00 . 15D1 892 CHERTY DC XL1 "00° 
151E CO 87 15A1 825 B RE SEEK TO REISSUE SEEK. ISD2 CSDIDSDEDIVOEECS 15E4 893 ERRORA DC CL19"ERROR WHILE SFEKING® = 
: 1522 CO 87 t4F8 826 B SEEKER+8 REPEAT Co eg ISDA C9L3C580E2C5C5D2 893 o 
1526 CO 87 157P 827 B SEKE XT TO EXIT. 15£2 C9D5C7 893 - 
828 15ES CSDBEXCIDTDSC5DS 1604 894 ERROR6 DC CL32*EQUIPMENT CHECK OWN WHILE SEEKING® ° 
152A 3D FF 15D1 829 EQUCHK CLI CHKRTY,X*FF? TEST RETRY FLAG @ 15ED E3S0C3CB8C5C3D240 8948 Is 
152E F2 81 10 830 JE CHKPRT IF SET GO PRINT 15F5 B6L540 F6C8C9D3IC5 894 
1531 3¢ FF 15p1 831 MVI CHKRTY,X*FF? IF ZERO, SET. ISPD 40E2C5¢5D2C9D5C7 g9a 4 
1535 CO 87 15A1 832 B RESEEK TO REISSUE SEEK Sc ¢ 1605 CODSE3CSD9FSC5D5 1624 895 ERROR? DC CL32*INTERVENTION REQUIRED ON CE DISK* ne 
1539 CO 87 14F4 833 B SEEKER+8 REPEAT — 160D E3C9D6ED540D9CSDS 895 
153D CO 87 157F 834 B SEKEXT TO EXIT 1615 ESCODICSCURODEDS 895 7 
— 835 Cc 6 161D 40C3C540C4C9E2D2 895 = 
1541 CO 87 O27~ . 836 CHKPRT B PRINT PRINT EQUIPMENT CHECK ERROR 1625 C3D6DSE3CIDSCSDE 1656 896 ERRORS DC CLSO*CONTINEOUS ERRORS ON RECAL AND SEEK, PROGRAM TERR. * 
15485 C6 1545 837 Dc XL1°C6*. FLAGS a - 162D EXE240C5D9DIDEDI 896 | 2 
1546 20 1546 838 BC IL 1* 32: LENGTH c¢ ¢6 (1635 E240D6 D540D9C5C3 896 & 
15487 16048 1548 839 DC AL2 (ERROR6) ADDRESS OF LAST PRINT CHARACTER» 163D C1D340C1D5C440E2 896 
1546 AOF7 153A 840 Cc XL2*a0F7* MESSAGE IDENTIFICATION 1645 C5C5D26B40D7D9D6 896 “: 
154B CO 87 0222 841 “Bo «HALT TO DCP HALT GC h6¢ 164D C7D9C1D44S0E3C5D9 896 2 
154F AOFT 1550 842 DC XL2*AOF7! HALT ID 1655 Deus 896 
1551 CO 87 1535 843 B EQUCHK+11 REPEAT ss 
; Buy : g . e sie 
1555 CO 87 027A 845 INVREQ FE PRIBST PRINT INTERVENTION RECUIRED 
1859 C6 1559 846 DC =—_s«-xXL1°C6" FLAGS fa 
155A 20 155A 847 le TL 1° 328 LENG TH © @e6 A 
155B 1624 155¢ 848 DC AL2 (ERROR7) ADDRESS. CF LAST PRINT CHARACTER . € , 
155D AOFE 155E 849 DC =—-« XL2" AOFE®* MESSAGE IDENTIFICATION ies 
155F CO 87 0222 850 B HALT TO DCP HALT GS ¢ o 
1563 AOFE | 1564 851 DC sd XL2 *AOPE®* HALT ID | 
1565 CO 87 15A~1 852 B RESEEK TO REISSUE SEEK. Ze 
1569 CO 87 14F4 853 B SEEKER¢8 REPEAT © «@ oe 
156D CO 87 157F 854 B SEX 2XT TO EXIT 
855 : 
1571 O£ 00 15D1 176D 856 SEEKCK ALC  CHKRTY(1),ONE INCREMENT ERROR COUNTER SC Co 2 
1577 CO 87 15A1 857 - 8B RESEEK ‘ATTEMPT A RETRY : 
157B CO 87 1583 858 B SEKRTY ERROR RETURN ae | 
157F CO 87 0000 859 SEREXT B +-* EXIT Cie . ; 3 
: 860 : | | 
1583 3D 98 15D1 861 SEKRTY CLI CHKRTY,08 CHECK RETRY COUNTER . 
1587 CO 82 1571 862 EL  SEEKCK REPEAT IF LESS THAW 8. cae 2 
158B CO 87 021A 863 B PRINT PRINT ERROR . | 
158F C6 158P 864 BC XL1'°C6! FLAGS a 
1590 32 1590 865 DC IL1*50° LENGTH 0 6 3 
1591 1656 1592 866 DC AL 2 (ERRORS) ADDRESS OF LAST PRINT CHARACTER | . 
1593 AOEF 1598 867° pc XL2*AOEF* _ MESSAGE IDENTIFICATION * ‘a 
. 868 : 8 Ge 2 
1595 3D 02 0Aa03 869 CLI CRTNO,X*02* DETERMINE WHICH ROUTISE a 
DATE  QO6APR70 = 22HAY70 = =—--01AUG70 G10 T70 PROG ID OFFS-3 DATE O6APR70 22MA¥70 01ADG70 0 10CT70 PROG ID OFFS-3 eat 
EC NO. 571516 = 571513 571531 371580 PAGE 8 EC NO. 571516 571513 571531 ‘571540 | PAGE | bs oO 
; Se } | ae) | ey Pag | G; 
9 2o 











ore: eos ees oe vedling. “f 
ua | _ IBS SAINTENAGCE DIAGHOSTIC PROSRAN : : PART BO. (5129658 
6 93 | > a ; ae = PAGE a 
_ PPS | ce PISK FRITIALIZER J °° Frs3 fcr DISK THITTALIZER 
<@RR LOC OBJECT CODE ADDR STAT SOURCE STATESENT ERR LOC OBJECT CODE ADDER STHT SOURCE SiaTrHET 
: 898 * _ SENSE ‘Yo ‘SUBROUTINE oe ¢ 7 : 966 as . 
= 899 a 1738 3a 04 1774 967 FUDSEK SBN URTDFC+2,01 SET BIT ON FOR FORWARD SFEK 
1657 38 08 166C¢ 900 SERSE ST §SRSXH2,AaRR SAVE. ADDRESS RECALL REGISTER. 1738 0c 00 17SE 1773. 968 BVC = SCRCH (1) ,WRTDFCe1 PLACE WES ADDR. IW WORKAREA cs 
6SB 35 O2 166C 901 - L SNSXB2, XR2 LOAD XR2 WITH VALUE FROA ape. eo s VW73E OF OO I75E 17682 969 SLC SCRCH (1) , LASTAD _ SUBTRACT LAST ADDR. ee NEW ADDR. 
I65F 28 03 1665 00 902 SEK  SHS*1,0(,XR2)} MOVE I” FUNCTION CODE. ey 17488 £2 87 07 970. 3 SETADB PROCEED 
¥6% 30 00 1768 963 SWS SkS STATUS,X*00* SERSE 10 ; 971 
]. 96668 £0 27 01” 908 2 2€,XR2) | exIr oe 06 1787 3c 00 1775 972 SOSEEK SVJ &URTDFC+3,00 SET WUNBER OF TRACKS CROSSED 
i 7668 0000 166C 905 SNSZR2 DC XL2*9° . - poe 1788 F2.87 6c. 973 J  AaBRExt TO ExIT 
me 906 : ; , ; 978 
907 « START 170 SUBROUTINE e 6. WIRE OC 00 1775 175E 975 SEIAPB SYC  ¥RTDFC+3(2) ,SCRCH PLACE IW HUMBER OF TRACKS CROSSED 
; 908 2 ' ak 1752 OC 00 1762 1773 976 BVC LASTAD(1) ,WETDPC+1 SAVE WEW ADDRESS. 
(%66D 34 06 1760 909 STRTIO ST $$ SETZR2, ARB SAVE ADDRESS RECALL REGISTER. | 2758 CO 87 90000 977 ADREZT 8B + 2xIT 
4677 35 02 1760 ST0_ L - SETER2, XR2 LOAD XR2 WITH VALUE FROF ane. © ,9 175E 00 1752 978 SCRCH DC XL1°90* 
“3467S 28.03 1684 00 911 MR = $T044,0(, 282) | SET FUKCTION CODE T7SF coo0 1760 979. SETXR2 DC X1L2* 008 
167— 2C OD 1685 01 942. ave | SI.0+2.(1} 3. E82) SET CORTROL CODE If SIO | 1767 60 1761 980 PRETPS DC XL1*°00" 
3O7F. 2C OY 1767 03 913 AVC) = BFE R( 2) , 30, 2 RZ) SET CONTROL FIELD ADDRESS ois 1762 00 3762 981 LASTAD DC XL1*00° 
$688 OC 00 1763 1775 a1 SVC DFC3SV (1) ,wRTDFC?3 SAVE 1763 00 1763 .982 DFE3SV DC XL7°00" 
"$662 BD 60 00 915 CLI 04, XR2) ,00 i: - TEST FOR SEEK 983 
468D CO 81 16E9 916 BE SETADR es I? YES, GO SET ADDRESS e:¢ 00a2 988 BUSY FOB x*a2® 
4691 36 08 1075 917 TaN DISKTP,x*OB* TEST FOR RUN ON LOWER DISK , | GOAO 985 WTEDY FOU  x*a~O* 
1695 F210 O83 918 3T SETFIX JUMP IF YES i O0A6 966 CTLRES FOU x*a6* 
~. 4698 3B 08 1685 919 SBP SIO0#1,%° 08° SET FOR REMOVABLE DISK eis . 987 
= + 169C 3B O08 1713 920 SBF RSI0+41,2°08* SET FOR REMOVABLE DISK 1768 a0 1768 988 SPEDLA DC XL7* Ao? 
1620 F2 87 08 921 a LDFCR | PROCEED 1765 BO 1765 989 SPRDLB DC XL1* 50° 
2 1603 34 08 1684 922 SETFIX SBN SIO+1, "08" SET FOR FIXED DISK © |s 1766 1772 1767 990 DPCR  ovDc AL2 (ERIDFC) 
" 16a7 3A O08 1713 923 SBN RSTO+1,x°08* SET FOR FIXED DISK 1768 W77A 1769 991 DFDR xc AL2 (WORK) 
cs 16AB 31 A6 1767 924 LDFCR LIO DFCE,CTLREG LGAD CONTROL REGISTER i 1764 6000 1768 992 STATUS DC XL2"90* STATUS FROM LAST SEKSE 
m 16AF 31 aa 1769 925 LDFDR LIO DFDR,X*AG* “LOAD DATA REGISTER ¢ #9: 176C 0001 176D 993 ONE pc XLZ* 01° 
Ss 1683 F3 AO 00 926 SIC SIO x*"00*,x*a0e ‘START I/O OPERATION: pe 176E 00 1762 998 COUNT DC x1L1°00° 
16B6 C1 A2 1636 927 WAIT TIO *, BUSY @AIT TILL COMPLETE | VI6F 05 176F 995 FIVE DC X1L1°05* 
16BA BD 00 00 928 CLI 0(,XR2),0 WAS THIS A SEEK ac ¢ 1770 GO000 1771 996 BUFFR1 DC XL2*00° 
AGB CO 01 16E3 929 BNE ‘TSTERR BRAKCH IF WO i 397 
-16C1 OC OO 1775 1763 930 HVC) 8=—- BRIDFC+3 (1) ,DPC3SV RESTORE 998 * DOLPHIN WRITE CONTROL FIELD 
t 1607 38 01 1776 931 SBF WRTDPC+2,01 SET FOR/REV BIT OFF Go ¢ 1772 00 1772 999 WRIDFC DC XL7"00° ‘FLAG BYTE 
16CB 3D 00 1752 932 CLI SCRCH,O TEST FOR SEEK MOVESENT 1773 00 1773 1000 DC XE1*00* CYLINDER 0-202 
./ .46CF P2 81°11 933 JE TSTERR JUMP IF NONE 1778 00 1778 1001 DC XL1*00° HEAD & SECTOR 
, -96D2 CO 87 1657 934 DELAY1 B SENSE TO SENSE 2c @ 1775 00 1775 1002 DC XL1°00* SECTOR CCUNT 
16D6 02 16D6 935 Dc XL1*02* ASK FOR BYTES 1 AND 2. 1776 00 1776 1003 RDDFC DC XL1*00* FLAG BYTE 
16D7 38 10 1768 936 TBN STATUS,X*10* TEST FOR SEEK BUSY 1777 00 1777 1008 pc XL1*00" CYLINDER 0-202. 
16DB CO 10 16D2 937 ET DELAY1 LOOP TTLL BUSY DRO Cc 3 1778 CO 1778 1005 pe XL1*90° HERD & SECTGR 
16DF 35 02 1760 938 L SETXR2, XR2 RELOAD XR2 1779 00 1779 1006 pc XL1*°00* SECTOR CCUNT 
. 939 1774 00 1778 1007 BORK DC XL 1°00" 
16E3 F1 AO Ou 940 TSTERR TIO 4%(,XR2) ,NTRDY BRANCH IF ERROR Cc 6 1778 00 177B 1008 ERRFLS DC XL1*0° 
16£6 EO 87 08 981 B 8(,XR2) EXIT 177¢ 00 177C 1009 TRACK# DBC XL1*00° 
942 177I C9ESCIE3CICID3C9 1797 1010 HSGO1 DC CL27* INITIALIZATION NOW COMPLETE* 
943 © SUBROUTINE TO SET THE NUMBER OF TRACSS AND THE Oo s 4785 EIC1TE3CIDEDSAODS 1010 
944 © DIRECTION (FORWARD OB REVERSE), TO SEEK 178D D6E64OC3DEDADID3 1010 
9a5 : : 1795 CSE3C5 1010 
t 16E9 38 08 175D 946 SETADR ST ADREXT+3, ARR SAVE EXIT ADDRESS e cs 1011 
1GEL BD 01 01 987 CLI 1{,XR2),01 IS THIS A RECALIPRATE 2? 1012 * SUBROUTINE TO CORVERT A NUMBER TO DECIMAL. 
a 16FO F2 01 08 948 INE 47 JUMP IP KO 1013 
16F3 3c 00 1761 949 NVI FPSTPS,O SET SWITCH TO REQUEST RECAL. cle 1798 00 1798 1014 BXEYT DC xL1°0° 
: 16F7 3D 00 1761 950 CLI ¥F©STPS,00 IS THIS FIRST PASS | 1799 36 08 176D 1015 CVD a ORE, ARR ADD ONE TO BET FIRST PARAMETER. 
ee 16FB F2 01 17 951 JNE SETADA SKIP RECALIBRATE IF WO 179D 34 08 17BA 1016 ST FROR+5, ARB INSERT THE FROM ADDRESS. 
e 16FE 3C 01 1761 952 NVI. FRSTPS,01 SET FIRST PASS SWITCH cia 17A1 36 08 OF2F 1017 a TWO, ARR ADD TWO TO GET THE SECOND PARASETER. 
1702 3B O01 1774 953 SBF WRTDFC+2,01 SET FWD/REV BIT TO REY. I7AS 34 08 17C0 1018 ST TY BOT+5, ARP INSERT THE TO ADDRESS. 
bo 1706 3c FF 1775 954 BVI «-« SRTDFC+3,255 SET NOMBER OF TRACKS CROSSED 1749 38 08 17C6 1019 ST OTORZ+5, ARR 
; 170A 3C 00 1762 955 MVI LASTAD,0O SET OLD ADDR TO 0 Cc; e I7AQ 36 08 176D 1020 a ORE, ARR ADD ONE FOR EXIT ALDRESS. 
170£ 31 AG 1767 956 RLDFCR LIO DFCR,CTLREG LOAD DATA CONTKOL REGISTER i 17B1 348 08 17E9 1021 ST TIXE+3, ARR STORE EXIT ADDRESS. 
‘rs 1712 F3 a0 00 957 RSIO SIO 00,X*A0! SEEK REVERSE 17B5 Oc 01 17CC 0000 1022 FRCMN SVC FROBYT+5(2),%-* 
EY 956 Cc 68 17EB OC 01 17DF 00CO 1023 TYEOT BYC TOBYT+3(2) ,*-* 
f 1715 OD CO 1773 1762 959 SETADA CLC WRTDFC+1(1),LASTAD COMPARE NEW ADDRESS WITH LAST 17C1 0C 01 17D0 0000 1028 OTCRZ MVC ZROTO+3(2),*-* 
fe I71B F2 81 29 960 JE NOSEEK EQUAL, SEEK IS ROT NFCESSARY 17C7 Oc 00 1798 0000 1025 FROBIT MVC HXBYT(1) ,#-* PUT BYTE IN WORK AREA. 
| T7IE F2 84 13 961 a8 FWDS EK NEW ADDR. HIGHER, DO FORWARD SEEK Q & 17cD CH 20 9000 17F4 1026 ZRCTO ZAZ *-*(3) ,UNITS(1) ZERO THE TO AREA. 
1721 3B 01 17748 962 SBF WRIDFC+*2,01 NEW ADDR. LOWER, SET BIT FOR REV. SK 17D3 OF OO 1798 17€D 1027 DECGAN SLC HXBYT(1) ,OKE DECRENENT THE HEX BYTE. 
~-+ 1725 0C 00 175E 1762 963 MVC) =6SCRCH(1) ,LASTAD PLACE LAST ADDR IN WORKAREA 17D9 ¥2 82 OA 1028 JL TIXE JUMP IF BELOW 1. 
f- «172B OF 00 1758 1773 964 SLC SCRCH(1) ,WRIDFC+1 SUBTRACT NEW ADDR. FROM LAST ADDR. C Oa 17DC G6 20 COCO 17za 1029 TCEYT AZ #-* (3) , DECONE( 1) INCREMENT THE DECISAL COUBT. 
i 1731: F2 87 IA 965 J SETADB PROCEED V7TEZ CO 87 17D3 1030 B DECGAR 
Pa Go es 
| DATE OGAPR70 22mAY70 01A0G70 010CT70 PROG 1D OFFS-3 DATE O6APR70 22HA¥70 01a0G70 0 10CT70 PROG ID Orr : 
* EE KO. 571516 571513 571531 571590 PAGE 9 EC NO. 571516 571513 571531 571580 PAGE 
Co 9 
: GC oO 
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e | 
* YBS SAINTENANCE DIAGNOSTIC PROGRAE : ‘PART HO. $129658. 
z a _ 1 s PAGE - 10 
a PYS3 ce DISK IWITIALIZER 
“. BRR LOC OBJECT CODE ADDR STHT SOURCE STATERENT 
Be 1726 CO 87 0000 1031 TIXE 8B o-* EXIT 
a WEA FI : 17EA 1032 DECONE DC cL1i1 
ie IWWEB FIFZP3EGFSPSF7Y6 17F4 1033 UNITS DBC €1L70*°1234567890° 
ns 17F 3 P9OFO 1033 
& 17P5 1036 LIST EQU « 
2 VTFS 181C 1035 DS CL&O 
Fe OOG6F 1036 AO EQU xX" 6F* HALT DISPLAY 0 
\ 0003 1037 #1 FOU) x*:03° HALT DISPLAY 1 
Z | 0076 1038 H2 £05 x*768 HALT DISPLAY 2 
re 0057 1039 H3 eOD) 830 x* 57 HALT DISELAY 3 
001B 1040 HA. FOO) =x" 388 HALT DISPLAY 4& 
OOSC 1041 HS EOD = x* Sc HALT DISPLay § 
007D 1042 H6 FOU) =x? 7Dt HALT DISPLAY 6 
0007 1083 H? EOU 07 
OO7F 1044 HB EQU) =x" 7F¢ HALT DISPLAY 6 
OOSF 1045 H9  . EQD. xSP HALT DISPLAY 9 | 
003F 1046 HA EOD) = x*3F! HALT DISFLAY A 
0079 1087 HB EQU = x#'798 HALT DISPLAY 8B 
o06C 1048 AC 200 x*6ce HALT DISFLAY C 
4s 0073 1089 HD FOO = xx#739 HALT DISPLAY D 
re 007€ 1050 HE EQU) = xx*7C* HALT DISPLAY E 
be 003C 1051 HF Foo) k* 3c" HALT DISPLAY F 
; 003B 1052 HB EOD 86. x*3B HALT DISFLAY 8 
0001 1053 xR1 EQU) 
0002 1054 xRz £00 2 
0008 1055 ARR FOU 08 
020A 1056 SECISW FOU x*20a° 
020A 1057 SWITCE EQD x*20a° 
0212 1058 TEST EOD x*212" 
0216 1059 LIXK FOU Xx*2169 
O21A 1060 PRINT EQU  x*21a~A* 
022A 1061 LOAD EOD x*22a° 
O21E 1062 UNFACK EQU x*21E* 
0222 1063 HALT EQU x*2229 
OA03 1064 CRINO EQU  X*OA03¢ 
FFFP 1065 END : 
{ + 
f. 
: 
3 : 
f 
$ 
: 
3. DATE 06 APR70 22m AY70 01A0G70 010CT70 PROG ID OFFS--3 
j. BE No. 571516 571513 571531 571540 PAGE 10 
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ISH SAINTEWANCE DIAGNOSTIC PROCESS 


- ¥PS3 


SIss0L T 


ADREXT 
ALTLST 
ALTPRT 
ALTSAYV 
ARR 


BUFFR1 
BUFFR2 
BUSY 
CETRK 
CHRPRT 
CHERTY 
CKCYL 
CKCYLE 
CONTUE 
COUNT 
CRTNO 
CTLREG 
cvp 
CYITBL 
DECGAN 
DECOWE 
DEFECT 
DELAY1 
DFCR 
DFC3SV 
DPDR 
DISKTP 
DSKPRT 
ENDS ET 
ENDSTP 
END16 
EQUC HK 
ERCONT 
ERRFLG 
ERRORA 
ERROR 2 
ERROR3 
ERROR 
ERRORS 
ERRORG 
ERROR7 
ERRORS 
ERROR 
EXITER 
EX ITOK 
EXISAV 
FF5 
PIVE 
FROBYT 
FROM 
PRSTPS 
FWDSEK 
FXDISK 
HA 
HALT 


ANFANAAAQAQ AN ww >» w» Dp pe DD pw D> pe De pe BD» pw BD De De Dw DP fs Dy pe De fee fe py De fe De fe Be De De fw Dt ee fee 7) () be De ee Be te Be pe OO) te ey te ee ie 


DATE 
EC xO. 


cz 


DIS kK TsrrTrartzrzeR 
CROSS~ REFERENCE 

LEN VALUE DEF REFERENCES 

004 4754 0977 0946 0973 

002 OF29 0453 0183* 0265 0270 

085 1497 0770 0718 O722* C724 07348 

008 189F 0772 0687* 6672 0690 0717 0720 0749 
007 o008 1055 0411 0464 0592 0632 0807 0873 0900 0909 

1018 21016 1020 1021 ; 

002 1771 0996 0638* 0635 0638 d640¢ 

002 18A8 0778 0638 . 

001 OOA2 oO9688 0927 

009 #41178 0578 0586 

008 1841 0836 €830 

601 15D1 0892 O80R* 0829 0831* 0856* 0861 

605 03812 0185 0151 

005 ocs6 0239 0245 

004 OFSS ou74 0&69 

001 176E 059% 0125 0127* OT28¢ OR67¢ 

001 OA03 1064 0468. 0869 

001 O0A6 0986 0924s OSSE* 

004 41799 1015 0706 0716 0787 

001 0883 0170 0144 

006 17D3 1027 1030 

001 1I7E£A 1032 1029 

037 186A 076° 0708 0712* 07148* 0729 0789 0791* 0794%* 0799 
008 16D2 0934 0937 

002 1767 0990 0913* 0924 0956 

001 1763 0982 0974 0930 

002 1769 09914 0925 

001 1075 0569 0069* 0098* 0331* 0356* 0507* 0510* 0917 
014 1168 0577 0508* 0511 0585 

008 1071 0567 O464* 0565 

OC’ OF£29 O440 0817* 0815 0825 

004 OAE3 0129 01248 

004 152A 0829 0813 0843 

002 1271 0621 0416 O418* O82U* 0439% 0599 0601* 0608* 0619 
004 14778 1008 0056* 0101 0111 0320* 0737 
019 15E4 C893 0821 

O48 1411 0767 0761 

O42 OFBA 0448 0219 

O48 OEBA oO4ag 0275 

052 1485 0768 0743 

032 1608 0894 0839 

032 1628 0895 0848 

050 7656 0896 0866 

J42 OE6O O847 0289 

Coe 15C1 0886 0883 

oo4 15C8 0888 0B 84 

002 15D0 0891 0873* 0886 0888 

001 O0000 0003 

001 176F 6995 0127 Ps 
006 17C7 1025 1022 

006 1755 1022 1016* 

001 1761 O9386 0465* 0949% 0950 0952 

O04 1734 OS7 0961 

014 #1190 os80 0511 

C01 OO3F 1046 

00% 0222 1063 C163 0221 0258 0277 0291 0380 0393 0403 

C558 O7485 0763 0823 O841 ©O650 

oc1 0079 1047 

061 O0€C 1048 

ect Ooo73 10689 

601 o07C 1050 

Cot 003c 1051 

001 OO3E 1052 

001 1758 14014 1025* 1027* 

OG1 OCEF 1036 

OC1 C003 1637 
OGATRTC 22" AY7O C1AUG70 010CT70 

571516 571513 571531 571540 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 5129658 IBS MAINTENANCE DIAGHOSTYC PROGRAS PART WO. 5129658 | 
. | : PAGE : 11 6 | 3} a2 PAGE | Wa. ‘g 
i Prs3 CE DISK INETIALIZER © ot cE DISK INWITIALIZER 
CROSS-REFERENCE CROSS~ REFERENCE : 
SYMBOL T LEN VALUE DEFN REFERENCES G @ SYMBOL T LEN VALUE DEPN REFERENCES _ C 
H2 € 001 0076 1038 PROCED A 004 0A21 0055 0129 0136 0155 
#3 C GC1 0057 1039. © @ proct a 008 OCFF 0317 & 
HS Cc 001 0018 1080 PRTER4 A 00% OCBC 0272 0269 
HS C 001 005C 1041 RDDFC A001 1776 1003 0073 007€ 0079 0195 0200 0202 0335 0338 0381 0659 0662 0687 
H6 C001 007D 1042 © @ READER a 0C4’ occ4¥ 0281 0074 0196 0336 | ce 
H7 c 0C1 0007 1043 READPT A GO0& OCDS 0286 0282 . 
8 C001 OO7F 1048 RESEEK A 00% 15A1 C873 0825 0832 0852 0857 
#9 C 061 O05F 1085 ea. : © @ RETRY A 001 OF30 0457 0059* 0083 0092* 0185* 0205 0213 0281 0283¢ 0321¢ 0385 035% £ 
 IDERMG A 089 Of82 0168 0160 0390 RLEFCR A 008 170£ 0956 0537* . 
IDERR A OCS OB3E 0157 ooem RSDISK A014 1182 0579 0508 Sa 
IDRR A COS ODAC 9387 0346 GS  @ Rsto a 003° 1712 0957 0538* 092C* 0923* £ 
INIT aA 604 6a00 0010 a RTNO2 A OC1 OCE9 0302 0031 a 
IHITA A001 0a0D 0029 0019 * - RUNPRT A042 115D 0576 0527* 0530¢ 
_IWITAA A 008 0F314 O68 0088 0307 a © | @ SAVXK1 A 0C2 OB8E 0174 0149% 0150 0243 0244 £ 
-TNTTAB A 006 0A15- 0050 0166 0223 0279- 0293 0787 0765S 0871 SCRCH A001 1752 0978 0932 0963* 0964* 0968* 0969* 0975 : 
‘THITAC A 004 0025 0056 0119 SECTSW C 001 020A 1056 0067 0141 0235 0329 0466* 0494 0896 0513 0515 
IWITAD A GO8 OAIS 0061 0093 C ! @ SEEXCK A 006 1571 0856 0817 0862 c 
INITAE A OCS ORBB 6192 0288 Pes | SEEKER A004 18EC 0807 0965 0190 0327 0653 0670 0695 0826 0833 0853 
INITAF A 008 ODAET 0133 0102 0172 ~~ SEKEXT A 008 157PF 0859 0807* 0827 0834 0854 
INITAG A 008 OARF6 0137 0138 C | © SPeRTY a 908 1583 02861 0858 . 
INITAH A 006 OB8F 0179 0158 SENSE A 008 1657 09300 04812 0427 0561 0593 0612 0809 0934 
INITAI A 0C6 OBAS 0188 0229 0286 . | SETA A006 OFE6 05256 0514 
INITAJ A 006 0015 0225 0199 0262 0271 © | © SETADA A 006 1715 0959 0951 
INITAK A 004% 0Cc80 0259 0201 | SETADB A 006 174E 0975 0965 0970 
INITAL A008 0C96 0265 0203. i  SETADR A 004 1629 0946 0916 
INITAM A 00% OC2ZA 0230 0227 : © i @ SeTB A006 OFF3 0529 0516 
INITAN A 00% OBAF 0186 0218 . oe 7 SETBTH A OC6 OFFD 0532 0528 
INITAO A 00% 0CO1 0216 0206 ace SETDSK A 004 OF87 0493 0505 -0528 
INITAP ACO’ OC6S 02467 0238 0236 C @ SETFIX A 008 1623 0922 0918 : 
INITAQ A OCH OACY 0123 0717, * SETFXT A 004 OFBA 0510 0497 
-INITBA A 006 0831 0153 0140 0182 SETPMY A 004 OFAD 6507 0495 | 
INITEB A 004 CASC 0095 0068 0077 0081 C € SETSPL.A 004 OFC4 0513 0509 a a of 
IwIT13 A 004% 07303 9318 0386 . SETXR2 A 002 1760 0979 0909* 0910 0938 . 
INIT1& A O08 0013 0323 0355 SIO A003 16B3 0926 0533 0911* 0912* 0919* 0922% 
INIT22 A 008 OD6A 0357 0330 0339 4333 © © soi a 004 ODEF 0419 0826 € 
INVREQ A004 1555 0885 0815 mS 2 S102. A 006 ODFB 0424 - 0430 , 
LASTAD A001 1762 0981 0955* 0959 0963 0969 0976+ . - SI03 A 00% OF08 0427 0423 i. 7 
LDFCR A 00% 16A8 0924 0526* 0529* 0532 0533 0534 0535 6536 0537 0538 0921 Cc @ = sns A 008 1664 0903 0536* 0902 £ 
LDFDR A 00% 16AF 0925 , 05326 : . SNSXR2 A002 166C 0905 0900* 0901. 
“LINK C001 0216 1059 s SPNDLA A 001 17648 0988 0526 . 
“LIST A 001 17F5 1034 0855 a C € SPNDLB A001 1765 0989 0529 
- LOAD C€ 001 O22A 1061 0256 0382 st STATUS A 002 1768 0992 C414 0429 0568 0595 0614 0812 0814 0816 0903* 0936 
LOWER A 005 1480 0777 0718 0724 0791 : STEPCE A O0C4 ODCO 0397 0361 ; . 
LSTADR A002 OF2D 0455 0181 C © = Sstepci a 004 opps 0411 0369 : ; re 
| LSTSAV A 002 OF2B 0458 0182* 0259 0262¢ STEPC3 A 00% ODA 0385 0374 » 4 
MOD1 a 001 OF6C 04879 0470* 04749 : STEP 10 A 004 1223 0592 0109 
, BOD2 A 002 1220 0585 0975 ; C © StTEP12 a 008 1272 0632 0099 0617 
: MOD3 A O02 1222 0586 0471 STPPTR A 003 08320 0148 0146 
‘004 A 001 103B 0545 0472 0476% STRTIO A004 166D 0909 | 0061 007C 0086 0095 0105 0186 9192 0208 0323 0332 0348 0357 
8ODS A002 103D 0546 0471* 0975+ C'e@ 0365 0819 0603 0648 0655 0666 0677 068% 0691 0700 0780 90878. 
:8OD6 A 0OT 10848 0549 0539* 0542¢ 0879: 
voMSGALL A 037 121E 0588 0557. STRTMS A 049 10C3 0571 0480 . 
“MSGCAT A 027 11CE 0582 0551 €C © svi2a A 008 1272 0635 0641 a i 
» SSGVRF A 032 OF27 0452 0434 ST12B A 006 129E 0643 0639 ; 
-OMSGWID A O45 OEE? 0450 0400 ' St12C A 006 12AaC 0647 0753 0757 . 
| 8SG01 A 027 1797 1910 0252 0378. , © © ST1I2CA A 006 13AB 0749 0663 a 
¢, NODISK A 005 10FC 0573 0285 0501 ST12CB A 008 13C0 0754 0751 
, WOSEEK A008 1787 0972 6960 ST12E A 00% 1881 0779 0637 
 .MOSPND A 008 1133 0575 0489 0520 € ¢ ST12Ex 2 004 1393 0738 0632* 0800 
y NTRDY C001 OOA0 0985 0940 SWITCH C 001 020A 1057 0123 0139 0233 0540 0552 
p OWE A 002 176D 0993 0092 0128 0138 01487 0213 0231 0241 0283 0354 0424 0608 0640 S10A A 004 123E 0603 0610 : 
L 0755 985€ 1015 1020 1027 C C sS10B 2.006 124A 0608 0616 : 
| OTORZ a C06 17C1 1024 10194 $10C A 00% 1257 0612 0607 
? PRINT C001 021A 1060 0157 0216 0249 0272 0286 0375 9387 0397 0431 0877 0482 0486 SI0OEXT A 00% 126C 0620 0592* 0597 0609 . a 
on 0498 0517 0543 0548 0554 0726 0731 0740 0758 0796 0818 0836 © 2 $12D a 00% 1397 0740 0688 co 
ed 0845 0863 TABADR A 002 14846 0775 0633 
i. . Cc 36 oO 
| DATE 06 APR70 224AY70 01A0G70 010CT70 PROG ID OFFS-3 DATE 06 APR70 2 2MAY70 01AUG70 010CT70 PROG ID OFPS-3 
| BC NO. 6577516 571513 571531 571540° PAGE 11 EC NO. 571516 571513 571531 577540 PAGE 11a x 
: oc #8 ¢ 
Oo © 
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SYMBOL 


TABL 12 
TBLEND 
TBLENE 
TBLREV 
TEST 

TIXE 

TORYT 
TRACK® 
TSTERR 
TWO 

TYEOT 
UNITS 
UNPACK 
DPPER, 
WATT. 

WORK. 





WRTSAV 


xR1 
XR2 


XxX 


ZROTO 


DATE 
EC NO. 


SRPn POs wy ree er erae wpe +3 


c 


_¢ 


A 


A 


Cc ez 


LEN V 


003 
002 
002 
001 
001 
004 
006 
001 
003 
002 
006 
010 
001 
005 
008 
001 
001 


0048 
001 
001 


004 
006 


OGAPR7 
5715 16 


DI 


ALOE 


14A2 
oB8c 
0£36 
0E2D 
0212 
1726 
17DC 
177C 
16E3 
OF 2F 
17BB 
174 
02:12 


1HAB.- 


16B6 
VITA 
1772 
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52 * READ DATA FROM CARDS OR THE KEYBOARD. THIS ROUTINE FIRST CHANGES 
53 * INSTR. AAO? SO THAT IT BRANCHES TO AAOG. IF SSH 18 IS OPF THE 
5% * ROUTINE BRANCHES BACK TO AAO7 ABD PROCBESES. IF SSH 14 IS O8, € 
55 * ( READ IN PROS ). THE READ ROUTIBE ILS MOVED IN OVER THB 
56 * CARD READ ROUTINE, AND A BRANCH BACK TO AAY 7 IS PERFORMED. THIS 
57 * WHOLE ROUTINE IS DESTROYED THE FIRST TINE A READ I8 IS DONE. € 
58 
OA8O 3D C2 0200 59 CLI SYSTES,C*B* 
OABS F2 01 26 60 INE AAO7X € 
OAS7 3D £8 0235 61 CLi X*235*,x*e8* §213 ? 
OASB F2 01 OA 62 JNE 1LD5203 
OABE CO 87 022A 63 B LoaD 
OA92 08 0ag2 64 pc XL1*O0@¢ 
€ 
DATE 22MAY70 01A0G70 010CT70 O1APR71 17NOVT1 OIMAR72 7230872 PROG ID OFF6-7 
EC "0. 571513 571531 571540 571565 571604 571603 571628 PAGE 1 G 
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PP67 
ERF LOC 


9293 
OR95 
098 
OASC 
cAagsD 
DROP 
ORAI 
ORAT 
OAAD 
GAB 
OABS 
OABT 
OABD 
oaci 
O ABO 
OAEO 


DATE 
FC NO. 


PIs «K EDIT?OR 
OBJECT CODE ADDR STAT 
DFFD CASS 65 
P2 87 CF 66 
cl @7 O228 67 
C8 OAgC 6&8 
DF FC OA OF. 69 
38 O06 UZ0A 70 
cO &O GRAD 74 
Oc FE O156 WCB7 72 
cO 87 TOaS 73 
co 87 t746 7&8 
TAIE OABG 75 
OC O01 OBA ORC? 76é 
CO 87 OBA? 77 
QAiS OACZ 78 
73 
8TH OROEC OAE3 80 
22 MAY7C OTAUGTO 010CTTO 
571531 571580 


571513 


SOURCE 


LD5263 
RAOTE 


AAGTE 


ARAOS 


THREBK 


STATERENT 

ac XL2° OPPD* 

d KAOTZE 

B LOgD 

bec XL 1° 98* 

pe XL2*DPPC® 

TBN SRITCH, X*O8® 

BP RAOTE 

nT 

3 CHE Pas 

5B SEEK 

BC AL 2 (8RTDFC} 

MYC AAG7 #32) -ABACS 

B AAC? 

Be AL 2 (2308) 

ORG REBDI#SSS 

BC Ci8* s 

OAFR71 T7NOV71 
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RETURN TO HAIN PROGRAK 
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DISK 


ERR LOC OBJECT CODE 


OARS 01 
OAES CO 


OAEG 


OAES 
OAEC 
ORED 
OAKEE 
OAFO 
OAF2 
OAF6 
OAFR 
OAFC 
0B00 
0B08 
0807 
OBOB 
OBOE 
OBI2 
0813 
OBS 
OR 16 
' OB18 
OBIC 
OBTE 


0822 
0B26 
OB2c 
0R30 
0BI2 
0B37 
ORVA 
OBSE 
ORIF 
0840 
OBM2 
O BGs 
OB48B 
OEGR 


OB4E 
0854 
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OBSD 
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0B65 
0B68 
OB6C 
OBT0 
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AQF2 
co 67 


08 
co 


00 
87 
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CA 
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81 


22MAY7T 
571813 


0222 
OAFS 
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1807 
O20A 
O208 


Va 
Gia 


0222 
0B26 


3801 
1958 


TTBE 


1033 


OA24 


‘04 


1033 
0200 
OA 
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VASP 


1290 


EDITOR 


ADDR 


. OAES . 


ORES 
ORE? 


OAEC 
OAED 
OAEFP 
OAF 1 


Oar? 


OBT2 
0OB13 
CBI5 
OBT7 


OBID 


OBZE 
OB 3P 
OBS4 
OBS3 


0 Bag 


OBSC 


OTVAUG7TO 
5715531 


PART HO. 5129661 


PAGE 2 
STMT SOURCE STATEMENT 
82 * ROUTINE PREFACE 
83 nox 
848 EDITA oc XL 1°08 ROUTINE WOSBER 
85 DC F——s« XZL7°008 ROUTINE FLAGS 
86 MINDST pC XL2° PPPF® ADDRESS OF NEXT ROUTIBE 
87 ; 
88 ¢ 
89 23 
90 * OPERATING INSTRUCTIONS * 
91, * : = 
92 * AT THE FIRST HALT, SET THE POLLOWING SWITCHES, * 
93 * s 
94 & 1. SET SHITCH 10 TO RON OB THE NENOVABLE DISK -OR- * 
85 * 2. SET SWITCH 11 TO RUN OB THE FIXED DISK * 
G6 3. SET SWITCH *2 TO RUN OR DISK DRIVE 1 = 
97 * 4. SET SWITCH 13 TO RUN ON DISK DRIVE 2 * 
98 * 5. SET SHITCH 14 TO USE THE AS IS8PUT. & 
99 « 6. SET SHITCH 715 TO SET PROGRAM HALTS IK END SECTOR * 
100 
4101 SETDSK B PRINT TO PRINT BEFORE RALT 
102 pec XL1°s6* PLAGS 
103 BC IL1*23¢ LEEGTE © 
108 DC AL2 (STRTHS) MESSAGE ADDRESS 
105 pc XL2*AOPFO® HESSAGE ID 
106 B BALT TO DCP ERROR HALT 
107 pc XL2*a0FO* HALT ID 
108 SELDSK B . TEST GO READ CONSOLE SWITCBES 
109 AVI DISKTP, 00 SET TO ROH ON REMOVABLE DISK 
110 TBN SRITCH, X*80* TEST FOR REMOVABLE DISK SELECT 
111 JT SETSPL YES, PROCEED 
112 TBN  SWITCH,X*a0? TEST POR FIXED DISK SELECT 
913 IT SETFXT YES, SET TO RUN FIXED DISK 
114 B PRINT NO DISK SELECT 
115 pc KL i*c6* FLAGS 
116 pc IL1°16¢ LERGTA 
117 pc AY,2 (SODISK) ADDRESS OF LAST PRINT CHARACTER 
118 BC XL2*a0F1® HESSAGE IDENTIFICATION 
119 B BALT TO DCP SRROR HALT 
120 pc XL2*a0F1* HALT ID 
121 B SELDSK LOOP TG BETER AGAIB 
122 
123 SETFXT MMVI DISKTP,X*08* SET TO RUB ON PIXED DISK 
124 SETSPL #82Z LDPDRe1,SPNDLR SET FOR SPINDLE A 
125 TBR SWITCH,X*20° TEST POR SWITCH A OF OKLY 
126 3T SETBTB YES, PROCEED 
127 TBH SWITCH, X*1C? TEST FOR SHITCH B OB GELY 
128 aT SETB YES, SET TO RUN SPIEDLE B. 
129 B PRINT HO SPINDLE SELECT 
130 pc XE 1*C6? FLAGS 
131. pc IL1°19 8 LENGTA 
432 DC . AL2 (NOSPHD) ADDRESS OF LAST PRINT CHARACTER 
133 Cc XL2*AOF2? MESSAGE IDENTIFICATION 
134 B HALT TO DCP ERROR HALT 
135 pc XL2*° aAOP2° HALT ID 
136 B SETSPL 
137 
138 SETB AZZ LDFDRt¢ 1,S PNDLB SET FOR SPINDLE B. 
139 SETBTH B SETSPN TO SET SPINDLE IN I/O SUBROUTIEE 
140 
144 B SENSE 
142 pc XL7°028 ASK FOR DEVICE STATUS BYTES 0 & 1, 
183 
144 NVI TRACK#, 202 SET POR FULL CAPACYTY DIS 
145 TBN STATUS ,X*08* TEST FOR 1/2 CAPACXTY DISK 
146 JF 47 JUMP IP NO 
147 MVI TRACK#, 102 SET POR 1/2 CAPACITY DISK 
148 CLI SYSTES,C*B* : 
149 JE LKBD JUSP IF YES 
010CT70 OTAPR71 17NOV71 O1MNAR72 1230872 PROG ID OFFO-7 
5§7154a0 571565- 571604 . 571603 571628 : 
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PART #0. 
za &t 


PAGE 


wD fe, 13 
=. IBM MAINTENANCE DIAGNOSTIC PROGRAS 
€ sy | | 
: aed FF67 DISK FDITOR 
ERR LOC OBJECT CODE ADDR STAT 
0B73 38 0% 020A 150 TBH TEST SSW 15 
0877 F2 10 03 151 3T BRALT JOSP TQ SET HALT 
OBVTA F2 87 tO 152 3 EDITAA 
~~ OB7TD 153 LKBD £EQD ¢& 
OB7D 3C 78 Ic9S 154 BHALT AVX #HLT1¢1,¥°78°* 
OB81 3C OC IC9A 155 AYI H8LT1¢2,x°0C* 
OB85 3C 78 1CB8 156 MYX #8LTAe1,2%°78° 
0889 3c 5a icBC 157 HVYI HALTA¢2,xX°58° 
158 
OB8D 0&8 3) TAN9 OR27 459 EDITAA ZAZ SBEOQNO(4),DZERO(1) 
160 * Z2ZRO FLAG FOR DCP 
OB93 OF 1P 1AR6E 1R52F 161 SLC ENDIPL(ENDIPL¢&~SAVID), ENDIPL 
162 * ZERG PROGRAR ID LOCATIONS 
163 * ZERO SECTOR COUNTER 
164 2 ZERO DATA BODSLE SBITCH (DATSS} 
. 165 ¢ ZERO PIECE SSITCH 
166 
OB99 3C 80 4454 167 NVI SYSPLG,C* * 
OB9D 3C FF 1AB1 168 NVI LASTHO,E*FF? 
OBA? CO 87 OABO 769 AAOF 8B READ1S TRE PIRST TINE THIS INSTRUCTION IS 
170 * EXECUTED, If BRANCHES TO A TEP. 
. 171 * PROGRAB IN THE READIN BREA. THIS 
172 * PROGRAS MODIFIES THIS T3STROCTICN 
sd 173 * TO BRAECH TO LABEL AAOB ABD 
. : 174 * EVENTUALLY RETURSS TC DO THIS 
175 * INSTROCTION AGAIN. 
ts 176 
< -  OBAS OD 5P OADF OAEO 177 CLC READIW+95(96) ,READIN+96 CHECK FOR BLASK RECORD 
OBAB CO 81 OBA1 178 bE ABO7 IF BLAWK THEN READ NEXT CARD 
: 179 * NOW TEST CARD READ FOR COFTEOL INFORHATION 
€ - 180 
OPAF BL 5B 00 181 CLI O0(,XR2),C*$* DOES COLUAN 1 COWTAIB A $? 
oe 6 CBB2 F2 81 37 182 JE ADDTST BRANCH IF YES 
. ~ ORBS BD 61 00 183 CLI O(,XR2),c*/* DOES COLUSS 1 CONTAIN A SLASH? 
OBBS P2 014 OD 184 JBE FLAGS JUNP IP HO 
B OFBB BD S50 01 185 CLI 1(,%82),C'6* DOES COLUBW 2 CCHTAIN A & ? 
g « OFBE CC 81 0216 186 BE LIEK IF YES EXIT PROGRAS 
OBC2 BD SC 01 187 CLI ¥(,XR2) ,C*** DOES COLUAN 2 CONTAIN A * 7 
2 OBCS F2 AT 1A 188 JE PAUSE TO PROGRAB HALT IF YES 
€ ve -  OBC8 39 FF 1876 189 FLAGS TBF RONFLG,X*PF* 
OSCC F2 90 7D 190 oF FLAaGS1 
» OBCF CO 87 021A 191 8B PRIET HO, PRIET ERROR. 
€ “ OBD3 C6 OBD3 192 pc EL1°C6? FLAGS 
COBDS 16 OBD&’ 193 pc IL7*768 LENGTH 
” OBDS 1AC7 OBD6 194 Dc AL 2 @ERROR1} ADDRESS OF LAST PRINT CHARACTER. 
€ OBD? AOEO OBDS 195 pc XL2°ROEO* ABSSAGE IDENTIFICATION 
OBDS CO 87 0222 196 B HALT TO DCP ERROR HALT 
: OBDD aAOEO OBDE 197 DC XL2*AOEO® HALT ID 
€ $ OBDF F2 87 SP 4198 3 BARO?7 
199 
OBE2 CO 87 0222 200 PAUSE B HALT TO DCP ERROR HALT 
€ 3 OBE6 ACE? @BE7 201 DC XL 2°A0E1® HALT ID 
OBE CO 87 OBBD 202 B EDITAA RESTART PROGRAS 
203 
€ 3 OBFC 2048 ADDTST FOOD 
OBEC 3C 00 1A76 205 AVI $RUBFLG,O 
OBFO BD Ci 01 206 CLI 1(,XR2) ,C*a® 
¢ OBF3 F2 81 UF 207 JE SETADD 
OBF6 RD DY 01 208 Cir 1(,XR2} ,C*R® 
OBF9 CO 81 1177 209 BE BEPPGH Iv YES, GO TO THE REP CARD ROUTINE 
¢ 3 OBFD 8D 07 02 OA7A 2130 CLC 2(2,XR2},PIGCOW DO COLUANS 2-7 = CONFIG? 
OcO2 CO BY 12~A5 2179 BE PIGDCP IF YRS, GO TO CONFIGURE ROUTINE 
. 0C06 BD 01 02 1AA9 212 CLC 2(2,XR2),DELCO# DO COLUSNS 2-% =DEL? 
g a OcOB CO 81 15Fa 213 BE DELETE IF YES GO TO DELETE ROUTINE. 
OCOF BD D3 07 218 CLI 1(,XR2),C*L® 
0C12 CO 81 1648 215 BE LIST IF YES DO A LIST. 
€ 3 -  0C16 8D 01 02 OATF 216 CLC 2(2,XR2),CMPCON CH P? 
0c1B CO 81 1337 217 BE comp 
¢ 3 
LATE 22mAY70. 01A0G70 010CT70 O1APR71 47NOV71 O1NAR72 123 9%72 PROG ID OPF6-7 
< is EC NO. 571513 571531 5715480. 571565 571604 571628 PAGE 2a 
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198 marerzuance: pIaGNOSTIC PROGRAS mr Ho. ee IBA MAINTERAWCE DIAGHOSTIC wanda es eax? #0. st2s6e2 
e668 6 
atc2 sta HIGH OR BFQUAL a0c2 SCAM HIGH OR EBEQDAL 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEREST @ O _ EfR Loc ossect coDE ADDR STHT SOURCE STATESERT o 
218 * ROUTINE 80. O2, TEST SETTING OF THE SCAB FOURD ® OD7D F2 81 10 282 3E RTR2C2 PROCEED IF OX. 
215 » CORDITION & BRABCHING O# A TIO * o 98 OD80 CO 87 021A 283 B PRIBT fO PRINT SECTOR COUNTER BOT STEPPED +) 
216 * USING THE SCAN HIGH OR EQUAL CONAAED e Opes C6 opes «6288 DC ZL1°C6! FLAGS 
217 « WITH AW EQUAL CONDITION * DD8S 2B epe5 «285 pc IL7°43! LERGTH . 
; bd 218 an) OD86 OETF OD87 «286 DC AL2 (ERR02 8) RESSAGE ADDRESS o 
OCE1 02 8CE1 219 RTH2 DC XL1°O2° LIUTINE BURBER opss a073 opss 287 pc XL2*2073° RESSAGE IDENTIFICATIONS 
Oc£2 00 OCE2 220 BC ZL1°OO* ROUTINE FLAGS ODBA CO 87 6222 288 -: HALT TO DCP HALT A 
OCE3 OE80 oces 224 pe AL2 (RTH3) ADDRESS OF SEXT ROUTINE PREPIX &$ @ ODBE A073 ODSF 269. pc 1L2*a073¢ HALT ID 
222 290 
OCES 3p OG OB09 223 CLI SETS#,6 HAVE PARABETERS BEEW ZWTERED? 0D90 3D 00 1995 291 RTH2C2 CLI ERTDFC+2,0 CHECK HEAD & SECTOR BO. AYTER 6 
OCE9 cO 84 OAOD 224 . BE SETDSK BRAECH IF #6 2 e@ 292 * SCAN IS COMPLETED 
OCED CO 87 0867 225 RTH2A B TSTSPE 0D98 F2 81 10 293 JE BTW2D PROCEED IP OK 
OCcF1 3C OO 1993 226 BVI 8RTDPC+2,0 SET FOR HEAD OG, TRACK 0 0D97 CD 87 0212 298 B PRINT TO PRIST ZRROE C 
OCPS CO 87 1828 227 B S EEKCE TO SEEK THE CE TRACK 6 8 0D9B C6 OD9B «295 DC XL1°C6! PLAGS “I 
228 ODSC 43 Opec 296 pc IL1°67* LENGTE 
OcFS CO 87 4788p 229 RTNZA1 8B TSTSEK TO CHECK POR A GOOD SEEK OD9D 1478 OD9E 297 DC AL2 (ERBRO2D) RESSAGE ADDRESS ; 
230 @ 6 OD9P A074 ODAC 298 DC -XL2°A074" HESSAGE IDEWTIPICATION G 
OCPD 3c 00 1256 237 RTH2B BVI 8ORK+255,0 SET WRITE FIELD ODA1 CO 87 0222 299 B HALT TO UCP HALT 
Ob01 OC FE 1£55 1£56 232 HVC YORK+254 (255) , BORK4255 °° ODAS aG74 CDaAG 300 Dc XL2*a078* SALT ID O 
233 : 367 
OD07 3C 12 1879 238 HVI SWSID,X*12* PUT HESSAGE ID IM PRINT ODA? C2 02 1D57 302 BTR2D LA WORK, XB2 SET XR2 TO POINT TO WORK AREA 
OD0B 3C 00 199¢ 235 BVI «6G RTDFC4+3,0 SET TO BRITE OWE SECTOR ODAB. BD 00 00 303 RTN2F CLI 6(,%82},0 CHECK WORK AREA POR BO CHANGE 
236 @ 0 ODAB F2 01 1% 304 JHE RTB2E JUMP TO PRINT IP SCH. PLD. IS CEG. Q 
OpOF OC O01 I1BOE 49BD 237 BYC DFDE(2) ,WORKAD SET WRITE DATA ADDRESS ODB1 E2 02 901 305 LA 1(,XR2) , £82 BOT DONE, INCREAEWT ER2 
238 ODES 34 02 19BB 306 ST  SESXR2,X22 @O CHG, SET TO CHECK EXT BYTE 
0915 CO 67 19D3 239 B STRTIO TO I/O SUBROUTINE o G6 ODB8 OD 01 19BB 1904 307 CLC S¥NSXR2(2) ,WORK2 CHECK XR2 FOR BREACHED UPPER LIRIT. 3 
0D19 02 0D19 290 pc XL1*02* FUNCTION CODE (WRITE) ODBE F2 81 14 308 JE RTH2G TO ROUTINE ERD. 
ODIA 00 ODA 281 pc xL1°00° CONTROL COSE (DATA) Opc1 CO 87 OpaB 309 B RTK2P CHECK BEXT BYTE © 
Opis 1999 OpDic 282 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS e@°¢8e 240 
ODID cO 87 0D29 283 B RTE 2Bi GOOD RETURN opcS CO 87 621A - 311 BTN2E B PRINT TO PRINT SCAM PIELD GAS CHANGED 
9D2% CO 87 0D25 244 B +4 opcs cé6 Opcd 312 pc XL1°C6° PLAGS o 
0D25 cO 87 ODDS 285 B ZRTER2 ZEROR RETORP & eo ODCA 8&6 ODCA 312 pc IL1*6u° LENGTH 
246 ODCcB 1838 Opcc 318 pc AL2 (ERRO2C) BESSAGE ADDRESS 
0029 3¢ 72 1579. 247 RTN2B1 SVI  SWSID,xX*72° PUT ID IW PRINT opcD 4075 ODCE 315 pC XL2*a075° BESSAGE IDENTIFICATION 0 
OD2D 3c OO 199C¢ 288 BVI 8ETDFC#3,0 SET TO SCAN HIGH OR EQUAL OF 6 0 ODCP CO 87 0222 316 B BALT TO DCP HALT 
289 * ONZE SECTOR ODD3 3075 Opps 317 pc XL2*A075° HALY ID 
250 ODDS CO 87 OCED 318 RTH2G B BTH2A ; 
6D31 CO 87 129D3 251 8 STRTIO TO SCAR ZQUAL eo 6 OpDS 3c 12 1B79 339 WRTER2 AVI SHSID,X*72° PUT ID IB PRIRT 
0D35 03 0D35 252 pc XL1°03° PUNCTICH CODE (SCAR) ODDD CO 87 1852 320 B PRTSHS TO PRIET STATUS ERRORS 
0D36 02 0D36 «253 pC XL1°02° CONTROL CODE (HIGH OR EQUAL) CDE1 CO 87 O21A 321 B PRINT TO PRINT URITZ ERROR ° 
0D37 1999 0p38 258 pc PL2 (WETDFC) CONTROL FIELD ADDRESS o @G ODES C6 ODES 322 pc XL1*C6! YLAGS 
0D39 CO 87 0D69 255 B RIN2B2 RETORN POR WO SCAN FOUND ODE6 BA ODE6 323 pc ILi¢7a¢ LENGTH 
OD3D cO 87 0079 256 B RTW2C1 RETURN FOR SCAN FOUND ODz7 14acS ODES 328 pe AL2 (ENRO2E) ESSAGE ADDRESS 0 
257 ec 0° ODES £012 ODEA 325 pc XL2*a012° ESSAGE ID 
0p81 co 87 198 258 RTH2C OB SHI?T TO SHIPT BITS FOR DECIMAL MURBER ODEB CO 87 0222 326 B HALT TO DCP ERROR HALT 
0045 1999 ODs6 «6259 pc AL2 (@RTDFC) ADDRESS OF SOURCE ODEF a012 ODFO 327 pc XL2°a012? HALT ID ° 
0D47 CO 87 1CE9 260 B cvD TO CONVERT TO DECISAL NUMBER 8 °o OpF1 CO 87 OCED 326 ] RTN2A 
Opss icDD Opsc 261 pc AL2 (CYLHO) ADDR2SS OP SOURCE 329 os 
ODSD 0258 ODSE 262 pc AL2 (ERRO2a) ADDRESS OF DESTINATION ODFS E3CBCSS8OD7DICSES 0£28 330 pc CLS2*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCA 6 
ODSF 3c 80 0£52 263 aYI ZRRO2A~2,C® * SET A BLAVK IM PRINT IMAGE 8 06 ODPD CIDSEVE280C5D9D9 330 
0D53 cO 87 1852 268 B PETSES TO PRINT SENSE IFO. OZ0S DEDSEZ4OE6CSDSC5 330 
0D57 CO 87 021A 265 B FRINT TC PRINT THIRD LINE OFOD 8ODTDICSE2CSDSE3 330 ~~ 
ODSB 06 ODSB 266 pc XL1°06* YLAGS 6 Oo O£1S &OCICEEICSD9NOCS 330 V 
ODSC 60 Opsc §=267 DC IL1°96% LENGTH . O£1D DECIDSC780C150E2 330 
ODSD 0858 ODSE 268 Dc AL2 (ZRRO2A) SESSAGE ADDRESS 0225 C3CIDSRO 330 : Q 
ODSF CO 87 0222 269 8 HALT TO DCP HALT o oO O0F29 CECICTCBUDDEDINO OZ58 331 ERROZA DC CL&S*HIGH OR EQUAL COMND. USING HEAD 0, SECTOR XX 
0D63 A072 ODp6&8 270 pc XL2*a072° HALT ID O£31 CSDBELCID3LOC3IDB 331 
0D65 CO 87 0D79 271 B RT#2C1 , 0239 D&DSCUSBUNESE2ZCY 331 0 
272 e 0 O81 DSC780C8C5C1IC880 331 
ones CO 87 021a 273 RTN2B2 B PRINT TO PRINT NO SCAN FOUND CES9 FCEBLOE2ZCSC3E3D6 © 331 
D6D C6 OD6D 278 pe XL1°c6* FLAGS OE51 DIBOPRTE? 331 my 
OD6E 28 OD6E 275 pc IL1*93* LENGTH eC ¢6 OZ55 E2C5C3E3D6D9N0C3 O£7F 332 ZERRO2B DC CLU3*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED® @ 
ODSF 1870 OD70 276 pc AL2 (ZRRO2F) MESSAGE ADDRESS OESD DGESDSE3CSD980C9 332 
0D71 A076 op72 277 pc XL2°h076* ~ MESSAGE ID O£65 DSYOCIDEDSE3DINE 332 Q 
0D73 CO 87 0222 278 B HALT TO DCP ERROR HALT °o 0 OZ6D D380C6C9C5D3C4R0 332 
Op77 A076 0D78 279 pc X22* 00768 HALT ID 0£E75 DSD6E380E2E3C5D7 332 
280 OZ7D DICSC4 332 ° 
OD79 3D FF 199C 281 RTB2C1 CLI WRIDFC+3,xX° FF? TEST SECTOR COUNTER FOR STEPPING. | S$ 8 
BATE 13HAR70 O6APR70 22RAaY70 010670 PROG ID Oa0c-2 @ @ ovate  13maRn70 O6APR70 22maY70 01A0G70 eRog. 1) at = 
EC WO. 571512 571516 571513 $71531 PAGE 3 EC WO. 571512 571516 571513 571531 PAGE 
o 
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OEDS 
OEDS 
OEDA 
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OEES 
OFE8 
OFEA 
OEE 
OEFO 
OEF2 
OEF6 
OEFA 
' OEFE 
OErr 
OFOO 
Oro2 
Oro6 
Oros 


OFroc 
OF 10 
Orit 
OF 12 
OF1S& 
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OF 1a 


: DATE 
EC 0. 


SCA H 


OBJECT CODE 


03 
00 


Orr3 


3D 
co 
cy 
3¢ 
co 


co 
3c 
3c 
oc 


3c 
3c 


oc 
co 


02 
00 


co 
&7 
87 
00 
aF 
87 
OF 
PD 


12 
00 


0% 
87 


1999 


co 


02 


87 
87 
87 


72 
00 


87 


1999 


co 
co 


co 


87 
87 


87 


1999 


co 


87 


1CDD 
OFF2 


3¢ 
co 
co 
06 
SE 


40 
87 
87 


OFF2 


co 


87 


a072 


co 


co 
c6 
2B 


87 
87 


14F0 
A076 


co 


87 


A076 


0809 
OaAOD 
0B67 
1398 
7B2e 
¥8BD 
TES6 
YESS 
1254 


1B79 
19SC¢ 


1BOE 


39D3 


OECC 
OEC8 
ODD 
1B79 
199C 


19D3 


OFoc 
OP IC 


1C98 
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ROUTINE WO. 03, TEST SETTING OF THP 


XL1*03° 
XL7°00" 
AL2 (RTN&) 


SETSH,0 
SETDSK 
TSTSPR 
@RTDPC+2,0 
SEEKCE 


TSTSER 


WORK+255,01 
WORK+ 255 ,0 


PART RO. 5129682 
PAGE & 
SCAN EQUAL SENSE BIT 
WITH A SCAN HIGH OR EQUAL COBSARD 
USING AN EQUAL CONDITION 


ROUTINE SUMBER 
ROUTINE PLAGS 
ADDRESS OF NEXT ROUTINE PREFIX 


HAVE PARABETERS BEEN EXTERED? 
BRANCH IPF #0 


SET FOR HEAD C, TRACK 0 
TO SEEK THE CE TRACK 


TO CHECK FOR & SOOD SEEK 


SET WRITE PIELD 


WORK + 253 (25%) , BORK +254 


SNSID,X*12°* 
WRTDPC+3 ,0 


DPDR (2) , WORKAD 


STRTIO 
XL1*G2* 
XL1°O0* 

AL2 (WRTDFC) 
RTH3B1 

oeQ 

YRTER2 


SNSID,X*72?* 
WERTDFC+3 ,0 


ST&TIO 
XL1*03° 
XL1°02¢ 
AL2 (WETDFC) 
BTN3B2 
RTH3C1 


SEIFT 

AL2 (WETDFC) 
CcvD 

AL2 (CYLNO) 
AL2 (ERRO3A) 
ERRO3A-2,C* * 
PRTSHS 
PRINT 
XL1°06°* 
IL1*9g98 
AL2 (ERRO3A) 
HALT 
XL2*a072° 
RTH3CI 


PRINT 
XL1°Cc6* 
IL1*43* 
AL2(EZREO2PF) 
IL2*a076° 
BALT 
XL2°a076° 


HIGH oR Eeoa.u 
ADDR STMT SOURCE STATESENT 
334 © 
335 
336 * 
337 ©* 
338 
OF8G 339 RBTH3 pe 
OE8i 340 dC 
O£83 341 bec 
382 
3483 CLI 
248 BE 
345 RTN3A 8B 
386 NYE 
387 B 
346 
349 RTN3A1 B 
350 
357 RTK3B AVI 
352 KI 
1E55 353 HYC 
358 
355 BVI 
356 BVI 
357 
19BD 358 BYC 
359 
360 B 
OEBC 361 bc 
OEZBD 362 Dc 
OEBF 363 pc 
3648 B 
365 B 
366 B 
367 
368 RTN3B1 BVI 
369 MVI 
376 * 
371 
372 B 
OEDS 373 pc 
OEDS 378 bc 
OEDB 375 oc 
376 B 
377 B 
378 
379 RTN3C OB 
OEE9 380 pc 
381 8B 
OEEP 382 pe 
OEF1 383 pc 
384 AVI 
385 B 
386 B 
OETE 387 pc 
OEFF 388 pc 
Oroi 389 pc 
390 B 
Oro? 391 pc 
392 8 
393 
398 BTN3B2 B 
OF10 «6395 bc 
OF11 396 bc 
OF13 397 poe 
OoriS 398 BC 
399 B 
OF1iB 4900 pc 
801 
O6APR70 22mAaY70 
571516 571513 571531 
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PUT ID IB PRINT 
SET TO WRITE ONE SECTOR 


SET WRITE DATA ADDRESS 


TO WRITE DATA 
FUNCTION CODE (WRITE) 
CONTROL CODE (DATA) 
CONTROL FIELD ADDRESS 
GOOD RETURN 


ERROR RETORS® 


PUT ID IN PBRIET 
SET TO SCAN HIGH OR EQUAL 
ON ONE SECTOR 


TO SCAN HIGH OR EQUAL 
FUNCTION CODE (SCAN) 

CONTROL CODE (HIGH OR EQUAL) 
CONTROL PIELD 

RETURN FOR NO SCAN POUND 
RETURN FOR SCAN FOUDRD 


TO SRIFT BITS FOR DECISAL NUSBER 
ADDRESS OF SOURCE 
TO CONVERT HUMBER TO DECISAL 
ADDRESS OF SOURCE® 
ADDRESS OF DESTINATION 
SET A BLANK IN PRINT IMAGE 
TO PRINT SENSE INFO. 
TO PRINT THIRD LINE 
FLAGS 
LENGTH 
MESSAGE ADDRESS 
TO DCP HALT 
HALT ID 


TO PRINT NO SCAN FOUND 
PLAGS 

LENGTH 

MESSAGE ADDRESS 
MESSAGE IDENTIFICATION 
TO DCP ERROB HALT 

HALT ID 


PROG ID 
PAGE 
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IBS MAINTENANCE DIAGHOSTIC PROGRAN 


adc2 
ERR LOC 


OFi1Cc 
Or 20 


OF21 
OF 25 
OF28 
- OF2C 
OFr2D 
OF2z 
OF 30 
OF32 
OF 36 


0738 


oF3C 
Or4aa 
orac 
OF5a 
OFSC 
OF6S 
OF6C 
OF70 
OF78 
OF8O 
OF88 
0F90 
OF95 
OFSD 
Oras 
OFAD 
OFBS 
OFBD 
OFCS 
Orcs 
OFD? 
OFDS 
OFE? 
OFES 
OF?4 


DATE 
EC HO. 


sca ys HIGS8&A oR EQUA 
OBJECT CODE ADDE STANT SOURCE 
CO 87 19a2 802 RTH3C1 
02 GF26 &03 

804 
38 680 1989 &05 
F2 18 10 806 
CG 87 O212 ag? 
c& QF20 46S 
53 OF25 409 
OF9k OF2P &10 
4077 OF34 «(477 
CO 8&7 &222 842 
a077 OF37) 86413 

848 
CO 87 OE&C 815 RTE3D 

416 
Z2C3ICIDSYOCSDSES OFSF &17 
CID34OE2ZCSDSE2C5 817 
&0C 2C S9E36B4 68 DC2 817 
C9E3ZUOFONOC 2ZE8E3 817 
CS4OP15D6BRODS5SDE &i7 
E340DED540C 1C6 £3 877 
C5D940c4 §17 
D6CSIDSC7TROCTSODS OF KR 418 ERROZB 
DSC54 OE2ZC5C3E3D6 818 
DSSOE2C3C1D580Cc8 418 
C9ICTCB4ODEDSHOCS 818 
DSEYC D360 418 
EICS8CSYODTDYCSES OFCB 419 
CIDSEXE2Z4OCSD9DS 499 
DEDSE24 OEECBC5SDS 819 
CS5&OD7DSCSE2C5DS5 419 
E380C 1C6E3C5D9AG 419 
C4D6C9D5C7&80C180 819 
E2Cc3ciDs 819 
&OCBCSCICB4ODEDS OFF2 420 ERRO3A 
%OCSDS ERC 1D34OD6 820 
D74BUDESCIEICERO 820 
C1D54 0C5D8Ea8CTD3 420 
8OC3DEDSCSECIE3CS 820 
D6D5 820 

< 

Ce 

T3NABR70 O6APR70 2254170 
571512 571516 $7 1513 
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STATEAERT 

B SENSE 

bc AL1(STATO1) 
TBR STATUS, X* 80° 
st 2TR3ID 

B PRIRT 

oc XL1*C6* 

BC IL7*89°* 

bc AL2 {EBRRO3B) 
bc XL2‘a077* 

B HALT 

bc XL2*2077* 
B ETH3A 

oe 

Dc 

pc 

pc CLa2* 
01A0G70 

571531 


CLS2°*SCAN EQUAL SENSE BiT, 


HIGH OR EQUAL OP. 


PART WO. 
‘PAGE 


5129682 
SA 


TO SERSE DEVICE STATUS 
ASK FOR SENSE BYTES 0 & 1. 


TEST THE SCAE EQUAL BIT POR C8 
PROCEED IF OK 

TO PRINT SCAR EQUAL SENSE BIT HOT OB 
PLAGS 

LENGTH 

SZSSAGE ADDRESS 

HESSAGE IDERTIPICATIC® 

TO DCP HALT 

HaLT ID 


(BIT O BYTE 2), HOT OB AFTER D®* 


CL37*°OING & ONE SECTOR SCAN HIGH OB EQUAL® 


CL52* THE PREVIOUS ERRORS WHERE PRESERT APTZE DOIRG A SCAR® 


BITH AM EQUAL COUDITION® 


Oa0C-2 
aa 


PROG ID 
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TBS BAINTERANCE DIAGNOSTIC PROGRAM - . PART HO. 5129661 | IBM AAINTFRANCE DIAGHOSTIC PROGRAA PART HO. 5129661 
eet ge 24 Re aie PAGE 5. “ co Ee . PAGE SA: 
Pre? DISK EpIrvToR F°67 DISK EvpIT aR | 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST ERR LOC OBJECT CODE ADDK STAT SOURCE STATESENT 
OFAS 6F 00 00 00 490 SLC 0(1,XR1} ,0(, IR2) SUBTRACT DISPLACEMENT OF THIS CARD 558 
OFAC OF O71 TAA4 OA0D3 891 ADPOLP SLC RRIPTR(2),ONE © REDUCE VALUE IN READ RI POINTER 559 * SET WRITE PARAMETERS POR ADDING THE IPL/BRING UP PROGRARS 
OPB2 OF 01 1AA0 0A03 $92 | SLC WRIPTR(2),ONE AND WORKAREA RI POIHTER BY ONE, 560 
OFBS OF 00 1AA5 0003. 493 ALC =WRRICT (1) ,GONE ADD ONE TO WORKAREA RI COUNTER 1081 9C 01 TA80 1472 561 SETIPL SVC WRYDPC+2(2) , FOURZR SET FOR CYL. 3 TRACK 0. 
OFBE CO 87 OF83 894 8 ADRPLD TEST THE NEXT LOCATION 1087 S62 PRNEXT EQU) EXIT BRAECH 
495 1087 563 WRITEA ZOD * 
CFC2. OD OF TA3A 1A72 496 ADRPLH CLC BUPPLG(2),POURZR TEST FOR EITHER A BRING UP O8 IPL 1087 564 C3c# e905 *# TO SEEK WJORK TRACK 
CFCB CO 61 OFCS 497 BNE ADRPL9Y BRANCH IP EITHER 1087 CO 87 1737 565 B READ TO READ ONE SECTOR 
OFCC CO 87 18A8 498 B COBPRS COMPRESS END CARD. 108B CO 87 175pD 566 B BRITE TG WRITE ONE SECTOR OP WEB PCH. 
OFDO OC &7 1B92 DAD? 299 “VC = WORK 465 (66) , READIN+87 ROVE END CARD FROM RBEADAREA 108P CO 87. 190¢c 567 B STP FLD TO STEP TO WEZT SECTOR 
OFB6 OC 7P 1€50 1CD1 500 MVC =WORK¢ LENGT H- END BOU +127 (LENGTH-ERDRCU} , LENGT B- 19 1093 1A3F 1098 568 pc AL2 (#BT DPC) CONTROL FIELD ADDRESS 
OFrpC 3C CS 1351 501 “VI WORK,C*E* BAKE THIS SECTOR AS BND CARD 1085 CO 87 730Cc : 5569 B STP FLD TO STEP TO NEXT SECTOR 
OFEO 3C FF 1A6C '502 AVI FINISH, X*PF® SET FINISH FLAG 1099 4A82 109R $70 pc AL2 (RDDFC) COETROL FIELD ADDRESS 
OFEY F2 87 38 503 a ADRPL? TO BRITE ROUTINE 109R OF 00 1868 0A03 571 SLC SECCT (1) ,ORE REDOCE SECTOR COUNTER BY OWE 
50% 10A% CO 01 1087 572 BNZ C3C8& GO SHOVE NEXT SECTOR IF NOT DORE 
OPE7 CO 87 1980 505 BUPREC B IPLCRD TO CONVERT DATA TO IPL PORHAT 10A5 CO 8&7 OBAD 573 C3H3A 8B BDITAL 
OPEB 3D PF 1A6E 506 CLI ENDIPL,X*PPF* HAS THE END CARD BERN REACHED ? 574% 
OFEF CO 01 0C68 507 BRE ADRPLE BRANCH TO READ NEXT CARD IF 8G 574 
OFF3 OC 03 1A52 1A72 508 AVC SAVID(4%), FOURZR 575 « ADD REPLACE PUNCTION 
OFF9 3C CO 1A68R 509 MVI ENDIPL,O 10A9 28 08 10D7 576 CRKPAS ST CPASX@, ARR 
OFFD F2 87 18 | 510 J ADRPL7? GO TO WRITE ROUTINE 1O0AD OC 01 1A80 1A84 577 MVC WSRYDFC+2 (2), PASCYL SET TO CYL? SEC 0 
1000 CO 8&7 1980 511 IPLREC B IPLCRD TO SUBROUTINE TO CHANGE DATA TO IPL 10B3 OC 02 1A84 1A40 578 avC RDDPC+2(3) ,WETNFC+2 SET READ CONTROL FIELD 
1004 3D. FP TAGE 512 CLI ENDIPL,X*FF! HAS THE END CARD BEEN REACRED ? 10B9 CO 87 1737 579 B READ TO READ SECTOR O (FAS) 
1008 CO 01 0C&B 513 BNE ADRPLE BRANCH TO READ ANOTHER CARD IP #0 580 
100C 3C FF 1A6C 514 MVI FINISH,X*FP* SET FINISH FLAG TO INDICATE END 108D 4D 02 02 1A80 581 CLC 2(3,X81),FAS DO BYTES 1-3 =FAS? 
1010 38 08 189F 515 TBN DISKTP,x*08* TEST FOR RUN ON PIXED DISK 10C2 F2 81 05 582 Jz C3D2 BRANCH IP YES 
1018 F2 90 Ca 516 JF ADRPL7 BRANCH IF HO 10C5 4c 04 04 1282 583 MVC 64 (5,XR1) ,IBTPAS WO, SET DATAFIELD TO INITIAL VALUE 
1017 3A O8 1B62 517 SBN WORK+17,x°08° SET FIXED DISK BIT IN BOOTSTRAP 584 : 
518 10CA 1C 01 TAKE 08 585 c3D2 NVC =©PASOLD (2) ,4(,XR1) SAVE FIRST AVI. SECT. ADDR. 
519 * WRITE ONE SECTOR O8 DOLPHIN WORK FILE 1OCF iC 07 1A40 04 586 AVC 8 =—6p WRT DFC#2(2) , 8 (, X81) 
520 10D4 CO 87 C000 587 B t~* 
101B 521 ADRPL7 EQU # TO SEK 10D7 | 588 CPASX@ EOU) #1 
1018 CO 87 175D 522 B WRITE TO WRITE DATA 589 
-107F OF OO 1A6B 0463 523 ALC SECCT(1),ONE STEP SECTOK COUNTER 10D8 590 TSTPAS BQU. * 
1025 3D PF 1A6C 524 CLI FINISH,X*FP® IS THE FINISH PLAG SET? 1ODB8 71 07 IAAT O04 391 MYC =6SCRACH (2) 4 (,XB1) PLACE IN SCRATCH AREA 
102% F2 81 11 525 Jk ADRPLC YES, THIS PGS IS FINISHED LOADING TODD OC OO OABO 1A6B 592 NVC READIN (1) ,SECCT SOVE SECTOR COUNT TO TEMP. AREA 
102c cc 8&7 190c 526 B STPFLD TO STEP T. NEXT SECTOR 1023 cC &7 190Cc 593 C3D22 B STPFLD TO STEP SCRACH AREA ONE SECTOR 
1030 1A38 1031 527 vc AL 2 (WRTDFC) CONTROL PIELD ADDRESS TOE7 AAS TOES 594 Dc AL2 (SCRACH-2) 
1033 528 TRACK# FOU *+1 10F9 OF CO OABO OA03 595 SLC RBEADIN(1),ONE REDOCE TEMP SECTOR COURTER BY 1. 
1032 BD 00 01 529 CLI 1{,X82),%-* DOES TOTAL EYCEED LAST ADDR? . 10EF CO 01 1083 596 BNZ C3D22 BRANCH TO STEP AGAIN IF NOT ZERO 
1035 CO 8& 1142 530 BH C3F3 10F3 2c 01 1855 02 597 "VC =WORK4+8(2),2(,XR2) NO, PLACE WEW PAS IN WRITEFIELD 
1039 CC 87 0C54 531 B ADRPLB GO TRY AGAIN 10F8 OC 01 1A40 1A84 598 AVC WRTDPC#2(2), FASCYL 
103D CO 87 10A9 532 ADRPLC B CAKFAS 10FE CO 87 175D 599 B WRITE TO WRITE DATA (NEW FAS) 
10817 0C 01 1A84 AGE 533 MVC RDDFC#2(2), FPASOLD 600 
1087 3D FF 1A3B 534 CLI TSTPLG,X*FF* 4402 CO 87 177F 601 5 SCABA TO INDEX SCAN SUBRODTINE 
10GB F2 81 BA 535 JE TSTPAS yes 1106 110A 1107 602 Dc AL2(C3K2) ADDRESS FOR SCAN EQUAL 
I0O4P 3D FF 1438 536 CLI DCPPLG,I*FF* IS PROGRAS A DCP? 1108 1723 1109 603 pe AL2 (C3H2) ADDRESS FOR WEYER SCAN EQUAL 
1052 F2 81 23 537 JE SETDCP YES "608 
1055 3p FF 1a39 538 CLI IPLPLG,X*FF* IS PROGRAS AW IPL LOADER? T10A OC OT TAKO TAU 605 C3K2 AVC WRTDFC+2 (2), RDDPC+2 SET TO READ ONE SECTOR 
1059 F2 81 25 539 JE SETIPL YES 1110 CO 87 1737 606 B READ 
105C 3D FF 1A3C 540 CLI LODPLG,X*FF?* IS PROGRAM THE DCP/SECTION LOADER? 1118 uc 02 07 OATS 607 NVC ©(7(3,XR1),OLD SET PGH ID FLD TO *OLD® 
1060 F2 81 OA 541 - JE SETLDR YES 1139 CO 8&7 1710 608 B SEEK 
1063 CC 87 0222 542 B HALT TO DCP ERROR HQT 111D YA3E W11B 609 ie AL2 (WRTDFC) 
1067 AODES 1068 543 Dc XL2*AQES* HALT ID ; 111F CO 87 175D 610 B WRITE TO WRITE PGA ID #ITH OLD 
1069 CO 87 OB8D 5484 ‘B EDITAA START OVER. 611 * SEARCH FILE INDEX (CYLINDERS 8-11), TO FIND 
545 612 * 1ST AVAILABLE TRACK POR NEW PROGRARB 
546 * SET WRITE PARAMETERS FOR ADDING THE DCP/SECTION LOADER £13 
587 * TO CYL 0, TRACK 1, SECTORS 17 = 23 614 * SET SEARCH PARASETERS TO BEGIN INDEX SEARCH. 
588 615 
106D 3c CO 1A3F 589 SETLDR #VI WRT DFC+1,00 e 1123. 616 C3H2 EQU) *® 
1071 3C C& 1A80 550 NVI WRT DPC+2, x" CQ? SET FOR SECTOR 17. 7123 OC 01 TAN4 1487 617 avC RDDFC4#2(2) , IDXCYL SET TO SEEK TO INDEX CYLINDER 
1075 F2 87 OF 551 J PRNEXT TO EXIT BRANCH 618 
552 F 1129 619 C3B3. ZOD * TO SEEK 
553 * SET WRITE PARAMETERS POR ADDING THE DCP TO CYL 7, TRACK 0 1129 CO 87 1737 620 B READ 
| 554 «| SECTORS 01 - 23. | 112D 4D CO 02 1a4C 621 CLC 2(,XR1) ,ACTCON 
555 ‘ 1132 F2 01 21 622 JRE C3a4% 
1078 Oc 01 1A80 1A7C 556 SETDCP MVC WRTDFC4#2¢2) ,DCPSEC SET CONTROL FIELD POR DCP * 623 
107E F2 87 06 557 J PRAEXT TO EXIT BRAECH 7135 cO 87 190C 624 C3D3_—siBB STPFLD TO STEP TO NEXT SECTOR 
, Ef 
DATE 22NAY70 01AUG70 010CT70 O1APR71 17NOV71 OINMAR72 | 1239%72 Proc ID OFF6-7 DATE 22MAY70 01A0G70 010CT70 O1APR71 T7NOVT1 OMMART2 1230872 PROG ID OFF6-7 
EC NO. 571513 §71531 571540 571565 571608 571603 571628 PAGE 5 i EC NO. 571513 571531 571540 571565 571604 571603 571628 PAGE 5a 
Ce t 


$=. 
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART HO. 5129667 . © IBN MAINTENANCE DIAGNOSTIC PROGRAH PART BO. 5129661 
| PAGE 6 © wy iL ; PAGE 6a 
FF67 DISK EDITOR = FP67 DISK EDITOR 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1139 A982 V13A 00 625 DC AL2(RDDFC) CONTROL FIELD ADDRESS 646 * ROUTINE TO ADD REPLACE CARDS TO PROGRASS s 
113B BD OC 01 626 CLI 1(4,XR2),12 HAS SCAN VALUE EXCEEDED Lisrr? 687 * PRESENTLY RESIDING ON THE CE DISK * 
V13E CO 82 1129 627 BL c3B3 BRANCH IF #0. 648 
4182 CO 87 O27A 628 C3F3. BB PRIWT TO PRIBT WO SPACE LEFT 1177 2C 02 71857 06 649 REPPGR SVC SAVID-1(3),6 (,XR2) SAVE ID OF PROGRAM TO BE MODIFIED 
1146 C6 1106 629 DC ¥L1°C6$ PLAGS 117C 2¢ 60 TRGB 650 M¥YI  SECCT,O ZE20 SECTOR COUNTER 
Sa ara ae 630 BO «IL9937" LENGTH 1180 OC 04 TA3C 123D 651 BYC LODFLG(5),LODFLG+1 #§ ZERO PROGRAR IDZNTITY FLAGS 
B aS 634 pc AL2 (ERRORS) ADDRESS OF LAST PRINT CEARACTER 1186 8D 62 06 TAZE 652 CLC 6(3,%82),DCP IS PROGRAS FOR REP THE DCP ? 
T1HA BORG 1148 632 pe XL2°a0E6* MESSAGE IDRNTIPICATION 118B F2 81 39 653 JE REPDCP JURP IF YEzS 
148C CO 87 0222 : 633 B HALT TO DCP ERROR HALT " 118E CO 8? T77F £54 B SCENA TO INDEX SCAN SUBROUTINE 
sao eaeee W457 $34 BC EL Z*aOE6* HALT ID : 4192 1747 193 655 pe AL2(REPPGC} ADDRESS POR SCAB EQUAL 
1152 CO 87 OBS 635 B EDITAR 4196 1196 1195 656 Dc AL2 (REPPGB} ADDRESS POR HEVER SCAN BOQUAL 
636 1196 0C 02 1Ba4 7551 657 REPPGB MYC 8SG02-12(3},SA¥ID~1 PUT ID OF PGH IN BSG 
4156 C2 04 1851 637 C3A4S LA BORK. XR LOAD WORK ADDRESS Ye ERY 119C CO 87 OZIA 658 B PRINT TO PRIET PROGRAS #CT FOUHD 
T15A OC 07 TA4O TARE 638 MVC WRTDPC#2 (2) ,RDOPCe!2 1180 06 1186 659 DC XL 17068 FLAGS 
1160 Mc IF IF 1A69 633 MVC =«-32.{, ARI), PNEC (5444441421) HOSE ACT, @, 1D, DAY, SYSFLG, PREC T4A1 17 V7A1 660 ne IL1&23* LEBGTE 
1165 §C 00 OF 4A52 643 svc $f1,ER7} ,.aVID SEY PROGRAS LEVEL IW BRITB PILELD 71a2 13850 41283 661 pe AL 2 {8S8G02} AESSAGE ADDRESS 
V16A BC CO CB TASB 64 MFC) 08-8 4, ER1} ,SECCT ADD SECTOR COUNT VTAN F2 €7 62 662 3 REPEIT SUMP TO ROUTZHE EXIT 
146F CO 87 175D 642 B URIFR TO BRITE O8E INDEZ sEectoR 11A7 663 REPPGC EOU * 
1173 CO 87 OBBD 643 5 EDITAA 11A7 C2 91 1854 664 LA WORK, XRI 
644 17AB 1C 1F 1869 1P 665 MYC —- PHEC (32) 9 317(,-XR1} SAVE ID,PB , EC 
11BG 1C CO 1A52 09 666 HVC = SAVID(1) 59 (, £81) SAVE LEVEL 
41B5 0C CO 1A69 OA87 667 MVC PNEC(1),READIR¢? ADD SUFFIX TO EC 6 
11BB 1C 01 7A44 08 668 MYC RDDPC#2(2),4 (XR?) SET PROGRAH ADDRESS IW READ CONTROL 
11C0 3C FF 1A3B 669 MVI -TSTFLG,X*FF* SBT PLAG TO INDICATE A TEST SECT. 
11C4 F2 07 OA 670 J REP PDF PROCEED 
11C7 0C 01 1444 4A7C 671 REPDCP MVC  RDDFC#2(2),DCPSEC SET CONTROL PIELD FOR DCP 
1100 3C FF 1438 672 BVYZ  DCPPLG,X*PP* SET FLAG TO INDICATE DCP 
11D1 OC 01 1275 1A84 673 REPPDP MVC SAV@(2),RDDFC42 
11D7 CO 87 10A9 674 B CAKPAS 
41DB OC 01 A448 1215 675 MYC RDDFC+#2(2),SAVa 
: 11E1 676 REPPGD £EQU- * TO SEEK PROGRAM TRACK 
11E1 CO 87 1737 677 B READ TG READ ONE SECTOR 
1185 CO 87 175D 678 B BRITE TO WRITE ONE SECTOR 
117E9 3D C5 1851 679 CLI wWORK,C*E? LOOK FOR END CARD 
11ED C9 81 0C54 680 BE ADRPLB EXIT WHEN EXTIRE PROGRAH IS HOVED 
7 41F1 OE 00 1A6B 0A03 681 ALC SECCT(1), ORE STEP SECTOR COUNTER 
11F7 CO 87 190c 682 B STP FLD STEP WRITE CONTROL PIELD 
11FB 1A3F 11F7C 0683 pc AL2(#RTDFC) 
11PD 8D 00 01 1033 684 CLC 1(,XR2),TRACK# 
1202 CO Bu 1142 685 BH C3¥F3 
4206 CO 87 190C 686 8 STPFLD STEP READ CONTROL PIELD 
120A A482 120B 687 pe AL2(RDDFC) 
120C CO 87 11£E1 688 B REPPGD GO SO¥E ANOTHER SECTOR 
689 
1216 CO 87 OBBD 690 REPEIT B EDITAA 
121% OC00 1215 691 SAV@ opC XL2*098 
} Me 
see aca oiage7s 010CT70 OTAPR71 1780V7%1=° «=—s- O1MAR72 1230872 PROG ID OFP6-7 DATE 22H AY70 01AUG70 010CT70 OVAPR71 1780¥71 01HAR72 1230872 PROG ID OFF6-7 
| 571580 571565 571604 571603 5718528 PAGE 6 ‘ FC nO. 571513 571531 571580 571565 571604 571603 571628 PAGE 6A 
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IBA BAINTERAWCE DIAGNOSTIC PROGRAN ee Daa: es za , ‘PART FO. 5129661 IBA MAINTERANCE DIAGHOSTIC PROGRAA. PART BO. 5129661 
aa a os ed PAGE 7 & a 7 PAGE ™m™ & 
FPré7 DISK EDITOR : PF67 DISK EDITOR i 
EPR LOC OBJECT CODE ADDR STAT SOURCE STATESENT FRR LOC OBJECT CODE ADDR STSHT SOURCE STATERERT 
693 * ROUTINE TO INSERT // CHAIN RECORD IN DCP s ~ 12E3 3D CO 99 761 CK CLI 0{,XR1),#-2 
1276 CO 87 10a9 6946 CHRIKG B CHEFS . I2E6 FP2 8&7 1% 762 JE CGNFB TO SCAR EQUAL 
421A OC 01 1088 FAIC 695 nAyC RDDFPC+2 (2) , DCPS BC : 12E9 CC £7 790c 763 B STPFLD 
1220 CO 87 1737 696 R11 B READ ; T2ED 7A02 ¥2EE 768 pc aL 2 (RDDFC} 
1228 7D c5 CO 697 CLI 0(,XR1}),C*E* FIED 42EP BD O08 907 765 CLI 1{,X¥R2},8 CHECK FOR CYL 8B 
1227 F2 81 18 696 SE FS} A END, COMNSENT OR // CHAIN RECORD 12?2 CN 82 12DP 766 BL xT 
122K 7D SC CO 699 CLI 0Of¢,XR1),c°s* #2P6 CC #7? 12c¢ 767 B ADDREP 
122D F2 81 18 700 ae Psi s 768 * COME HERE WHEN DESIRED CARD TYPE HAS BEER POURD * 
$230 7D 67 CO 701 CLI 0(,XR1) ,C* 7? : 769 
4233 F2 87° 0C 702 Jz FS - V2FA OC 02 1280 TA484 770 CONFB #¥C WRTDFCe2 (3), R2DDPFC+2 SET UP READ CONTROL PIELD 
1236 CO 87 175D 703 B @RITE 7300 Oc SF iBBC CADP 771 AVC 8 =6HORK495(96) ,READIN¢9S MOVE BEW CARD DATA TO WRIPEFTELD 
123A CO 87 4291 Fou BB STEPEZ 1306 CO 87 175Db 772 B WRITE TO WRITE THIS CARD 
123£ CO B87 1229 705 B R11 : 773 
708 * 130A OC 00 1321 72zE6 7748 HVC 8 8=—- CK 9611) ,CK4+1 SET UP TO TEST POR CORRECT TYPE 
4242 cO 87 490C 707 FS B STP PLD IF “/ CHAIN RECORD IS FOURD THEE 775 * OF CARD AND THEN ELIBINETE 
1286 1AN2 1287 708 BC AL 2 (RDDPFC) INCREHERT TG NEXT RECORD : 716 @ ALL REHAINTHG CPU OR ODT CARDS. 
1288 C2 02 0A80 709 PS1 La READIN, XR2. 777 
128C CO 87 OE6A 770 B SETCAHE GO BUILD // CHAIN RECORD FORA INPOT 1319 CO 87 196C 778 STEPUR B STPPLD STEP THE WRITE COHTROL FIELD 
1250 CO 87 175D Fil B BRITE WRITE CHAIR RECORD ON DISK - 7318 VA3E 1315 779 BC AL 2(¥RTDPC) 
1254 CO a? 790C 712 8 STPFLD 780 
1258 TA3E 1259 #713 pc AL2 (WRTDFC) ‘ 1316 CO 87 190C 781 STEPRD B STP FLD STEP THE READ COSTROL FIELD 
1258 CO 87 1275 714 B RDURT BRITE REMAINING DCP TO WORKSPACE : T31A TAN2 131B 6782 td AL2 (RDDFC) : 
345 2 : 131C CO 87 1737 783 B READ TO RERD OBE SECTOR 
125E CO 87 10A9 716 B CHKPAS REWRITE DCP BACK FROM WORKSPACE é, 784 
1262 0C 01 7A54 ‘1RGE 717 MVC RDDFC#2(2),PASOLD - mG 1320 7p CO 00 785 CK CLI 0(,XR1) ,e-* CHECK POR AHY MORE UDT OR CPU CARDS. 
9268 0C 01 1A80 1A7C 718 NVC 8 WRIDPC+2(2), DCPSEC 1323 CO 81 1316 786 BE STEPED BRANCH IP ONE IS POOND 
126E CO 87 1275 719 RAGNY B RDERT ; - 1327 cO 87 175D 787 B WRITE TO WRITE OSE SECTOR 
1272 F2 87 30 720 3 FIGDCP GO CHECK HEXT CONFIG RECORD * * 788 
721 *. 132B 3D C5 1851 789 CLI WORK,C*E? CNECK FOR END CP PROGRAS 
1275 38 08 1290 722 RDWRT ST RDX@, ARB ” 132F CO 81 12A5 790 BE PIGDCP BRANCH WEEN IT IS REACHED 
1279 CO 87 1737 723 RAGN B READ ¢ * 1333 CO 87 1310 791 B STEPBR TO SOVE ANOTHER SECTOR 
127D CO 87 175D 724% B BRILL 
1281 CO 87 1291 725 B STEP z = 
1285 3D C5 1851 726 CLI WORK,C*E® © o 
1289 CO 01 1279 727 BNE RAGN 
128D CO 87 COCd ; 728 B +-* t 3 
1290 729 RDXa EOD) €=4 
730 * 
1291 38 O08 12zA48 731 STEPX ST STEPY@, ARR € 4 
1295 CO 8&7 190C 732 B . STPPLD : 
1299 1A82 129A 733 DC AL2(RDBFC) 
129B CO 87 190°C 7348 B STPFLD € “= 
129P 1A3E 1200 735 DC AL2(WRTDFC) bs 
12A21 CO 87 0000 736 B +-2% 
12A9 737 STEPK@ EOD *-1 * 
738 : € = 
739 * ROUTINE TO CHANGE CPU,UDT,//CHAIN RECORDS Im DCP * 
12A5 CO 97 0A13 740 FIGDCP B aa0ds TO READ THE NEXT CARD € z 
12A9 8D 07 OF OEBY 741 CLC 7(8,X82) ,CHAIN TEST FOR AR // CHAIS 
42AE CO 81 1216 742 BE CHSI8G EXIT IF YES 
12B2 BD cS 00 7483 CLI 0(,XR2),C*E* TEST FOR aN *E* € 3 
12B5 CO 81 OBS8D 744 BE EDITAA EXIT IF YES 
12B9 BE ¢c3 00 785 CLI 0{,%R2),C*c* TEST FOR A *C* ( CARD) 
12BC F2 81 15 / 786 JZ SVCCK JUME IP YES, INSERT A BEW CPU CARD c 3 
12BF BD E4& 00 747 CLI 0O(,X82),cC*u* TEST FOR AN *U* (UDT CARD) 
12C2 CO 01 T2A5 748 BNE ¥FIGDCP BRANCH IF HO 
12C6 BD 80 03 789 clr 3{,3R2),c* * TEST COLUSN & FOR A BLANK € 3 
12C9 P2 81 08 750 JE AYCCK JOSP IF YES, REPLACE ALL UDT CARDS 
751 © IF NOT BLANK, THIS UDT IS Aw 
752 * ADDITIONAL ONE, SO ADD If € 3 
12CC 3c FP TA74 753 ADDREP MYI  DATCD,X*FR* SET FLAG TO BYPASS WEXT READ 
12D0 CO 87 11C7 758 B REPDCP GO TO ROUTINE TO ADD THIS UDT CARD 
755 Pe 
12D4 756 MVCCK EQU # | SET UP CHARACTER TO SCAN FOR € 2 
12D4 OC 01 1A84 1A7C 757 - SVC RDDPFC#2(2) ,DCPSEC SET CONTROL PIELD FOR DCP 
12DA 2C CO 12E8 CO 758 MVC) |. CK#¢1(1),0 (,XR2) SHOVE SCAN CHAR om 
12DF 759 XT gous TO SEEK THE CYLIBDER POR DCP < * 
12DP CO 87 1737 760 | B READ SET THE NUMBER OF SECTORS TO SCAN 
; <z = . 
DATE 22mMaY70 01A0G70 010CT70 O1VAPR71 178OV71 O1MAR72 1230872 PROG ID OF F6-7 DATE 22MAY70 01A0G70 010CT70 O1APR71 17NOV7 1. OWAR72 1230872 PROG ID OFF6-7 
BC NO. 571513 571531 5715480 ' §71565 5716048 571603 571628 PAGE 7 é “ EC RO. 571513 571531 571580 571565 571604 571603 571628 PAGE Ta 
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hy PAGE 8 co se wey PAGE 7 
Pr67 DISK #FDITCR 2 ce res? DISK EBEDITOR. ‘ 
: . . ; a ‘ 
ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT EPP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
13237 CO 8&7 101F 793 COMP 2B PEDOLD FIBD AN OLD VTOC ENTRY : 861 * DUPLICATE DISK ROUTINE 
133B CC 87 °9737~—C 798 B _ READ ; 862 
133F 1C 01 7A68 U9 795 MYC) 8=—- RITED (2) » 8 (, XR) . 1837 0C CO 159R 18C8 663 DSKDUP BYC SPHDS¥(1),SIO0¢1 SAVE EXISTING SPINDLE SELECTION 
_ 1398 CC e@7 190C 796 STEPR 8B STPFLD 1437 Oc CO 41589 1898E. 868 BYC DSKSA¥V(1) ,DISKTP SAVE EXISTIEG DISK SELECTION 
-13G8 TA82 1389 797 pc AL2 (RDDPC) 183D OC O02 159D 1472 865 AVC) 8 IPLS#(3),POU0RZE CLEAR IPL & RECAL SWITCH 
13GA 8D OC 01 798 CLI = 1(,XR2),12 1883 3c AO 1598 866 aVI = READSP,X*AQ?® SET POR BEAD OS SPIUDLE A 
39D F2 C2 68 799 JEL yToc 1487 BD c1 05 a67 CLI 5 (, X82) ,C*a?* IS READ SPINDLE TO BZ A? 
7350 CC 87 1737 800 B READ 18GA4 F2 8 ID 868 Jz SETER J0aP IP YZS 
1358 4D 02 02 1A8C 801 CLC 2(3,%81) ,ACTCON 18up BD C2 05 869 CLI 9(,XR2),C*S* IS READ SPIBDLE TO BE B? 
41759 FP? 01 5P 802 JWE YTOC 1650 F2 871 13 . 870 JE SET RB JUSP IP YES 
135C 4D 02 07 0a78 803 CLC 7(3,1R1),OLD 1853 CO 87 027A 871 B PRINT PRIWT ERROR, BO READ SPIEDLE SELECT 
1267 CO 81 1394 8048 BE STEPR 19857 C6 1857 872 DC 1L1°C6? PLAGS 
7365 OC O71 1AEC 1AKR: B05 MYC REKD|(2) ,RODPCS2 1458 15 1858 873 pe TL1* 249° LESGTH 
136P OC C1 TASC 1AGG 806 SVC WREDFC#2(2) , ADDFC+2 1859 1536 195A «870 pc AL2 (HORDSP) ADDRESS OF LAST PRIET CHARACTYR 
1377 1¢ Of TA84 08 807 AVC RDDPC#2(2),8 (,ER1) 185P AOET 185C 875 pc XL2* aQE7* BESSAGE IDEETIPICATION 
1376 6C 01 O08 IAEA 808 NYC} =—6- (2, XR1) ,KRITBA 165D CC 87 0222 876 B RALT TO DCP ERROR HALT 
137B CC €7 175D 809 B WRITE 1861 AOE? 1362 877 pc XL2* AOET* HALT ID 
137F C2 01 1851 810 LA WORK, XR1 1463 F2 8&7 72 878 J DUP EXT TO ROUTINE EXIT 
1383 1¢ 01 1089 048 971 SVC =- BRT DPC#2(2), 8(, 281) 1866 3C BO 1598 879 SETRB SSVI READSP,X*BO® SET FOR READ ON SPINDLE EB 
13868 1¢ CC 1A94 08 812 HVC MOVCTR(1),6 (,XB1) 1962 3B 08 18P6 880 SETRR SBP READS1,x*03¢ SET POR REMOVABLE DISK 
139D 813 BAGN E00 # TK62 BD FS 06 681 CLI 6(,XB2),C°8* IS READ DISK TO BE REB.WABLE? 
138D CC 87 1737 6149 B READ 1471 P2 81 1D 882 JE SETSA JUAP IF YES 
1391 CO 37 175D 815 3 WRITE 1878 BD FO 06 883 CLI 6{,XR2),C*9? IS READ DISK TO BE FIXED? . 
1395 co €7 19¢C 816 8 STPFLD 1877 F2 81 13 884 JE SETRP JUSP IP YES . 
1399 1A92 1394 817 pc AL2(RDDFC) 187A CC 87 OZIA ' BES 3 PRINT PRINT ERROR, NO READ DISK SELECT 
139B cC 87 190C 818 B STPPLD INTE Cb 1672 686 pc XL1°C6* FLAGS 
139F 1A3E 1300 819 pc AL2(@RTDFC) IQ7P 13 187P 887 pC IL1*#19¢ LENGTH 
13A1 OF C9 1096 CAD3 820 SLC sOVCTR(1) ONE 1880 15¢9 1881 688 pc AL2 (WORDDK) ADDRESS OF LAST PRINT CHARACTER 
13A7 CO 01 1380 821 BNZ AGE 1882 AOEB 1883 689 pc XL2"* AOES* MESSAGE IDENTIFICATION 
13A8 OC 01 1044 1A6C 822 "VC RDDPC#2(2) ,READ@ 148% CC 87 0222 890 B HALT TO DCP ERROR HALT 
1381 9C 91 106A 1A40 823 AVC WRITE (2) ,WRIDPC#2 4488 AOES 1489 «6891 pc KL2* a0 EB * HALT ID 
13B7 CC 87 1344 824 B STPPR 198A F2 87 3B 892 J DUPEXT JUSP TO ROUTINE EXIT 
825 * Z 893 
13EB C" 87 9a29 © 826 ¥TOC. 8B SETWOK TO SET WORKAREA ~ 188D 3A 0B 19F6 894 SETRF SBN READS1,X°O6* SET READ SIO POR PIXED DISK 
138F 8C 01 CO TA5A “827 AVC =. (2, IR2) , WRITES SET CYL. HEAD & SECTOR 1491 3C AO 159P 895 SETWA AVI WSREITSP,X*A0* S&T POR WRITE ON SPINDLE A. 
13cCa Ac 02 02 1280 828 avC 2(3,%R2) FAS SET *Pas* 5 1495 BP Ct C7 896 CLI 7(,XR2),C*a* IS WRITE SPISDLE TO BE A? 
ms 829 : 1898 F2 81 1D 897 JE S2TaR JUSP IF YES 
1309 IC 01 1000 1A88 830 SVC 8 8=oWRTDPC+2 (2), PASCYL SET TO SEEX CZLINDER 7 (FAS) 1898 BD C2 07 898 CLI 7(,*R2),C*B* IS WRITE SPINDLE TO BE 8B? 
13CP CO 87 175D 831 B WRITE TO WRITE NEW FAS ON CYL. 7. W49E P2 81 13 899 JE SET@B J0mP IF YES 
832 = 1QA7 CC 87 C2IA 900 B PRINT PRINT ERROR, BO WRITE SPINDLE SELECT 
43D3 CO 87 1818 833 B FSDOLD 18A5 C6 18A5 901 pc XL1°C6* FLAGS 
13D7 9C C1 100) 1484 83a avCc WETDPC+2 (2), BDDFC+#2 , T8A6 16 BAG 6902 DC IL1*22° LENGTH 
13DD CC 87 190C 835 STEPY 8B STPFLD VQA7 15DP 18A8 903 Dc AL2 (NOSTSP) ADDRESS OF LAST PRINT CHARACTER. 
13E% 1082 1322 836 pc AL2 (RDDPC) V8aQ9 ACEI 1WAA 6908 pc XL2°ROEQ* MESSAGE YJDENTIFICATION 
13E3 BD Oc 901 837 CLI 1{,%82),12 1448 CO 87 0222 905 B HALT TO DCP ERROR SALT 
1326 F2 02 2A . 838 JNL  vRDS 18AF ACEO 18B0 906 pc XL2* AOE9* HALT ID 
13E9 CC 87 1737 839 3 READ . 163% F2 87 28 907 J DUIPEXT JUBP TO ROUTINE EXIT 
132D 4p 02 02 1A8C B40 CLC 2(3,281) ,ACTCOS 18B4 3C RO 159P 908 SETWB SSVI WRITSP,X*BO® SET FOR WRITE OW SPINDLE B 
13F2 P2 01 12 gat JBE WEDS. 18BB 3B 08 1553 909 SET@R SBP WRITS1,x°08° SET WRITE SIO FOR RESOVABLE DISK 
1375 4p 02 07 9A78 , 852 CLC 7(3,281),OLD 14BC BD FP8 08 910 CLI 86,XR2),C*8* IS WRITE DISK TO BE RESOVASLE? 
13FA CO 81 13DD 843 BE STEPV 18BP F2 61 IP 911 Jz COPYA JUMP IF YES 
13P2 844 STPH BOD ® 18C2 BD F9 08 912 CLI 8(,2R2),c*9°* IS WRITE DISK TO BE FIXED? 
13PE CO 87 175D 845 8 WRITE 1acS F2 81 18 913 JE SETUP JUSP IP YES 
1802 CO 87 199C 846 B STPFLD  & 14CB CO 87 C21A 914 B PRINT PRINT ERROR, NO WRITE DISK SELECT 
1406 IA3E 1807 887 pe AL2 (3RTDPC) . 1acc C6 wcc 6915 nc XL1°C6* PLAGS 
1998 BD OC C1 B48 CLI 1(,%R2),12 1acpD 14 18CD 916 pc IL1°208 LE"GTa 
1803 CO 81 OB8D 849 BE EDITAA VACE 15P3 1WCP 917 pc AL2 (NOWTDK) ADDRESS OF LAST PRIEST CHARACTER 
190P CO 87 13DD 850 8 STEPY 78D0 AOFA 18D 918 pc XL2*aQEa® SESSAGE IDENTIFICATION 
1413 CO 87 CA29 B51 VRDN B SET#OK 18D2 CO 87 0222 919 B HALT TO DCP ERROR HALT 
1817 CC 87 13FP 852 :) STPY 14D6 ACPA 14D7 9.20 pe XL2*aOEA* HALT ID 
181B 34 08 1830 853 FNDOLD ST PNDX@, ABR 14D8 CO 27 OSA? 921 DUPEIT B AAO? 
TWIP OC 02 1851 0A78 853 B¥C  SAVID~1(3) ,OLD 922 
1425 CO 87 177F 855 B SCAMA 18pC 3A C8 1553 923 SETSF SBN WRITS1,2°08* “SEP PRITZ FOR FIXED DISK 
1829 142D 1428 © 856 pc AL2 (C9 A2) 18E0 3D CO 159C¢ 928 COPYA CLI &DRCAL,O HAS READ SPINDLE BEEN RECALIBRAT ED? 
14628 O38D 1a2C 86857 DC. AL2 (EDITAA) 18E8 F2 017 OF 925 INEZ READB JUS? IF YES 
182D CO 8&7 0C05 858 C4aA2 B e-8 1827 OC 01 TAGE 1A72 926 MVC PASOLD(2),FOURZE ZERO CulY LISIT VALOB 
1430 859 PHDId EQU *%-1. IWED 3C FP 159C 927 AVI RDRCAL,X* FF? HG, SET SHITCEH 
18P1 3c CO 18A1 928 a¥I FRSTPS,O . ZERO SWITCH FOR RECALIBRATE 
DATS 22mAY70 01A0G70 010CT70 O1APR71 17NOV71 O18 A872 1230572 Pros ID OFF6-7 DATE 22mAY70 91A0G70 010CT70 OTAPR71 17N0V71 OMMAR72 1230572 PROG ID OFP6-7 
EC 80. 571513 571531 571580 571565 571604 571603 571628 PAGE a .. EC NO. 571513 571531 571580 571565 571608 571603 571628 PAGE 8a 
€e z iw e : 3 
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IBY MAINTENANCE DIAGNOSTIC PROGRAAS PAST BO. 5129661 a TBS MAINTENANCE DIAGNOSTIC PROGRAR PART BO. 5123661 
b (, * PAGE 9 cs . PAGE an | 
FP67 DISK EDITOR j ned FP67 «=DISK EDITOR 
ERR LCC CBJECT COLE ADDR STAT SOURCE STATENERT ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMEST 
18P6 929 READS1 EQD #44 ‘ 985 * THE DELETE OPTION HAS BEER SELECTED 
14P§ 3c OC 189° - 930 READB AVI DISETP,¢-9 S2ZT I/0 SUBROOTIBE POR RE&D 986 * DELETE THE SPECIFIED PROGRAB(S) PROM TRE INDEX 
1aP9 08 00 1801 159P 931 8ZZ LDFDR+1, READSP SET I/O SUBROUTINE FOR REaD SPINDLE 387 
1EP CO BF 1958 932 8 SETSPE 15P& #2 02 03 988 DELETE LA 3(.XR2) ,xR2 STZP READIN POISTER ¢3 
1533 CD 91 TAGE 1A72 933 CLC PASOLD(2)-FOORZR TEST LISIT ADDRESS POR SORE WaLUE 15P7 34 92 15PF 989 st DELSAY,X¥R2 SAVE POR REUSE 
1599 P2 01 18 934 JNWE  READSEK IP HOM ZERO, SKIP READ OF *FaS® 1SF8 990 DELET1 FOU # TO SET SORKAREA 
150C 0C 97 TA4S 1289 935 AVC  RDDFC4+2 (2), PASCYL S&T POR CYLINDER 07 TO READ PAS 1SPE 991 DELSAY EQD *03 
1512 CO 37 1737 336 B READ TO READ Fas 1SPR C2 67 0009 292 LA e-®, ER 1 LOAD POISTER In XR1 
1516 1C 97 TARE 08 237 SVC PASOLD(2),9{,X8 4} POT PAS VALUE 15PP 7¢ 02 1A514 03 993 MYC 8 =SAVID-1(3) -3 (,ZR1) HOVE PROGRAM ID ITO BWORKAREA 
1578 3¢ 52 7808 1872 938 MYC RDDPC+2 (3), FOURZR SET TO START READ AT CYL. ZERO 1608 ¢) 47 177P 994 B SCANA FO IMDEX SCAN SUBROUTIEE 
1921 9C 92 1099 TA72 939 H¥C 8RTDPC42(3}, POURZR SET TO START BRITE aT CYL. ZERO 1608 167D 1609 995 pc AL2(DELPED) ADDRESS POR SCAB EQUAL 
980 160A 160C 160B 996 Dc AL2 (DELET2) ADDRESS POR HEVER SCAE EQUAL 
1527 987 READSS BQU) * TO I/G SUBROUTINE TO SEEK 169C 9C O02 1B85 1A51 997 DELET2 MVC ASGO2-12(3),SAVID-1 HOVE ID PROS READARZA TO PRIBP 
4527 CD 87 1737 982 B READ TO I/O SUBROUTINE TO READ 1612 CC 87 O24A 958 B PRIBT GO PRIEST 
1522 3D FP 759D 943 CLI IPLS@,X°PP* IS THE IPL SSITCH SET? 1616 06 1616 999 Dc XL14°06¢ PLAGS 
152F F2 87 11 944 JE WRITE YES, GO TO WRITE ROUTINE 1697 17 1617 1000 pc 1L1*23* LENGTH 
1832 3D 92 18 OA7D 945 CLC 20(3,E81),IPLC IS THIS SECTOR THE IPL BOOTSTRAP? 1678 1259 7619 1001 BC AL2 {8S602) ADDRESS OF LAST PRINT CHARACTER 
1537 F2 27 09 986 SNE RITE YES, GO SET IPL S#ITCH 167A F2 87 19 1002 J DELET3 GO TO STEP POLIETER 
153A 3C FF 159D 987 BVI IPLSY,z*?P* SET IPL SBITCH 61D 9C O91 TA80 TAUB 1003 DELPND SVC 8 WRTDPC#+2(2),RDDFC*2 SET CYL. TRACK & SECTOR FOR READ 
1532 38 03 11 1553 948 S5N 8 =617(, X81) , WRITS SET PIXED/REAOVABLE BIT is .CADER. 1623 CC 87 1737 1004 B READ TO READ DATA 
1543 39 05 1592 999 WRITE? CLI WPRCAL,O HAS WRITE SPISDLE BEEB RECALIBRATED? 1627 4c 02 OF 0A78 1005 SVC =©67(3,XR%),OLD BOVE *OLD* INTO WORKAREA 
1587 F2 91 CA 959 JHE WRITEB BRANCH IF YES 162C CO 87 1710 1006 B SEEK 
IS8A AC FR 71593 951 AVI WTRCAL,X* PFS 80, SET S¥ITCH 163C 1A3Ff . 1637 1007 Dc AL2(W8RTDFC) 
15GE 3¢ CO 1841 952 SVI PRESTPS,O SET SWITCH FOR RECALIBRATE 1632 CO €7 175D 1008 B WRITE TO WRITE DATA 
1553 953 WRITS? EOD *¢1 1636 35 02 15P2 1009 DELET3 L DELSAV, XB2 LOAD X82 AS INPUT POINTER 
1552 3C CO 1898 954 WRITEB NVI DISKTP,*-# SET I/O SUBROUTINE FOR BRITE 163A BD 6B 08 1010 CLI 4%4,2R2),C*,° DOES NEIT ENTRY =A COnNA? 
1856 08 CC 1807 159” 955 "ZZ =s- LDPDR¢1,WRITSP SET I/O SUBROUTINE FOR WRITE SPINDLE 163D CC 01 OBSD 1011 BN2 ZDITAA 
WSC CC €7 1953 956 B SETSPR 1681 £2 62 08 1012 LA &(,XR2) ,XR2 STEP INPUT POINTER +8 
1560 Cf 387 °175D 957 3 WRITE TO I/O SUBROUTINE TO WRITE 1688 CC 87 15P7 1013 8 DELET1-& PREPARE TO DELETE NEXT PROGRAA 
1568 CO £7 190C 958 WRITEC B STPFLD TO STEP TO NEXT SECTOR j 1014 
1568 1A42 1569 959 pe AL2(RDDPC) CONTROL FIELD ADDRESS ~ : 1015 * THE LIST OPTION HAS EFEE SELECTED 
156A Cl £7 190C 960 B STPPLD TO STEP TO NEXT SECTOR 1016 * LIST ALL PROGRANS RESIDING OW THE DISK 
156E 1A3E 156P 961 Dc AL2 (@RTDPC) CONTROL FIELD ADDRESS 1917 
1579 BD oc 91 962 CLI 1{,%R2),0 TEST POR DUP OF CYL. ZERO 1688 NC 91 7848 1487 1018 LIST MYC R2DDPC*2(2),IDICYL SET TO SEEK THE INDEX CYLINDER 
1573 cco 61 1480 963 BE COPYA PROCEZD IF YES. 164£ 1019 LSTPND 2QD ® 
1577 3D C& 01 964 CLI 1(,X82),4 IS PRESENT ADDRESS LESS THAN CYL. 42. 164E CC 87 1737 1020 3 READ TO READ ONE SECTOR 
157A CC 82 1568 965 BL @RITEC STEP AGAIN IPF YES 1652 4) 92 02 taAaC 1021 CLC 2{3,XR1),acTCcon 
1572 OD 07 1A99 TAUB 966 CLC RDDFC4#2 (2), PASOLD. DOZS PRESEST CYL. aDDR = LISIT? 1657 F2 01 20 1022 JNZ LSTEND 
7584 CO 82 TaPn 967 BL COPYA CONTINUE 1658 7C 6C 08 1923 NVI 8(,IR1) ,C*-* SBT A DASH IB SESSAGE | 
1589 968 DSKSAY ZOU #41 165D 7c 40 OA 1028 SVI 10(,X81),C° * 
1588 3C CO 189E 969 NVI DISKTP,*-* RELOAD ORIGINAL I/O VALUES 1669 8D 02 C7 9478 1025 CLC =7(3,%R1) ,OLD IS THIS EBTRY MARKED OLD? 
15a@c C8 90 1801 159A 970 SZZ LDPDE+1,SPEDSY 1665 P2 81 08 1026 JE LSTAGH IP YES, SKIP PRINTING IT 
1592 cl 37 1958 971 B SETSPE TO RESTORE SPINDLE AND DISK VALUES 1€63 CO 87 O27A 1927 3 PRIIT GO PRIST 
1596 CC 87 CBA1 972 3 AAO? 166C 91 166C 1028 Dc XL7¢O18 PLAGS 
1594 0 159A 973 SPNDSV DC XL1*Q¢ 166D 13 1€6D 1029 pc ILw27¢ | 
1593 CC 159B 974 WTRCAL DC XL1#08 1662 1379 166F 1030 pc AL2 (WORK+ 31) 
1§9¢ 02 159C 975 RDRCAL DC XL1* 08 1679 CO 87 190¢ 1031 LSTAGN B STPFLD TO STEP TO MEXT SECTOR 
159D 26 1590 976 IPLSW DC XL1¢O® 1679 1242 1675 1032 pc AL 2(RDDFC) COBTROL FIELD ADDRESS 
1592 00 1592 977 READSP DC XL 1°08 1676 CC &7 164F 1033 B LSTF SD 
159F C) 159P 978 WRITSP DC XL1°O* 1672 1038 LSTEND EQU * 
15a C4Ea 1SA1 979 DUPCON DC cL2*pu* 167A 9% 20 15F3 0A27 1035 2AZ WTOC#(3) ,DZEBO(1) 
15a2 D9ICSU34DE2N7ICINS 1586 980 NORDSP DC CL21*BD. SPINDLE ISCORRECT® es 1680 3D OC 1443 1036 VAGN CLI RDDFC+¢1,12 
15AAR CULD3C580C9LSC3IDE 980 1688 P2 81 10 1037 JE vo" € 
1582 p9D9CSC3B3 980 . 1687 C6 20 1688 0A28 1038 AZ VTOC# (3) , SUNONE (1) . 
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7978 538 (69 22 a3 1291 "ZZ RLDPCRE1(, 281), LUFDR¢1(, XB 1) 
1978 59 C2 99 33 1292 872 RSI1G#1(,X81) -LDPDB*1(,2B1) 
W790 cf aTrcice 1293 SPNEXT B a-8 £xItT 
1298 ato 
1995 35 C8 49n7 1295 IPicep st IPLEIT?#3,aReB SAVE EXIT ADDTESS =u 
1982 22 97 oCAeOD 9296 LA PEADIN, IR2Z LOAD READI® ADDRESS IN XR2. 
1929 35 c5 06 1297 CLI 0(,X82),c*z* IS TSIS THE EBD CARD? 
1988 F2 01 C7 1294 382 <IPLA BRAESCE IP? 50 
199% 3C FF TA62 9299 8vI ESDIPL,X*PPF* SET SSITCH TO ISDICATE ERD OF IPL 
1992 F2 €7 3P 1300 J IPLEIT TO EXIT 
1995 3D 23 00 4301 IPLa CLI 0¢(,%R2),C*r® TEST POR A TEXT CARD 
1998 P2 31 39 . 1302 JZ -IPLEXT IGHORE THIS CARD IP BOT 
499B 9D 01 1A9F 1A94 1303 cLc WIXTPT (2) ,BORKZ IS THIS THE FIRST TEXT CARD? 
VIAT P2 OF CE 9303 | IWE 649 SKIP POINTER ADJUSTSENT IPF BO 
19am OF ST TAOE 71239 1305 ALC WTXTPT(2) ,BEG3 ADJOST POINTER BY THREE 
7922 2¢ C9 19CP 17 9306 SVC IPLSOVe1(1),234,Z222) SET COUNT IN IPL BOVE INSTRUCTION 
T9AF BC CS (16 1307 aVI 22 {,%82),0 
V9B2 2E 01 1a9F 17 1398 ALC. STITPT(2) ,23(,XR2) ADD READ COUBT TO TEST POIETER 
9957 CC C1 19P1 1092 1309 "YC IPLSOV#3 (2) , WTXTPT PLACE I8 IPL SOVE DESTINATION 
198D OF C1 TA9F Cat3 1310 ‘ WTXITPT (2) ,OBE ISCREASE POISTER BY OSE 
19C3 2F 01 WAZ 17 92301 a 2TITPT (2) -23 (1 B2) ADD COUST TO SOURCE POINTER 
1998 3C C1 1953 1RA2 1312 MYC IPLSOV*S (2) ,RETITPT PLACE IB IPL HOVE SOURCE . 
19Cz2 3c CO OCG C909 (1313 IPLSOY S¥C *-8(2-=#) ,s- BOVE IPL DATA FROA 8EADIS TC WORK 
19Dpa- co £7 ¢ccc5 1378: IPLEXT 8 e-¢ 2XIT , 
1345 fo 
1316 = SUBR00TI SE TO DETERSISE IDESTITY OF PROGRAS 
19D3 1317 USING IDZET,1 
' 1908 C2 04 19D8B8 1318 IDENT LA ID2RT,XRI LOAD XB? WITH BASE VALOE 
19DC 78 Ca 53 . 1319 St IDZNTI+3 (, X21), ABR SAVZ EBxIT appseess 
W9DP SC 78 63 65 1320 avc LODPLS {5, X81), LODPLG¢1(, 221) 
19F3 9D 02 Sa 56. 1321 CLC 99(3,282),DCP (,%81) IS THIS PROGRAZ TRE DCP ? 
19E7 F2 &1 29: 1322 Jz DCPSET a Y2S, SET PLAS. 
19FA 9D 01 59 5D 1323 CLC 9$9(2,XR2) ,50P (, X81) IS THIS PROGRAS A BRIBG UP ? 
YOER F2 81 28 4326 32 _SUPSET rege YES, SET PFLAG 
1977 95 21 59 S38 1325 cLc 89 (2,X282) ,BUP-2(,FR1) ; 
‘19PS £2 a1 21 ; 132€— JZ BUPSET 
CATs 2285A¥79 “JIUA0G79 G10CT70 OTAP271 WWEOV71 OIMART2 1233872 ~ PROG ID OFF6-7 
BC NO. 571513 571831 5715389 $71555. —§71608 | $71603 577528 PAGE - 92 
ee 


§$129661 


en 


eit 


mn, 


“ea 


4 


er 


ea 


on 


vm 


33385. ~~ 


‘a 


€ 3 


Si 


a 


\ 


IRS MAINTERANCE PIASECSTIC PROGEAR 


rP67 DISK EDrTOR 


22°F Loc 


19P86 
19°C 
19FP 
WaO3 
TACE 
VAOA 
TAOD 
TAIN 


7A€13 
7416 
7419 
VAC 
1A1P 
TAZ2 
1225 
1A28 
qA2C 
1Aa2P 
7430 
1A36 


7439 
1439 
7432 
IA3B 
TAa3T 
TA3D 


TA3E 
TA3F 
Tagan 
TAR1 


128? 
TAS3 
1A88 
TARS 


s  FRaE 


TASB 
TASD 
JAP 
43253 
TASS 
Tass 
TAa5D 
TAES 


TAGA 
TAGE 
WéCc 
TA6D 
tA6Z 
V4keF 
4a73 
TAa75 
F276 
a77 
IA 7eO 
TA72 
JA73 
VATE 
Jas 
TA83 
7385 
TA 96 
Faas 


DATE 
EC WO. 


OBIJPCT CCDZ ALD? STST SOTRCE 
9p ¢1 59 59 1327 
F2 81 1 1328. 
Op 62 5k 57 1329 
F2 81 19 9339. 
9p C2 52 SP 7331 
F2 @1 13 1332 
72 FF 63 1333 
#2 87 15 7334 
1335 
7C PF 69 9336 DCPS2T 
F2 @7 OF 1337 
7c FF £2 1338 S3UD>SeT 
F2 €7 09 1339 
7c FP €1 1380 IPLSET 
F2 87 ¢3 1301 
7C YP 68 138? LoDsetT 
co a7 oto? 1343 IDENTX 
C6CéCE IA22 1388 DCP 
1 TA2P 1305 IPL 
PCCAPCCSPOCE 1435 1346 30P 
CéC2 1437 1387 LOD 
1388 
C4 14833 13839 DCPPLS 
co 7029 1350 IPLPLG 
cn YA34 1351 BUIPPLG 
£9 JA33 1352 TSTPLG 
co TA3C 1353 LODPLG 
ro 1039 1254 
1355 = 
C4 1A3P2 1356 WRTDPC 
co WA3P 1357 
ce 7aud 1358 
ce 4281 1359 
1369 *® 
c9 1A&82 1361 SDDPC 
rey 7833 1362 
rn Jaaa 1363 
cS 1255 1368 
ecceceecco 1389 1365 SEOND 
CIC3¥3 1A3C 1366 ACTCON 
°c 00 1ASF 4367 FASOLD 
crcocess 7352 1368 SAVID 
cc 1253 1369 DNY 
cc 145% 1370 SYSFLS 
ecgectenc 377900) 1369 1371 PEC 
ereececececeacca 1371 
cecoseceo 34 1371 
JA6A 91372 WRITES 
7A5C 1373 BEADS 
ro 4A63 1375 DATS 
ca 1A62 1375 Secct 
co IA6C 1376 PINISA 
oc WA6D 1377 DCPSGO 
co WAG? 1378 ENDIPL 
ceeeqcas ¥A72 1379 PODRZ® 
PACD 7A74 1389 DATCD 
ae 1275 1381 WEXTCD 
co. 1476 1382 2UNFLS 
ceqa 7473 1383 ONESEC 
CLl02 IA7A 1368 TWO 
n7¢c4a 1A7C 1385 DCPSEC 
F< 1A7D 1396 SODSSTYX 
ChCIE2 T2899 1387 PAS 
ORCD 1482 1338 ISTPFAS 
c7cc 7A88 1389 PASCYL 
2P 1085 7399 SCYCYL 
caro TA87 1391 IDXCYL 
FRPD 7489 1392 KEG} 
229aRT7C CIADST7O 210CT79 
§71513 571531. 571589 


PART 80. 


571628 


5129669 
PAGE 12a 

STAT EREST 

CLC 89(2,XR2),2UP—&8(,X81) 

JE BUPS?T | 
CLC 90(3,¥82),IPL (,%81) TS THIS PROGRAS THE IPL LOADER ? 
JE IPLSET YES, SET PLAG. 

CLC 90(3,%82),LOD(,XB1) IS THIS PROGBAR THE DCP LOADER ? 
JE LODS2T YES, SET PLAG. 
SVI -TSTPLG(,1R1),1° FRY ASSUSZ TEST SECTION 
3 IDEuTE TO EXIT. 
SVI - DCPPLG(, X81) ,X° PP* SET DCP FLAG 

J IDESTX TG 21I?. 

VI BUPPLG(,ZR1) ,X° PF? SET BUP PLAG 

3 IDESTX 

SVI IPLPLG(,%R1) ,X° PP? SET IPL FLAG 

3 IDE UTX TO EXIT. 

SSVI LODPLG(,XB1) oX°FP® S2T LOD FLAG 
8 s-2 2xIt 
DC CL3°Prr® 

pC 8C«CyNLAT*a® 

pc CL6 * ODO EO P* 

pc CL2° PB? 

pc 1L7°00° 

ac IL1°008 

pc XL1°0° 

pc XL1*°00¢ 

DC IL1*°C0° 

DC xL1°G9¢ 

DOLPHIN #ERITZ CONTROL PIEZLD 

DC XL1"C0° FLAG BYTE . 
re 1L1*008 CYLINDER 0-202 
Dc 1L1°G08 HEAD & SECTOR 
2c XL1¢°008 SECTOR COUNT 

DOLPHIN READ COBLROL PIELD 

DC XL1¥*09° FLAG BYTE 

BC T7°co* CYLINDER 0-202 
ac XL1°¢0* HEAD & SECTOR 
Dc XL1°00* SECTOR COUST 
pc ILa*coe ; 
3c CL3°acr® 
DC xL 2°08 ; 
Dc ¥L9*00° 

pc iL 1°0* DUSSEY 

3c IL1°9¢ 

DC 1L21°0° 

200 8 PEEC#1 : 
-2QU  PHECe3 
pc XL1°0* 
bc XL1°00° ‘ 
pc XL7°00° ‘ 
DC YL1°08 

pc IL1°0" 

pc XL9°09° 

pc XL2*0* 

Dc XL 1*90° 

pc XL1"0° 

Dc IL2° 08° 

DC XL2*02* 

Bc 1L2°0708° 

DC = CL °6 

DC sé 3 * PaS* 

pc XL2°0B00* 

pC =—s- XL. 29.0790" 

ac XL1°2¥° 

pes XL2* 08008 

Ec IL2*PPFD? 
Q1APR71 17N0V71 019a872 12350872 PROG ID Orr6-7 

571565 571698 571693 Wa 
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‘TEN MAINTENANCE DIAGNOSTIC PROGRAG 


FF67 


ESF LOC 


DB 
E 


A 
c 


TA8A 
1A8C 
1A8E 
TKO 
4490 
1491 
TA94 
1495 
1097 
7099 
TA9B 
VASD 
1A9F 
1AA1 
1AA3 
THAS 
TAAG 
TAAS 


TAAA 


TAAE 
TAB2 
TABS 
TAB6 


1ABB8 
1aco 
1AC8 
TABO 
TAD1 
TADS 
TADD 
TABS 
TAED 
TAFS 
TAFS 
1B01 
1809 
1BT1 
1B79 
TBIC 
1B24 
1B2C 
1B34 
183¢C 
1Bu1 
1B49 


T 


Ez 
NO. 


DISK 


EDITOR 


OBJECT CODE ADDR 
PPFC 1ABB 
0000 1A8D 
co iABE 
AO 1A8F 
BO 7090 
600000 1A93 
00 1A94 
DASA 1AS6 
OADS 1A98 
1854 TAQ 
1¢59 1agC 
0000 1A9E 
onoo TAAO 
0000 TAA2 
0000 JARS 
00 TAAS 
0000 qAAT 
c4acs 1AA9 
FO6B6R40 1AAD 
FPFPFFFP 1AB1 
DECS 1AB3 
‘DIDS 1AB5 
c3c8 1AB7 
DSCOEZE2C9DSC74O TACT 
CIEIPINBROCICHAB 
4OCSDS4OC5DIDIDE 1ADO 
pa ‘ 
E2CSDB84B40CSD9D9 1ADC 
D6L96B80 
DSCSE7TE340C3C1D9 IAPS 
C44 OE2CBDEESD3CY 
BOC 2C S40D5SDO4B40 
ETETETE? 
DIDITEC7TDIC ID44O 1B1B 
C9CU4OC5DSD9DE DI 
6BYOCICHSOE2CBD6 
B4UD3ICE4OC2C540ET 
EVE7E? | 
DSDEYOEZD7ICIC3C5 1B40 
4CC1E5C1C9D3C1C2 
D3 C540 E3D640C1C4 
C449LSCSE640D7D9 
LOCTESCIDA | 
SOETETET4SODSD6E3 1850 
4OD6D5SR0CKC9E2D2 

1851 
22HAY7O OTAUG70 
571513 


571531 


STAT SOURCE 
REGS 

SAVER1 
PSTCD 

SPN DLA 
SPNDLB 
OLDADR 
MOVCTR 
READS 

READSS 
VORK3 

GWOKI94 
eTXTPT 
WRIPTR 
RTXTPT 
RRIPTR 
WKRICT 
SCRACH 
DELCON 
DATCRD 
LASTNO 
SECARD 
PNKOW 
CuGccon 


1393 
1394 
1395 
1396 
1397 
1398 
1399 
1800 
1801 
1402 
1403 
1604 
1405 
4406 
1607 
1408 
1809 
1440 
1614 
1492 
1413 
1914 
1815 
1416 
1817 
1917 
1818 
1818 
1419 
1819 
1820 
1420 


ERROR1 


ERROR2 


ERRORS 


4420 


1820 
1421 
1821 
1a21 
1821 
4821 
4422 
1822 
1422 
1822 
1422 
1423 
1823 
1428 


ERRORS 


ERROR6 


ASGO02 


WORK 


ne rn str 
Otocr7S 


571580 


& 


ve 


532966 | 
PAGE Ww 
STATESEST 
BC IL2* FrFc* 
“BC XL2° 0° 
BC XL1*008 
BC XL17*ag¢ 
pc XL1*H08 
pc XL3*00¢ 
DC XL13*00* 
pc AL2 (READIN #26) SOTE: READS AND RERDSS AUST 
DC AL2(RBADIN485) BE KEPT TOGATAER : 
pe AL2 (WORK* 3} BOTE: SORK3 ABD 8OR191 HUST : 
BC AL2 (8ORK+255) BE KEPT TOGATHER 
pc AL2 (*-#) 
pc AL2 (#-%) 
Dc &L2(¢-*) 
pc AL2 (*-#) 
pc KL7*00* 
pc XL2*0* 
pc CL2*DE* 
pc CLE*0,, * 
DC XL4° PEPPY? 
pc CL2*#E* a 
pe CE2* put * 
DC CL2*cH* 
DC CL1I6*SISSING CTL. CD. * 
pc CL9* Im ERROR® 
pc CL12°SEQ. ERROR, * 
DC CL28°HZXT CARD SHOULD BE WO. XXxXx* < 
pe CL35*PROGRABS ID ERROR, ID SHOULD BE XXXx* 
pec CL37"°HO SPACE AVAILABLE TO ADD WEW PROGRAH® © 
DC CLI6® XZX HOT OB DISKS 
EoD oe 
€ we 
OTaPR7t 780771 OtHART2 123UB72 PROG ID OFP6-7 
5715 571608 571603 571628 PAGE 3 —Ct 
€e | 
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ERR LOC OBIFCT CODE 


DISK EDITOR 


ADDR STaT 


4826 
1827 
1428 
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PART #0. 
PaGE 


SOURCE STATEMERT 


* 
* 


THE FOLLOWING TAPE READ ROUTINE RESIDES IN TRE DISK WORK AREA. 
IP IT IS TO BE USED, IT IS HOVED INTO THE CARD READ ROGTINE BEFORE 


5129661 
138 


* THE DISK SORK AREA IS USED. 


@HES THE DISK WORK AREA iS USED THE 


¢ 


me 


a2 * PIRST TINE, THIS ROUTINE IS OBLITERATED. 
3630 
1231 * - EDITOR TAPE READ ROU®?I EB <= 2 
1832 
1432 
0880 14833 USING RDARE,1 
1B5S7 1434 _  -‘OSING HEZTR*S,2 
1851 C2 0F 0880 1935 WEXTR LA RDBRE,1 LOAD BASE REGISTERS 
1B55 C2 02 0066 1436 LA X°0066*,2 * 
1859 B& 08 AC 1437 ST BT H+ 3 (,XR2) , ARR STORE RETURE ADDRESS 
1B5C B1 10 SP 1438 LIO 8=—« SETOF #41(,2R2),X°10" TOBE OPF TAPE STOP LIGHT 
7839 
B5P BC 00 51 18GQ0 SETDLY BVI DELAY1¢1(,XR2),0 RESET DELAY COUsTS 
1262 BC 00 55 1481 RVI DELAY2¢1(,"R2),0 
1865 SP 62 62 62 1882 SLC RDERD{(99,XR1),RDEND(,XR1) CLEAR THE RERDIN AREA 
18483 
1683 
1444 © --GAP DBPTPECPIOR -= 
18485 : 
1869 SF 00 00 00 1886 RESET SLC RDARE(1,XR1) ,RDARE(,XR1) RESET COUBTER TO ZERO 
1B6D E1 £2 12 1847 COUNT TIO RESET (,1R2),X*E2¢ TEST FOR A BIT 
1870 62 00 00 SPF 1848 ALC =RPARE(1,XR1) ,INCR(, XR2) ADD 1 TO COUsTER 
1578 SC 02 03 03 1949 MVC =6BLARE*3(3,XR1), RDARE+3(,XR1) DELAY 
1B78 Ev 20 16 4250 BRHOL COUNT (,XR2) REPELT TILL OVERFLOW OCCURS ; 
1451 * THE ABOVE STEPS GUARANTEE BLANK TAPE FOR ABOUT 8.5 MILLISECONDS TO 2° 
1452 * ASSURE READING CANNOT START IM TEE MIDDLE OF A RECORD. 
1853 
1453 
1854 * -- FISD THE FIRST BIF - |= 
1855 
1B7B EY £2 28 1856 TSTCLK TIO CLK1(¢,XR2),X*E2* TEST FOR 1ST CLOCK BI? . 
IB7E £O 87 28 1457 B TSTCLK (,XB2) REPEAT IF BORE 3 
1881 BD 00 51 1458 CLK1 CLI DELAY1¢1(,ZR2},0 CHECK FOR 1ST PASS é 
7388 £O 0171 50 1459 BYE DELAY1(,ZB2) 
1860 
1860 = 
ae 1861 * --SET VARIABLE DELAT-=--=- mee 
1862 
1B87 £1 £2 43 1865 TSTOUP TIO ADD(,XR2),X* E2° TEST FOR BIT STILL UP 
1BSA F1 P2 68 1468 TSTDN TIC  SHIFT(,XR2) -X*E2° TEST FOR BIT STILL DOWN 
1B8D AE 00 55 DE 1465 ALC DELAY2¢1(1,X22) ,SIX (,XR2) ADD SIX TO DELAY 
1B91 EO 20 33 1866 BOL TSTDN {, XB2) BRANCH BACK IF 80 OVERFLOW 
1894 BC FF 55 1867 AVI DELAY2¢1(,XR2),2°PF* ISSERT HAXISUS COUST 
1897 EO 87 645 1868 B SHIFT (,XR2) 
1B9A Az CO 51 DP 1869 ADD ALC DELAY1¢1(1,XR2) ,NINE(,XR2) ADD BIWE TO DELAY 
1B9E EO 20 30 147C BNOL TSTUP(,XR2) BRANCH BACK XP #0 OVERFLOS 
1BA1 BC FF 51 1471 MVI DELAY1¢1(,%82),X*FF* SET SAXISUM COUNT 
TBA £0 87 30 1472 B TSTOUP (, XR2) 
1873 
1873 
1874 * -- READ THE TAPE -= 
1875 
1BA? SC CO 62 62 1876 DELAY? SVC RDEMD(*-*,XR1),8DESD(,X81) VARIABLE DELAY (780-1180 8S) 
1BAB SC 00 62 62 1877 DELZLY2 AVC = RDEND(*-*, X21), RDEWD(, X21) 4 
TBRF 7a 01 62 1878 SBN RDERD(,XR1),X*01° SET THE BIT Of 4 
1BB2 21 E2 61 1879 TIO fTSTEND(,XR2) ,X*¥E2* TEST FOR A DATA BIT OF 
12BS5 7B 01 62 1880 SETOFP SBF RDEND(,XR1),X*01* ¥O DATA BIT, SET OFF 
1BB8 EO AO 6P 1481 TSTEND BOL DONE{,XR2) RETORS TO READ THE WEXT BIT 
IBBB 5E 62 62 62 1882 SRIPT ALC RDEND(99,XR1) ,RDEND(,XR1) SHIFT THE DATA LEFT 
IBBP SC 76 77 77 1483 MVC = BDARE# 729 (139, X81) , RDARE#1719 (, XR1) ADDITIONAL DELAY 
18C3 £0 87 28 1989 B TSTCLK (,XR2) LOOK POR THE REXT BIT 
15°85 
1485 
1886 * -- ChHBCK RECORD -- 7 
1887 
DATE 228AY70 01AUG70 010CT70 O1APR71 17N0V71 O1MAR72 1230N72 PROG ID OPP6-7 
EC NO. 571513 5715480 571565 5716068 571603 571628 PAGE 13a 


IBA BAINTENANCE DIAGNOSTIC PROGRAS 


PART HO. 5129661 
PAGE 18 
FPO7 «38D ISK EDITOR 
PRE LOC OBJFCT CODE ADDR STMT SOURCE STATEMENT 
1PC6 BC 81 DC 1883 DON2 MYT CHKGEN(,XR2) ,X*81° INITIALIZE CHECK CHAR. GEEERATOR 
IPC9 RC OS 76 1689 AVI ADDCHK¢3(,XR2).0 ZERO THE DISPLACERENT I8 THE aDD 
1BCC 9F 00 pc 90 1090 ADDCHK ALC CRKGEN(1,XB2),%-*(,XR1) ADD IW THE CHARACTER 
18D0 RE OC 78 SP 1494 ALC = ADDCHK#3(1,XR2),1NCR(,X82) ADD 1 TO DISPLACEKEST 
1BD4 BD 61 78 1692 CLI ADDCHK4#+3(,2R2),X°67® TEST POR POINTING TO CHECK CHAR. 
TED? FO 01 75 1493 SNE RDDCRK(,ZR2) ADD IR HEXT BYTE 
TEDA 9D 00 DC 61 1494 CLC. CHKGEN(1,X%82),RDEND-1(,X21) TEST CHECK CHARACTER 
1BDE FO 91 AD 1495 BRE ERSSG(,XR2) BRAECH IP ERROR 
1BE1 F2 87 38 1696 RTYTST 2 TESTRN THIS JURP IS FORCED TO BE ALWAYS 
1897 * UNCONDITIONAL UNLESS RETRYING A 
1498 @ READ THAT PAILED. #8 THIS C&SB, 
1899 ¢ IT IS PORCED TO BE A HO-OP. 
1500 * 
1BES EO 87 C14 1504 B TSTREC (,X22} A RETRY IS IN PROGRESS, CHECE 
i862 THE RECORD WOABER. 
1503 
1503 
IBE7 9C CO DD 6¢ 1505 SAVE®N MYC RECNUS(1,ZR2),RDEED-2(,X83} SAVE THE RECORD SUSBER 
1EFB BC 87 83 1505 AYE RTYTST+1{,4R2),2°87° PORCE THE BRANCH TO BE OUSCONDITIORAL 
IBFE 74 72 60 1506 LIG RDEWD-2(,XR1),X°12® DISPLAY THE RECORD RORBER 
1507 . 
1BF1 7D 61 00 1508 CLI RDARE{,3%R1),C*/* TEST FOR END OF JUB STEP (/*}, OF 
1509 * END OF JOB (/&). 
18F4 F207 09 1519 J8E RTE JUSP IF SEITHER 
1BP7 7D 61 014 1519 CLI RDARE¢1(,XR1),C%/! CHECK FOR // 
TEPA F2 81 C3 1512 Je RTs JUMP IP // 
1513 
1EPD 81°11 SP 1518 LIO =. SETOPF#1(,XR2),X*11* TURN ON THE TAPE STOP LIGET 
1515 
1c00 cO 87 Coen 1516 BTN B +-* RETURN TO USING ROUTINE 
1517 
1517 
1518 ® -~- TAPE ERROR -- 
1519 
1c94 RC 2C FR 1520 ERNSG AVI TAPERR¢2(,X82),X'2C* SET HALT CODE 
1C07 CO 87 021A 1521 PRTNSG B PRINT PRINT ERROR SESSAGE 
1COB 03 IcOB 1522 pc XL4°03° FLAGS 
icoc 41 109C 1523 pc IL1*47" LEXGTH 
ICCD 2156 Ice 1524 pc AL2 (MSG-HEIT R496) ADDRESS OF HESSAGE 
1525 
1825 
1COF FO 78 09 1526 TAPERR HPL ¢%-*,x*78¢ ERROR HALT 
1527 
1528 * NOTE - AT THIS POINT, A ERROR IS T#DICATED. THE OPERATOR 
1529 * MUST NOW REWIND ENOUGH TO ALLOW THE RECORD TO BE RE-READ. 
1530 * AN ABCD245 HALT INDICATES B READ CHECK. AM ABCDIS HALT 
1531 * INDICATES A SKIPPED RECORD OR THAT THE WAS HOT REWOUSD 
1532 * SUFFICIENTLY BEFORE RETRYIHG A READ CHECK. 
1533 
1533 
1€12 FR 07 88 1538 @ SBF RTYTST+1(,XR2),X°07* FORCE THE RETRY BRANCH TO HO-OP 
1015 £9 87 0A 1535 B SETDLY(, X82) RE-READ THE RECORD APTER REWIED 
1536 
1536 
1018 6D 70 60 PD 1537 TSTREC CLC RDEND-2(1,X81),RECHUM(,XR2) TEST FOR CORRECT RECORD 
Tc1c £0 08 08 1538 BNE SETDLY(,XR2) WOT THERE YET IF LOW OR EQUAL, 
1539 « . READ ANOTHER RECORD. 
1clP 6P CO 69 LD 1540 TESTRE SLC &8DEND-2(1,XR1),RECNUM(,XR2) SUBTRACT THE LAST GOOD 
1581 * RECORD PROS THE PRESENT ONE. 
1€23 79 PE 60 1542 TBP RDEND-2(,XR1),X°PE* TEST POR A DIFFERENCE OF ONE 
1¢26 62 CO 60 rD 1543 ALC = RDEND-2(1,%8 1) ,RECWOA(,XR2) RESTORE PRESENT REC. 805. 
1C2A £9 10 90 1594 8T SAVERS (,XB2) IF TRUE, WE READ THE RIGHT REC. 
1585 
1C2D BC 84 BA 1846 NVI TAPERR¢2(,XR2),X°S8* SET THE HALT CODE. 
1¢39 £0 e7 BO 1547 B PRTASG(,XR2) GO PRINT ERROR #ESSAGE 
1588 
1¢33 00 1€33 1589 CHKGEN DC XL 1°08 CHECK CHARACTER GEM. BYTE 
1038 70 1038 1550 RECNUM DC XL1°0° RECORD NOMBER SAVE SYTE 
DATE 22HAY70 01A0G70 010CT70 OWPET71 1780171 018AR72 1230872 PROG ID OFF6-7 
EC NO. 571513 571531 571540 571565 571608 571603 571628 PAGE 18 
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PP67 
ERP LOC 
1¢35 


1036 
1¢37 
1C 37 
Ca? 


C880 
cseo 
0881 


1051 
1051 


¥C&2 
1053 
1¢59 
1C5D 
1C60 
1C64& 
1c68 
7C6B 
IC6E 
C72 
1c7s 
1c79 
ic7D 
1¢c89 
3C83 
1c87 
CSA 
1C8D 
ic91 
1098 
1098 
1C9B 
ICOF 
Ica5 
Wcag 
tCAR 
qCAS 
TCAD 
ICAF 
1CB3 
ICE? 
TCBA 
CBD 
CCI 
1CCE6 
1cCcB 
TCcCr 


rate 


DISK 


| 


OBJECT CODE 
06 


99 


e3cwp7csHdpecs cs 


DELIC4sOCIAC 
DZ 


C916 
0202 
P2 10 3P 
cacy 
022F 
E2 02 €3 
D2 07 03 
Cd 09 
F2 OF 15 
02 02 
7 99 = 04 
BA 20 901 
88 70 01 
C972 
F2 87 15 
78 10 01 
C913 
89 90 C1 
C92E 
FO 38% C3 
f92E 
COSA 
C212 


22SAT70 ; 
571513 


EDIT 


cR 
ADD 


C35 
TPRE 
iC 36 
C87 
Bcsc3 


CBED 
C8E2 
1051 


C52 
C97F 


922F 


ICA9 
ICRA 
tcac 
ICAE 


00 
03 


ICD2 


07AUG70 
571531 


PART 
PAGE 


BO. 5129661 


waa 


STMT SOURCE STATEMENT 

1551 SIX pc XL1*06¢ 

1552 INCR EQU  SETOFFe1 

1553 WIRE DC XL1*098 

1558 MSG DC CLI7*TAPE RECORD CHECK® 

1558 

1558 

1555 

4556 OPG x*3880* 

1557 RDARE 0S cL 

1558 RDEBD DS CLOG 

1559 

1560 ORG 8ORK4256 

1561 DC XL17°O? 

1562 

1563 ENDROD DC CLie # 

1565 HYC 20(21),X*°97F* SET UF PROGEAM RESTART 

1565 TBE SPPLGS,BITO BRABCB IF WO ODT ENTEIES 
1566 IT LDEED 

1567 LA SPUDT , X22 POINT ZEB2 AT SECTION PREPACE uDT 
1566 LA OTAB, XR POINT XR AT DCB UBIT TABLE 
1569 LB 3 (, X82) X82 ISCRESEMT SPOT POIBTER #3 
1570 LA 3 (284) ,XR7 EBCREGENT POINTER BY THREE 
1571 CLC 0(14,XB1),0{(,_X8Z) BRAWCH IF BOT PROPER UDT 

1572 JNE UPINDS 

1573 MYC 2(1,ZR2) ,2(,XB1) LOAD SECTION PREPACE OPTIOR 
1578 SKN =. 1.(, X22), 1(,XR1) BITS 

1575 SBN 1(,XB2),BIT2 SET ASSIGNED FLAG 

1576 TBR 1(,%R2) ,BIT3 (OPIKD3 CRECK) 

1577 BF x*912¢ (UFIND1)IP NOT LAST ENTRY, GO LOAD BEXT 
1578 J LDESD OTHERWISE - GO START SECTION 
1579 UFINDS TSN 1(,XR1),BIT3 CHECK POR LAST DCP EuTRY 

1580 BP x*9198 " «(SPIND2) CONTIBUE IP HOT LAST ENTRY 
1581 TBF 1(,%82),BIT1 SKIP ERROR HALT 1F REQUIRED PLAG 
1582 8T X°92E¢ (OPIED3) wOT OF 

1583 HLT1 HPL  481,8B *ODT CANHOT BE SATISPIED 

1588 B K°O2gEe (OPIED3)BSYPASS ERROR IF HALT RESET 
1585 LDEND S¥C X*95A*(2),xX°22P¢ 

1586 8 PRIAT TO PRINT HEADING 

1587 Dc XL1*Q78 

1588 pc IL1¢ 14° 

1589 DC XIL2*900° 

1590 pc XL2° PFOO? 

1591 TBP SBYTEO,SS§07 

1592 TBF Xx*?PD*,x*Qae 

1593 JP +06 

1594 HLTA HPL #A,8H 

1595 L PRTB,X*°03¢ SAVE PIRST ROUTINE PREPIX AND 
1596 S¥C  =—- BRUM (1) ,0(,XB1) LOAD CURRENT ROUTIBE BUSBER 
1597 HVC RPPK(4&),3(,X51) 

1598 B TEST CHECK DATA SWITCHES 

1599 8 &(.XB1) START DIAGNOSTIC SECTTOR 

1600 LENGTH 2QU * | 

010CT70 OTAPR71 17HO¥71 O1MART2 1230872 PROG ID OPF6-7 
5715480 571565 571608 571603 571628 PAGE WBA 
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IB" MATETENANCE DIAGNOSTIC PROGRAS 


Pré7 


EIR LOC OBJECT CODE 


rare 
‘BC NO. 


Oo rs« 


Z22HAaT7C 
571813 


2vrtroeR. 
ADDR 


¢e91 
eCd2 
3308 
C029 
C2948 
9272 
3216 
o298 
0294 
3226 
O2248 
1B52 
TES4 
cag7 
3a$9 
Ca37 
922? 
9222 
C271 
C893 
Cal7 
CtS3 
cca 
C020 
e035 
C334 
C203 
JA92 
CIA2 
C2 a6 
cosa? 
6093 
C93? 
C332 


3100679 — 
571531 


ST#T source 
1602 
1603 
1698 
1605 
1656 
1697 
1608 
7699 
7699 
T6U4 
W692 
1693 
Fos 
1615 
1676 
1697 
7615 
1619 
1€22 
3621 
1622 
1623 
1624 
1625 
1626 
1627 
1625 
1€29 
1632 
1631 
3632 
1633 
1€34 
$635 


rat 
X22 
AR3 
PIIAR 
SBITCH 
TEST 
LIK 
PRIEST 
SYSTER 
PACK 
LOAD 
WORKER 
BRADDR 
READS 
RDADDB 
SPOT 
UTAS 
RALt 
2P PX 
aN 
PRTS 
2IT) 
BIT 
SIT2 
3173 
$907 
SE YTEO 
SPPLSS 
30SY 
CTLRES 
STRDY 
24 

qa 

a9 


OtocT?O 
571589 


STATEREST 
goo «09 

zoo 002 

zou g* 0B 

290 4x¢20° 

Qo 040«-z* 20a 
Zoo 40 ¥*2928 
rou 0 x° 2768 
290 «-x*2ta? 
zou. 40512 

foo = ¥*226¢ 
BOG 20 X* 228° 
200 SORKS? 
200 «-«BORK3 
20 0«- READINC23 
Po0 «=FEZADIES2S 
O53 «= X°a07* 
290 °22F¢ 
zou) 4 -¥*2228 
rou 4 «-x* 2978 
rQ0 20 ok*a03* 
eco | E*RO7* 
595 4«= x" 80? 

790 «z*808 

a0 40-x*# 208 

PQ00 0 «ox 0° 

2930 

E20 -x*2088 
290 «-x*a02° 
293 x*a2¢ 

ZO5 2 OK* AG? 

290 8«x*aoe 

90 x?03* 

20 x" 3P° 

Foo) «xx* 3B¢ 

} 

OtAPRT7I 1780971 
571555 571603 
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SECTION 
EQUATE POR B LEVEL 
EQUATZ FOR B LEVEL 
EQUATE POR B LEVEL 
HALT DISPLAY 1 
BALT DISPLAY A 
HALT DISPLAY 8 
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EFe Loc 
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ICDE 
C83 
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ICES 
IEC 
ICEP 
ICF2 
ICF5 
CPS 
1c¥rEB 
ICPE 
7304 
1p05 
1308 
IDNs 
poe 
IDI2 
Dts 
1D19 
1IDtID 
‘9221 
1323 
1926 
ID2a 
1028 
IN2Ce 
ID2E 
D320 
1D38 
ID3€ 
1539 
IDIL 
1D37 
1047 
DaD 


1950 
1558 
D855 
1956 
TE5A 
tm5C 


3D69 
TD6a 
1069 
1D6éC 
IDS? 
19072 
D775 
tD79 
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PAST BO. 5129669 
PAGE 45a 
TSK PFDITCR 
OBJECT CODE ADDE STaT SOTRCE STATEZNERT 
33 08 1207 1637 DSKEPR ST  DSEKETTe3, ARR SAVE BXIT apoRess 
35 02 1207 1638 L DSK EXT*3, X82 LOAD VALUE PRON ARB IE 782 
36 02 125? 1639 A SESPIV 282 REDUCE BY FIVE 
2¢ 01 1pE3 CC 1689 HVC CTLAD(2),9{, ZR2) #OVEZ CONTROL PIELD ADDRESS 
co 87 Re 1684 3 SEESE TO GET DEVICE stratus 
02 1CET 1682 rc —s «ELT 9928 BYTES 0 & 7 
C2 01 0823 1683 LA STATUS-1,zR1 LOAD X81 AS POIBTER TO SEBSE Data 
78 70 00 1688 T2N 0,381) ,.X°10° TEST POR EQUIPSEET CHECE 
72 10 a7 16385 J? = acTs02 JOBP IP o8 
76 80 09 1686 TES 9(,281),X°80" TEST POR INTERVENTION REQ. 
F2 10 22 1687 5? AC?TS12 JGaP IP of 
78 98 CO 1688 TRY 0(, 281) ,X°08* TEST POR BO RECORD PousD 
F2 29 $2 1639 JT acTsoa JUBP IP of 
78 20 03 4659 3s 0(,338 1) ,X*20° TEST POR SISSING ADDRESS 22K 
c3 70 3P 1651 5T ACT HT? PRAECH IP OF 
78 02 69 1652 TES O¢,.X¥R 43 ,X*?92* TZST POR TRACK COBDITIO“ cCHEcs 
P2 10 6a 1653 JT = aC THOS JOSP I? OB 
78 08 CO 1658 T2H 0-49, 322) ,-¥°08° TEST POR DATA CHECK 
Co 10 3239 1655 BT ACTH BRANCH IP OF 
78 91 CO 1656 TEN O(, XR1),xe018 TEST POR SEEK CBECK 
CO 10 1E1P 1657 BT ACTB10 BRAECH EP O8 
3¢ CO 1899 1658 DSKSLT "VI BRPLG,6 RESET ERROR FLAG 
ct 87 0222 1659 3 HALT TO DCP ERROR HALT 
AOFP 1D22 1660 dC 1L2*a0PP* HALT ID 
F2 87 21 1661 J STEP TO 2xIT 
Co et C248 1662 ACTN12 3 PRIS? TO PRIBT ISTERVENTION REQD. 
C6 1D2a 1663 2¢ sR V°Cee PLAGS 
08 1D23 1668 DC 8—s«TLV°918 LEucTs 
126C 122D 1665 DCs AL 2 (I NVTRQ) ADDRESS OF LAST PRIET CHARACTER 
AoPe 1D2P 1666 ac IL2*°a0Fz¢ SESSAGE IDENTIFICATION 
CC 87 0222 1667 3 HALT TO DCP ERROR SALT 
AOoPz 1535 1668 DC —s EL2"a0rRe SALT YD 
¥2 €7 OF 1669 J stzP TO BxIt 
3D C9 1259 1670 ACTN92 CLI BETRY,O BAS RETEY COUST BEZE EXHAUSTED? 
ct 81 4p10 1671 BE  DSKSLT IF YES, GO HALT. 
OF CO 1259 CAE? 1672 ALC «=: RETRY (1), 8INUS1 REDUCE COUNTER BY 1. 
C2 31 WWC7 17E4 1673 STZP ALc DSK2ExXT¢3(2) , ETULVE DECRESEST RETURB ADDRESS BY 72 
P2 €7 38 1674 J DSKEIT TO £XIT 
1675 
ce 87 Woz 1676 ACTWOS § ST 8TIO TO 22ad ID 
94 1054 1677 nc) séEL°098 POUBCTION CODE 
31 1355 1678 DCs sXL1°07" CONTEOL CODE 
125A 1257 1679 Bc AL 2 (CBKID) READ CONTROL FIELD 
co &7 WDSc 1680 3 +8 ERROR OW READ ID 
cc 87 169 1681 3 +8 
1963 1682 CTLAD BQU 63 

c2 02 coc? 1683 LR S38, eR? PLACE CONTROL FIELD ADDEESS Is xR2 
2D (9 1258 91 1684 cic CEKID*1(1) ,1 (X82) COMPARE ACTOAL ID ASD EXPECTED ID 
F291 9C 1685 JZ = ACTEO7 JOMP IP EQUAL 
BD C1 02 1686 CLI 0(,X82),X*01" SOT EQUAL, CHECK POR ALY. TE. 
F2 81 18 1687 JZ acrs6s JUSP IP THIS TRACK IS AW ALTERBATE 
P2 €7 At 1658 J ACTSO09 TO TEST FOR TRACK COENDITIOS CF. 
3© 02 1063 1639 ACTNO6 L CTLAD, XR2 LOAD XB2 WITH CONTROL PIZLD ADDRESS 
BD £0 99 1690 CLI 0(,382),9 CHECK PLAG BYTE OF ORIGISAL OPzERAT. 
P2 81 OD 1691 JZ actsec JUSP IP THIS TRACK IS GOOD. 
BD 01 99 1692 CLI 0(,¥22),x°01° CHECK PLAG BYTE POR ALTERBATE 
co 91 1939 1693 BNE AcT#O2 _ BRANCH IP THIS IS NOT AN ALTERNATE 
BC CO 00 1698 ACTHSS S¥I 94, ¥R2),0 SET FLAG BYTZ OF ORIGINAL OP TO 0. 
F2 &7 33 1695 J ACTH 11 TO ACTION 11. ‘ 
Co a7 1702 1696 ACTS6C 8 STETIO TO BEAD ID 
31 1399 1697 re XL1*07* YGECTIGS CODE 
aq D3? 1698 pc XL1*0O1? CONTROL CODE 
125, 1D93 1699 2 AL2 (CHKID) READ CONTROL FIELD 
ce €7 1098 1700 3 2e8 
cO #7 1D9C 1701 3 #28 
C2 OF 1258 1702 LA  CHKID,x21 LOAD ADDRESS OF ALTERSATE CTL. FLD. 
7D 02 09 1703 CLI 9(,X81),02 TEST POR DEFECTIVE TRACK 
P2 01 a8 1708 Juz acréc2 JUSP IP BO 
228AY70 2120670  otocT70 OVRPR71 1790971 0 18A872 1230572 PROG ID OFF6-7 
571513 571531 571580 571555 571603 571628 PAGE 15a 
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TBA MAINTENANCE DIAGHCSTIC Procaan | eG 3 ee eS . PART HO. $129661 é = TBM MAINTENANCE PDIAGHOSTIC PROGEAS ; PART BO. 5129661 
. : 2 es + _  pasR we S Sf | : — | Pack wa ? 
Fré?7 DISK EDITOR « PP6E7 DISK BDITOR 
FRR LOC OBJECT CODE ADDR STHT SOURCE STATRMERT , ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEUT 
IDA6 Fo 01 00 1705 AVI «=: 0(, ER1) ,01 SET SIT POR. ALTERRATE COLTROL PLD. € ¢@ 1EEO 1771 ORG x*1ERO® I/O OVERLAY AREA 
IDAO9 CO 87 17D2 1706 B STRTIO — TO SEEK THE ALTERNATE TRACK 1FRO 1228 VEE1 1772 ENTRY@ DC AL2 (IORTR) 
IDAD 00 TDAD 1707 pc XL 1*0* FUNCTION CODE (CONTROL) e 1PE2 0000 TEE3 1773 EXIT@ DC AL 2(*-#) 
IDAE 00 1IDAE 1708 pc s«sEXZ%L*08 CONTROL CODE (SEBK) = IFES 38 08 020A 1778 IORTN TBN S#ITCH,X*O8* 
IDAP TESA IDBO0 1709 pc AL2 (CRKID) CONTROL FIELD ADDRESS TERA F2 90 1A 1775 oF NOTTP 
/ IDBI CO 87 DBS 1710 B +4 aa € ‘YEEB F2 07 0B 1776 321-3 32,X*°07* 8O-OP 
. 1DBS CO 87: 1DR9 1711 B on $ 1EZE CO 87 022A 1777 B LOAD LOAD OVERLAY 
1DB9 35 02 1FC7 1792 L DSKEET¢3, XRF LOAD PARAMETER LIST ADDR. IN ZR2 TEP2 04 1EP2 1778 pc ZL1°08° 
_4DBD 36 02 1861 1713 A NTSLVE, XR2 é 1EP3 DPES TERR 1779 pe XL2*DFES* 
IDC? 2c 04 IpDC 05 17148 RYC ALTOP(2),5(,XR2) HOVE OPERATION TO USE & 1EFP5 3c 87 EEC 1780, AVI | «.3144,X°878 CBRANGE BO-OP TO UNCONDITOBAL SUB? 
, 1DC6 2C 01 IDES OP 1715 MVC 08° NTPND¢3(2) ,X*OP*{,XR2) SCAN NOT FOUND @ 1EP9 CO 87 2000 1781 32 B x*2000° BRILNCH TO OVERLAY 
-4DCB 35 02 1D63 1716 L CTLAD, XR2 LOAD ADDRESS OF ORGINAL CTL. PLD. 1EPD 8C SF SP O8DP 1782 MYC 95(96,X%R2),X*GDP* MOVE DATA TO INPUT BUPPER 
IDCP C2 01 1E5A 9797 LA CHKID,X8R1 LOAD ADDRESS OF ALT. CTL. FLD. € i 1P02 ¥2 8&7 3P 1783 3 XEXT 
1DD3 6C 02 03 03 9718 avC 8 =. 3. (3, XR1) , 3 (, XR2) MOVE SECTOR BITS, LENGTH & CYL. #0. 1F05 1784 USING HOTTP, XR1 
1719 * FRCM ORG. CTL. FLD. TO ALT. FLD. é ao ¢ 1P05 C2 01 1705 1785 NOTTP LA WOTTP, XEI 
1DD7 CO 87 17D2 1720 B  STRETIO TO REPEAT OPERATION ON ALT. TK. an E 1709 38 01 020A 1786 TBH 8 SWITCH,1 Sss¥17 on 
1DDB 00 IDDB 1721 BC XL1°08 FUNCTION CODE IPOD P2 10 15 1787 JT RTRY 
IEDC CO ILC 1722 ALTOP DC XL7*0* CONTROL CODE ‘ 3 1710 38 80 0208 1788 TBN SWITCH+1,x%°80* SS818 ON? 
DDD 125A IDE 1723 pc AL2 (CHKID) CONTROL PIELD ADDRESS 1718 72:10 Ad 1789 JT D1442 
1DDF CO 87 1DE3 1724 B 4a 1717 38 20 OaoB 1790 TEN SWAPCU,BIT2 
IDE? CO 87 IDET 1725 NTPND B +4 1FIB P2 10 55 1791 JT PCO 
1DE7 PZ 87 TA co 1726 3 DSK EXT TO EXIT 3 1P1E 38 20 CADE 1792 TBH 8 896$95871, BIT2 5871 ATTACHED? | 
1727 1F22 P2 90 9B 1793 JP D1882 IP wot GO TO 1882 
IDEA 3C 00 18A1 1728 ACT6C2 SVI PRSTPS,O SET TO CAUSE A RECALIBRATE ‘ 1P25 75 02 42 179% RTRY L XEXT¢3 (, XE 1), XR2 
IDEE OC 07 IDFR 1D63 1729 AVC AGCADR(2),CTLAD HOVE ORIGINAL CONTROL FIELD ADDRESS sd 1F28 AC SF SP AO 1795 HVC 95(96,XR2) 96 (, X82) 
1DF4 CO 87 17D2 1730 B STRTIO TO I/O SUBROUTINE 1F2C F218 41 1796 SIO x*81°,z°188 CARRIAGE RETORS 
1pDPR 00 wre 1731 pc XL1*00* FUNCTION CODE (CONTROL) ‘ z 1P2P 73 10 17 1797 NXTCHR SIO xX°19*,x°109 INPUT CBAR 
1DP9 00 1DP9 1732 bc IL 1*00* CONTROL CODE (SBEK) 2 1732 79 11 6D 1798 RESNS SNS  DAT(,XR1),X°11° 
IDFA C°CO IDPB 1733 AGCADR DC AL2 (*#-#) COSTROL PIELD ADDRESS 1P35 78 40 6D 1799 TBN DAT (,IR1),3%°80* TEST POR END OR CHACEL 
1DFC CO 87 TEC0 1738 B toa 1738 P2 90 11 1800 JP TSTDAT 
1E00 CO 87 1208 1735 B +8 € 5 1P3R 78 20 6D 1801 TBN 8 8«©DaT (,3B1),x*°20° CUACEL? 
1£05 CC 87 0000 1736 DSKEXT B o-¢ EXIT = 1P32 DO 10 20 1802 BT RTRY(,XR1) TES 
1737 e 1781 73 10 01 1803 SIO 1,X*108 
1208 38 20 0A23 1738 ACTNO7 TAB STATOS-1,x°20° TEST POR MISSING ADDRESS BARKER s 1798 C2 02 OA80 1805 XPIT LA READIN, IR2 
TEOC P2 10 30 1739 JT aAcTN11 TO ACTION 11 IP PRESENT 1PG8 35 10 12P3 1805 L EXITSa,T AR 
1EOP 38 08 0A23 1780 TBM 8 «©6STATUS-1,x°08° TEST POR DATA CHECK € IPSC 78 08 6D 1806 TSTDAT TBH DAT (,XR1),%°08* DATA ? 
1213 P2 10 29 1781 JT acTutt TO ACTION 11 IP PRESEsT $ 1FGP pd 90 2p 1807 BP RESES (,XR1) 20 
1216 38 02 0823 1742 ACTSO9 TBN STATUS-1,z°02# TEST POR TRACK CONDITION CHECK 1P52 78 08 6D 1808 TEN DAT (,IR1) ,X°0R* RETURE ? 
TE1A CO 10 1D75 1763 BT ACTHOG TO ACTION 06 IP PRESET . e 1755 DO 10 20 1809 BT RTRY(, ZR 1) ae 
TE1E OC O01 122B 1D63 1794 ACTN10 AVC ATOADR(2),CTLAD BOVE ORIGINAL CORTROL PIELD ADDRESS eo 4IPSA 9c 00 00 4c 1810 AVC 0(1,X82) ,DaT-1(, 281) 
1E28 CO @7 1702 17495 8 STRTIO TO I/O SUBROUTISE 1FS5C 71 98 6D 1814 LIO =—-d DAT: {¢- XR1) , X°98* 
1£28 C9 1228 1786 pc XL 1°00° FUNCTION CODE (CORTROL) e 1PSP #3 18 81 1812 SIO xX*81*,z°188 PRINT CHAR 
1229 91 1229 1797 pc XIL9901¢ CONTROL CODE (RECALIBRATE) 8 1P62 22 02 01 1813 LA 1(,XR2) X82 
122a 0000 1E2B 1798 ATOADR DC AL2 (#-*) CONTROL FIELD ADDRESS 1765 78 92 6D 1818 ST TSTH(,XR1) oXR2 
1E2C CO 87 1230 1749 8B 8 e 1P68 79 FC 6D 1815 CLI fTSTH(,XR1) ,X* £0" 
1E30 CO 87 1238 179590 i(‘<i‘ fon 6 IP6b D9 81 3P 1816 BE XExT(, XR) 
1238 35 02 1207 1751 L DSK EXT¢3, E82 LOAD PARASETER POINTER Is X82 1P6E DO 87 2A 1817 B BXITCHR(,XR1) 
1E39 BD 00 00 1752 CLI 0(,X82) ,0 WAS ORIGINAL ACTION A SEEK 6 1P79 1900 1772 1818 TSTN Dc XL2*0¢ 
1E3B CO 81 1208 1753 BE DSKEIT TO EXIT IP ves e 1772 1319 DAT £00 «= TSTs 
1E3P 35 02 1563 1758 ACTNI1 L CTLAD, XR2 LOAD CONTROL PIELD ADDRESS I8 ER2 1773 D1 FO 86 1829 SPCU) TIO E8R(,XR1),X*° PO TEST FOR WOT READY OR ERROR 
1F83 BC 09 03 1755 AVI «3 (,R2) ,0 S&T POR ONE SECTOR OPERATION e 1P76 71 FS 82 182% LIO = KEXT#3(,181) ,X*PS* LCAD DATA RZADI® ADDRESS 
1E86 3D FF 189D 1756 CLI @ ERPLG,X*PP® TEST ERROR PFLAG 2 1°79 P3 71:00 1822 SIO x*00°,x*FT® READ CARD INTO I/O AREA. 
TESA P2 61 08 1757 Je ACTH13 IPF O8, STEP BRROR COUNTER 1FIC DI PI 77 1823 TIO *(,XR1) ,X°P1° walt 
4EQD 3C PP 189D 1758 SVX ERPLG,Z*PPe SET BRROR PFLAG € 1?7P 79 P3 6D 1828 SNS STATOX(,XR1) -X*F3* SENSE DEVICE STATUS 
1251 3c 19 1259 1759 AVI RETRY,16 LOAD RETRY COUBTER . € 1°82 79 86 6D 1825 TBF STATUX(,XR1) ,X*°86* TEST FOR READ OR PEAD CEC 
1255 CO 67 1D39 1760 aCT#13 8B ACTHO2 TO STEP CouRTER 1P85 DO 1C 37 1826 BT XEXT(,XR1) 
1761 1F88 p0 87 62 1827 B NPCU (,XR1) 
1259 00 1259 1762 RETRY 0C XL2*9° € ¢ 1P8B 74 08 9C ! 1828 ERR Sst ERX (, 281) ,ARR 
125A 00 1E58 1763 CHKID DC ZL1°900" PLAG IPB8E CO 87 O27A 1829 ) PRIUBT TO PRINT SPCU NOT READY OR ERROR 
1E5B 00 1E5B 1768 DC IL1*°00¢ ' CYLIGDER 1P92 C6 1P92 1830 pc XL1°c6* FLAGS 
1E5C 00 125C 1765 pc XL27°00° TRACK & SECTOR e e 1793 48 1793 1831 pc IL1*30° LENGTH 
1E5D 00 1E5SD 1766 pc XL 12° 0° NUSBER OF TRACKS OB SECTORS 1P98 1PSP 1795 1832 DC AL2 (EBRORC) ADDRESS OF LAST PRINT CHARACTER 
1E5E FFPB ESP 1767 NEGFIYV DC XL2*PPFB? 1P796 AOEC 1F97 1833 pc XL2*aQEC® SESSAGE IDEWTIFICATION 
1260 FFPG 1£61 1768 NTMLVE DC XL 2° PPre? ¢ ¢ 1F9B CO 87 0222 . 1834 B RALT TO DCP Halt 
1E62 CODSEIDIESSRAODY 1£6C 1769 INVTRQ DC CLIUIINTRY. REQ. * 1P9C AOEC 1F9D 1835 DC KL2*aQEC* HALT ID 
TE6A C5DAuS : 1769 : € 1F9E CO 87 COC? 1836 B- @-#* 
| é 1FA1 1837 ERX Frou = #1 
IFA2 C3C1D9C840D9CSC1 IFBF 1838 ERRORC DC CL30*°CARD READER HOT READY OR ERROR® 
| na 7 € ¢ 
DATE 22HAY70 01A0G70 010CT70 01APR71 1780971 O18AR72 1230N72 PROG ID OPF6-7 DATE 22MAY70 | 01A0670 010CT70 O1APR71 17NOV71 O1MAR72 1230¥72 PROG ID Orr6-7 
BC WO. 571513 571531 = 571580 571565 571608 571603 - §71628 PAGE 16 © «6 EC WO. 571513 571531 . 571580 571565 5716048 571603 571628 “PAGE 16a 
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IBM MAINTENANCE DIAGROSTIC PROGRAA . | PART HO. 5129661 = IBS SAINTENASCE DIAGNCSTIC PROGEAR PAST HO. 5129667 _ 
PAGE ws. SS PAGE m 3 
PF67 PISK EDITOR = PP67 DISK EDITOR 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEST CROSS- REFERENCE 
IPAA CSCSDOSODSDEE340 1838 SYMBOL T LEX VALUE DEFER REFERENCES 
1PB2 DSCSCICUESS ODE DI 1838 
1PBA SOCSD9D9DEDY 1838 AAAOS A COZ OAC2 O0C78 0076 
1772 1839 STATOX EOU ‘STH AAC? 8&2 608 OBA1 0169 0076* 0077 0178 0229 0924 0972 
VFCO 771 5% 8&2 1840 DI&&%2 LIO KEXT+3 {, E2893 ,X*55* AACTX A O08 OAAD 0073 A260 GO72 
1PC3 DO 87 DB 1841 5 RDIG82 (, ER1) AAOTVEX A OCS OASP OC70 0066 
4FC6 BD &0 4C 1882 CLI 76(,XR2),C* * TEST POR A 96 BITE RECORD BACB = O78 0813 0026 0078 0258 0878 O790 
7PC9 DO 81 3F 1883 BE XEET (,XR4} ARI9 x 003 t8AC 1233 4244 
VFCC 74 S58 DT. 4888 LIO BUFIN{,%R1) -X°58* IP SO TEER BEAD SECOKD A RA20 & 008 W8CP 4288 1256 
1PCF DO 87 DB 1885 B 2D1862{,ZR1} CARD AED HOVE 20 BYTES ACTCON A 003 TALC 72366 0621 080% 0880 1027 1749 
4FD2 OC 713 CADF 2F13 18.46 HVC BEADIN+95 (20) ,X*2F00%s19 20 HARE A 96 BYTE EECORD ACTNO2 A 008 1D39 «7670 1645 7693 1760 
TFD8 DC 87 3P 1887 B RERT(,2ZR14j ACTRO® A COU 4D50 1676 1689 
1FDB 2F00 FDC 1888 BUFIS& DC XL2°2P008 ACTNO6 & 008 1D75 1689 1653 1783 
1889 ACTNO7 A 008 18208 1738 1685 
1FDD 74 CB PD 1850 RD18a2 ST X7492 (,2B1) , “BR ss ACTROO A 008 B16 1782 1688 
1PEO DI 50 a6 1857 DX18 TIO ERR({.ER1),E?50° TEST FOR WOT READY OR ERROR ACTH1O A 006 VE4F 4784 1657 | 
1FE3 F3 57 CO 1852 SIO. X00, x°5 42 READ CARD INTO I/O AREA. ACTN11 8 COM 4E3P 1756 1657 1655 7695 1739 1781 
TFE6 DT 52 £1 7853 TIO *{,IR1),X%°S2¢ @art . ACTK12 A COR 1D26 1662 1687 
1PE9 79 S3 6D 1858 SNS  STATUX(,ZR1) ,£953! SENSE DEVICE STATUS ACTH13 & 008 1255 7760 1757 
PEC 79 93 6D 1855 TBP STATUX(,XR1) ,X°93° TEST FOR READ OR PEED CHEC ACTN6B A 003 1D86 1698 1687 
1PEP CO 10 C000 1856 BT —# : ACTN6C A 008 4D8C 1696 1691 
aoe IFF2 1857 x1482 EQU 4 ACT6C2 A 008 IDEA 1728 1708 
1PP3 DO 67 DB 1858 B DX19(, IR 1) ADD A008 1B9A 1869 1963 
OAEB 1859 BND  SETDSK : ALDCHK A 008% BCC 1890 1989% 1491% 1492 1493 
- ADDREP A 008 12CC 0753 0767 “ 
ADDTST A 001 OBEC 0208 0182 
eo ADREXT 2 003 1896 1212 1193 
- ADRPLA A 001 ODB3 0385 0278 
ADRPLE A 006 0C58 0283 0531 0680 
: ADRPLC A 008 103D 0532 0525 
- - ADRPLD A 0048 OF83 0879 0498 
ADRPLE A 006 O0C6B 0248 0881 0507 0513 
; ADRPLP A 006 OFAC 0891 0888 
< . ADRPLG A OCS OF39 04860 0251 0847 
ADRPLH A 006 OFC2 0896 0298 
e 2 ADRPL1 2.001 OCSO 0241 0232 
: € - ADRPL2 A005 OFBS 0829 0393 0395 
ADRPL3 a CCS’ O0C88 0258 0356 0808 0882 
: . ADPPLS A 006 OF3F 0392 0387 
< © = ~- apRPLS A 00% OEFF2 ONG 0438 On80 ” 
ADRPL6 A 006 OFSO 0396 0333 
: ADRPL7 A 001 191B 0521 0343 0425 0853 0859 0503 0510 0516 
€ ° ADRPLS A 008% OD8A 0335 0302 0330 
ADRPL9 A 008 OEFCB 0433 0497 
: ALTOP A001 DDC 1722 17198 
€ : ARR C 001 0008 16048 0026 0036 0406 0576 0722 0731 0853 1068 1078 1093 1109 1131 
1141 1224 1261 1288 1295 1319 1837 1637 1828 1850 
= Z A1TOADR A CO2 1EB2B 37488 17a 4% . 
= : AGCADR A C02 IDFB 1733 17298 
BAAO7? A 008 081 0229 0198 
‘ : PBHALT A 004 OB7D 01548 0151 
& 3 BITO C001 0080 1623 1565 
BIT] C001 0040 1628 1581  § 
2 ; PIT2 C001 0020 1625 1575 1790 1792 
“ : BIT3 C001 (C010 1626 1576 1579 
BUP14 A002 FDC 1888 1808 
g : BUP A006 1435 1386 1323 1325 1327 
~ 3 BUPFLG A001 1A3A 1351 0277 0835 0896 1338¢ 
FUPREC A 008 OFE7 0505 0536 
BUPSET 2 003 1019 1338 1328 1326 1328 
€ #? BUSY C001 OO0A2 1630 1356 
CFASX@ A 001 10D7 0568 0576 
e CHAIN A 008 OEFBS 0827 0305 0781 
3 CRGCON A 062 ABT 1415 0218 
CHKPAS A CO& 1049 0576 0073 0282 0532 0678 069% 0716 1083 
CHKGEN A 001 1€33 1589 1488* 1490* 1398 
° z CHKID A 001 ESA 1763 1679 1688 1699 1702 1709 1717 1723 
CHKREP A 008 OCCE 0282 0258 0276 0278 
¢€ 2 
DATE 22M AY70 0100670 010CT70 O1APRT1 17NOV71 O1NART72 123072 PROG ID OFF6-7 DATE 22mAY70 91A0G70 010CT70 O1APRT1 17HOW71 O1NAR72 1230472 PROG ID OFF6-7 
EC NO. 571513 571531 571540 571565 571604 571603 571628 PAGE 7 ¢ “ EC NO. 571513 571531 571580 571565 571608 571603 571628 PAGE 178 
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IBA AAINTENASCE DIAGNOSTIC PROGRAR | Sete Oe: RNS RSSY:. 2g ay ISS AAINTENABCE DIAGHOSTEC PROGRAS . PagT 80. 5129661 7 

| } : - pac 8 po | . PAGE | tea # 
. | a | sie pa ee 
FP67 «DISK EDITOR OO « e FP67 =DISK EDITOR ; 
CROSS-REPERESCE . ; CROSS-REFERERCE 

SYMBOL T LEW VALUE DEE REPERENCES : ; { SYMBOL T LEN VALUE DEPS REPERENCES 

CHNISG A008 1216 0699 0782 ; D1647 4 003 IFCO 18480 1789 1793 

CK a C03 1223 0761 0758* 0778 | < eorT A 001 0200 0008 0089 

CKCTL a 008 1192p 1269 1275 =~» 

cK A 003 1320 0785 O778¢ . EDITAA A 006 OBBD 0159 0152 0202 0584 0573 0635 0683 0690 0783 0889 0857 1011 1058 

CLK1. a 003 1881 7858 1856 ESDIPL A001 1A6E 1378 0161 016% 0261 9506 0509*% 0512 12999 

CHLOOP A 006 18D2 1285 1250 : ERDROD a Bot 1¢52 1563 9500 0500¢ 

CHECOW A C02 OA7P 0048 0216 E ! 

COMP a 008 1337 0793 0217 = 2 ERPLG & 001 189D 1216 1658* 1756 1758¢ 

COMPRS A 008 160% 1228 0831 0498 ERNSG A003 1€08 1520 1895 , 

COMPXT A008 1908 1257 1228 : | : eer s co3 Pes 1828 1820 185% 

CONPB aA 0C6 12FA 0770 0762 * 

COPYA A C08 18£0 0928 - 6911 0963 0967 EBROR! a 016 Mact 1817 O19 

COUNT A003 %B6D 1887 1850 , 1 

CTLAD A COT 1D63 1682 1680* 1689 1716 1729 1788 1758. < ERRORS a 028 ‘are 1420 o38ee o3s2 

CTLREG C 001 COAG 1631 11878 OR’ A 02 7 . 

CYLTBL A 001 1982 1278 1268 : ‘ ERROR6 A 037 1889 1822 0631 

C3A8 =a C08 1156 0637 0622 e& + ERX a C01 1PAl 1837 1828% 

C3B3 «A 001 «©1129 «4061920627 : EYIT@ A CO2 1£23 1773 0026 1805 

c3ce =A CCT «(1087 «056% = 0572 | | ; FAS A003 1880 1387 0581 0826 

C3D2. A OCS «©10CA «20585)~—Sts«é51B. | € - FASCYL A 002 1488 1389 0577 0598 0830 0935 
—C3D22, «A C08 «©10F3 «(959302 s(0596 7 PASOLD a 002 ase 2367 0533 0585 0717 0926* 0933 0937¢ 0966 

C3D3.— A 008 «1935 «(0628 , | 

C3P3 A 00S 17182 0628 0530 0685 | < 3 FIGCON A002 OATA 0096 0210 

C3H2. A COT 1123 0676 ~~ 0603 FIGDCP A 00% 1285 0780 0211 0720 0788 0790 

C3H3A A 008 1045 0573 m PINISH ACO? 1A6C 1376 0269* 0502* (518* 0528 

C3K2 A 006 1108 0605 0602 € < PLAGS A008 OBCB 0189 0188 

C#A2 A COS 182D 0858 0856 PLAGS1 A 00& OcaC 0236 0190 

DAT A 002 1772 1819 1798* 1799 1801 1806 1808 1810 1811 «23 FEDOLD a coe 1818 o8s3 0793 | 0833 

LATACE A 006 OD6C 0326 0272 0308 0319 } 

ratcD aCO2 1A7% 1389 90252 0279* 0282* 07532 FPOURZR A 00% 1872 41379 Aeon nese 0392 O886 O8849 O858 0896 0508 0561 0365 926 9933 

CATC?D A CO8 AAD 1811 © 0288 ' 

DATPIN 2905 O0Ca3 0269 0268 «€ $ PRSTPS ACO? 1841 1219 0928* 0952* 1178* 1182 1188¢ 17289 

rATHOD A COS ODB1 0232 0270 0327 PRTH c 001 0407 1622 1595 

DATS#@ 2001 1A6A 1378 0265 0271 02878 

DCP A CO3 132E 1388 0313 0652 1321 €e€ 8 PSTCD A CO1 1A8E 1395 0236* 0255 0262% 

DCPPLG A C01 1433 1369 0837 0536 0672* 1336 Fst A 008 1288 0709 0698 0700 

DCPGO A001 1A6D 1377 0839 0863¢ ees PEDSEK , 003 1873 1200 ' 198 | _ 

1A7C 1385 5 671 069 718 0757 | 

scecis ; re ae aicc eae . Peter wea: ae . HALT C C01 0222 1619 0106 0119 0138 0196 0200 0227 0358 0385 0802 0582 0633 0876 

DELAY? A COS 18A7 1876 1890® 1958 1459 1869% 19770 ee 0890 0905 0919 1659 1667 1838 

DELAY? A COS 1BAB 1877 1881% 1865* 1867% | READER . 005 ocr 0290 0285 sest 

DELCOW A 002 1A€A9 1810 029 : 

Baece A aos 1SP& 0588 a . . « HLTA A CO3 ‘CBA 1598 0756* 0157¢ 
_DELET1 & 001 1SPB 0990 1013 aLT a 003 teva 1583 01580 0155¢ 

ad 1 } 

Petes : eon acne soos soos IAR c 001 0010 0709 0030® 1805 

DELFND A C06 161D 1003 0995 € 2 IDENT A 008 19D8 1318 0329 0830 1317 1318 

DELSAY A 201 45P2 0991 0989* 1009 one IDENTX A COS 1428 1383 1319 1334 1337 1339 1381 

DEST & 002 OF08 0378 0366* 0382 IDXCYL A 002 1087 1391 0617 1018 11418 

DPCR aA 002 189A 1218 1186 1187 € 8 INCR A003 1BR6 1552 1885 «1891 

ote one ae . ete ae ae is 

DPDR A 02 189C. 1215 1158 

DISKTP A091 1892 1217  0109% 0123* 0515 0868 0930% 095%* 0969 7189 e 9 THTTRO a a ’ 1e6c 1769 188° ; 

DMY A CO1l 1853 1369. 

DONE A CO3 1BC6 1888 1881 | — IPL A001 1A2P 1345 1329 

DRIADR A901 18a2 1220 1172 12119 IPLA a 003 1995 1301 1298 

DR2ADR ACO? 1843 1221 1175 1209% IPLC A 003 OA7D 0087 0985 

DSKDUP A 006 1431 0863 0221 IPLCRD A 008 1980 1295 0505 0511 

DSKEPR A008 1CD2 1637 1072 1086 1101 | € #6 IPLEXT A COS 19D 1318 1295* 1300 1302 

DSKEXT A 008 1808 1736 1637* 1638 1673® 1678 1712 1726 1751 1753 aires a BOY sed Ee eee o238. a 

DSKRLT A 008 1019 1658 1671 PLE e 

DSKSA¥Y A001 1589 0968 o868¢ _€ ® IPLREC A 008 1000 0511 053s 

DUPCOW A CO2 1541 0979 0220 : IPLSET A 

DUPEIT A008 1aps8 0921 0878 0892 0907 | . e ? IPLSW A 001 159D 0976 0865* 0983 0987¢ 

DXx18. A 003 1FEO «61851 1858 : 31 A003 12EB 1776 1780* 

DZPRO A 002 0A27 1060 0159 1035 1082 a : 32 A 008 #4EP9 #1781 1776 | 

| : | . a 
CATE  22sAY70 01A0G70 010CT70 -OTAPRT1 1790071: 0 18AB72 1230872. PROG ID OFF6-7 DATE 22MAY70 0140670 010CT70 O1APRT71 178071 O1MAR72 0-123 8872. PROG ID OFF6-7 
EC #0. 571513 571531 571580 571565 571608 571603 571628 PAGE 18 ¢ 9 EC WO. 571513 571531 571580 571565 571608 571603 571628 PAGE 8: 
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sg ee Pal — ie. he's —? “3 . es t 
IES MAIVTESABCY DIAGECSTIC FROGRAR 2 Sk SE ee ete tS . Pant BO. 5129661 é — TSS SAINTENANCE DIAGEHOSTIC PROGRAA PAST BO. 5129661 
: RS OR Sane ie : : racz 19 — | a. | Pace ta «(f 
rr6é7 DISK EFEd9ITOR z ss 7767 DISK 2F2dDIPOR: : 
CROSS-REPERERCE - CROSS-REPERERCE 
SYP2CL T LEB YALGE DEFS REPEREICES . é * ST#3CL T LES VALUE DEFS REPERENCES 
LASTAD A COT Sr 17137 71728 11752 171678 71196 1202 12068 1209 4271 . RDADCDR A TOY 0a9o)| (1616 0861 3853 
- LASTWO a CC& asa 1812 0168" 0263 02886 , RDAPE a “9% O980 1557 1833) 1835) «43885 «1806 1aus* 1889 18898 1983 1883" 1508 1511 
LDEWD a CCH 6ICOF «61535 1566 1578 epprPc a CO? .7a82 1357 9533* 9573 9578" 0605 0617* 0625 0638 0668* 0671* 0673 0575* 0687 
LDPPR aA fO3 7800) 1758 O128% 9133% 0937% 9955% O970% 1212 1286 1287 1288 1289 1290 1294 : oh C695* 3733 9717* 9733 0757* 0768 0770 0782 0797 0805 0806 ocBt7e 
; 1292 > ~ C817 C322* C838 0836 0935* 0938¢ 0959 0966 1003 1078*% 1032 1036 
LDS203 a ccs CA9B 9067 3062 1080 1979* 1051 1085 11186 1128 1125 
LENGTH ACO? IcD2 «1600 0500 0509 0o500¢ | % ROEND a C98 O82 1558 1882 18829 1876 1976% 1377 18779 1978% 1880% 1882 18828 1698 7508 . 7 
LISK Cc CO1 0216 1608 0786 - : 1506 1537 15808 1582 15338 “ 
LIST a COE 688 1978 0215 ; PDPCAL A COT 159C 6975 9928 9276 
LEBD aA ‘TO? CBID 0753 0789 . ; RDSRT A O98 1275 0722 0718 0779 . 
LOAD CC CO C224 17€72 6063 0067 1777 : BD¥S a2 CSI 129% (729 0722* “ 
LoD A CO2 4837 1387 9331 RDIS82 &3 093 «IFPDD 19850 1887 «1835 
LODPLS a C0? WaA3C 1353 9539 0651 0651* 1320 13320 13aZ2 READ aoa 1737 C78 6565 0579 0696 5620 0677 0696 0723 0760 0783 0798 0800 66818 
LODS=T A C3 1225 1282 1332 z 2839 (935 0982 1998 1020 7117 
LSTAGW A CCH 1679) «1931 4926 “REATS a 02% YaéC 1373 0805* 0822 
LSTEND A C31 67K 1038 1022 é READAD A COT OAR CC28 7280 461255 
LST?"D a C31 1682 12319 1933 ; READE a COR 8P5 0939 0925 
SACK a Ot 138D 0813 9821 READEXY a C$O® 1759 1089 10789 
MPCATD A-CO2 IABZI 1813 0267 : READI®N a COR OFB88 0813 Call 94921 
®FcN) 8a CO3) 1F73) «1827 9791 «1827 mS PEACIN A OOT CABG CC5O CC27 0079 0169 3177 C177 0283 0368 0367 0899 06592° 0595 0667 
SIWO0ST A CO2 CAE? 2086 1238 1672 9709 0771 1225 1282 1296 1400 1801 1615 1616 1808 18869 
=CVCTR a C77 1894 1299 03812 0829* RERDWH A COT CA97) 1615 Neuss 03856 0861 
SCVEPP A COS CDAA C292 C280 0289 0298 ¢300 0308 0328 0338 * READSK A 791 1527 0981 0938 : 
BSG A C97 cay 7658 9072 9072 CO72s 1528 | ; READSP A “Ot 1597 (C977 C8656* 93792 9931 
=SGC2 A CI6 785) 1023 0657* 9661 C°o97* 1009 a. 33 READS? a CO? 1876 0929 Casoe Osges ' 
QYCCK ACCT 1203 C756 C786 0750. : - RPADS a 5O2 1096 1809 : 
WEGPFIV A C92 YE5P 1767 3639 PEADGS a CO2 1498 1899 0288 
SPG3) a CO2 1889 1392 7252 1305 : Pt RECEDF a 701 #1€38 1550 1598® 1537 7580 1583 
S7GQ ac0O2 tags 1393 91253 ; x < RELOAD A 9C8 CERBC (815 0a132 - 
SEIT aCCs CDEC 9372 =9388 : 65 REPCCP a CO6 71C7 0671 0653 C7538 
WEITCD A C77 1A75) «1981 0250 3aa5* 98602 . ; £ . PEP2RP a COR CF31 C3E5 C359 6361 
B2XTR ACIS E51 1835 0072 0072* 1838 1528 REPETT a 708 1219 0699 0662 - 
SINE A COT 1035 1883 7869 No - S2PPDF a °C6& 11D4 CE73 0670 
SODTSE A S16 OA62 3683 0117 a : BEPPGE A 006 1196 0657 C656 
woonnn a 719 #15¢9 c9Ee1 9888 < * REPPGC a CO1 487 CEE3 O€55 
gcEOSP A O21 1586 9980 os7a / : BPFOPGE a CC1 3122 0676 0686 
BOSCAW A COB TTEA 9727) 2 ©=619109% 11919 11126 1120 € =< BPoPcA a OCS «61977 «CERD 0299 ee 
BCSEWD A219 «CA7S) 0088 0132 os PESPT A COR 1269 1885 14887 : 
WOTFIN A OCR’ CCAA 0271 0266 1268 -RESHS a CC? 1732 17928 1807 
BOTTP A COB 19C5 1735 1775 1788 1785 € . BETRY a CCI 1259 1762 1670 16728 17590 
SOUTIK A 72° «#15739 0963 C917 . BImcY a cCS CrPsé Osage 0a82e 
BCWIZSP 2222 I52P C0982 c903 PLDFCR A CC3 WER 4187 12919 
STPYD 2098 1923 «1775 1715¢ ; e- 2 ests colt Ca02 1627 15960 
STROY CC31 2089 1632 1168 7 ~ - BPPX C394 392131 1629 1597¢ 
BTULV? A C32 WE1 ° 1768 1673 1713 REIPTR a CCZ WAAR 1897 0286* 0879 ‘cagte 
SUSONZ A 722 A239 0033 0311. 39320 9389 0832 1038 1086 10690 - . » Me - BSIO. 2993 #1856 1968 12928 
SUSSTX A 79T «YATD 33E€ 9315 , Pe RTS A COs CD 1516 1a37*8 91519 1592 
BIICHP 2093 1F2F7 «1797 1917 e Brey a CC3 1725 1798 7787 1892 1899 
CL? acc? a7e 3Ca5 06C7 C893 382 2858 1005 1025 . € ETITET A C2 IAAD 1866 Ca72© Ca7e C877 13198 9392 
CLDADB A693 «1093 «1398 | € $ RTYTST ACO} TBE1 1896 1595® 153480 
ORE a7td?. Caod3 cos 0377 0382 S333 9820 0857 0868 0370 0891 0892 0893 0523 O5S71 FISPLG A 797 FATE 1282 9189 02959 027314 
; 9595. 0687 0629 1288 1279 1310 . e R11 a cCs 1229 2596 3705 
WESC A COZ 1279 1333 1255 . : . . 8% SASY oA CCH GAT 1088 10389 
PACK CC31 7226 16119 9362 9377 . Sava ac02 1215 ¢691 56739 0675 
PAUSES a fOS CBE2 9269 9188 e SAVEIN A 5OR 1377 «1508 1588 
PLIBS aA COR OFE6 CBCR C337 8 SavID a TCR 4A5S2 1358 3161 0326 €328* 0332 0392 0398 6396 029° G508* 0680 0689° 0657 
' PLJER aces Ceag 825 0376 ati . - C#66@ Casae® 69938 0997 1121 
FREC A727 E69 1371 O286* 9317° 0639 5665* 06672 1372 1373 e SAVSS €£ 7397 980R 9957 11839 19818 
ENKOW ACC2 WES 1898 9299 ¢ SAVI9T A C32 «TABD 1398 00798 Cal2s Ca20s 12730 1278 
PRIST C731 C21R 1699 ©9997 39793 0129 391919 0222 0389 0397 0625 0658 0871 0885 0900 S8YT#O ¢C 307% 92Ce8@ 1628 8 1591 
19998 39993 14027 12959 1521 1586 1662 14829 e SCAWA A CC® 277" 1159 3594 9653 2855 0998 
PRESIT aA TOT 81987 6562 0557 0557 ; . ® SCNCYL a CO? ASS 1399 
PaIESG a798 WCF 1521 $87 , : SCKH?ED A TCR) «17A9)~=«1922 ViV19 
Pirae ¢.3¢1 C029 1605. a . Ee we e SCPACH A CO2 Yaa? 1809 Cases 05918 C598 
BAGH a CC® 61279 «0723029727 . © SCECH A 79% #197P 1208 11958 11978 92018 1202¢ 
RAGHY ACOS 1268 C719 sts acOS 1682 1€59 1085 - 
Care 22saY7) ¥aGG7TO =—- C TOC 70 27aPR7t VIET OVsART2 1250872 PROG ID orr6-7 DATZ 229aY70 91A0G70 010CT70 01aPa71 1780971 O1saR7 2 1230872 _ PROG ID OPrr6-7 
BC NOs, 571532 SUISAE SceMASES., “Eee 531608 571603 571628 PAGE 9% 6 2c WO. 571513 571531 §71580 = 571565 571608 571603 571628 PAGE 198 
Ge | 
eke Bm 8 2 ; ~ 
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PF67 


SYABCL 


SECCT 
SEEK 
“SPEKCT 
SEEKEZ 
SELDSK 
SENSE 
SEQERR 
SEQEXT 
SEONG 
SPTADA 
SPTADE 
SETADL 
SETADR 
SETS 
SETSTH 
SETCHR 
SPETCYL 
SFTDCP 
SETDLY 
SETDSK 
SETELT 
SPT PIT 
SETISG 
SETIPL 
SPTLDR 
SFTOFF 
SPTPR 
SETREP 
SPTRP 
SPTER 
SFISPL 
SETSPS 
SPTWA 
SETHE 
SETUP 
SPTWOR 
SETHER 
SPTX 
SETXP2 
SHIPT 
SIO 
SIX 
Sass 
sus 
SPAC2¢ 
SPFLG6S 
SPNDLA 
SENDLRB 
SPNDSV 
SPNEXT 
SPUDT 
SRCP 
ssw 
sswo7 
STATUS 
STATOX 
STEP 
STEPR 
STEPRD 
STEPY 
STEPWR 
STEPY 
STEP Ya 
STPEIT 
STPPLD 


DATE 
FC wo. 


PART HO. 5129661 
PAGE 20 
DISK f8Nrtoer 
CROSS- REPERESCE 
T LEN VALUE DEFR REPEREUCEQ 
A CO1 1A6B 1375 0523¢ 0571" 0592 0681 06508 0681 
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MVC = RCP (2,1) ,SR3HO(, 1) 
SIO. 0, SK 


SVSSCKLESHSLKKSEKKE KE SHESESKS’ SS SKESKKEKSS SE SCESKESKRSS CESSES STSESHSSESESSKES SSS SHSSEES 
* MAKE SURE ACCESS IS ON CYL 0 BEFORE WRITING THE ID * 
SHKESSESCSEEKSSEESEKSESESESCKEKS SCSHECESRKKKEKE FEES SEESCSTESESTSEKSESEEESEHESESKESES ELSES 

SNS  SWSA2(,1),A2 

TRN SNSA2(,1) ,CYLO 

8F ERR(, 1) 


SEAKSSSKESSKSSEKEASCSE SHEE SEE SER SSTHEESE SKKSESE SE KESSSE SSSESSSHKSESSEEKEKKE SSS SVSES 


* WRITE ID ON CYLINDER 0, HEAD O s 
TEKS CCHS SEKEESES TEKEEKE SHE SHESRAH SE REHEEESSE RESERSESHSRSEESEEERS ESSE SESESS 


"VC RCP(G,1),WIDORO (, 1) 
SIO ID,WR 
TIO ERR(,1),TSTERR 


KKEKECARTSERKKKSEKKVSE SEKES SES SEK SEEEESE SES TETSSKKTSSLSSEKSCKEESKEKASESEKLSESCSECSES 
* WITP CYLINDER 0, HEAD 0 * 
SRESCKKCSCCESKSEHAKE SI SESSKEKSTSEHK SKE SHEET ESSA EKEAEKESEKTE SES HEKEKREEERESSESESEOESESSCE 
MVC RCF(W,1},8OHO(, 1) 
LTO = DATADD(,.1) ,DAT 


PROG ID OBOA-0 
PAGE ia 





yas 


ys 


“ne 
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PAGE 2 _PAGE 2a 
BOAO ‘CYLINDER ZEPO RECOVERY PROGRAS . * é BORO CYLINDEP ZERO RECOVERY PROGRAN 
FRR LOC OBJECT CONE ADDR STMT SOURCE STATENERT FRPP Loc ORJECT CODE | ADDR STHT SOURCE STATEMENT 
CB8C F3 A2 00 © 138 Sto 0,9R a 296 *# MOP .10 HALT MODEL 6 HALT * 
ORBF D1 AD AZ 139 TIO =—- ERR (1) ,TSTERR 207 * - 
140 208 @ SANGAL ROUTINE HAS BEEN * 
ISL FEKETE ETERS ARERR RREEREES HES CEES EETERER TERS EEEHESE EEE ESSE KES ETESSOETERE 209 # 88 RESTORED TO 90006 2 
142 * VERIPY CYLINDER 0, HEAD O AKD HEAD 1 * 210 * . 
TED REKHECEKEEEE ETE CHEESE SEEES BFS SRAESRACSE LESTER TES HEE THKOHTESHEHESKCSZE KE PV @ {A q } TO RESTART HIT SYSTER ® 
0292 SC 03 OC Fe 148 NVC) 8 =«- RCP (4, 1), VOROH? {,1) 212 * eet) Eee AND START . 
OBS6 FIAT 03 185 STO VER,RD . : 7413 ® 
CROG D1 AO A? 186 ?TO ERR(,1)-TSTERR 7 PUR CHRERKETTKAEE TE AEESEKSE HS OHS OER SERIE SETEERESESTHSERECRESEREEEHBROVEESHED 
187 OPRS PO 8% B89 275 ERNYLT? APL K*so*® , Xe&aoé RRR RLT 2 - BOOT YS RESTORED 
TUG HERES ASERHES ETERS ERAT SES HHKE STKE ETERS KKH SLE LATHES HVSE SESE TS SHTS HE APRR RC BP RS 216 8 ERELT2(, 1} 
189 * $ 247 
159 * MOD 10 HALT MODEL 6 HALT & IIR KEHOE RARKEKSEHSHAHRE HOE HS O86 OSSESEE SST OTTHHKSHEAESSSAESHEROHE KES HSREDECESA 
354 * % 279 * YF BB3 AAS SPEN RUN BHENR CYLINDER O WAS INTACT, THIS SMALL PPOGRAR # 
17 CYLINDER O HAS BEEN e 22% * CAN BE KRYED INTO X*O0000", AND THEN EXECUTED TO RESTORE CYLINDER O * 
453 * aa RESTORZD, SRE YF YoU € 221 FRESH ETHERS EEEED ERY OR OEE TEHSESESSEEOETEREOESSS SEH ESSE SOT SEEHE TERETE 
154 2 ® ® CAN IPL PROM R17 HOW, & OBPS 222 SHPROG FOU *® 
155 * % * {8 z j ® “RRR 37 AG HOT 223 LIo 7, CTRL 0000 3% AG O00? * LOAD THIS 22 BYTE 
456 * % « & OPBP 34 AM CNI2 224 LTO =X*32°, DAT CCOS 74 AS 0O1Z2 * PROGRAM TO RESTORE 
VS] KERETESS ETHERS CERES HSERES SRE RGHETESEEHKE ES HS EATHCHOERHESCEKRE SESS OSSHBE ORCI PI AN OF 225 S16 O,SKk G008 F3 RO 00 © A DESTROYED CYL 0 
CBIC PO 20 70 156 GOOD HPL xX*20',x*208 OK HALT - CYL © AAS BEEN RFSTORED NAch AIC DC 0018 226 "VF =—- KON THE KDC? OU9AR 3C DC 0018 *€ ON R 5406 CE DIAG 
OB9SP DO 87 9c ‘$59 8 Goo Bf, 7) ARCA FRAT NN 227 STO 0,8&D OOOP F3 A7 50 * DISK PACK. PROG 
160 ORCD NANIARCY PRO 228 END pec XL4U°090 381038 0012 06028102 ®* 2X32 BUST HAVE BEEN 
T6T SPREE EET REESE SES SORES AT ENS OH FOSS EFREIEHHOSSTTISESGOESTOEOHSG 329 
167 * ERROR ROUTINE - STORES ERROR INPORMATION STARTING AT X*0003° e PIO SHA SHKKERHRES SH KESTER S SEHK STS ESTTISSE SESE SSCSHHSEKHECS KSSH SHISTSS OHHSSSESSESS 
163 # s . 237 * DISK CONTROL PIELD TABLE * 
1645 # N000 - 0902 RESTART PRANCH s ; 232 HERR EERTERETEERETHE CHS SHE SHREK STH COHSCHOHTEHHSETEKSSOOHSSHEHLESEROETEES 
165 * 0003 - 9004. DISK SENSE BYTES 0 AND 1 ° Napt Aeeraron CPD 233 SRNMAT DC XL4 *00008000 * 
166 *® 0005 - 0906 DISK SENSE BYTFS 2 AND 3 @ ORNS NN0FARD17 CROR 234 RIAN pc X¥L4*00038017° 
167 * 0007 - OOOR ARR - VALUE INDICATES WHICH ROUTINE FAILED e : PEPSI ARNO? CBDA 235 SR3HT DC XL2*8003° 
168 * 0013 - PROCESS CHECK - TURN ON I/O OVERLAP SW AND * - ORDE 236 WIDCHT EOS #43 
169 * MAKE SURE TRE CARRIAGE IS A*® CYL O WHEN YOU * CRAPS 09008917 OANR 237 WOHT ne XL4& *900080 17 
170 * START. * § nanr 1193 OPPO 238 SP3H9 OC XL 2°0103° 
a e ART NON ACVWGAT CPREG 239 RIND pec XL9*900 300178 
172 * 0030 - NO MOTION SK, OR RD CYLINDER 3, HEAD 1 * is ai ORES 269 SR3IHD NC XL2*00038 
173 * 0040 - NOT AT CYLINDER O APTEP SFEK TO CYL 0, HEAD 1 ® PREA 267 WYDOHO EON #43 
174 OO4A - WRITE ID ON CYLINDER O, HEAD 1 e HRe7T NCOOCA17T OPFA 282 WORD oc xXEa8*90000017° 
175 2 0057 - WRITE DATA ON CYLINDER 0, HEAD 1 e OPER IWWNNOC pF {RFR 202 VOHOH? pc XL8 *NO00002F* 
176 « 006B - SEPK TO OR READ CYLINDER 0, HEAD C * 2 Cae Ne CPPO 284 REDCP DC AL2 (RCF-K*B03*) 
177. * 0073 - NOT AT CYLINDER 0 APTER S®EK TO CLL O, HEAD O © ee PEED CRP? 285 DATADD DC XL2*0 1008 
178 * 0085 ~- WRITE ID ON CYLINDER 0, HEAD 0 s ; 246 
179 « 0092 - WRITE DATA ON CYLINDER 0, HEAD 0 s 3 ZO] SESH SEe KS KKEKERTEKE SSS SHOHSSESESTVES SOSESSSEHHSVOSHSSHSHVSSHHSSSSTSSOSES SOSCBSE 
1B0 « 009C - READ VERIPY ON CYLINDER OU, HEAD O AND HPAD 1 © 24aR © ROUTINE OF - THIS ROUTINE TRANSPERS CYLO TS CYL3 WHEN THE CF * 
181 * 9999 -~ 000C LAST USED DISK CONTROL PIPLD s 249 PACK IS IN GOOD CONDITION, SO THAT THE PACK Can BES 
182 * N00D - OOOR DATA REGISTFPR CONTENTS AT TINE OF ERROR e } 250 @# RESTOPED YF CYL 0 ITS DESTROYED AT SOME LATER TIKE.®% 
783 « : 2 251 VSHSSHESSCSTKESKSSEHKSSE STE KCSSESHSE SSESOSCSKSSSSSESESESHASHKHHSSSHSCSHSOCHHHSSESHHKOSSSEES 
1BU FHERERETES EERSTE EEE EEREEEE SEES ES OFERECEEEEHSOS8OHE8888000599S 008080 OBRFC 25? ORG x*BPc 
OBA? 79 aA? O48 185 FRR SNS SNSA2(,1) ,A2 if NAP 4 CRPC 253 eT34 ne XLT" O 
DBAS 70 a3 06 186 SNS  SNSA3(,1),A3 SAV? STATUS 263 VAFD C4 CRPD 258 pe XL1°00° 
ORAS 74 98 03 187 ST SVARR(,1),ARR SAVE ADDRESS RECAL REGISTER AEE DOR OSPF. 255 ne AL 2 (RTO2) 
OBAB 79 Aw CE 183 SNS  DREG(,1),A4 i 256 . 3 
, 189 CCON «6257 SAVEIT 200 *® 
19D HERES Re REKEEEEHETEE EEK EHE TES EOEERETESEESEESEEO TESTES EEOC EERO DEORE NSOSESSR nceo 258 SSING SAVEIT,1 
191 * e ecen c2 91 ccon 259 LA SAVEIT,1 
199 # WIgt HALT AONEL 6 HALT s 260 . 
193 « ‘ . : / : ® 261 SSSA SSHKSSESE LSE SHKSKSTEEST ESE HSE KCHEKKTSESHSISSSESSSHSSSSOHSSCHOSHSSESSS SHHSSSSESSVSS 
194 & * * DISK BRROPR - CHECK AQR a. 262 * RECALI BRATE s 
195 * * * pp TABLE IN USERS GUIDE. 2 2H I TOK HHHEHEHEE HS EHKETHS ETS SEH EEETES ESEAEEEEETESSSOOSEESHSEEHSOSOSEDEEEEE 
196 ©. * * s ecCe 74 AGB PA 26a LIO CO4MON(,1) CTRL 
197 « * * (AB D124) ® "COT SC NT RE CD CL 265 -  4¥C DCP (2,1) ,RECAL(,1) : 
998 «© 3S 86¢¢% , ° OCOB FU AO ON 266 Sto 0,SK 
199 «© Py 267 
200 Tee eeeed eee es RES CEST EESOEOTESEENS EO EHEROTECES ESO SEK EERO RDO OSEEOEES t 26H SeCee Hee SHEERS EEEEHESESEEH SEES ESHESSSORECSE SESSHOHRESHSSESSESSESeSSESSSSeSS 
ORAE FO 6A 68 201 APL X*68", X68" 2769 * RD CYL O, IST 16 SECTORS, UPPER READ s 
CP RY 5C 156 45 19 -. 902 NOVR gqyc PESTOR(X*16*,1), END(, 1) RESTORE ORIGINAL 300T STRAP 27D CHHPATEREE CER EEEETESHESEEEEEESESES SEO TEEEOOOEETHSES98O9SS FESO 9OOESESES 
293 : CCOE 5c 093 PP Ca 271 svc DCF (9,1) ,ROOOFD (, 1) 
204 CHES EREH SEES SE OEEEEE TESS O99 99505F55F OSS 5FS8SS5F85SHS9SSS8SSS8O8ESONSESE C72 77 ABD PS 272 LTO DATA (, 14) , DAT 
205 « ° AC1S PU AT AO 273 STO 0,RD 
pare | VSSANT2 ae > R , ica gem ig ol 
eC NO. 579609 PROG ID OBDA-O DATP. ISMAPR72 PRUG ‘ID ere 
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. > 7 renee Lin ; PART #0. 5138153 é 
. PAGE 3 : sats PAGE “3a 
BOAC CYLINDEP 22RC RECOVERY PROGRAS - 2 _ é BIOAD | CYLTND2R Zero RECOVER? PROGRAN 
- PRR LOC OBJECT conF APNR STMT SOURCE STATERETT FRR “LOC OPIPCT CONF ADDR STNT SOURCE STATESENT 
OC18 DI A2 18 . 278 TIO =—- (, 1) BUST . 382 
OCIR Dp? AO F3 . 275 TIO ERROR(, 1), TSTEPR VAY HHSCKSEEE ROSES SE RECEEESE SE CESEESESSEEESESESESEES HESS OREES EERE ERESEEOSEEE 
; 276 : “. on 38% * WR CYL 3, 3RD 16 SECTORS, LOWER HEAD ® 
QZTT FRESE S EEE ESSEEREEESEESE EERECEEEESEEEES OE $046 OO8S8SCEEEEEEEESEES 99 4E8OS8 BUS SOEREEES SY SORE EEEEEEES SERS OEEEEREEESESEESEERSOEE ES SEREERTEERESEROESEESt 
278 * SEEK TO CYL 3, UPPER HEAD * Ocet SC 03 RE PO 346. AVC DCF (4, 1) -W3A OFL (, 1) 
2ZTD KEREKEKEES CHEER ESEEEEHE ES EEESTEEEEE ES EOS ES SEEEEESOEOEREEEESEEEEEEREEESEES A1C8S 71 Ase FO. Bar LIo DATA(,1) -DAT 
OCIE SC 01 PE CE 280 HVC = -_ DCF (2, 1) ,S¥30(, 1) Ooee F3 B2 eG 388 STO 0, WR 
0C22 F3 AO 00 281 STO 0,SK : CCBR pt AZ BR 349 TTO *(,%) BUSY 
Pie OCBF D1 AO FY 350 ' TIT0 ERROR (, 1) ,TSTERR 
283 TEER EEEKEEKS HEEREEEE SEES OFESERE ES HSE SE OE EGEREEE $OOEESEEREEESS OVESSEES EE 351 
284 * WR CYL 3, 1ST 16 SECTORS, UPPER HEAD e ISP FECSHSESHEESE SEES EEETE ESS ESS REESE SHES EETERRESESEE SERED EEKE EEE RS EREENAES 
285 pee Nene owe are tee tere tee] een eee ene tere Clee CRSP C ete CeCe Se ee Set Se 353 * WR BOOTSTRAP PROGRAM ON SECTOR "DC", CYL 3 * 
0C?5 SC 03 RE CA 286 myc DCF (4,1) ,W300FU (, 1) 354 FERS ESSER EEAEESEESETERESEESERENESS ESE EEOTE HEEESHE SE SEES SS ERERESEC HOSES 
0C29 71 AS FO 287 LTo DATR(,1),DAT (c91 5C 03 PR ER 355 “MYC DCP (4, 1). #9 3DCOL (, 1) 
OC2C FI AZ CG 288 SIO 0,8R 9CS95 77 Au PE 356 ‘LIO SAVDAT(, 1) ,DAT 
OC2F D1 A2 PP 789 . TI0 *(,1),BUSY C98 FI AZ 00 357 Sto 9,88 
0C32 D1 AQ P3 290 ™IO FRROR(, 1) -TSTERR . MCOR DY AZ AR 358 TIO *(,1),BUSY 
291 : CCIE DI AO FI 359 TIO ERROR(, 1) , TSTERR 
297 SECRERETAEEAEAESEES ERE SHE HEEEEE THESE ETE ES EEEREES ES OOS 9440808 50099894868 360 , 
292 * SFRK TO CYL 0, UPPER HEAD * . FOL SETHE SESS EE EEESESEEES ESS EE TEES EE SEKESEEEHERERS REESE SES SEOEECERERES 
294 EHEC E HS OEEEK AES ETE ESTE OEEEES SEREE SE FECEETEE EEESEEOEEEE EOF EEETSEOEEESESED + 362 * NO NOTION SEEK TO SET UPPER HEAD s 
0c Sc 01 RE CC 295 sVC DCF (2,1) ,SR30(, 1) 363 FRESH ERES HOKEE SCENE SEESESSESERESESESESESERSEEEREE EEOERLEEEKEERSEREOEREEES 
“0039 F3 AO 00 296 STO 0,SK Ncat SC 03 BE EC 364 4MVC DCF (4,1), eon tet) 
os 297 OCAS F240 0F 365 SIO 0,SK 
Z9Q SERERESEEE EEE ES EEES SEE EES OEE FEREES £E4EE8EEOEEEEESEEERE ESTES 046908008888 366 
299 * RD CYL 0, 2ND 6 SECTORS, UPPER HEAD s ; " JOT FHP eee eee eee ee eee SESS EE FEE EHEEEEESEEEEE OSES EESESOOOEESTEEEEREEE CEDRER 
JOO FESR EESESESEEEERESEESEES EEE EEEEEE EE SEREEEEESEOEESS$HOEESEEESOSESEEESEEOER 3 368 * VER CYL 3, ALL SECTORS, UPPER AND LOWER HEADS * 
ocic 5c 03 BE DO 301 “avC DCF (8,1) ,ROSOFD (, 1) | 369 TP SRESESRRESSERESSSER SSS SEER EERESS SEEEETESERERES SESS E SSE SS RSE EESSOhEOEE 
oc40 71 AB FO 302 LIO  =DATA(,1), DAT OCAS SC OF RE EG 379 SVC = DCF (8,1) ,V3UL(, 1) 
0c83 F3 AT CO 303 STO =O, RD , : _ OCAC PI-A1 03 371 SIO -VER,RD s 
0C86 DT AZ 4&6 308 TIO *(,1),BOST OCAP DY A? AP 372 TTO *(,1) »BUST 
OC49 D1 AO F3 305 TIO =EPROR(. 1) sp TSTERR 1. OCR2 DY AN FR 373 TYO ERROR (,1),TSTERR 
306 & ; OCBS Ch RTF 0216 378 B LINK 
JOT SESREEKERET HEE TEERERERSS OEEEEREEE EE EO4ES OSES HEEERESOSEEEEES 69$9O08 908888 375 : 
308 * SEEK TO CYL 3, UPPER HEAD e 37H FESR EE EEEEEE EES SSEEEE SEE BES ELESETESEEEEE SEES EEO8EEEEEESEEREEEDRE DODEREES 
309 KECERRERHKS SETERESEESEE SEE EEE EESRTES ES CESSES SESE SHESTEOEEEREEESEOEORESSESO 4 oe 377 = > 
ecac 5c 01 RE C6 3190 "VC DCP (2,1) ,S¥30 (, 1) 378 * CONTROL WOPDS FOR *SayIT® * 
9c50 F3 AO CO 311 sIo 9,Sk ; 3279 ¢ 
292 - : 380 FEO SEO SEES ESSE ESSE OEEEE EEE CRETE EHS EOESEERES$OE0O3 9040868605 949808E8TE 
313 RESET CASESRES SSCS CLES SES OLS SRCSE SEE ERSE SSSR EM ESE SSE E CEE SE SCE S ESSER OSS OCE9 OCRR fCBaA «86381 COMMON DC AL2 (#42) 
374 * WR CYL 3, 2ND 16 SECTORS, UPPER HEAD * Bed ocsR OFretcosco OCBE 382 NCP pC XL4* 00000000 
315 stetesensesereceneuceseue sasesnanesssesen seen sesasesesnensecensceseoses i é& OCR? COFF CccO 383 RECAL DC XIL2*oO0rP* i 
0c53 5c 03 PE pa 316 avec DCF (4, SD g BSN CED TD S6cct engnornr NCCe’ 384 ROOOFD oc XL8*Q000000F* 
0C57 71 AG FO 317 LIO DATA(,1),DAT : orcs 3103 0CC6 385 SP3N DC X¥L2°0103° 
OCSA P3A2 09 318 STO 0,8R 3 ACCT ACO wNHeS CCCA 386 WID0PD NC XLS *0003000F* é 
ocSn DT A? Fn 319 TIO *(,1) BUSY ACCR OFN3 eccc «6387 SR30 pc XL2°0003* 
Oc60 D1.a0 F2 320 TIO ERROR(, 1) ,TSTERR occD OnCnarOP . OCPO 388 ROWOFDH DC XLS *O0000800F * 
321 CCN1 OAO3INOP OcDa 389 W340FNn DC XL 4*°0003800F* 
322 PEEKS SHRESSHHEREEEE TEESE OES EERESEES EE EE SEEREEESEEEEESEEEEEEREEESESE EES OCDS ARNO} OCN6 390 SRIL pc XL2 *8003° 
323 * SEFRK TO CYL 0, LOWER HEAD s NCD7 8103 NCNAR 391 SPILL pc X¥L2*8103* 
324 SHEA EEEEREEEER EEE SEES ES CEE SHEKES SE EREES EEE HEESESTEOESESEESES9EEEESEE : Ocn9s nnnoaroe OCcDC 392 ROAQAPL nC XL4 *0000A00F®* : 
0C63 SC OT RE D6 ‘ 325 avec DCF (2,1) ,SR3IL(, 1) MCPD NONIACOR OCFO 393 W3A0PL DC XL9°0003A00PF¢ 
0C67 F3 AO 00 326 ' $fo 0,SK OCET 99NINN2P CCPH 394 VIAL pc XLS *0003002F* 
: 327 CES Ano3ncen CCPR 8395 W3IDCOL NC XL4*0003DC00* 
3Q2Q KESKHAEKEESSEESE SEES EEE SS SEREEAEREES ORES EEE EEEESTET8OEEEEEEEES O48O000BE8 ners ofrnnncgy OCrPC 396 NSKD ne XL¥*90000000° € 
329 * RD CYL 0, 38D 16 SECTORS, LOWER HEAD .- ecep OoPNO CCrF 397 SAYDAT DC AL 2 (BASE) 
330 HEERSERTENEERSEEREE SES ES OES SEREESES ESSERE ROE ES ERS OESSESESESEEE, CERSERE QCEF OF96 OCF 398 DATA 1C AL2 (WORK) *WORK® MUST BE LESS THAN Z*1000°. 
OC6A SC 03 BF NC 331 “vC DCF (4,1) ,PCAOFL(, 1) - ocPt noon CCF2 399 HELP pc XL2°00008# . 
OC6E 71 Aa FO 332 LIO DATA(,1),DAT 900 
0C71 F2 AT 00 . 333 SIO 0,RD ¢ BOT FEESHSEE EEE EEEE EES EEERSES EEE EEEEEE OE EEEEEEEREE EO EEEEEEOEESEEEEEOOEEEEES 
OC7a D1 A2 7H 3348 TIO *(,1), BUSY 802 * ERROR PRINT ROUTINE * 
0C77 D1 AO F3 335 TIO ERROR (, 1) p> TSTERR BOW’ FESSESEHES HERE EESET SENSE EES ESEEEE EE EEEES EOEEEEESEEOESEREEESEOEEEEEOEEERD 
336 3 NCF3 78 08 F2 404 ERROR ST HELP (, 1), ARR 
B37 KARAS STARE ESE RE EEEE SES ESS SEEESE THESE SEES FONE SEOEESEESEEESEETEEEE ERBEER CCFA CO RF O2TF 405 : 8 ONPACK 
338 * SEEK TO CYL 3, LOWER HEAD * CCPA 02 OCFA 4806 DC %1L17602° 
339 FFP SERONESEREREEREERER SES SOS SSENES ER EEE EE SESE REESE SSE SESE SERESESESESES 3 OCFR 9CFP2 OCcFC 407 pe AL2 (HELP) 
OC7A SC C1 BE NB 3an wre DCF (2,1) ,SP3L(, 1) ocrn Onua OcrR 408 oc AL2 (DSK ERR) 
OC7TE F3 AO 90 347 sIo O,Sk Hcrr CO 87 O21A 809 B PRINT 
. : : : % 
DATE I5SSAR72 , PROG ID 0Bp0A-0 : DAT? YSHART2 , 7 PROG ID OBO0A-0 
RC RO. 571609 PAGE 3 4 EC NO. 571609 PAGE 3a 
4 et 
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PAGE PAGE ea 
BOAO CYLINDER 7FPO RECOVFRY PROGRAG & RAAD CYLINDER ZERO REFCOVERY PROGRAA 
HRP LOC ORJECT cone ADDR ST#T SOURCP STATERENT PPR LOC ORJECT CODE ADNR STHT SOURCE STAT EN ERT 
ONO3 Ccé OPO® 419 pc XL1*C6* OTF7T DAQONSCSPZE 3D6N9 B61 
Nnos 33 OD0G 411 pe —sIL4*518 ODFF C5UNC IPAN ICONSCS 664 
CNS Ones Onom® 992 ne AL2Z(DSKERR) - O£07 CSDIOPIFO 461 
Ono7 ACPO CNOR 813 nc XL2*aoFO® OFNC YOENBOPOPOCFCFOCUO OFF3 862 LINE2 pC CL2a¢ 0000 LYO 37 ~A6é 00078 
0nos CO 87 0222 ais R HALT OFIB ENDICINAHOUOP 3P4 862 
ONOD ACPO Op0e a5 pc RL2*a0?0* NFIC SOCTEEUOPOCOPCET 462 
onor pr 87 906 846 A SAVEIT(,19 NFPH BIBOVIPOFIFOPHUD CFIR 48h2 LINF3 nc CL2&° 000% LIO 37 BS ODT2* 
ONI2 FRDSBLKOCKCIESCS OPHR 477 DSKERR DC CLS7° YOO HAVE DISK ERRORS. RUN YOGR DIAG. ARR WAS XERXES OFIC BOHWCHSLOKOP IF I B63 
ODTA SOCBCOFZD220C5N9 817 AFIQ ENCTPABTPOPOPYP? . Bh? 
ON22 PIOPENSPILRALC AOD Od? NPIC BORMECPOFOFOPRUO OF5S7 468 LIVES pc CL22° 9908 SIO #F3 BO 006° 
OD2A ES DSUOFEHEESDSSO 397 OFUH BIFZICIPAK BOCK PY BEE 
NMI? CECICICTURSOYOC 3 aq? OFBC BICTFORNFOPS uhG 
OD3ZR PIDILOPECTEZRIET at? NP52 UNROUO POPS POC24N OFFS 865 LINES oc CL 248 6008 AVI 3¢ DC 00T8® 
IDB? RVEPE? B47 OFSA UPDUESCIENUOPRACT | 865 
onus oOna7 ChS6 4818 PINCAD BC AL2 (PONCH} NEE? BOCUCISOPCFOPIUPS 865 
OD87 479 PUNCH FOU + NOPAA BNBOUOPIFIPOCKSAN CEIP 866 LINES pC CL225 OOOF SIO PF3 &1 90° 
CRY? PIPGEOCTPITPSEOD2 OD66 8270 pe CL32*18 GIO K3- Of H3Y BAR®* © I PL NPI2 BOB2ZCINGHO BNCHPZ BH 
POP PIAC HN ICSC HNDUP? 426 CRIA BICIPIEIPOPO 866 
ONST 6ISOCHNCIC IC PAN AD 829 OCRO UCHCRIPOPOPFP260 OFOS B67 LIN®7 DC cL 22° 0012 6003 81038 
CDSF 294% 780N08000KD 829 NERA BVRONNNCRIBOPOPO 667 
NNA7 BOROUOENEONCE BO ONBR 424 pe CL32* # = CARD : ‘i NEQO FC P3PREVFC P3 867 
ON6P FOSVENATENENEF EN 821 . OF96 SR WORK EQU * 
PO7T7T UlBCEenaneCgnan 821 OF96 1F96 NF97 «64469 rc AL 2 (*4x* 1000°%) 
ONTF ECeOKNECRS BQenEN 921 : . ~~ NOAS 4U70 Au FOU Keage 
ODA7T TCPRPUTCICESPGETC OCDAG6 4272 CARD ne CL3I2*344aseGa |uuRaa 244394u9° ® PATTERN COAG 471 AG £00 X*A6° 
ONRPF SOCICPS FAPAFATCKC 422 , OCAY BIZ AB POD X*a3t 
9097 ICFAFUTCKRICANEN 42? € 3 COA2 873 AZ . Fou x*A2¢ 
ANOP “EXE VCH OSNENAD 822 “NONR 47 APR FOU x* 08? 
4623 r0n% w75 VER Fou x*03¢ 
Q2Q SHEATHS EE ESE SSSEESKEKESET SS SHEKEKETEKRES TERETE TESEEESEESESS EERE TESSESERESEES z z ; Cnn4 476 YN £0U z*owv 
425 * ROUTINE O2 - PRINTS OUT MANUAL POUTINE TO RESTORE PACK YP CYL 0 COAP UTT WR eon KX°A2® 
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GO RUN PROGRAM FOR Hy TRACK SEEKS 


BRANCH TO REPEA’ ut ses 
GO TO TERMINATE GR RESTART . 0 
NORMAL TERMINATE ee 


SEEKEAAERE SEES ESSE ESE SHREC ESET ESEEESSEESEEEESHES EEETE CECE SEES SERS COEEE 
THE CODING FRUM FekS POINT UNTIL YOU REACH RQUTIME O7 IS USED 2 


*“e 
“se 
* 
*t 
“+ 
ke 
es | 
ex 
*% 
ee 


¢SEEEEEEEE SEES ESHEETS SEES OES EEE ESE EEE SEES OOS OONEE EROS EEETERSES 


ONLY BY THE FRICTEON CLUTCH ADJUSTMENT ROUTINES (01 THRU 06). 7 Z 
PO 
THE SUBROUTINES AND CONSTANTS WHICH FOLLOW ROUTINE O£ COULD = s* 


BE USED sh ANY OF THE ROUTINES 01 THRU OE. + 


STAY THERE. 


ee 


“REMEMBER ~-NORMAK-MODE-BF-GPERATLON | UTINE AND +# 
ENTRY 70 ROUTINES 1S THRO 70 ENTER A AO se 


SET TO F2XxX JUST AS IT IS WITH ANY OTHER DL AGHOSTEC 


"teak 


PELEEEEEREBEEE RE SEEEESSSHEAS £ESSKERESEES ESREKESR ESTEE St £VSRESERERE SE KECEE 
ee ee erm teas coon ce cmecreeesener reyes 
* ROUTINES 1 THRU 6 USE WHE FOLLOWING LIMITS AND PERAMETERS , 
* EACH ROUTINE LOADS ETS Gun GROUP OF LIMITS INTO *HI® FOR USE BY THE ° 

* MAIN PROGRAM 


CERHRE GOES EETEESOEDEES HOES SEES £O4ESEEEEEEREEE SS USES OO HEEESREEEEEEDESESE 


FWOSN1 
REVSN1 
TRKIO1 
TRK201 
CYC101 
CYC201 
Lol 
VARI 
H11 


FWOSN2 
RE VSN2 
TRKIO2 


BC 
oc 
oc 
OC 
oc 
oc 


“Oc 


DC 
oc 
oc 


DC 
oc 
bc 
oc 


XL1*00" 


—XL2*0101* 


“‘XL2°0001* 
XL1*67* 
XLI‘CB* 


€L3°103¢ 
CL3"203* © 


XL1°28° | 
XLi*a9® 
XL1°*57* 


xL1°90° 
XxL2°O0102° 
xL2*0002° 
XL1*66° 


eee 


* 


ss 1 MUST BE TOGETHER IN THIS ‘ornpeR S 


axe « 
“es 
29° 
“ens BO See 
see 
eae 
eee 


soweurbne 


wes 1 MUST BE TOGETHER IN THIS ORDER 
set 2 , es 
see 3 


PROG 1D =-©8OB-3 


PAGE A 
















IBM MAINTENANCE DIAGNOSTIC PROGRAM . 4 PART NO. 5134115 IBM MAINTENANCE DIAGNOSTIC PROGRAM oe ees _— ce a ae 
PAGE 2 : | To 


BOB1 5444 DISK ADJUSTMENT UTILITY fee. dee | . Rae +Sicug B0B1 5444 DISK ADJUSTMENT UTILITY, sent -p. pSees Hae ens eee ee ee 





ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT 
OACC CA OACC 138 TRK2C2 DC XL2*CAe , ete & O82C CO 97 18aA9 ZO6 BEGIN BC SETOA,N*S7* BR TO SET DEVICE ADORESS 
OACD FOFSF1 OACF 139 CYC1Oz DE Ci3*052° eee 5 CB30 3C 03 LAE 207 MVE SNPCNT, N*O3° SET SNAPSHOT COUNT ER 
OADO FLFOFL 0AD2 140 CYC202 oC CL3*101° eet 6 * 0834 CO B7 C222 208 BGHALT 8 HALT 
OAD3 4A O403 141 102 oc XL1 4a? eee 7 0838 A0O0G 0839 209 HLTCOD oC xL2*°a000¢ 
OAD4 09 OADS 142 VAR2 OC XLL¢O9¢ eee 8 083A CO 87 1768 216 & CLPRTA GO CLEAR PRINT AREA 
OADS 76 GADS 143 HI2 DC XLI*76* eee 9 Pes O83E 38 64 0200 242 TAN = SBYTE 5S, SSai2zD TEST FOR REPEAT PRINT 
144 GE : OB42 F2 10 €3 212 JT PRIRTN REPEAT PRINT OUT 1F ON 
CAD6 00 CADE 145 Dc KLE OG 0845 20 a7 18a9 £13 B SETDA BR TO SET DEVICE ADDRESS 
OADT 0103 OADS 146 FWDSN3 OC XL2*O103" eee 1 MUST BE TOGETHER IN THIS ORDER 0849 CO 67 i665 216 69 B RECAL BR TO RECALI GRATE ROUT INE a 
SAD9 0003 CADR 147 REVSN3 DC Xi 2*9003° ees 2. sh aoe 2 at at wee eee 2 | = OB4D OC O1 LASEK OBLT - 215 . MVC -SKDCE(Z3.FuMDSN.-.-- MV IN .EWD SEEK OCE bays Pp B: 
OADB 66 OADS 148 TRKIO3 DC “xil*es? a3% 3 BS ' 9853 OC O00 OBFE iAsF 236 9 MVC EXPTRKXO1€23,7RACKE SET EXPECTED ID FOR FORWARD 
DADC C9 CAD. 149 TRK203 DC KLEPCge tee & a 0859 38 10 0250 217 TEN SBYTE4eSSwz3 TEST FOR FORWARD ONLY 
OADD FOF3F4 CADF 1509 CYC1LO3 DC CLB*G 3a! wee 5 ae 0850 F2 10 OF 218 JT START} BRANCH LF YES 
DAES FOFOF? OAEZ 151 CYC203 DC CL2*G67® eae & | 0B60 38 68 O20C 219 oN SOVTESs SSaiz% TEST FOR REVERSE GNLY 
GAE3 69 OAE3 152 103 oc XLites? kee F - | 0864, F2 90 08 220 JF START BRANCH IF NO 
CAES 09 OAE4 153 VARS DBC XLL*eOye ane § ee OB67 CO 87 162F 221 8 LACER BRANCH TO BACKWARD RECALIBRATE 
DAES 95 DAES 154 HI3 DC KLLI954 ee 9 j 086B CO 87 OF5O 222 a -) RVONLY BRANCH TO SKIP FORMARD PORTION 
155 , in 223 
DAES 00 OAEG 1546 DBC KLE foo? ‘ne a . ROKR SK SLKSEKEKSVESKERERKSSESH SVK SESH AAKES SRS SOKACE SES ee HE SERE PSS HS SLCSH ABE 
OAE? 0104 OAES 137 FRDSNG DC KL2'0104? wee | MUST BE TOGETHER IN THIS ORDER 225 % BASIC CLUTCH ADJUSTMENT MEASUREMENT ROUTENE * 
OAES 9004 OCAEA 158 REVSN4G DC KL2°*C304? are 2 7 225 SEK SERES SKATES SEES SESHRLYS SAKE MSRVS KS SS HLSE SSS SEKREK GE SEKAESEKRSKSSS AKERS - 
CAEB 64 GAE3 159 TRK104 DC XL1*°64? sen 3 \ OS6F CO 87 16F5 227 STARYL B CLARTBL BR TO CLEAR TABLES 
8 CAEC CB OAEC 160 TRK204 DC XL1°Cce* eee & OB73 38 FE LAAA 228 SBF BITSW#,x*#E* RESET BIT SWITCH 
OAED FOF2F5 CAEF 161 CYC104 DC CL3*025" ee 5 . OB77 C2 O1 1E00 229 La CYCTBis RRE LO PER CYCLE ADDR IN XRI 
OAFO FOFSFO OAF2 162 CYC204 DC CL3°050° oe 6 ~ 0878 C1 AO 1056 236 TI0l TIG CNGOCHK,xX* ape BRANCH ON DISK NOT READYZERROR 
OAF3 88 OAF3 163 LOG Dc XL1°s8° eee 7 OB7F CO 87 OB8BA 231 8 CLBCTR GOCD RETURN MUST BE & BYTE SRANCH 
OAF4 09 OAFS 164 VAR& DC XLEfO9* eee 8 Bea 8 2 ee 0883 3A 80 1ALA 232 | SBN _BiTSws BITS. SET DISK ERROR BIT ds dknkst(‘“” 
OAFS 84 CAFS 165 HI4 pc “ktatspae “She 9 ae Pree es & oso = 9 > OBBT F2°87 FETT OT 93300 a> =" - “PRIRIRO CC See re GO TO-PRINT ROUTINE ©---->- Poe Ee saa 
166 OB8A 3C 00 1A55 234 CLBCTR MVI 8BCTR,X*CQ? CLEAR BCTR 
OAF6 00 CAF6 167 DC XLL*°O0" * | OB8E 3C FF 1A58 235 MvI ROIDINe X®* FFE SET RD ID CLEARED FLAG 
OAF? 0105 OAFS8 168 FRDSNS OC ML2?o1os® *** | MUST BE TOGETHER IN THIS ORDER ~ 03892 06 20 1A62 1A6D 236 Az SIDCV( 3) eDOCS 41) ADO ONE TO CYCLE COUNT 
OAF9 COO5 OAFA 169 REVSNS DC KL2*90C5* eee 2 0B98 31 A& 1LASC 237 L101 LiO SKDCAD,x* Ae® iO SEEK OCF ADDR 
OAFB 64 OAFB 170 TRKIO5 DBC KLLI6G* eee 3 & 45 OB9C F3 AG OO 2328 S101 SIO = K€ 00", x* ane SIO FOR TEST 
OAFC CB OAFL 171 TRKZ205 DC XL1°C8F mae & - \ OB9F 31 AG 1A6A 239 LiG2 £10 {IDADDR,xX*aet LD READ ID DCF ADDR 
CAFD FOF2ZFO OAFF 172 CYC1O5 DC CL3°O20! wea 5 OBA3 F3 Al O01 240 $102 S10 XK*OityxX* ane $10 FOR RD ID 
OBOO FOF4FO OB02 1735 CrYC205 OC CL3*O40' eee 6 OBAS CO 8&7 OBAA 241 LOOP OB PPIK “PAD FOR TIMING LOOP { © CYCLES? 
O603 a7 oo OB0O3 174 105 oC KLI*AT® eee 7 te . GCBAA CD DA CBA 0846 242 PPIK cic LOOP(115$.8 RCP PAD FOR TIMING LODP 128 CYCLES) 
2804 09 0804 275 VARS DC XL1*098 axa 8 | OBBO OE OO 1A55 1A6F 243 ALC = BC TRU19 5 BODE ADD 1 TO SAMPLE COUNTER 
0805 03 0805 176 HI5 DC RLUID3Zs wae 9 be ae C866 39 AB LA53 244 SNS2 SNS SNS2A3.X*a3e GET SENSE BYTES 2 & 3 
i177 . eae : ae ee OBBA 39 04 1452 245 TBF SNS2A3—-lLyx*M%* IS CROSSING CELL COVERED YET? se 
OB06 90 O806 178 DC ‘Xt1°O6O# . te rae eee tert oo" * OBBE F2-90 OF - >> 24% SE STORET TA OT - JUMP IF YES % pense 
0807 0106- OB98 179 FWDSN6 DC KL2*0 106° eee MUST BE TOGETHER IN THIS ORDER _ OBC] 30 FD 1A55 247 CLI: BC TR, X*FD® HAS SAMPLING GONE TOD FAR? 
CBC9 0006. . OBOA 180 REVSNO6 OC XL2*9006" eae 2, oN OBC5 F2 BL 0% 248 JE EXCAP IF YES, STORE DATA AND GO ON 
OBOB 66 ms O0B0B 181 TRK1O6 DC XL2L°66? *e2 3 UBTS8 CO 87 OBAG 24S 8 LooP 
oBoc Ce : OBGCC 182 TRKZO6 DC XL1°CS? ake & ; OBCC 3A 02 1AAA 250 EXCAP SBN BITSW»BIFS SET EXCEED CAPACITY BIT 
OBOD FOFLF7 © OBOF. 163 -CYC166 DC CL3*"O17# sem 5 CG OBDO OD 02 1462 1463 | 251 STORE CLC SIOCY(3)5MANSID * ESCAPE IF 204 SEEKS OCCUR WITHOUT 
0810 FOF3F3 0812 184 CYC206 DC CL3°033° “ae 6 O8C6 F2 81 2F 252 JE  . ~PRIRTN ® * REACHING EXPECTED TRACK 
0813 C6 0813 185 L106 DC . XLI*CS6? “on 7 0809 D2 01-Ci 253 LA 10, XR1)eRRI INCREMENT PER CYCLE POINTER 
0B14 09 0814 186 VAR6~ OC XL1°09° see 8 G ‘. OBDC 4C 00 00 1455 254 MVC = O01 eXR1) eBCTE PUT TaME IN PER CYCLE TABLE 
OB15 F2 OB15 187 H16 DC XLLtF2* ark 9 OBE} OC 00 OCBEA 1a55 255 MVC 4 «MVDIST#3€23-BCTR PUT TIME IN DIST CNT INST 
186 F#AEKES HELE REREESEESERESS SETHE EREERAEASTAREESETERERKEE 4KEEEREEEAEEREEE RE ss OSE? OF 90 1LFOG LAGE 256 MYNIST ALC DISTBLU1L3.8001 ADD 1 TO DISTRIBUTION COUNT 
189 * PROGRAM LIMITS TABLE - EACH ROUTINE LOACS ITS LIMITS HERE e © Ps OBED Ci A2 OBED 257 T1102 TIQ TI02,.xX*a2* WAIT FOR BUSY END FROM RD-1D 
190 SU RRHES HERS ERE SEAS EEE EEEEE KEE CERES TE EEEEE ES EERE EES £4ROERETERORRE RROD OBF1i B2 02 00 258 La Oi, XRLI_gRRZ PUT KR1 INTO KR2 
0B16 0101 OB17 191 FWOSN DC XL2°0101° see ) MUST BE TOGETHER IN THIS ORDER _ zg OBF4 36 92 1A4A o 259 A BM100 pXRZ » © SUBT.100 FROM XKR2 : “ 
0818 0601 OB19 192 REVSN OC XL2*6001° eae 2 c- ‘ OBF8 8C OG CO 1457 - - 260 MVC «= OL Le XRZICRDIGINGL PUT RD ID-CYL IN TABLE 
OB1A 67 OB1A 193 FRK1OO OC XL1*67* <#e 3 OBFD 3D 00 1457 261 EXPTRK CLI RDI DIN—-I +B 1S RD ID Cyt EQUA TO DEST INATILN - 
0818 CB - Q818 194 TRK200 DC Xil*cBt *et & = é OCOl F2 B81 04 262 JE PRIRTN IF YES, GO TO PRINT RCUTINE - 
OB IC FIFOF3 OBIE 195 CY6100 OC °Ct3*103° ‘eae 5 ec Spe a ee <8 c es oC06 CO 87 CB7B 263 so Bg “TEOL: AoN. BR YO. TEST FOR ROY ERROR .. ee aE. 
OB1LF F2FOF3 OB21 196 CYC200 OC Ci3*203* eae 6 264 pia eka cukiac kc oc ba buenns wiebadsesesnheeesindseceues 640006 sescaccesece 
OB22 26 | 6822 197 16 Doc XL1°28% “se 7 ae 265 * PRINT RESULTS OF FHD OR REV PASS - WE GET HERE 4 WAYS. © 
0823 08 0823 198 VAR Dc XL1*°08* **x 8B GO. ¢ . 266 * le EXPECTED CYLINDER IS REACHED. * 
0B24 57- - OB24 199 HI oc ML1L°57® . es 9 267 * Ze DESK ERROR (EXCEPT CONDITION CHECK) OR MOT READY © 
0825 FOFOFO OB27 200 RYTCYC DC CiL3*000° oo “ 288 ® WHILE MEASUREMENTS ARE BEING TAKEN. .* .., 
201 G1 ¢ 269 * 3. THERE HAVE BEEN 204 MEASUREMENT CYCLES AND THE zs ~ 
202 SRSKERS SERRES $ HERE ESELEEEEE EERE THESES EESEEEEESERE SHES TAKERLEESEESERERESS | | 3 270 # EXPECTED CYLINDER HAS NOT BEEN REACHED. * 
203 * PROGRAM SETUP AND TEST FOR SWITCH CONTROLLED DPTIONS * Dee ge 271i * &. SENSE SWITCH 2D IS ON eg 
204 FE LREEE SERRE EEEEESEEEESS 9966 S484 ONE TEES EEE EREERERS 09909848888 FORRES & oe 272 8HKESERE SHEEEER ES ESTES SSSR SHEE EEERESESEAASAESELESES OF SESLSEKAAAOESESRAROG— ~” 
0828 34 68 OFTS5 205 BEGIN3 ST LNKRET#3,ARR STORE RETURN TO LINKAGE ADORESS OCO8 CO 87 1719 273 PRIRIN B UPKSTS GO UNPACK STATUS 
: 
a Gic¢ 
DATE L5MART2 1LSNOV72 Sais s see Me Seas PROG 1D “o808-1 Ci DATE 1SMAR72.. | iSNOVTZ °° - aa tae PRUE RE Shh ee et PROG 1D - -, @BO8-1 
E@BNDO. 571609 571626 PAGE 2 G ¢ EC NO. 571609 571626 PAGE 2a 
_c G&G be 
é 
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P . PART NO. 
oe NO ser? . PaGE 3A 
p08) 5444 DISK ADJUSTMENT UTILITY ——we oR TT weit mere ee tte tee ar ee rer wv we vy weet me eee ee et ere 8081 S444 O13 5K ADJUSTMENT. UTILITY... ter ere es ermwee SOE eee er ar ere rt me ee gee eee wee ee ~ meee omy cng aoe Cetera tee ee eer 9 
BRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC DBJECT CODE ADOR STMT SOURCE STATEMENT . 
“. OCOC CO 87 OFT6 27% ) ERRTST GO TO TEST FOR ERROR 342 FFREREESESESEE OOFETEOEETHS ESE RESSE ESSE TEES EES ESTED FEENSOESESEEE SEOEE 
- 0C10 3C 1F OC3C 275 MMVI «=—- SETUP142—.x"1LF® * SET FOR DISTRIBJTION OCE6 3A 80 002A 343 TRUK SBN PRTL1eBITO MAXE HEADING AN ERROR LINE) 
OCl4 OC 01 OCTe OC3D 276 MVC 8 =—- SETUP 2¢302)4¢SETUP143 © PRINT OUT OCEA 3A 80 0DB} 344 SB8N PRTL2,8I1TO MAKE DETAIL AN ERROR LINE 
OCIA 3C FF OCT76 277 MVI «=- SETUP 243,Xx'FES * ON THIS RUN OCEE 3A 80 Of4C 345 SBN = PRTL3eB1TO MAKE GRAPH AN ERROR LINE 
> QOC1E 38 O1 LAAA 278 SBF BITSW.Xx*01* RESET PER CYCLE SWITCH OCF2 3A 80 1032 346 SBN = PRTLGsBITO MAKE SPACE AN ERROR LINE 
> 0C22 38 80 0200 279 TBN SBYTE5,SSw28 * BYPASS PER CYCLE MODE IF OCF6 39 EE LAAA 347 TSF BITSW,X*EE* ARE ANY ERROR BITS SET? 
—~ 0C26 F2 10 08 280 JT CLERIT * RUNNING IN SNAPSHOT MODE OCFA F2 90 29 348 JF SIRK JUMP IF NOT 
<<" C29 38 80 C20C 281 TEN = SBYTE 4, SSw20 SSW 20 ON? OCFD 36 80 002A 349 SBF 0 PRTL1,BITO MAKE HEADING NON ERROR LINE / oe 
-, OC2D F2 90 04 262 JF CLERIT JUMP IF NOT 0001 38 60 0081 350 S8F PRTL2 eBITO MAKE DETAIL NON ERROR LINE ah 2 fe Th 
“- @C30 3A O1 LAAA 283. SBN ~BETSWyX2OLPeme TURN ON-PER CYCLECSWITEM nc Cor coee ve xe coe ODOS (3B, BR DEGE ---- -- - 351 = SBE PREG SG BEEO ere ~~. MAKE GRAPH NON ERROR ANE coer ceen mie a 
-, 0634 O7 O06 LA5F 1LA5SF 284 CLERIT $2 DCTR1079,0CTR1II7) CLEAR BOTH DECIMAL COUNTERS 00C9 38 BO 1032 352 SBF PRIL4,BITO MAKE SPACE NOM ERROR LINE Bay ue 
.~ OC3a C2 01 1F00 285 SETUPL LA DISTBL- KR TBL ADOR TO XR1. PROG CHANGES QO BYT - . ODOD 38 08 0208 353 TBN SBYTEO sSSWO4 IS SSK & ON? 
ie 286 Me 0011 F2 90 12 354 JF SERK JUMP IF NO ERRORS 
287 SERRE ERSTE SEETESERS CEES ETEREEEST EEE EESEEERATS EERE OS ERD EEEORERERER ERS 0014 C2 01 OFOO 355 "oA “*OFOO*, XR1 SET DELAY VALUE 
288 * FIND BINERY & DECIMAL VALUE MINUS 1 OF FIRST ENTRY IN woes GO18 OO FF OCD9 OCD9 356 KRIS cic LOCK{( 256) »LOCK DELAY TO SIMULATE PTR DELAY + ‘yh 
28S * DISTRIBUTION TABLE . * « ODLE “36 01 1475 357 A BMO1, XR1 DECREMENT LOOP CONTROL = Sad gee 
Fine (Bog 290 FEES EREES EEE EE SEREEEEEE SH EERERECESOEEEEEEEEAEEERE SEE £8 OEESOKEEEESEDRERE 0022 CO 61 0018 358 BN2 KRIS GO BACK IF DELAY NOT FINISHED . ons 
~OC3E 7D 00 00 291 FNOST CLI O€_KR13,0 THIS TABLE POSITION ZERO? 0026 CO 87 O21A 359 SIRK 8 PRINT PRINT HEADING 2S 
OC41 F2 01 21 292 JNE = STSTRT Jump If NOT OD2A 41 OD2A 360 PRTL1 DC KLi*4148 BIT O MAY BE ALTERED BY THE PROGRAM 
0C44 D2 01 01 293 LA 1,XR1)_XR1 XR141 OD2B 55 OD2B 361 oc IL1*s85°* 
-OC47 06 30 1LASF 1A6D 294 Az DOCTR1(4),000141) DECIMAL CIR «} 2 Od2C 1C5¢ ON2D 362 oc AL 2 (HEAD412) 
OC4D OD 02 LASF 1A86 295 CLc DCTR1 (33, TOMUCH TABLE EMPTY? ODZE AOLA OD2F 363 FRSTLN DC XL2"°AOLA® oF 
' 6C53 CO O1 OC3E 296 BNE FNOST GO BACK TO FIEND ST ART O0D30 OC 06 1CA3 EFA (3646 - . MVC PRT AB(7),FUD MOVE IN FORWARD MESSAGE 
0C57 CO 87 O2Z1A 297 NOSAMP B PRINT PRINT SAMPLE TABLE EMPTY MESSAGE 0D36 38 01 1465 365 TBN SKDCF—1_X*O1* WAS THIS OPERATION FORWARD 
Oc5B Cé ocs8 298 oc XL1°C6# . - OD3A F2 10 06 366 JT LRAK JumP IF IT WAS 
-OC5C 1C€ Ocsc 299 BC I1kL1*28°* : OD3D OC 06 1CA3 1EF3 367 MVC PRT A+8(7) REV SET REVERSE MESSAGE 
0C5D 1¢695 CC5E 300 Dc -AL2(NOSMPL) m8 3 es Kosalmake Bi a ee 0043 OC O02 1CAC. 1462. 348 LRAK MVC .PRTAS17£3),SIOCY... SET @ OF SIO*S MESSAGE | Seuecene 2 2 is 
OCSF ADCO oc6éo 301 oc “XL2*a000° — , ~ 0049 08 03 1CB5 1466 36% MNN PRT A+ 26,SKDCF SET # OF TRACKS . 
OC61 CO 87 0634 302 ) BGHALT GO TO PROG RESTART OD4F 3A FO 1CB5 3706 SBN PRT A4+26,X*FO?® MAKE PRINTABLE NUMBER 
0C65 36 01 1A75 303 STSTRT A BMO1, XR1 XR1-1 0053 OC 04 1CBB 1C9A 371 MVC PRTA#32(5), TRACK MOVE IN THE WORD * TRACK® 
OC69 07 30 1LASF 1A60 304 $2 DCTR1i(4),D001(1) DECIMAL CTR-1 0059 OC O01 1CC2 1C07 372 MVC PRT A#39(2) sDISK MOVE IN DRIVE US) 
OC6F 34 61 LATD 305 ST BSTART,XR1 STORE 1ST TABLE ENTRY ADDR-1 OO5F OC O8 ICCD ICOF 373 MVC PRTA50193 oS SET MILLESEC MESSAGE 
306 ; 0065 CO 87 177D 374 8 CNVBTD GO CONVERT LO TO DECIMAL 
207 FF EREEESEREREE REESE SHEETS £EEEEREERES EERE TE RERES EASE EE EEE EEEE ESOS EE ERE OE 0D69 0822 OD6A 375 OC AL2Z2(LO) 
3908 * FIND BINERY VALVE +2 OF ENO OF DIST TABLE * OD6B OC O2 ICF4 1A58 376 MVC PRTA#89(3) .OC TR2 STORE DECIMAL LO 
: ZOD FEESEESSEEEEE SERED EGET EERKES EEEREEEEES EEEEES EE EEE EE EE OEEEEE £8 EEESE SERRE i 0071 CO 8&7 177D 377 B CNVBTD ‘6D CONVERT VAR TO DECIMAL a 
0C73 C2 01 LFFF 310 SETUP2 LA X*1LFFF*,XR1 TBL END ADOR TO x21 PROG ALTERS QO BY ~- /| ~ OD75 0823 OD76 378 oc AL2(VAR) ma 
OC77 76 60 60 311 FNDEND CLI O(,XR1},0 IS FHIS ENTRY ZERD OO77 OC O2 1CF7 1A5B6 379 MYC PRTA*S203),DCTR2 STORE DECIMAL VARIATION 
OC7A F2 61 CB 312 JNE STEND JUMP IF NO : 0D70 CO 87 1770 380 B CNVBTD GO CONVERT HI TO DECIMAL 
OC7D 36 0% 1A75_ 313 A BMO1,XR}- XR 1-1. Skene ae | : 0081 0824 -...- .« 0082 361 DC -AL2¢(H1) : ene”. Silent 
0cC81 CO 87 OCTT 314 B “FNDEND ~ GO BACK TO FIND END ne : OD83 OC O2 1CFA 1458 : 382 MVC PRTA#+95(3),0CTR2 STORE DECIMAL HI - : Sia 
OC85 36 OFT tAT71 315 STENC A BOO2, XR1 XR142 : OD8B9 OC 12 1CE3 LAA4 383 MVC PRIA+7201939 -EDIT2 BRING IN LIMITS EDIT “oro 
‘OC89 34 OL TA80 316 ST BENDsXR1 STORE LAST TBL ADDR #2 OD8F OA 12 1CE3 ICFA 384 ED PRTA+72(19) -PRTAS95 EDIT LIMITS INTO PRINT AREA 
OCED CO 87 1768 317 8 CLPRTA CLEAR PRINT AREA OD95 oC OA ICEF 1C66 385 MVC PRTEAt8&¢1123¢STSMSG MOVE IN STATUS 
: 318 0098 OB O1 1CD1 1447 386 11c PRT At54(2) -BLNK INSERT BLANKS IN LO LEMIT ae 
319 SESFEEEREEEEEE SEER EESEAEESEEES OEREEEEEEESESEESEESRES OE OEEEEREERDEDROROREES ODAi O08 91 1CD6 1A47 ~ 387 1Tc PRTA+59(2) »-BLNK INSERT BLANKS IN VAR LIMIT o 
2 320 * SEY &0-+ VAR, HI, ERROR BITS IF NECESSARY * OBA7T 08 91 ICDC 1A47 388 ITc PRT At65(2). BL NK INSERT BLANKS IN HI LIMIT 
321 SHRSEEEREREE SS EREES EEEEEEE EEE HEEEEES EERERE TE OS HESS BE OO8809088 2EEROREES Si ODAD CO 87-0214 389 8 PRINT PRINT DETAILS UNDER HEADING 3 
0C91 38 78 1AAA 322 SBF BITSW.X* 78" CLEAR ERROR BITS .¢ » OOBi 02 ODB1 3960 PRTL2 OC XL1*O2* BIT O MAY BE ALTERED BY THE PROGRAM aad 
GC95 3C 87 OE62 323 mvi UPBR+1,X"87* TURN ON UP BRANCH OD82 54 ODB2 391 DC IL1*84* 
0c99 3D 1E OCTS 324 cul SETUP 242, xX*1E* 1S THIS PER CYCLE MODE . - O083 1CEF ODB& 392 Oc AL2CPRTAtB4) ms 
oC9D CO 81 0089 325 BE LOIS BRANCH IF TES ; : 0D85 CO BT 1766 393 8 CLPRTA CLEAR PRINT AREA = 
OCAl OC 00 1A7E 1A7D 326 MVC = SVBSTR(1),BSTART SAVE TABLE START ADDR FROM 1ST PASS 394 
OCAT OF OO LATE 1AT71 327 SLC SVBSTR(1),8002 ADJUST SAVED START ADDRESS tp 395 CPLTESE SEESEETS COOLESS ERE ESSSE SESE SESE SESS SHSETEAEESE FELESESESSESESESSRE ae 
GCAD OC 00 LAAS 1480 328 MVC WORK(1),BEND FETCH TABLE END ADDRESS © © 396 * BAR GRAPH SET UP AND PRINT ROUTINE eS 
O0€83 OF OO 1AAB 1A71 329 SLC WORK{1).B002 CORRECT DIFFERENCE 397 SRHESEERAESEERSE CHERSESESES ESEFLOEKS TEKTHS SS SHERSESRE SH FEBAEESESSSE SSUES SRS 
0CB9 OD 00 1AAB 0B24 330 cic WORK(1),H1 LOOK FOR TOO HI Be ; ODB9 35 O01 1A7D 398 LOIS 1 BSTART,XRI POINT ¥R1 TO START OF TABLE 
OCBF F2 04 04 33) . JNH ~~ -VARCK BRANCH IF OK = ODBD 1C-. 00 ODEE Of 399 MORPRT MVC PROP*#1024.01.XR1) PUT TRL VALUE IN * MAKE GRAPH*® INST 
OCC2 3A 20 1AAA 332 SBN BITSW.BIT2 SET TOO LATE BIT Ooc2 CO 87 1770 400 B CXVBTO CONVERT TABLE VALUE TO DECIMAL 
OCC6 OF OO 1A4AB 1A7D 333 VARCK SLC WORK( 1) »sBSTART FIND VARIATION - EARLIEST TO LATEST pon ODCS ODEE ooc? 401 DC AL2(PROP1) ar 
OCCC OD OO 0823 1AA8 334 cLCc VAR(1) »WORK TS TIME VARIATION TOO MUCH a ; OOCc8 3D LE OCT5 402 CLi SETUP24¢2,K*°1E* IS THIS PER CYCLE MODE 
6002 F2 02 04 335 JNL LocK BRANCH IF OK oocc F2 01 09 403 JNE TUOLNG JUMP IF NOT 
OCD5 3A O8 1AAA 336 SBN BITSW.BITS SET TOG MUCH VARIATION BIT 7” OOCF OF 00 ODEE 1aA7E 404 SLC =—«-—~ PROP #1019 SVB5Te SHORTEN GRAPH LINE IF IN PER CYCLE 
OCD9 OD OD 1A7D 0822 337 LOCK «6CLC)) OBSTART(1),L0 LGOK FOR TOO LOW TIME M ODD5 F2 82 78 405 JM PASTPR - SKIP GRAPH LINE IF NOTHING TO PRINT 
OCDF F2 02 04 338 JNL TRUK BRANCH =F NOT TOO MUCH ODDS 3D 52 ODEE 406 TOOLNG CLI PROP*1 ¢X*52* IS GRAPH LINE TOO LONG FOR PRT AREA 
OCE2 3A 40 1AAA 339 SBN BITSwWeBITL SET TOO EARLY BIT a : ODDC F2 04 04 407 JNH GRAPH JUMP IF NOT 
340 FERSERE 64SSS4EEESEEEEEESS OSE ES OEREEEE SEEESEESSESRSE OD REKEEREEREEEEEEERe  \ ODDF 3C S2 ODEE 408 MVI PROP*1 »X*52° SET MAXIMUM GRAPH LINE LENGTH aa 
341 * PRINT TWO LINE HEADING FOR DISTRIBUTION BAR G APH * ODES 3C 09 OE4D 409 GRAPH MVi - PRTILNG,X*O9" SET PRT LENGTH FOR NUMBERS ONLY 
S « 
GATE L5MART2 1ISNOVT2 PROG ID 0808-1 DATE 15MAR72 ISNOVT2 PROG ID 0808-1 
fC NO. 571609 571626 PAGE ae EC NO. 571609 571626 PAGE ss 
c G ~ 


pm MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 5134155 
2 PAGE & 
BOB1 5444 DISK ADJUSTMENT UTILITY bee ne ate} Dee MESES |, Ste aus, e ae 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ODE? OE 00 O&4D ODEE 410 ALC PRTLNGE1) PROP+1 ADD GRAPH LENGTH TO PRINT LENGTH 
~ ODED OB 00 1CA4 1448 4#i1 PROP ITC PRTAC9(1) oSPLAT PUT GRAPH LINE IN PRINT AREA 
-. ODF3 3C 40 1CA4 412 MVI PRI AC9e X*GG* REMOVE EXTRA GRAPH CHARACTER 
- ODFT 3@ 08 OE4F 413 ST PRTADD, ARR SET PRINT PARAMETER 
ODFB OF O01 OE4F 1A6F 414 SLC = PRTADD{2),8001 ADJUST PRINT PRINT PARAMETER 
%& LS & SEER KSA HERS KE KKEKEK KCK S CK EKREST REL KEKE KHRKRAKKH KE SASH HAKKEKKERKEBERE 
16 * SEY UP PRINT LINE LABELS , * 
& i? PEAKE ARRKAKE TEKS KK AREKREH ERAERAKLAKES SHKESEREHREE LSS CECKERES AKEERERESE HE 
OE01 OC O02 ICSE IASF 425 MVC PRTAtO3(3),0CTR1 MY IN LINE VALUE 
OEO7 OC 03 1CA3 1495 419 MVC . PRIAHOBUSISEDITA. - SET EDIT WORD 9 --. 0 eee eee ee 
OEOD OA G3 1CA3 1A58 420 ED PRTA4+08(4} ,DL TR? EDIT GRAPH VALUE 
0E13 OB 02 1C9C 1447 421 - TTC - PRT AFL 032 6B8LNK INSERT BLANKS INTO LINE VALUE 
O£19 OB 03 1CA0 1A47 422 ITC) = PRTA#5 £43 -8LNK INSERT BLANKS IN GRAPH LINE 
OFLF 30 LE CC3C 423 CLI SETUP142,X"1E? IS THIS PASS PER CYCLE? 
GE23 F2 81 22 42% JE ALLSET JUMP IF YES- : 
OF26 3C 40 LCAOD "25 MMVI PRTAtO5 »X*40! CLEAR PREV SETUP 
CE2A OC 03 1ESF 1A95 “26 MVC = PRTA#04143,EDITL MV IN EDIT wo 
 OE30 OA O03 1C9F 1Aa5F 427 ED PRTAt04(4},DCTRI EDIT LINE VALUE 
0£36 OC O02 1CA3 1458 428 MVC = PRT A#B 03) ,DCTR2 MOVc IN GRAPH VALJE 
OE3C O68 O1 1C9C 1A47 429 1¥C = PRT A40112) eBLNK INSERT BLANKS IN LINE VALUE 
OCE42 OB O2 1CAl 1A47 430 ITC = PRT A4#643),BLNK INSERT BLANKS IN GRAPH VALUE 
0E48 CO 87 O21A 421 ALLSET B PRINT PRINT GRAPH LINE 
OE4C O1 OE42 432 PRTL3 OC XL1*°O1¢ BIT O MAY BE ALTERED BY THE PROGRAM 
0E4D 00 C£40 433 PRILNG OC XL1*D0° THIS BYTE IS CHANGED BY THE PROGRAM 
OE4E 0090 . GCE4F 434 PRTADD DC XL2*90000¢ THESE BYTES ARE CHGED BY THE PROGRAM 
OE50 CO B87 1768 435 PASTPR B CLPRTA CLEAR PRINT AREA 
436 
437 FEKKKEESESKEKRESE AKA HEEKEREAE AKEKKEAKEKSEKESREEKKEEAERER KE OK ESEEEKAEEEREKBESAEEED 
435 * CHECK FOR DIPS AND SKIPS ERROR AND SET BIT IF NECESSARY * 
439 RAEASEKASALE SK KEKS SKARAELTS SKEK AKERS REHEARSE ERRKSSTHEKE SRKERSEKKKEKAKEACERKRE 
OE54 06 30 1ASF 1A6D 440 AZ DLTR1(4),D001 (1) ADD ONE TO LINE VALUE 
OE5A 3D LE OCT75 441 CLI SETUP2¢2,X*1E# IS THIS PER CYCLE MODE? 
OE5E F2 8i 1D 442 JE —NDCK BRANCH IF YES 
OE61 F2 BT OF 443 UPBR J CKuP Q CODE IS ALTERED BY THE PROGRAM 
OE 64 5D 00 01 00 4o% CLC 1(1eXR1},00,XR1) CHECK FOR DECREASE IN TIME 
GE68 F2 04 13 445 JNH = _ENDCK BRANCH IF DECREASE 
OE6B 3A 10 LAAA 446 SBN BITSW,BIT3 SET DIPS BIT 
esd a ote 447 J ENDCK 
oc 01 00 448 CKUP CLC 1(24XR1),0(,XR1) CHECK FOR INCREASE Tia 
OE 7 CO 02 OE7E 449 BNL ENDCK — _ ._ BRANCH IF INCREASE sa aie 
OETA 3C O7 OF62 450 MMVI ~UPBR41,X*O7' TURN OFF UP BRANCH 
OE7E D2 0: 01 451 ENDCK LA 1€,XR1IeXR1 INCREMENT TABLE POINTER 
0£81 34 O} LAST 452 ST SVXR1.XR1 SAVE XR1 
OE85 0D 01 1A4C 1A80 453 CLE SVXR1(2) »BEND TBL START = TBL END?” 
OE8B CO OT ODpBD 454 BNE MORPRY GO SET UF MORE LINES 
OESF CO 87 021A 455 8 PRINT GO TO SPACE ONLY 
0£93 11 0E93 “56 oc XLI°11° 
457 
458 REREEKEEREARHEES ARES RERKEREKEETERELES EKRKEHERERASKEER ES HE EEEEEEAHEEEEREERAKER 
459 * CHECK ERROR BITS IN BITSW AND PRINT APPROPRIATE ERROR MESSAGES * 
460 HESKERSE ESAT KE ES EE RRAAAH EE EEEK AKERS HAE EEE EREKREEK EEE EE EKEEREKAEEREREREEE 
OE94 39 EE 1LAAA 461 TBF BITSw,XtEE® TST FOR ALL ERR EXCEPT DIPS & SKIPS 
0E98 F2 10 73 462 JT SPACE SKIP ERROR PAINT IF NONE 
CE98 CO 87 O21A 463 B PRINT 
OE9F Ci OESF 464 oc XL1°C1* 
O£AO Ol OEAD 465 DC IL1*o1* 
OEAL 1A47 OEA2 466 oc AL2 {BLNK) 
cen aero : OEAS 467 ERRCOD DC XL2*°a000¢ 
AAA 468 TSTBTO T8N  BITSW,BITO TEST FOR ERROR 
OEAD F2 90 CB 469 JF TST8T1 GO TO NEXT oa . 
CEAC CO B7 O21A “70 8 “PRINT 
OE€BO 81- OER) 471 Dc XL1°*B1¢ 
OEB1 21 OEBL «72 oc IL1¢*33° 
bee? aAce : OE3s 473 oc AL2(81T00) 
40 1AAA 474 TSTBT1 TBN BITSW,BIT1 TEST FOR ERROR BIT 
OEBS F2 90 08 475 JF TSTS8T2 GO TO eae Test : 
OEBB CO 87 OZ1LA 476 8 PRINT ” 
OEBF 81 OEBF 477 pc XLi*e.e 
DATE 1SMART2 15NOVT2 - 
EC NO. 571609 571626 etce 7 aeoeae 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


_.8081 5644 DISK ADJUSTMENT UTILITY 

ERR LOC OBJECT CODE ADDR STMT 
GECO 29 LECa «478 
CECI 1LAFS O£C2 479 
CEC3 38 20 1ALA 489 
O£CT F2 99 08 481 
OECA CO 87 0214 482 
OECE 81 OECE 463 
OECF 2A OECF 48% 
OEDO 1B1E OED1l 485 
- "- QED2 38 10 LAAA 486 
. on. GEOG F2-90 08-0 - 0... 4BT 
 -GED9 CO 87 O21A 488 
GEDD 81 OEDD 489 
OEDE 16 OEDE 490 
-OEDF 1834 OED 491 
OEE] 38 GB 1AAA 492 
DEES F2 90 08 493 
O£ES CO 87 021A 494 
OEEC 81 OEES 495 
OEED 2E GEED 496 
OEEE 1862 OEEF 497 
OEFC 38 04 1AAA 498 
DEFS F2 90 08 499 
OF? CO B7 O23A 500 
OEFB 81 OEFB 501 
OEFC 2C€ CEFL 502 
OEFD 188E OEFE 503 
OEFF 38 02 1AAA 504 
OFO3 F290 OB "ss s-=+ $05 
OFO6 CO 87 OZ1A 506 
OFOA 81 OFOA 507 
OF0B 23 CFOB 5CB 
OFOC 1881 OFOD 509 
OFOE CO 87 021A 510 
OF12 14 OF12 511 
512 

513 

514% 

515 

OF13 38 O01 1AAA 516 
OF1L7 38 O1 1LAAA 517 
OFIB F2 96 12 518 
OFIE 3C 1€ OC3C | 519 
OF22 OC 01 OC76 CC3D 520 
OF z3 3C CC OC76 521 
OF2C CO 87 0034 522 
CF20 38 04 020D 523 
OF 34 CO 10 B34 524. 
OF 38 38 O1-1A65 525 
OF3C F2 90 1F 526 
OF 3F 38 08 O20C $27 
OF43 F2 1C OA 528 
OF46 38 10 020¢ 529 
OF4A F2 90 03 530 
OF4D F2,87 OF - 531 
OF50 OC O61 1A66 0819 5 32 
OF56 3C GO OBFE 533 
OFSA CO 87 OBGF 534 
535 

OFSE 38 80 0200 536 
OF62 F2 90 OD 537 
OF 65 OF 00 1A54 1A6F 538 
OF6B F2 81 04 539 
OF6E CO 87 0849 540 
541 

542 

543 

544 

545 

DATE LSMART2 1SNOVT72 
EC NO. 571609 571626 


PART sO. 
PAGE 


SOURCE STATEMENT 
oC ILi41° 
oc AL2(81TOL) 
TSTBT2 TEN BITSW,BITZ TEST FOR ERROR BIT 2 
JF TSTBT3 GO TO NEXT TEST 
8 PRINT 
D KLI*61° 
oc 1L1*42* 
oC AL2(BIT02} 
TSTBT3 TSN BITSW.BIT3 TEST FOR ERROR BIT 3 
ME. ce: GURTOTOs Wg. GG TO NEXT TEST — 
8 PRINT 
DC XL1°821° 
oc IL2°22¢ 
oc AL2(BITO3) 
TSTBT4 TEN BITSW,BITS TEST FOR ERROR BIT & 
Jf TSTBTS GO YO NEXT TEST 
6 PRINT 
pC xii*si* 
DC 1L1*46° 
DC AL2(B1TO4) 
YSTBTS TEN BITSW,»BITS TEST FOR ERROR BIT 5 
JF TSTBT6 GO TO NEXT TEST 
B PRINT ; 
oc xLiteie 
oc lil "44s 
oc AL2(BIT05} 
TSTBTE TEN BIYSWeBIT6 TEST FOR ERROR BIT 6 
JF SPACE: GO TO SPACE © LINES 2. LV. 
8 PRINT 
pc KL1°81° 
oC 1L1935¢ 
DC ALZ(81T96) 
SPACE 8B PRINT SPACE 4 LINES 
oc XL 114 
SKETCHES RATA ST SS RKELSSSEKLSS SE KE SLERE SK SKK KT HS HSCREKAESKE CKHKAKTE CES KKTSRETH 


* MEASUREMENT AND PRIMFGUT CYCLE CONTROL * 
SEATS SEA THS PHRASE SHH VE SSE LESS SS SETS ETATS SSEAE SHE SF VSS TAKS FEES HRES 


TBN BIT Sw.x*ol* 1S PER CYCLE Sw ON? 

SBF BITSW,x*O1* RESET PER CYCLE SWITCH 

JF -NOPRE ¥ : JUMP If Sw WAS NOT GN. 

MVI SETUP1¢2 ,X*1E* @ SET FOR PER 

MVC SETUP 24362) SETUP 143 * CYCLE PRINTOUT 

Vi SETUPZ4¢3eX*CC* * ON THES RUN 

8 CLERIT GG TO S&T UP PER CYCLE PRINT OUT 
NOPRCY TAN SBYTES,»SSW2D TEST FOR REPEAT PRINT 

BT BGHALT ™ GG TO BEGINNING IF ON 

TBN SKDCF-1, x*O1* FHD SEEKING JUST COMPLETED? 

JF TST28 GO TEST FOR SNAPSHOT MODE 

TBN SBY TES »SSN24 TEST FOR REVERSE ONLY 

JT RVONLY 

TBN SBYTE4,SSW23 TEST FOR FORWARD ONLY 

JF RVONLY 

J TST28 6G TEST FOR SNAPSHOT MODE 
RVONLY MVC SKDCF12).REVSN SET OCF FOR REV SEEKING 

MVI. EXPTRK4+1eX*OD* SET EXPECTED END ID FOR REY 

8 START "GO BACK TO RUN REVERSE 
T$T28 TBN SBYTE5.SSwW28 1S SNAPSHOT MODE IN USE 

JF LNKRET GO BACK TO USING ROUTINE 

SLC SNPCNT{1),.B001 REDUCE SNAPSHOT COUNT 

JZ LNKRET GO TO CALLING ROUTINE IF ZERO 

B 6a GO DO ANOTHER MEAS UREMENT 
EKKAEKEKEKKSERKEES KE SHES SEKVHESE SHEVE HKSKTHREKKKTKEKKKEKSEKEE SCE KEKEKESCKEKAKEKE SKE 
* ' LINK RETURN (LNKRET 2 SRANCH ADDRESS COMES FROM THE STORE ARR s 
* INSTRUCTION AT *BEGEN3*, SETTING THE LINK BACK TO EACH OF THE *. 
* ROUTINES 1 THRU 7. * 

PROG 10 OB0B-1 
PAGE 


on 
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aid 





ABN MAINTENANCE DIAGNOSTIC PROGRAM 


‘BUBL ©5444 DISK ADJUSTMENT UTILITY 


ERR LOC OBJECT CODE 


-.” OF72 CO 87 C600 


- OF T6 
- -OFTA 
> OFTE 
oF B82 

OF 66 
OF BC 
OFF 


OF93 
OF 99 
OFSD 
OFAL 
 OFA2 
OF A3 
OF A5 
OFA7 
OF AS 
Cat 
OF AB 
CFAD 
OFac 
OF AF 
OF B3 
OFB7 
OF BA 
OFCO 
OFCS 
OFCS 
OFCE 
OF DI 
OFD4 
OFOT 
OFDB 
OF OC 
OFDE 
OF EO 
OFE4 
CFET 
OFED 
OF FO 
OFFS 
OFFS 
1000 
1003 
1006 
100A 
100D 
1010 
1014 
1016 
1016 
1018 
101¢ 


DATE 
EC NO. 


34 
34 
34 
C1 
od 


“Fe 


3A 


aD 
co 
co 
c2 
Mi 


08 1055 
OL LAST 
O2 1A4E 
AO 0F93 
O02 0B27 
81 BB” 
04 LAAA 


FE lFFE 
81 OC57 
87 O21A 


1c7S 
A300 


C2 


01 0000 


1001 


C2 


02 0000 


1045 


3¢ 
38 
F2 
oc 
34 
34 
oD 
F2 
70 
F2 
co 
01 


OO 1AA7 
O1 1465 
1c 06 

00 1AAT 
01 OFDD 
02, OFDF 
Ol OFDF 
O2 43 

FF 00 « 
81 3D 

87 O21E 


0000 
0000 


38 
F2 
OF 
F2 
OE 
10 
1c 
F2 
BC 
3A 
D2 
E2 
co 
C2 


O1 1465 
10 09 
OO 1AA7 
87 06 
00 1AAT 
00 1AA7 
09 1AA7 
81 07 
SC 01 
01 1AA9 
Ol 01 


"02 04 


8&7 OFCO 
02 0000 


1CAl 


co 
8k 


87 O21A 


ISMAR72 
571669 


- ADDR STMT CU TKI CUI SYA EEMERE Ceres coo: con tt BRR-£ GC OBJECT, RPPE -.. -. - ADDR..STAT 
5Q6 FSKEERE REESE RE SHKERERESESRE OE OKEREEERES EESEEEEEEESSE SE 20590858 EEEEREEEESEO 101D 42 1010 614 
547 LNKRET B 0 RETURN TO CALLING ROUTINE 1O1E 1CDE 1O1F 615 
548 a i r 1020 CO 87 1768 616 
$49 SRESEEE ESS EEEREEEEEES EEEEE OESEE EEE SES EREREEEESESE ROK EE EEEESERESRE OSS O4OEE , 1024 70 FF 00 617 
550 * TEST FOR ERROR WHEN NORMAL PRINT OUT 1S CALLED FOR. * : 1027 F2 81 04 618 
551 * THERE ARE TWO CAUSES FOR ADDITIONAL ERROR TABLE PRINT OUT. * _ 102A CO 87 OFCO 619 
552 * 1. ANY STATUS ERROR OR NOT READY WHILE MAKING MEASUREMENTS. © 1O2E CO 87 O2Z1A 620 
§53 * 2- INCORRECT NUMBER OF SIO CYCLES HAD BEEN TAKE! WHEN THE * 1032 11 1032 621 
554 * PRINT OUT ROUTINE WAS CALLED FOR. . . - 1033 CO 87 1752 622 
555 = 2s =' 1637 38 01 1LAAS 623 
556 = NOTE: CORRECT NUMBER OF SIO CYCLES IS DETERMINED BY THE NUMBER * 1038 F2 90 OC 624 
557 * OF TRACKS PER SEEK. (SEE "C¥YLIOO® OR *CYL200%) tc oo0 0 Crome. 7 t° 2O3E-38°G2-28A9 1.2 crt 625. 
$59 REKEEEE RARER EDERERERERES EERE EEERESEM EEE EERE ERE OE EREEESSEREKEEEEEERS - 31042 CO B7 O21A &26 
559 ERRTST ST EERRTS+43,ARR SET RETURN 1046 42 1046 627 
560 = ST SVXR1»eXR1 SAVE XR1 1047 33. 1047 628 
561 ST SVXR2—XR2 SAVE XR2 1048 JOFF 1049 629 
562 TIOS TIO UNPKID»)X* A0® BR ON ERROR OR NOT READY 104A 35 01 1A4C 630 
1A62 $63 CECE RYTCYC(3}3,SIOCY ARE CYCLES TAKEN CORRECT? 104E 35 02 1A4E 631 
: / 564 © JE QUK END BR TO END IF EQUAL 1052 CC 87 9006 632 
565 SBN BITSW»BITS SET INCORRECT 1/0 CYCLES BIT 633 
566 KERREREE ER SHES EEE RERERERS TOR EREES ; 634 
567 * PRINT OUT ID TABLE CN ERROR ~ 635 
S68 See Eee ENE HEE KES REESE EERE EREED 1056 34 08 1080 (36 
LFFF S69gUNPKID CLC DISTBL4254(255).DISTBL4255 ARE ANY MEASUREMENTS RECORDED? 105A 34@ 01 1A4C 537 
570 BE NOS AMP BRANCH TO NO SPL ERROR PRINT IF NO ~ 105€ 35 O1 1030 638 
571 8 PRINT GG PRINT HEADING 1062 D2 01 04 639 
OFAlL 572 DC XL1*C2° 1065 34 O01 1084 640 
OFA2 573 DC ILiei7e 1069 35 01 1A4C 641 
OFAG 574 Oc -AC2C1LOMSG) 1060 CO 87 1719 642 
CFAS 575 DC XxL2*a000° 1071 39 FD 1A59 643 
576 LA Os XR LD ID TABLE ADDRESS 1975 39 24 1A51 644 
577 ORG *~2 1079 39 80 1A52 645 
OFAA 578 DC AL2(10T8L41) 1070 CoO 10 6000 646 
579 LA Oe XR2 LD PRINT AREA ADDRESS 1081 CO 8&7 0000 647 
580 QRG *=2 648 
OFAE 581 DC AL2(PRTA#10) 649 
582 MVI OLO,x*00* SET OLD ID TO 00 650 
583 TBN = SKDCF-1,x°O1°. LOOK FOR FORWARD DIRECTION 651 
584 JT _UNSTRT - 652 
LAF 585 MVC OLD(1),TRACK# SET STARTING TRACK 1085 07 1085 653 
586 LNSTRT ST PACKED,XR1 SET PACKED ADORESS 1686 00 1086 654 
587 ST ‘UNPKED,XR2°° SET UNPACKED ADDRESS L087 -10AB.- 1088 655 
1LAAG 588 CLC UNPKED(2) -HIPRT IS THIS END OF PRINT AREA 656 
589 JNL PRTALN GO PRINT A LINE OF IDtS 1c89 CO 87 1880 657 
590 Cul Ol eXR1)_X* FES LOOK FOR END OF RD ID*S 1080 CO 87 G21A 658 
591 JE PRTALN GO PRINT LAST LINE OF ID*S 1041 41 1091 659 
592 B UNPACK UNPACK AN ID INTO THE PRINT AREA 1092 01 1092 660 
OFDB 593 DCs XL2°O.°8 1093 1LA47 - 109% 661 
OFDD 594 PACKED OC XL2*0000°* THIS CONSTANT ALTERED BY PROGRAM 1095 acoo 1096 662 
OFDF 595 UNPKED DC XL2 "00008 THIS CONSTANT ALTERED BY PROGRAM 1097 CO 87 1719 663 
596 TON SKOCF-1,x*0O1° WAS THIS A FORWARD SEEK? 109B CO 87 173E £64 
597 JT FWOYES JUMP IF IT was 109F CO 87 1603 665 
LAGE 598 | Sic OLO(1),SKOCF SET OLD ID FOR REVERSE 10a3 CO 87 1752 666 
599 J COMPID 4 10A7 CO 87 1089 667 
LA66 600 FWDYES ALC OL0(1),SKOCF SET GLO ID FOR FORWARD . s 668 
06 601 COMPIO CLC OLD(1),0(,xR1) OLD 1D #/~ LAST SEEK = THIS ID? 669 
00 602 MVC GLD(1),04,xR1) MOVE THIS ID TO OLO ID oss 670 
603s JE XRINCR Bs 671 
604 MVI 19XR2)—X*5C* SET BAD SEEK FLAG 10A4B 08 1OAB =672 
665 S8N BITSW1,B1T7 TURN ON FOOTNOTE CONTROL 10AC 00 10AC 673 
606 XRINCR LA 1(XR1)eXR1 INCREMENT ID TABLE POINTER 10AD 1195 1OAE 674 
607 LA 4(_XR2),XR2 INCREMENT PRINT AREA POINTER LOAF CO 87 164D 8 675 
608 B LNSTRT nt : 1083 3C 08 OAO03 : 676 
609 PRTALN LA 0 »XR2 RESTART PRINT LINE POINTER La ™ 1118 677 
610 ORG *-2 111B 4678 
1017 +611 oc AL2(PRTAC6) a 1087 C2 01 1118 679 
612 8 PRINT PRINT & LINE OF 1D°S co 1088 5C 01 5E 09 680 
101C 4613 oC XL1*e1* 108F 35 O02 1A58 681 
Cc e 
1S5NOV72 PROG ID 0608-1 DATE 15 MARTZ 15NOV72 
571626 PAGE Sk EC NO. 571609 571626 
a ~ | 


SOURCE STMPEMENT vector cere 
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PART NO. 5134155 = 
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a8 SOB) 5444 DISK ADJUSTMENT UTILITY 
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ry 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


SOURCE STATEMENT eoecers mene 


. pt ere ter tee’ 


PART NO. 5336155 
PAGE - Sk 


LAST 1D? 
JUMP IF YES 
GO SET SCNE MORE ID*S 


THIS CAN BE CHANGED BY THE PROG 


GO TO PRINT LAST 1D FIELDS 


WERE YHERE INCORRECT SEEKS? 

JUMP IE NOT 

RESET. FOOTNOTE CONTROL eee ee 
PRINT ID TABLE * FOOTNOTE ~°**°*°°> 


RESTORE XR1i 
RESTORE KR2 
RETURN 


KEKKCERSE ESSERE SKCAKCRESCKKSRKSKSE EK SEKEKTSESEESKSSKKSEKAS EHS ESSERE EE THESES BE 


* ALLOW TEST TO CONTINUE WITH CONDITION CHECK IF NO OTHER ERROR 


* 


KSSKERKES KEKE EEASSESATKSENCKKAKSERSKKS SEEK SSK SE SKKHESERLAGCH HS CSE SKIS SSECESCESESSEKALSKSE 


oc TL3 "668 
DC = ALC PRTACOT? 
8 CLPRTA 
cul OGeXR1)X* FFE 
JE LASTID 
B LNSTRT 
LASTIO B PRINT : 
PRTL4 OC xKL1°11° 
8 PRTID 
Ten BITSW1,.BITT 
; JF QUKEND 
core (SBF -- 2BETSH2eBET7 ec s 
8 PRINT 
oc XL1i*e2* 
Oc IL1*52* 
DC ALZ(NOTE) 
QUKEND L S¥XR1,_,XR1 
L SVXR2 ee XR2 
EERRTS B koe 
CNOCHK ST ECNOCH+ 3, ARR 
ST. SVXR1—eXR1L 
L ECNOCH+3, XR] 
LA SCUoXRLD CXR 
ST EECNDC43,XR1I 
L SVXR1,XR1 
B UPKSTS |... ..,.. 
TBF SNSOAI<-1,X*FD* 
TBF SNSOA1,X*24* 
TBF SNS2A3~-1,.X* 80° 
ECNOCH BT *—m. 
EECNODC 8 0 


STORE RETURN 

SAVE XR 

GET RETURN ADDRESS 
INCREMENT RETURN BY 4 

STORE BAD RETURN 

RESTORE XR 

GO TO..GET & UNPACK STATUS | 


@ANY BESICES COND CHK ? : oo ee 


ANY BESIDES COND CHK? 
@ANY BESIDES COND CHK? 

GOOD RETURN 

GO TO BAD RETURN 


KEKSTCEAKSKEKKEKSE TERE SEKAKRAKS SECTS FVEKKKSK SKS SHTCESSKISESLSE SE KEE SEKSHASKESSSSESEES 


* ROUTINE O7 ~ PRENTS OUT STATUS AND READ ID OF CURRENT CARR LOC ® 
FREKERE SHS SEESHESESS SEER SH HSE EBES KEKE GESSEKEKESEES ESE OAKES ERASERS SESE OE 


RTO7 OC XLL*O7* 

BC XL1°00° 

oC -ALZ2(RT08) 
ROUTIN]T B HALTR GO TO GENERAL ROUTINE HALT 

B PRINT PRINT HEADING 

oc XL1¢41* 

DC ILz*oO1¢ 

cc AL2(BLNK) 

oF KL2*A000* ad 

B UPKSTS UNPACK STATUS INTO MESSAGE 

B PRISTS PRINT OUT THE. STATUS BYTES 

B READID READ CYL 1D OF CURRENT CARR LOCATION 

B PRYID PRINT THE 1D FIELD JUST READ 

B ROUTNT RETURN TO SYARTY OF ROUTINE 
SKETKKKSEEKTKKKKASEKAKSEREREKSKSCKE CKKESAKESEKEAHKKTSESEKETSE HE CESHCKSEACSESHE CESSES 
* ROUTINE 8 QUICK SEEK CHECK - SEEK BETWEEN 100 & 101 = CHK EACH * 
* 10 FOR EXPECTED TRACK * 
RKEKKEKSEEKSEKKEKASERKKCE KHHK SEK HKEAESKETRASHEKE SKEKKEH CESS SEOCKESESE SESESSHCSEK SS 
RTOB DC XL1°08* 

DC XL1*O008 

oc AL2(RT09) 
OSKCHK B RECAL RECALIBRATE CARRIAGE 

MVI X*A03*,X*CB* SET CURRENT ROUTINN TO 06 

USING FRSTSK,XR2 

USING FRSTSK,»XR2 
BASE LA FRSTSKeXRI LGAD BASE REGISTER WITH BASE VALUE 

MVC ENOTOK*3(2.XR1),QCHKAD(,XR1} SET ERR RETURN FOR THIS RIN 

L RDIDIN, XR] PUT CYL/SEC (‘ROM ID FLO IN XR2 


PROG ID 0808-1 
PAGE SA 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8081 
ERR LOC 


1003 
10C7 
10CA 
10CD 
1000 
10D3 
10D6 
10DB 
1G DF 
10E2 
10E5 
1OES8 
LOEB 
LOEE 
1OF2 
10F7 
LOFA 
10FD 
1100 
1103 
1107 
110A 
L1L0E 
1112 
1116 
LLIA 
hic 
LL1E 
LiF 
1120 
Li21 
1122 
1123 


a So 1G 
1129 
1124 
112B 
112D 
1L2F 
1133 
1137 
1138 
113F 
1143 
1146 
114A 
11L4eE 
L14F 
1151 
1153 
1157 
1158 
1159 
1158 
LI5F 
1162 
1166 
1169 
116C 
i170 
1173 
1176 
117A 
1182 


DATE 
EC NO. 


PART NQ. 5134155 
PAGE 6 

5444 DISK ADJUSTMENT UTILITY 
OBJECT CODE ADDR STMT SOURCE STATEMENT acre d cone QInEL fff Sie. OG REEL MLD Coro 
38 02 0268 682 SON TBN SBYTEO,BET6 IS SSW O06 ON 
F2 10 03 663 JT LUCY SKIP HALT IF IT. IS GN 
FO 00 TF 684 HLT8 HPL K* TF*8 40 HALT 18 OR 28 ALTERED BY *SETDA® 
79 09 DB 685 LUCY SNS MINSNS(-XR1)50 SENSE CONSOLE SWITCHES 
78 FO DT 586 TBN MINSNS=-14—XR19,X°FO"® LGOK FOR HIGH ORDER F IN SWITCHES 
F2 10 3¢ 687 JT TEST2 GO TO BRANCH TO TEST OF SWITCHES 
#C O01 OF 1115 688 KVC TRACKS(Z.KRLEZFRSTSK SET UP INITIAL SEEK (DIRECTION & TREK 
C2 G62 1118 689 LA FRSTSKyXR2 SEY POINTER TO EXPECTED TRACK 
760 00 bB 490 JUDY SNS MINSNS(5XR1)49 SENSE CONSOLE SWITCHES : 
78 FO D7 691 TSN MINSNS<-2¢,XR13—ex%*FO* LOOK FOR HIGH ORDER F IN SWITCHES 
F2 10 2A 692 JT TEST2 GO TO BRANCH TO TEST OF SWITCHES 
Vil Ae 92 693 L106 L1G © SKADT PKRLPSCTRE SET CONTRGE REGISTER EFOR-SEEK--- .- 
F3 ad 03 534 $106 SIO O35 BG SEEK 
CQ 87 1603 6go5 - 8B REAGID GG RE&G iD 
20 00 LAST G3 696 Cre RDIDIN-LOL},CHKIDE . XR2} 
00 61 OA 697 BRE NOTOK {,XRi2 : SRANCH IF WRONG 1D 
Dil AG OA 698 TIO? Tig NOTOK(,XR1i},TSTERR ARE THERE ANY DISK ERRGRS? 
7C OL OQ? 699 Myi TRACKS( A KRID,|L SET NUMBER OF TRACKS TO i 
75 02 06 700 i FHDREVE sXR1L}exXR2 PUT DIRECTION xR2 
5E 30 06 33 7Ol ALC FHDRE VE ke XRL? gONEG.XR1} REVERSE DIRECTION SIT 
7B 82 06- 702 SBF FWORE Vig XR1)e2 REMOVE POSSIBLE CARRY 
36 O02 10BA 703 A BASE+3,XR2 SET CYL If POINTER 
CO 87 #10ODF 704 8 JUDY REPEAT ROUTINE 
CO 87 G212 705 TEST2 8B TEST 
Co 87 1603 706 B SON RETURN TO MINIFR HALT 
0165 1118 707 FRSTSK DC XL2°0165? 
111F 1110 708 SKAOD DC AL2(SKCTRL) 
65 111E 7399 CHKID oC XL1°65° 
64 LIIF) 6710 SKCTRL DC - KLE6as 
00 1120 711 oc XL1i°008 
ol 1121 712 FeDREV DC KLito1? 
65 Zi22 713 TRACKS OC KXiL1*%E5* 
LOAF 1224 714 QCHKAD DC AL2 (QSKCHK) 

Ti5 

TAS SXHEKEKEEEARR ESSER EERE AER EEK KE HKREKREKS SERS REEL REE 

Fly * ERRGR ROUTINE FOR ROUTINE OS AND a9 * 

T1LQ SRERSES KEE REKERAAAR KEK ARERR SE RRK RHE CELA AREER ES 
CO 87 O21A 7i9 NOGTOK 8 PRINT GO PRINT HEADING 
C2 1129 = 720 oc MLifCci? 
OL 412A) =721 OC XL1°913 
1A47 112C 0722 DC AL2 (BLANK) 
AOOE . 112E 723 DC “X¥L2* AQOE® 
CO 87-1719 724 8B UPKSTS GO UNPACK STATUS 
SC 82-1746 725 RVI ERRSTS,xX* 82° MAKE STATUS MSG AN ERROR MSG 
CO 87 iT3E£ T26 8 PRISTS GO PRINT OUY STATUS 
co 87 1752 727 B PRTID GG PRINT OUT IO 
3D 09 GAN3 728 cul X*AC3*,X*O9! 1S THIS ROUTINE 09 
F2 81 15 729 JE KIPP SKIP EXPECTED ADDR PRINT IF IT 15S 
6C 00 DF 03 730 MVC EXPIC(1sXR1)eCHKID( ¢XR2} MV IN NEXT EXPECTED ID 
CO 87 O21E 731 B UNPACK GO UNPACK IG FIELD 
o1 L14E 732 ONE DBC XL1°O1° 
L1LFA 1150 «6733 oc ALZUEXPID} 
1187 1152 «4734 DC ALZCIDEXMS) 
CQ 67 O2Z1A 735 8 PRINT PRINT EXPECTED ID MESSAGE 
B6 1157 1736 DC XL1*86* 
1B 1158 737 DC 1L1°27° 
1194 115A 738 oc ALZ2(TEXMS2} 
35 O02 1A58 | 739 KieP t RDIDIN, XR2 PUT CYL/SEC FROM ID FLD IN XKR2 
7C 7C 5A 740 MMVI HALTS42(,XR1LI2X*7C* SET 5410 ERROR HALT (0E} 
30 C4 0200 741 Cuil X*200° »x*C4# IS THIS A 5410 
BDO 81 52 742 BE BFORB(,. RL) BRANCH IF IT IS A 5419 : 
7-70 SA 743 MVI HALTS4¢2(,.XR1),xX* 708 SET 5406 ERROR HALT { 123 (3 
38 G2 0208 744 BFORS TBN SBYTEO, BIT6 1S SSW 06 ON : 
F2 10 03 745 JT. ENOTOK SKIP HALT IF SSW 06 IS ON 
FO 00 CO 746 HALTB HPL 0.0 ERROR HALT FOR RIN O8 AND RIN O9 
CO 87 0000 747 ENOTOK 8B RETURN EITHER TO RTN O8 OR *Tixe 09 
C3EBD3CODSC4SC5D9 1187 748 IDEXMS DC CLIS*°CYLINDER ID Xx® 
40C9C4460E TET 748 
15MAR72 ISNDOVT2 PROG ID 0808-1 
571669 571626 PAGE 6 


oO 


me 


0) 


2315 . 


a 
wa 


- Ne 


aE ie, 
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6081 


1188 
1193 


2295 
1196 
1197 


-¢ 319 t 
yWeD: 
1LAl 
11A5 
11Aa9 
1140 
1269 
12363 
1186 
1189 
118C 
11cG 
11¢€3 
i1C6 
11¢c9 
11¢€0 
1101 
1104 
1107 
110A 
1100 
LLEO 
LlE5 
1LE8 
LLEB 
LLEF 
LiF2 
LiFe 
L1FS 
LiF7 
LiF s 
LFS 
LIFA 
11F8 


L1LFO 
LIFE 
LIFF 


1203 
1205 


1209 
i200 
1212 
1217 
LZiA 
121D 
1220 
1224 
1227 
122A 
122D 
1230 
1233 


DATE 
EC NO. 


_ ERR. LOC DBJECT CODE — 


ADH 


SOESCIEZ4SOCSETD? 11594 
CS5C3E3CSC* 


59 
00 


L1FD 


5C 
co 
38 
F2 
FO 
70 
76 
F2 
co 
70 
71 
F3 
CO 
35 
70 
78 
F2 
Dl 
D1 
4E 
78 
D0 
co 
DO 


o% 
O01. 
87 
O2 
10 
00 
00 
FO 
10 
87 
00 
As 
AQ 
a7 
02 
00 
FO 
10 
Ao 
EO 
OO 
2 
87 
87 
87 


GOO 
LiFé 


OG 
00 
O6 
00 
99 


1195 


Oa 
00 


1403 


co 
co 


C2 
46 
4 
7C 
7 
7 
5C 
71 
D0 
7 
00 
F3 
71 


1SMART2 
571609 


87 
87 


o1 
01 
oo 
oc 
o7 
o7 
61 
As 
a7 
87 


-87 


Ao 
Ab 


qe ther agheeaees 


3° 


SE E2 
1B8A9 
6208 
03 
5F 

Ds 

D7 

2F 
18A9 
DE 

DA 

oc 
1603 
1A58 
D8 
07 
il 
OA 
95 
65 
D0 
A& 
O212 
TE 


LIGA 


288D 
1640 


1227 
E8 LAT71 
19 LAGE 
FO 
2D 
Ol 
F2 
F4 
69 
91 
oc 
00 
€E 


EC 


119° 
11% 
1198 


L1F3 
LiFs 
11LF6 
LIF? 
1YFB 
11F9 
LIFA 
LIFC 


11FD 
LLFE 
1200 


1227 


ISNGV72 
571626 


5444 DISK ADJUSTMENT UTILITY 


STMT 


149 
749 
750 
751 
752 
733 
754 
755 
755 
757? 
758 
759 
766 


. 61 


762 
763 
764 
765 
766 
767 
768 
769 
770 
773 
772 
773 
77% 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
7285 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
196 
797 


SOURCE STATEMENT 


TEXMS2 OC 


CL13° was EXPECTES® 


PART NO. 
PAGE 


- poe 


RESET KEE SSCSH Sk SS SHB SSE SKS S FSEKSER HSS HSKS KICKS KSSH S EF HECHT SHKEKSR EK EKKBS 


* ROUTINE OF — MEWIFRIEND ~ S & N BYTES IN CONS SW - LOOP ON PRT & 
* READY. . * 
KESKSER SKEET HRS GS PHM ey sky KS SEKE SACKS KS SE KSCSE CH SKSKE KEK AE SCECSESSEKE SKE SASHES 
RTO9 = OL XL1°GS= 
oC XL1*O@* 
oC AL2 (R¥@ae 
MINIFR LA  -FRSTSHeERI LOAD BASE REGISTER 
MVE OR ROR*® Zw TT CSET CURRENT ROUTINA TO.uS 000 oc te 
MVC «= ENG ION* 34 Z.XRISeMINIAD(,XR1} SET ERROR RETURN TO MINIFR 
8 SETOA. SET DEVICE ADDR aND HALTS 
BFORS TBN SBYTEG@eBI Ts 1S SSW 06 ON 
JT SCHATZ BRANCH IF SSW 06 1S ON 
MLTS HPL X*5F% eS HALT 19 OR 29 
SCHATZ SNS  MINSNS@eR1),0 SENSE CONSOLE SWITCHES 
TAN «-MINSNS—ZE,XR1),X°FC* LOOK FOR HIGH ORDER F IN SWITCHES 
JT TESTI GO 10 BR TO TEST SWITCHES 
8 SETDA SET DEVICE ADDR AND HALTS 
SNS SNBYTS#.RR1550 SET S & N BYTES FROM SWITCHES 
LIO8 =LICG MSKADDE + RR1I, CTRL LD CTRL REG FOR SEEK 
$108 SIG O»SK SEEK = 
B READIB ; 
i RDI DIN: M2 SAVE 10 FOR DISPLAY. 
SNS - MINSNS4e8R1),0 SENSE CONSOLE SWITC..ES 
TBN MINSNS—RdsXR1),X*FO* LOOK FOR HIGH ORDER F IN SWITCHES 
JT TESTA Rte GO TO.BR TO TEST SWITCHES . 
TIO9) «= TIO, NOTGK Ee MRI),TSTERR CHECK FOR ERROR 
TIG HLTIC »RRII,PRTIBSY BRANCH GN PRINTER NOT READY 
ALC REVEWIG%_KR1),MINIFR4] REVERSE THE DIRECTION BIT 
SBF: REVF@DE a KR1352 RESET POSSIBLE CARRY 
8 L108fo MRI) DO ROUTINE AGAIN 
TEST1 B TEST GO TO DCP TO TEST SWITCHES | 
B MINIFR&eKR1) ‘GO TO INITIAL HALT OF THIS ROUTINE 
MINSNS OC xL2*°000D* . 
MSKADD DC ALZ(MSE3 
MSK oC xL1'co# 
oc XL1*°00* 
REVFWD OC xL2 700% 
SNBYTS OC == XLE OG" 
EXPID DC XL2*0e* 
MINIAD DC AL 2 (MEREER) 


RARREKK SKKAKHAS CAKE HO Se TH SF SKEKE SKE AK SEKKKELEK ARSE SE HE ESKHKSEEKESSKE TIERS 


* ROUTINE OA — STAN ALL TRACKS FOR BAD DATA GR COND CHECK. * 
KeSTRESS SEER S CAEAVSSHLTHE SERS ES EEE SESKE SEELES SS HF AHSRESEKE BEETLE SSS 


RTOA oc 
oC 


oC 


SCAN B 
B ’ 
USING 
LA 
MVC 
MVC 
MVE 
MV! 
MYI 
MORSCN MVC 
L1010 LID 
FIRST 5 
Mv1 


$1610 
11011 


$18 
L109 


Xie *Oa* 
XL “OG 
AL2 (RFR, 


HALTR 
RECAL 
FIRST. ERi 
FIRST, 28S 

VOL DCE t2eaR1),B002 RESET VOL ID READ OCF 
LIMEIV*#ii3,XR1},TRACKS MV IN HIGHEST POSSIBLE CYLINDER ADD 
OCF—2 { oHR1740 RESET CYLINDER TO ZERO 

HOSwmeR ee XR1L).X*07° SET SW FOR FIRST TIME 

FIRST @EEsKR1),7 NOP FIRST SWITCH 

OCF EZ oe MARZ} ,RELOADI(,XR1) SET OCF FOR RESTART 

SSKAD Ee RRL CTRL LOAD CONTROL REGISTER 


SIBLE .4R1) SKIP SEEK THE FIRST TIME 

FIRSEORE eXR1} X*87! RESET FIRST SWITCH 

LIGIET RR1) SKIP SEEK 

OsSK DO THE SEEK 

VOCFAB .XR12,CTRL LO CTRL REG FOR VERIFY 
PROG ID OB08-1 
PAGE 6A 


COCCC CCC CCC OCHO OC ECO H COC OHC ECO OC OOO ESOS 


5134155 
"Gh 











| m3 — --* ae Mee Se 


—_ 
[18M MAINTENANCE DIAGNOSTIC PROGRAM © PART NO. 5134155 oS IBM MAINTENANCE DIAGNOSTIC PROGRAM PART MO. 5134155 
8681 5444 DISK ADJUSTMENT UTILITY ERE Rida ECKL AN CACTLO OS VUE FTW ae Flix re ee ree | 5444 DISK ADJUSTMENT UTILITY 2 ares zeecy plat reweeremermr weet ore | gtr: we ee pen Te et 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LUC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1236 F3 Al 03 816 SIO11 SEO VERsRD VERIFY INSTRUCTION ; 12F9 1CEF 12FA 884 oc ALZ(PRTA+E4) 
1239 Dl A2 12 817 TIOIO TIO %€,XR19,BUSY WAIT FOR VERIFY 12fB CO 87 1768 885 8 CLPRTA GO CLEAR PRINT AREA 
123C Dl AO 28 818 TIO1L TIO  SCNBAD(,XR1L)I,TSTERR BRANCH IF ERROR . 12FF 4D 00 FO 1LA4aF 886 CLC  COMDCF +l sXRL),TRACK® WAS THIS THE LAST TRACK 
123F 7D 00 FO B19 LIMIT CLI COMDCF41(,xXR19,0 WAS THIS THE CAST TRACK 1304 F2 81 27 887 JE $CGOOD GO TO END. 
1242 CO 81 132E 820 BE SCGCOOD JUMP WHEN SCANS ARE COMPLETE 1307 DO 87 1F 888 B AOCYL ( eXR1) GO READ ANOTHER CYLINDER 
1246 4€ 00 FO IAOF 821 ADCYL ALC COMDCF+*L(1,XR1),B001 MAKE NEXT CYLINDER NUMBER. 130A 130C 1308 6889 VOLDAD OC AL2(*02) 
1248 CO 87 1220 822 B MORSCN GO TAKE ANOTHER SCAN 130C 90000002 130f 890 VOLOCF DC XL4*00000002* 
823 1310 LEFF 1312 691 DATAD OC AL2(DISTBL-1} 
B24 ERE EK ESSE SES BOER EEE OESES ORES ESEEE 1312 002F 1313 892 RELOAD OC XL2*OOG2F * 
825 * SCAN ERROR PRINT ROUTINE * Loe ph. Wed, arte, Laie Ge é _.. 1324 1316. sends 38 1315 893 VOCFAD BC -AkZ«¢CQMOCF) betr core re veers ot eZ eee: MS are 
B26 HERES ERHE SESE ES EEESESERESEEETERERS 1316 894 COMOCF EGU * a soy 
124F 827 SCNBAO EQU *# 1316 0000062F 1319 895 DCF DC XL& *OG0000 2F * 
124F CO 87 1768 828 °° 8 CLPRTA CLEAR PRINT AREA 131A 131A 1318 896 SSKAD OC AL2(*) 
1253 F2 87 15 829 DSW oJ CHARLY Q BYTE CHANGED BY PROGRAM 131C 0101 131D 897 oc XL2*0101? 
1256 7C 87 2D 830 - MVE HDSW2(,XR1),X*87° SET FIRST TIME SW TO RUN ; 1Z1lE DS5D6460C4C1E3C140 1329 898 NODAT DC CL12*NO DATA READ® 
, , 3259 CO 87 C21A 831 8 PRINT GO PRINT FIRST HEADING ~ 1326 D9GSCIC4e 898 
125D CL 1250 832 pC MLL°CL® 132A 132A 1328 899 NOMGAD DC AL2(*) 
125E€ 08 125€ 833 DC IL1°08°* 132C 9000 1320 900 oc XL2*0000°*. 
125F 1369 1269 834 pe AL2(SCMS) = 90) 
1261 A000 1262 835 DC XL2*A0008 G02 €XRREOEE EERSTE SE EREEETERSE SESE ESSE 
1263 CO. 87 O2Z1A an 8 PRINT GC PRINT ERROR MSG HEADING aoe : ees aac e ce Se 
1267 82 1267 83 oc XLL*82¢* : : ee 7 ae 
1268 48 1268 838 DC Screg 132E CO 87 164D 905 SCGOOD 8 RECAL RETURN CARRIAGE TO CYLINDER ZERO 
1269 13B4 126A 639 pc AL2(SCMS1A) 1308 906 USING VOLDADsXRi 
1C9B 840 USING PRTAyXR2 1332 C2 01 1308 907 LA VOLCAD,XR1 LD BASE REGISTER 
1268 C2 02 1C9B 841 CHARLY LA PRTAy XR2 1336 71 ab OC 908 LIOL3 LIG VOLDADE,XAR1I,CTRE SET TO READ VOL LABEL 
126F CO 87 1719 842 8 UPKSTS - GO UNPACK STATUS. port} oc ou orrt: 1339 72 A4& 06 | 909 LIO14 LIO ,DATADL,xXR15DAT. SET DATA ADDRESS Bea ee 
1273 8C OA 2A 1068 B43 MYC PRTAC42¢L1eXR2),STSMSG SET STATUS EN MSG 133C F3 Al 62 910 SI101i3 $10 OFAGeRD , READ VOL LABEL IN DIAG MODE 
1278 CO 87 1603 844 8 READID GO READ ED FLD INTO *RDIDIN® 133F Dl A2 34 911 TIG13 TIO *(€,XR13e5USY WAIT FOR READ 
127C CO &€7 1770 845 u CNVBTD 1342 OC O1 2346 1C07 912 MYC SCMSG342) DESK PUT DRIVE AND DISK IN MESSAGE 
1280 1317 1281 846 oc AL2(COMDCF4L) 1348 CC 05 13BE 1FO8 913 MVC SCMSG3—-6(6) ;-DISTBL¢8 GET VOLUMN LABEL a 
12862 8C 0. 03 1A58 847 MVC =—s- PRT A¥. 3.03 e XRZ2) ,DCTR2 SET EXP CYL IN MSG 134E OC 02 1387 1F02 914 MVC SCMSG3-13(3),D1STBL+2 GET *vOL* 
1287 CO 87 177D 848 8 CNVBTD 1354 CO 87 O21A 915 8 PRINT PRINT LOENTIFICATION LINE 
1288 LAST 128C 849 oc ALZ(RDIDIN-1) 1358 46 1378 916 DC KL1°46* 
1280 8C 02 O08 1A5B 850 MVC PRTA*8(3,XR2) eDCTR2 SET ACT CYL IN MSG 1359 32 1359 917 oc 1t2°50* 
1292 CO a7 O21E 851 B UNPACK UNPACK OCF INTO MESSAGE 135A 13£6 1358 918 DC AL2¢(SCMSG4) 
1296 04 1295 852 OC - Xt1"04? 135C aooo 135D 919 DC XL2°A000° ee 
1297 1319 1298 853 DC AL2(COMDCF 43). 135— CO 87 1201 920 B SCAN GO CHECK ANOTHER P ACK 
1299 1CAD 129h 854 ec AL2(PRTA+18) 1362 CSE7D74060C1C3E3 1369 921 SCMS OC CLE*EXP ACT® . 
1298 CO 87 021E 855 8 LUNPACK ~ GO UNPACK RO ID FIELD ~ f 136A C3E8DS6060C3E8D3 1394 922 oC CL4&3*CY¥a--CYL—-CTRL FLO--RD ID FLD--STATUS BYTES® 
129F 03 129F 856 DC XLE"O3° 1372 6060C 3E3D90340C6 922 
1Z2A0 1AS8 >. 12Al 857 oc AL2(RDIDIN} 137A D3C%6060D9C440C9 922 
12A2 1€B6- - 12A3 858 oC AL2(PRTA427) 1382 C440C603C46060E2 922 , 
1244 31 A6 1328 859 LIOt9 C10 NOMOAD,CTRL LOAD CONTROL REG 138A E3CLE3E4E240C2E8 922 
12A8 F3 AO 00 — 860 SIO17 SIO O*SK . NO MOTICN SEEK TO SET HEAD TO O OR 2 1392 E€3C5E2 922 ia 
12AB 71 AS EA 861 LIO15 LEO ODA. ADE, XR1),DAT LOAD DATA REGISTER 1395 6060C6C9NSE2E340 1384 923 SCMSI1A DC CL32*°——FIRST 12 BYTES FROM BAD SECTOR® af 
IZAE 71 AO EE 862 LIG16 LIG VOCFADI,xXR1),CTRL LOAD CONTROL REGISTER 139D FIF240CZESE3C5E2 923 
12BL 1C OO 1LAAB F2 863 MVC WORKC1),OCE(.XR1) SAVE RESIDUAL SECTOR COUNT ; - 13A5 £0C609D6D440C2C} 923 os 
1286 5C O01 F2 EC 864 MVC OCFEC2,XR1)eRELOAD(,XR1) RESET THE DCF “. 13AD C440E2C5C 3E 306D9 923 
12BA 4&F OO F2 1AAB 865 SLC OCF(1,*R1) »WORK SET SEG COUNT FOR RD DIAG 13B5 ETETETSOE7ETETE? 1304 924 SCMSG3 DC CLIG® XXX XXKKKX ON KX 
12BF F2 02 08 866 JKM = DON 13BD ETET40D60540E TET 924 = 
12C2 BC 1B 49 1402 867 MVC = PRTA*73626,XR2) eVDATOK SET DATA GK MESSAGE 13C5 “@B40C5D09D9D6D9E2 1366 925 SCMSG4 DC CL34*~. ERRORS,» IF ANY ARE PRINTED ABOVE? 2 
12C7 F2 87 29 868 J GEORGE 13CD 6840C9C64CC1D5E8 925 
12€A GS OB LFGB 1329 869 DON MVC OILSTBL#11¢12) eNODAT SET ERROR IF NO READ 13D5 40C109C540D7D9C9 925 ~ | 
1200 F3 Al 02 870 SI1014 SIO OLAG,RD READ BAD SECTOR 1300 O5E3C5C440C1C2D06 925 
1203 Dl A2 AC 871 T1016 TIG *€,XR1),BUSY WAIT FOR DIAGNOSTIC READ 13€5 €5C5 925 ‘ 
1206 OD 08 1329 1FOB 872 CLC NODAT(12),DIST@L*¢11 OLD ANYTHING READ? , 23E7 C4C1E3C140060240 1402 926 VOATOK OC CL26®° DATA OK - CHK STATUS FOR ERR® 
¥20C F2 81 OF 673—Cit JE FRED SKIP UNPACK IF IT OID NOT 13EF 6040C3C8D240E2E3 926 
12DF CO 87 O21E ' B14 8 UNP ACK UNPACK 1ST 12 BYTES OF DATA 13F7 CLE3E4E240C6D609 926 
12E3 OC 12€3 875 sy of iL1*12¢ 13FF 40C50909 926 oe 
12E€4@ 1FOB F2E5 876 oc ALZ2EDISTELeL1) : a: 927 SEEEEEESSSEEEEAREEREESEESE SHRESESEEESESEEEESESS SEES HS REESE SRAEKASCHEVEREROE * 
12E6 1CE0 ' 12€7 B77 oC AL2(PRTAC69) 928 * ROUTINE UB — ADJUST DATA SEPARATOR BY LISTENING TO THE PRINTER ® 
12€8 BC SC 47 87s NVI PRT At7T1(,XR2),X%*5C* SET LEFT FLO MARK IN SG 4 : 929 ROR ENS ONEEEEE CESSES 73 4EEEESETEREEDTERERESESESEES SES OF SESESEEESSE SESS SSS ’ 
12€68 BC 5C 54 879 MVI —-—- PRT AGB4( e XRZ) KSC? SET RIGHT FLD MARK IN. MSG Ne 1403 08 1403 930 RTOB OC xLl*oB* = 
1ZEE 8C O08 53 1FOB 880 FRED MVC PRTA463(12-XR2),DISTUL411 SET PACKEG CATA IN MSG 1404 00 | 1404 931 oc xL1°00* 
12F3 CO 87 O21A 881 GEORGE 8 PRINT PRINT ACT -— EXP = CTRL - ID — DATA 1405 1448 1406 932 bc ALZ(RTOC? 
12F7 82 12F7 882 oc xL1*82° . . 933 
12F8 54 . 12F8 883 oc TLI°S4*. 1407 934 USING DATSEP.XR1i 
¢ 
DATE  15MAR72 15NOVT2 @ - PROG 1D 0B06-1 DATE  15MART2  25NOVT72 PROG ID oeoe=1 
EC NG. 571669 571626 
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BOB1 5444 DISK ADJUSTMENT UTILITY Pies “ate Mae ele tee een th abe Rta, the h ane -B0B1 5444 DISK ADJUSTMENT UTIQETY 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1407 C2 O01 1407 935 DATSEP LA DATSEP,XR1 LOAD BASE REGISTER 14D5 DO 10 07 1003 BT ENCO( RED RESTART FF Swi iS AT F 
1408 CO 87 188D 936 B HALTR 14D8 BDO 87 17 1004 B PLUSI Es RB) GO MEASURE FORWARD 
1460F CO 87 164D 937 Bs REAL | RECALIBRATE THE CARRIAGE : 1408 0000 140C 1005 REVTIM DC = xL2*00G0° REVERSE MEASUREMENT 
1413 4€ 00 40 1Aa4F 938 MVC =—- SKOUT(1-XRL)eTRACKM SET CE TRACK IN CONTROL WORD ‘y 2402 1606 RUN EQU = #-1 
1418 5C 00 3A 40 939 MVC = DOGDCF-2115XR1),SKCUT(,»xXR1} SET CYLINDER ADDR 14D0 0000 14DE 1007 FRDTIM DC XL2 "S000" FORWARD MEASUREMENT 
1410 71 A6.3E 940 LIOL7 LIG CETKADC,XR1),CTRE LOAD CONTROL REGIS TER ; ; 145€ 1008 STRTUP EQU S-i 
141F CO 87 0212 941 B TEST ALLOW TEST FOR SWITCH CHANGE . 14DF 0006 14ES 1009 SNSC OC XL2*0060* 
1423 F3 AO 00 942 SIOL5 SIO O6,SK - SEEK TO CE TRACK 1010 
3426 71 AG 38 943 £1018 Lis ROGAD(SXRLEG CTRL SET CTRL REG FOR READ “3 . TOLL Sesnaeseuceenssesnsceerecs Cues SNS HSReKNENSEEEN EKO SESHeEASEEEaEREREE 
1429 4C O1 3C 1313 944 MVC - BGDCFI2-. MRE} -RELOLD RELOAD: CONTROL WORD. =546 464356050 ee eu ca eeans eked nh wt eee ed SROTE PRINT MESSAGE IF HIGH SPEED ACCESS * 
142€ F3 Al 03. 945 SIO1é SIG VER,RO VERIFY TRACK TO USE THE DATA SEPAR LOLZ SEEETEOASEHEKREKESREHSEOSS ST HEH ESAKESS SE HKKEKKKESREAKEKE SCARSRKHSSRERESERTR 
1431 Dl A2 2a 946 TIO1S TIG %*f£,xXR1}, BUSY WAIL FOR VERIFY 14E1 34 08 14F9 1014 HSTST ST EHSTST#3.4RR SET RETURN 
1434 C1 AO 17E3 947 TIQ16 TIO SHORT,TSTERR BRANCH ON ERROR . 14E5 38 04 OAODL 1015 TBN AO. BITS ‘TEST FOR HI SPEED FEATURE 
1438 7C O00 40 948 Mv SKOUT( yXR1050 SET CTRL TO NOMO SEEK ; ““ 14£9 £2 90 OA 1016 Jf EHSTSE JUMP Tf NOT HS FEATURE 
1438 DO 87 15. , 949 B LEOL7G XR? GO VERIFY AGAIN , - ; 14EC CO 87 O214 1017 8 PRINT 
143E 1440 143F 950 RDGAD it AL2(*42) ~ 14FO 46 16FO 1018 DC XL1°467 
1446 O00CBI0ZF 1443 $51 DGNOCF cc XLS *OOCBOO2F * 14Fi 22> 14F1 1019 DC IL 1°34" 
1444 1444 1445 $52 CETKAD DC AL2(*)} el I4F2 1518 14F3 1020 oc AL2(HSMSG) 
1446 01CB - 1447 953 SKOUT DC XL2°01CB* “ 14F4 A000 14F5 1021 DC XL2‘acoa* 
QG5G RERERER ESTEE REET EETERERESES TKK THREE ERE REE EG EE SEEKS KE REKEESEEEER REE RES 14F& CO 87 GO00 1022 EHSTST 6 0 RETURN 
955 * ROUTINE OC — ADJUST ENCODER BY LISTENING TO THE PRINTER * . 14FA DOC5DO4D6E5C540C% 1518 1023 HSMSG OC CL3“*REMGWE DISK CARD E6 FOR RTN C OR D* 
856 Se et or eet et CRON eREtLTe SET ESESETESLES ES Wy SEES EAH ESSER ETERS ~~ 1502 C9E20240C3C1D9CS 1023 
1448 OC 1448 957 RTOC DC KLL*OC® s 159A 40C5F540C6D6D940 1023 
1449 00 1449 958 pc XL1*OO* = . 1512 D09E3D540C 3490D6D9 1023 
144A 151C 1448 959 DC AL2(RTOD) Me 151A 4004 1023 
940 1024 FEE SEAS SERAREKE ES SESSA RRS HHH SKERASEKLE SSS SALA SEKKES ES SHAKEEL AAE AR SEEKS 
1440 961 USING ENCODE *xXR1 3 Leese sus oa 1025 * ROUTINE OD — ABSUST STEPPER SPEED BY LISTENING TO THE PRINTER © 
144C C2 O1 144C 962 ENCODE LA ENCODE, XR1 LOAD BASE REGISTER ae eva? xe 1026 * ¥RACK CROSSING MUST BE JUMPERED ON ATTACH BOARD * 
1450 DO 87 95 963 B HSTST(»XRL? GO TEST FOR HI SPEED 1027 # EF SUMPER IS NOT IN PLACE», JUMPER LOCATION wILl  * 
1453 CO 87 1680 964 ENCD 8 HALTR 7 1028 # PRIBT CUT. * 
1457 CO 87 1BIA 965 ENCOST B JMPTST GO TEST FOR yuMPR 4 oer * LO29 SESE SAEERERS KEKE HEES THEEE KEE SEKEE SERRE SL KERSERKE EE EKA ETEK AEHEEEKSS 
1458 CO 87 1463 - 966 8 PLUS1 GOOD RETURN, CONTINUTE ON 1030 
145F CO 87 1453 967 B ENCD RESTART ROUTINE : Z 163] 8¥SEESKEEEREREERESEERESERE EEKEEEKEEEEKES KES EERE RAE ES BECKS ERE SESEREKEESE 
1463 C2 02 0001 968 PLUS1 LA 1.XR2 PUT 1 IN MEASUREMENT COUNTER a . 1032 * * 
1467 3C 64 1A66 969. MVI = SKDCF 100 SET FOR 100 TRACK SEEK 1033 *XR2 FD FE FE 00 CF DO//FF * 
1468 31 A6 1LA6C 976 LIG21 LIG SKDCADsCTRE LOAD CCNTROL REGISTER ; 6 1034 *T.C.P. C I 2 3 4 52 53 * 
146F F3 AG 00 971 S109 SIO ),SK DO MEASUREMENT SEEK Me : , 1935 Beene ne ee nee ee an oe. ee = 
1472 70 A3 94 “972 SNSi8 SNS = 5NSC4¢XR19,A3 * LOOK FOR NO JUMPER : 1036 * i 12 | 11 14 bd ti * 
1475 78 02 93 _ $73 TEN  SNSC-10,XR1),B1T6 * ATTACHED sO bss 2 1037 * ----- eee eee mee] fom ee meme + * 
1478 DO 10 08 974 BT ENCOST¢,XR1? RESTART 1F NO JUMPER Mer * 1038 *SNSX 6776666666776666666 8899999990066666667766 666 6688999999900 * 
147B 70 A3 94 : 975 SNSi2 SNS  SNSC,XR1),A3 * LOOK FOR START OF © : 1039 *COUNT CCCCCCCCC _ CCCCCcCcce * 
147E 78 02 93 . 976 TBN SNSC~14,XR1), BITS » FIRST MINUS TRK CR PULSE . 1040 *COUNT STGRED IN *STRTUP? *RUN® * 
1481 DU 90° 2F 977 | BF SNS12(9XR1) : ‘ 1041 * * 
14€4 70 A3-94 $78 SNS13 - SNS SNSCO,XR1},A3 * LOOK FOR END OF . 1042 SEF SES SEEKS KE SE SHAS S HE EECREEEKESESCLESERKSESKEKETEE SE PAKS E EKSRKSATEVESE 
1487 79 02 93 . 979 TBF SNSC-1€_XR1),BIT6 * FIRST MINUS TRK CR PULSE . 1043 
148A DO 90 38 980 BF SNS13(,_XR1} . 2 i51C OD 151C 1044 RTOD DC XL1*OD* 
148D 70 A3 94 $81 SNS14 SNS  SNSCC,XR1L)D,A3 * LOOK FOR START 3F 151D 00 151D 1045 cc XL1*oo* 
1490 78 02 93 982 TBN = SNSC-1€2XR1), BITS * SECOND MINUS TRK CR PULSE I51E 1526 | 151F 1026 oc AL 2(RTQED | 
1493 DO 90 41 983 BF SNS14(4XP1) XM ; 1047 - 
1496 70 A394 © 984 SNS15 SNS  SNSCt-XR1},A3 * LOOK FOR END, OF 14DC 1048 USING REVTIM@_KR1 
1499 79 02 93 985 TBF = SNSC-10,XR1),81T6 * SECOND MINUS TRK CR PULSE ss 1520 C2 01 0000 1049 LA Oy XRE LOAD BASE REGESTER 7 
149C DO 90 4A 986 BF SNS1i5{>XR1) * SECOND MINUS TRK CR PULSE . 1522 1050 ORG *—2 
249F 76 02 1A 987 ONEMD A PLUS14¢30,XR1) 2XR2 INCREMENT MEASUREMENT COUNTER 1522 140C 1523 1051 oc AL2(REVTIM: 
14A2 70 A3 94 988 SNS16 SNS  SNSCUeXR1)2A3 * LOOK FOR START DF . 1524 DO B87 05 1052 B HSYSTi oRRES GO TEST FOR HI SPEED ACCESS 
14A5 78 04 93 "989 YBN SNSC-1(,XR1),BIT5 * HEAD SETILING 1527 CO 87 1680 1053 STEPR 8B HALTR 
1448 DO 90 53 $90 BF ONEMO(,XR1} GG COUNT AGAIN 152B CO 87 1LBIA 1054 STEPER B JMPTST CHECK FOR JUMPER, 
14A8 38 O1 1A65 991 TBN SKOCF-1,B11T7 TEST FOR FORWARD : ; 152F CO 87 1536 1055 B MORED GOOD RETURN, CONTINUE RIN D 
14AF F2 90 OA 992 . JF NOTFUD JUMP IF NOT FORWARD : 1533 DO 87 4B 1056 B STEPR EE eRREE RESTART ROUTINE : 
1482 74 02 92 993 ST FHDTIM¢sXRLD,XR2 STORE FORWARD MEAS UREMENT 1536 70 87 BS 1057 MGRED MV} STFRST#21-KR1),X°S87" TURN ON FIRST TIME Sw 
1485 38 O1 1465 994 SBF SKDCF-1,BIT7 SET REVERSE IN CONTROL WORD 7 1539 C2 62 FFFD 1058 LA X*FEFD* .XR2 SEY COUNT, LOOK FOR TRK CROSS # 2 
1489 DO 87 17 995 8 PLUS1(.XR1L) GO MEASURE REVERSE - 153D 1C 01 1A66 ES 1059 MVC SKDCFE23 eSEEK6S(,XR1) SET CTRL FIELD FOR 64 TRACK SEEK 
14BC 74.02 90 . 996 NOTFWD ST REVTIM( XR19,XR2 STORE REVERSE MEASUREMENT 1542 31 A6& LAGC 1060 L104 LIQ SKDCAD,.xX*a5* SET SEEK DCF 
14BF 5D 01 90 92 997 CLO = REVTEM(2,KRL) gFMDTIM( sXR1} ARE THE TIMES EQUAL Ae 1546 F3 AOD 00 1061 S104 S10 O,x*aQ* SEEK INSTRUCTION 
14C3 CO 84 17CC 998 BH LONG RETURN FROM LONG IS ARR+6 ' 1549 70 A3 ET 1062 SNS19 SNS | SNSENEeXRLILAZ * LOOK FOR JUMPER NOT 
14C7 CO 62 1TE3 999 BL SHORT ‘RETURN FROM SHORT IS ARR 154C 78 O02 E6 1063 TBN SNSIN—B&eRR1) BITS * ATTACHED 
14CB8 3C O01 1a65 1000 SETFWD MVI SKDCF—-1,B1T7 SET FORWARD DIRECTION IN DCF Sue Md 154F CO °10 1528 1064 BT .STEPER GO PRINT JUMPER MSG IF NO JUMPER 
14CF 70 00 94 1001 SNS SNSCU,XR1I,0 GET SWITCHES : : 1553 70 a3 ET 1065 SNS6 SNS  SNSENE @MR29. KAR! SENSE TRACK CROSSING ‘ 
1402 78 FO 93 e 1002 TBN SNSC—149 XR1),X* FO? Sw 3 1S F? 1556 79 02 €6 - 1066 TBF SNS IN—2€,RR13,B1T6 LOGK FOR TRACK CRISSING PLUS 
DATE ISMAR7T2 = LSNOV72 PROG ID 0808-1 DATE 15MART2 15NOV72 PROG 1D 0808-1 
EC NO. 571609 | 571626 3 | | PAGE 8 @c no. 571609 571626 . PAGE BA 
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BOB1 544% DISK ADJUSTMENT UTILITY. Bue eee Site untesee Glgauiits shes 


Bee .. weer Sane Seitenssis. 8081 5444 DESK ADJUSTMENT UTILITY | 





ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT a 
1559 DO 90 77 1067 - ~~ BF SNS6(,XR1) LOOK AGAIN IF NOT PLUS 15€F 78 80 5A 1135 TBN SNSE1(,XR19,x*80° IS SCAN DESIRED 
155C 36 02 1A6F 1068 A -- 80014,xR2 INCREMENT T.C.P. COUNTER 15F2 F2 90 03 1136 JF RESET DON'T TURN ON SCAN BIT 
1560 F2 81 OC 1069 JZ STLP2 GO TO NEXT LGOP : 15F5 7A 02 4F 1137 SBN S1O184109XR1)2eX*02" TURN ON SCAN BIT 
1563 70 A3 ET 1070 SNST SNS = SNSIN(GeXR1)eX*A3! SENSE TRACK CROSSING 15FB SC O1 60 5A 1138 RESET MVC RDWDL2~XR19eSNSEL(®XRID SET SEC COUNT AND SECTOR ADDR 
1566 78 92 E6 2 1071 TBN SNSIN-1(,XR1) BITS TEST FOR TRACK CROSSING 15FC 78 CO 60 1139 SBF RIWDI,xXRL)D»xK*CO® . RESET UNUSED BIT IN SECTOR COUNT | 
1569 DO 90 8T 1072 BF SNS7U_XR1} WAIT FOR TRACK CROSSING TO GO MINUS : ISFF 78 03 SF 1140 SBF RDWD-1(.XR1),x*03° RESET UNUSED BITS IN SEC ASDRESS 
156C DO 67 77 1673 B ~ SNS6_XR1) GO TO BYPASS NEXT TRK CROSSING PULSE 1602 70 00 58 1141 SNS  -SNSE(4XR1 990 SENSE SW FOR HALT 
156F' 1074 STLP2 EQU * 1605 78 FO 57 1142 TBN SNSE-1(,XR19,X"FO® SWo1 IS F?- 
156F 70 A3 ET - 1075 SNSB SNS  SNSINGsXR12,X"A3! GET TRACK CROSSING 1608 DO 10 04 1143 BT HALTE(,XR19 STOP TO CHANGE SWITCHES ae 
1572 78 02 £6 1076 TBN .SNSIN-144XP19.BIT6 LOOK.FOR MINUS TRACK CROSSING. .. .. ... 1608.72 A662. 1144 L109 LID SKEAD(sxXR1)eC TRE LOAD CTRL REG ; Pte i ae 
1575 DO 90 93 1077 BF SNS8(_XR1) LOOK AGAIN 160E F3 AO 00 "4945 $1012 S10 -O45K-- “ WOMO SEEK TO SET HEADS -- = ee 
1578 70 A3 ET? a 1078 SNS9 SNS SNSIN(,XR19,X*A38 GET TRACK CROSSING 1611 71 AG SC 1146 LIO12 LIG RDWOAD( + XR1) 9 CTRL LO CONTROL REG 
' 1578 79 02 E6 1079 TBF  SNSIN-1(5XR1) ,BIT6 LOOK FOR PLUS TRACK CROSSING : 1614 31 AG 1311 1147 11020 LIO OATAD,DAT LOAD DATA REG 
157E E2 02 01 — ; 1086 LA 1(4XR29,xXR2 INCREMENT COUNT 1618 F3 Al 00 1148 SI1018 SIG ORD Q BYTE CHANGED BY PROG FROM SWITCHES 
1581 DO 90 9C 1081 BF SNS9U—XR1) LOOK AGAIN 1618 01 A2 51 1149 TIO8 TIQ = ®( 9 XR1), BUSY WATT FOR READ 
1584 70 A3 ET 1082 SNS10 SNS = SNSIN(,XR19,X"A3! GET TRACK CROSSING oS 161E DO 87 2E 1150 B ~ RESET(,XR1) GO DO IT AGAIN 
58% 78 02 £6 3083 TEN SNSIN-10—XR1),B1TS LOOK FOR MINUS TRACK CROSSING 1621 0000 1622 1151 SNSE o0C XL2*0000° 
- 158A E2 02 O1 1084 LA 1(,XR2)4XKR2 INCREMENT COUNT 1623 0000 1624 1152 SNSE1 DC XL2*0000° 
158D DO 90 AB 1085 BF SNS10(,XR1) LOOK AGAIN 1625 1627 1626 1153 ROWDAD OC AL2 (#42) 
-1590 F2 87 22 1086 STFRST J STFRTM GO TO STEPPER 1ST TIME 1627 O0000CD00 162A 1154 RDWD OC XL4*00000000* 
1593 34 02 140C 1087 ST RUN, XR2 STORE TIMING FROM TRACK 52 1628 1628 162C 1155 SKEAD OC AL2(*) 
1597 1D O01 140C c2 1088 CLE =RUN(2},STRTUPE(,XR1L) =ARE TIMES EQUAL : 162D 0000 162E i156 SKWD OC XL2*0000° 
159C CO 84 LTCC 1089 BH LONG RETURN FROM LONG IS TO ARR+4 i 1157 EOREEEE RE EERES SHED EE EEROE EERE SEEDS EOEREROR SEER SENS EF ORORS ERS EROSK ENE RE 
15A0 CO 82 17E3 1090 BL SHORT RETURN FROM SHORT IS TO ARR oT eae 6 , L158 S¥KSES ERE EEER EA EKE EEERERESKESESE SEKEEEEEKERS EEKEE KEKE EO WAKES EEKSEKEERERESE 
15A% 70 00 E7 1091 SNS = SNSIN(»XR1),0 SENSE CONSOLE SWITCHES Sh te 1159 *s SUBROUTINES = 
1S5AT7 78 FO E6 / 1092 TBN SNS IN—1€,XR12_x° Fo?! 1s Sw Ll SET To €? lle6c SKKHCKSEASTSE KEK HK SESTASEKEEKES HECK SESRSKSEKKEKKS THE SSE ESE FS EKEKEEEKNSEEKE EEESE 
ISAA co 190 1527 1093 BT STEPR m4 RESTART ROUT INE IF YES 1161 ESKKEKESEKE SECS HKEKKEKESK SEK SEKEEKSESAKEAESSS STE SKE SEKRESERSE SKKSTSECSEKSESDERESAVRERK 
15AE CO 87 164D 1094 B RECAL RESTORE CARRIAGE ao 1162 : = 
15B2 DO 87 5A 1095 B MORED(,XR1) GO MAKE ANOTHER MEASUREMENT 1163 #4ESSESERES ERE SEREESES ERS SEEESERESEEES ELSES EETESE SH OF BEEEEEEEE EREE SEEDY 
15B5 74 02 02 1096 STFRIM ST STRTUP(»XR1) yXR2 STORE TRACK 2 TIMING _ 1164 * SEEK TO HIGHEST TRACK FOR NUMBCR OF SEEKS BEING TESTEO. * 
1588 7C O07 BS5 1097 MVE «= -STFRST4#1(eXR1)—eX"O7" TURN OFF 1ST TIME SWITCH ~ z 1165 * CARRIAGE MUST BE AT CYLINDER 00 TO ENTER THIS ROUTINE * 
1588 ¢2 QO2 FFCF 1098 LA X*FFCE®.xR2 SET COUNT TO GO TO TRACK 52 1166 £#¥4E4EEERETEKEEE SEEKS EESESES EAE SESESEEKESEKKESSEEKER ES EES ESE OES EKA RESEE 
158F DO 87 77 1099 8 SNS6U_¢XRLI 162F 34 08 164C 1167 LACER ST EL ACER4+3, ARR STORE RETURN 
15C2 0000 15C3 1100 SNSIN OC XL2*90008 1633 OC O00 1A7B 1A4F 1168 MVC RCLOCF(1),TRACKS SET HIGHEST TRACK NUMBER 
15C4 0140 15C5 1101 SEEK64 DC XL2°01408 S & N FOR 64 TRACK SEEK 1639 3C O1 LATA 1169 MVI =s- RCLDCF-1,Xx*01* SET FORWARD BIT 
1102 FFSEREREAEREEE SERESEEAASEE SERRE EAE EEE EERE SEEES EERE SE HESEEE OE OR EERE EE : 163D CO 87 1640 1170 B RECAL ; 
1103 * ROUTINE E ~ SHORT SCOPE ROUTINE FOR READING DISK * 1641 3C EO 1A7B - gy MVI =- RCLDCF, X* E0* RESTORE RECAL DCF - 
L1O4 SHEKEEETEREEKER EERE EERE SS SERKEERE ERED ERERDERER EONS $6 SENSES OSES ERE ES 1645 3C CO 1A7A 1172 MvI RCLDCF-1,X*00°* RESTORE RECAL REVERSE 
1195 * SWITCH 12 & 2 * SWITCH 3 & 4&4 * 1649 CO 87 C000 1173 ELACER B e-2 RETURN 
1106 ¥---—~- Se ree aw a me ne ee ee HE ae a aoe a HE om a ae Sa ae i ee nen a cine cee an mene Se ener eee ae - 1174 
‘1107 * oO 1 2 3 4 5 * 6 7*0O *®X* 2 3 4 5 6 7 , 7 ‘ — LL 75 S888 EEE EEEE SE ESSE E SESS SERECERREKEEEEES EERE SS TE SEES AAEETSESESE SEARED 
= 1108 *- Sr me eee am a ane ee an SE ene ca a ee ia a ae ine eee If ae a ee eee oes ee 1176 * RECALIBRATE SUBROUTINE ; . 
hes 1109 * SECTOR ADDRESS * OPERATION * . S&C TOR COUNT * ~ TLV 7 89299448 EKE HESS KESERHE SS EECKESESERHEREKAESERESE TS SEKE SSE EKEKEERESEESEEKESS 
i110 # Fame 8 #-—--* MAY BE 00 THRU 2F * 164D 34 O08 1670 1178 RECAL ST ERECAL43,ARR STORE RETURN 
1111 * UPPER HEAD * DATA 0 0 O READtH—~~-~— a es 1651 Cl AG LOTE 1179 T1033 TIS  BCALER,X*A0* ERROR TEST BEFORE RECAL 
1L12 * 00 THRU 5C * ~~ ID © 1 OO READ*® ON SK SYSTEMS USE ONLY * - 1655 31 A6 LATT 1180 L163. LIO RCLADR»xX*A6? LG CTRL REG FOR RECAL 
1113 * _ * DIAG 1 O* O READ* OO FOR SECTOR COUNT * 1659 F3 AO 00 118i S103 SIO O,x*ao® RECALIBRATE 
1114 ™ LOWER HEAD * VERIFY 1 1 O | READ* ON READ DATA OPERATIONS * és 165C 30 A2-1A51 1182 SNS3 SNS  SNSOA1,X*A2* *LOOK FOR SEEK 
1115 ® 80 THRU OC * ~~ EQuU GC OO 1  SCANt*SSeKeESSt CHESS eEEREE ES 8ee 3 : 1660 39 10 1A51 1183 TBF SNSOA1,x*10° *BUSY BIT DROP 
1116 *#eeeeeeeeeee% 8 =LOW/EQU 0 1 1 SCANS 1664 CO 90 165C 1184 BF SNS3 BR IF STILL BUSY 
1117 * * HIGH/EQU 1 #O 1 SCANS 1668 38 O1 1ATA 1185 TEN RCLDCF-1.x'01°. DON'T CHK FOR ZERO ON FORWARD SEEK 
1lls * * NOT USED 1 2 1 SCAN® ; ; 166C F210 07 1186 JT TI04 7 
1119 * FEKOEADRESEES EERE EEEEESES ORERD 166F 38 40 1A51 1187 TBN SNSOA1,X*"40!* ACCESS AT CYL O00 
15€6 OE : 15C6 1120 RTOE oC XL1L°OE® 2s 1673 F2 90 35 1188 JF RCALER BR TO RECAL ERROR PRINT 
15C7 00 15C7? 1121 DC XL1*00° : 1676 Cl AO 16AB 1189 TI04 TIG RCALER,X*A0* ERROR TEST AFTER RECAL 2 
15C8 FFFF 15C9 1122 oc XL2°FFFFS 167A CO 87 0000 1190 ERECAL B +2 RETRUN BRANCH 
1123 167E CO 87 1719 1191 BCALER B UPKSTS GET PRESENT STATUS . 
15CA 1124s USING SCOPE, XR1 1682 39 40 1A50 1192 TBF SNSOA1-1+X*40° INTERVENTION REQUIRED? om 
15CA C2 01 1SCA 1125 SCOPE LA SCOPE, XR1 LOAD BASE REGISTER 1686 39 80 1452 1193 TBF SNS2A3-1.X*80* UNSAFE? 
1SCE CO 87 188D 1126 HALTE 8B HALTR L68A F2 90 04 1194 JF LNT PRT BR TO INTERVENTION REQ PRINT IF EITHE 
1502 70 00 5A 1127 SNS  SNSE1L1,XR19,0 SENSE SW FOR PROG LOAD _ oo 168D CO 87 1655 1195 B 1103 RETURN TO REACL ROJTINE - 
1505 CO'87 16D3 . 1128 8. READID GO GET ID FROM DISK 1196 
1509 4C O1 SE 1a57 1123 “vc ROWO-2(2,XR1)eROIDIN-1 SET F & C BYTE IN CTRL WORD Pe. = LIOT S824 98S 6S CSREES SE SKEKEEEESE SECKEESECES EH ES EEERKEREEES EF ESSEKECEREKES EES EE 
ISDE 5C 00 50 59 1130 MVC =—- S101842(1+XR1),SNSE1-10,XR1) GET CONTROL @YTE KS 1198 * RECALIBRATE ERROR PRINT OUT IF NOT READY AT START * - 
15E2 7B FC 50 1131 SBF S$1018420,XR1) »X*FS* SET TYPE OF REAU 1199 £049 24699S488E42EH E44 F4EEE SEEKERS EESES EEREREERES ERS RE KEEKEEEERESREKES EE 
15E5 5C 00 63 59 1132 MVC] =—- SKWO-1019XR1) oSNSEI-1(,XR1) PUT HD BIT IN SEEK WORD : 1691 CO 87 021A 1209 INTPRT B PRINT GO PRINT RECAL ERROR 
1SE9 78 TF 63 1133 SBF = SKWuU-10,XR19,X° TES TURN OFF EXTRA BITS ; 1695 C2 1695 1201 oc XL1°C2° me 
1SEC 7B 02 4F 1134 SBF S1018410exXR1)eX*02* TURN OFF SCAN BIT 1696 20 1696 1202 oc 1n1°32¢ 
DATE  15MART2 _1SNOVT2 | PROG ID os0e-1 DATE  15MAR72  15NOVT2 PROG ID tall 
EC NO. 571609 571626 
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IBM MAINTENANCE DIAGNOST R 
STIC PROGRAM oe NO. ee ee PAGE 104 
BOBL 5444 OISK ADJUSTMENT UTILITY stokes Gases ekdda Nopehs peat ote te x. ad ede Wa Seaoss ee, BOBl 5444 DISK ADJUSTMENT UTILITY 1s 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1697 1LEEC 1698 1203 DC AL2 (CENTVRQ) 1742 CO &7 O21A 1271 8 PRINT GO PRINT STATUS LINE: 
1699 AOFE 169A 1204 oc XL2°AOFE® 1746 06 1746 1272 ERRSTS OC XL1*06* THIS BYTE ALTERED BY PROG 
169B CO 87 1719 1205 8 UPKSTS GO TO UNPACK STATUS 1747 18 L747 1273 oc IL1*"24° 
L6OSF 3C 86 1746 1206 MMVI =—- ERRSTS_X*86° MAKE PRT STATUS AN ERROR MSG ; : 1748 1068 1749 1274 DC AL2(STSMSG) 
1643 CO 87 173E 1207 8 PRTSTS GO TO PRINT STATUS 174A 3C 06 1746 1275 MVI - ERRSTS 26 MAKE PRY STATUS NON ERROR MODE 
1647 CO 87 16C9 1208 8 EHALT GO TO ERROR HALT 7 174E CO 87 G00O 1276 EPRTST B o—* RETURN 
1209 ia 1277 , 
1210 REE HAKKAR ES CKEAKREKLEKS KEKS KKK SEE RECA ESET HERS OE SEEEREKE AER SESRR RES 1278 ee ee ne Rose RR rey, ero ge 
1211 * ERROR OCCURRED DURING RECA R R x. 1z79 * PRINT OUT THE LAST READ 1D FIELD 
Are ; L212 maUdus Gus Cseheuesseesses 00c1s ocaccesscnesic eee ee ee L280 BHHKRESE SESE ES EETERSESEKSESTHKE SHES GF SEKHAGSERETSHASKTSKSHS HS ORO GST SETI ESSERE 
1643 CO 87 O21A 1213 RCALER B PRINT PRINT RECAL ERROR MESSAGE . 1752 34 68 176A ‘1281 PRTIO ST CEPRTIDESS ARR. « SAVE RETURN ADDRESS 
LOAF C2 AGAF 1214 DC = XL *C2° 1756 CO a7 O21E 1282 B UNP ACK GO UNPACK RD ID INPUT AREA 
16BG 15 x 1680 1215 DC TLL®2}°2 . 1754 03 175A 1283 pC XL1*O3* 
16Bi 1BFC 1682 1216 DC AL2(CALMSG} 1758 1A58 i75C 1284 DC AL2Z(&DIDIN) 
1683 AOFE 1684 1217 oc XL2"AOFE® 1750 18C3 175E 1285 oc AL2¢IDERMS) 
1685 CO 87 1719 1218 8 UPKSTS GO UNPACK STATUS 175F CO 87 O21A 1286 B PRINT 
16B9 3C 86 1746 1219 MVI ERRSTS_X* 868 MAKE PRT STATUS AN ERROR MSG . 1763 86* 1763 1287 DC XL1°66° 
168D CO 87 173E 1220 B PRTSTS GO PRINT STATUS 1764 36 1764 1288 oc TLie5ae 
16C1 CO 87 1603 1221 B READIO GO READ ID 1765 1BE7 1766 1289 oc AL2Z(I CALL) 
16C5 CO 87 1752 1222 8 PRTID 1767 CO 87 9000 1290 EPRTID B 0 RETURN TO CALLING ROUTINE 
16C9 CO 87 0222 1223 EHALT 8B HALT GO PRINT SEEK ERROR MESSAGE 1291 ; 
16C3 AOFE 46CE 1224 oc XLZ"AOFE® L292 SHEARS EER SEEKEESKERSE ARES DESKS D TEESE SEEKER ERASERS SORES SERRA EES 
1oCF CO &7 i8s, 1225 8 T103 GO TRY AGAIN 1293 * CLEAR PRINT AREA er * 
1226 FRERKEE REESE ERE EERE EEE REE EE ESSE EEE EEERERESERERREEEEERE HHEEEEEES ERR ORES 1294 S8SSHEEREE REESE RAERSSSESESS SKKE SERS STKE LKEK SEEKS SEKE KE OERERARR ASAE KERRERE 
1227 * READ ID FIELD INTO *RDIDIN® * -~ 1768 34 0&8 177C 1295 CLPRTA ST ECL PRT +43 ,ARR SET RETURN 
1228 BHERERERRE ERE CHERESERRS ES EE ER EREEEES SOE OD HEE ES OSES EE EKERE SEEKER RE ER EES 176F 3C 40 ICFA 1296 MVI PRT AtS5.X540" SET CLEAR CHARACTER 
1603 34 08 16FO 1229 READID ST EREADI 43, ARR SAVE RETURN ADDRESS 1773 OC 5E 1CFS 1ICFA 1297 MVC = PRTA4#941955,PRTA4S5 CLEAR PRINT AREA 
1607 31 A6 16F2 1230 LI022 LIG RIDCAD,CTRL LOAD CTRL REG FOR SEEK ~ 1779 CO 87 0009 1298 ECLPRT B eee, Vee ee RETURN see 
1608 F3 AO O00 1231 SIG019 SiO 0+SK SEEK TO SET HEAD L299 SSCS SEREAEARHESE SHKEKASESEERES EEE ECEEFESEES SEKE SKEET KT HE CEKKSKESESKEKEESESEAG 
16DE 3C FF 1A58 1232 MVI  =—- RDIOIN, X*FFS RESET 1D FIELD 1300 * CONVERT 1 BYTE OF BINARY TO DECIMAL. ARR] POINTS TO. * 
16E2 31 A6 LAA 1233 L105 LIO ITDADDRSCTRL LOAD ADDR OF ID OCF es 130i * ALZ2{ ADDRESS OF BYTE TO BE CCNVERTED) * 
16E6 F3 Al 92 12346 $105 Sia 10,20 , DO READ ID L302 SHE SERSERE HAE REEEKSKERAKEASEESERSST ESR ESARFL SESREREKE KE SKEATE RES SSESEE SSIES 
16ES Cl A2 16E9 1235 TIG12 TIO *,BUSY ; WAIT FOR READ ID 177D 34 08 i7ac 1303 CNVBTD ST POINT*#5, ARR SAVE ARR 
L6éf> CC 87 0000 1236 EREADI B 0 RETURN 1781 O£ O1 178C AGF i304 ALC POINT#5(2),8001 SET PARAMETER POINTER 
1OFi LOFL A6F2 1237 RIODAD DC AL2(*) 1787 OC 01 1792 CoCS 2305 POINT MVC GETBYT4#5123,0 GET BYTE POINTER 
16F3 0000 16F4 1238 RIDDCF DC X¥LZ2'GO900° SSW 27 CONTROLS bHICH HEAD 1780 OC SO 1468 0900 1306 GETBYT MVC BCTR2¢1440 GET BYTE TO BE CONVERTED 
1239 1793 OC O1 17CB 178C 1307 MVC E€CNVBT4312}),POINT*5 MOVE POINTER TO RETURN 
1240 FRSA ESE ES ERESS SEEKS SER ERES SERS TERT ERE SE KESE ERE RS CERES SE TSERESEEEAEROERE EEE 1799 O€ OL LTCB 1A6F 1308 ALC ECNVBT#3(23,8001 SET RETURN POINTER 
1241 * CLEAR TABLES USED WITH ROUTINES 1 THRU 7 * 179F O7 O2 1858 1A5B 1369 Sz DCTR2133 ,DCTR213} CLEAR DECIMAL COUNTER 2 
1242 REXARESESREEEE SASK RE RETAE RAT EHR AEKE SESE EET SES ERE EERE EERERS ORD AROSE 17A5 34 O01 1A4C 1310 ST S¥XR1—eXRI SAVE XR1 
16F5 34 08 1718 1243 CLRTBL ST ECLRTB+3,ARR STORE RETURN ADGRESS . L749 35 O1 1A68 1311 L BCTR2,XR1 - SET XR1 TO BINARY VALUE 
16F9 OF FF LFFF LEFF 1244 SiC DISTBL 42554256), 01STBL4+255 CLEAR DISTRIBUTION TABLE L7AD C6 20 1LA5B 1440 1312 MORCNV AZ DCTR2(33,0001 (1) ADD 1 TO DECIMAL VALUE 
16FF OT O2 1A62 1462 1245 $2 S1OCY(3},S1GCYi3) CLEAR SIO COUNTER ; 1783 36 O1 1A75 1313 A BMO1.XR1 SUBT 1 FROM BINARY VALUE 
1705 OF CC LECC 1LECC 1246 SLC = CYC TBL#204(205) -CYCTHL4#204 CLEAR PER CYCLE TABLE 1767 CG 84 1LTAD 1314 BP MORCNY TAKE ANOTHER CYCLE 
1768 3¢ FF 1DCC 1247 MVI IOTBL4+204,X" FE AV IN CLEAR CHARACTER 176B F2 81 06 1315 JE ASTL 
I7OF OC CB 10CB 1DCC 1248 MVC =—s- 1. BL #2034204 3,10TBi+204 CLEAR 1D STORAGE TABLE 17BE O7 O02 156 1ASB 1316 $2 DCTR2{3},DCTR2(3)} SET OCTR TO ZERO IF BVALUE WAS ZERG 
1715 CO 87 C060 1249 ECLRTB B *—2 RETURN TO MAIN PROGRAM A7C4 35 O1 1ASC 1317 ASIL OL SV¥XR1sXR1 RESTORE XR1_ 
1250 17C8 CO 87 COCcS 1318 ECNVBT & ° RETURN TO ARR}2 - 
L251] 8#RRERSEERENE SHEER REE SEE EE REEE SEE EEES SEER EEE EE ORE EEE OOO8 04K EOEEEEEEES . 1319 ; 
1252 * UNPACK STATUS — INTG FORMAT XX XX XX XX AND PUT IT INTO * 1320 FORESEES EREKE SH EKEEE SEES SEES EEERERERERES REESE SSEREE SE EERE RIESE SSE SEEKERS 
1253 * *STSMSG* (11 BYTES). . | 1321 * ACCGUSTICAL PRINT ROUTINE - PRINTS & LONG OR SHORT LINE OF #°S @ 
1254 * ALSO PUTS THE @ STATUS BYTES IN *"SNSOAIt» AND * | 1322 * DEPENDING ON THE ENTRY POINT. RETURN FROM ENTRY TO LONG IS * 
1255 * *SNSZ2A3°. * 1323 * ARR+4,_, AND RETURN FROM ENTRY INTG SHORT IS ARR. * 
1256 FERRERS SESEEEERESH EEE ESE $HEEE ESSERE EES OE8EEEE ERED OE EEREEEEE DEE SERERE OD 1324 S¥SSRER HEED HES EHRERESERAKSHESES CARELESS CHASE SEESEE ASSES SS EHAKE GY SESEE SE ESHED 
1719 34 08 173D 1257 UPKSTS ST EUPKST43,ARR SET RETURN 17CC 3C 50 180F 1325 LONG Vi NOISLN, BO Q BYTE JS CHANGED BY THE PROGRAM . 
171D 30 A2 1A51 1258 SNS4 SNS  SNSOAL)X*A2® SENSE STATUS BYTES 0 & 1 1700 OF O1 146DC 14DE 1326 SLO -REVTIM(2),FHDTIM CALC DIFFERENCE 
1721 30 A3 1A53 1259 SNSS SNS SNS2A34X°A3* SENSE STATUS BYTES 2 & 3 1706 34 08 18195 1327 ST ESHLO+3,ARR STORE RETURN ADDRESS 
1725 CO 87 O21E 1260s 8 UNP ACK GO UNPACK SENSE 17D4 OF O1 1819 1A73 1328 ALC ESHLO+ 312) -B004 MAKE RETURN ARR 
1729 04 1729 1261 oc XL1°04* 1TEO F2 87 16 1329 J NGI SE GO YO PRINT NOISY LINE 
172A 1A53 1728 1262 DC ALZ2(SNS2A3) 17E3 3C 0% 18OF 1350 SHORT Mvi  NOISLNS SET LINE LENGTH FIR QUIET LINE 
172C iCFA 172D 1263 pc AL2(PRTAC95} 17E7 OF O1 L4DE 14DC 1331 SiC  -FHWOTE#{2),REVTIM CALC DIFFERENCE 
172E OC’ OA 1C68 1A93 1264 MVC «= STSMSG(11) sEDIT3 MOVE IN STATUS EDIT WORD) 17ED OC 01 140C 14DE 1332 MVC = - REVTIM(2).FWDTIM SET DIFFERENCE 
1734 OA OA 1068 ICFA 1265 ED STSMSG(1L1),PRTAS95 EDIT STATUS BYTES 17F3 34 08 1819 1333 ST E SHLG43,5 ARR SET RETURN ADDRESS 
1734 CO 8&7 0000 1266 EUPKST 8 *—* RETURN 17FT 3C 5C 1CEB 1334 NOISE MVI . PRTAtBO,A°5SC® SET NOISY CHARACTER 
: L267 F#SEESESEES SHS OESEEEEEEESEESES HE48 08 448 S 08ST EEEEEE EE 84909008080 EE EE 17FB OC 4E 1CEA 1CEB 1335 MVC PRTA*7T9179),PRTA+8O MAKE MANY NOISY CHARACTERS 
1268 * PRINT STATUS - | 1801 CO- 87 O21E 1336 8 UNP ACK GO UN PACK COUNTERS 
Ne 1269 8484446980648 8409E8O8S OSES SSeS EOE OE 2988 TS EREREESE ES RARER REREEREEEREEE * 1895 02 1805 1337 oC XL1*°O2* , 
A73E 34 08 1751 1270 PRTSTS ST EPRTST4#3,ARR SET RETURN 1806 14DC 1607 1338 DC AL2(REVTINI 
DATE A5MART ISNOVT2 PROG 1D 0808-1 DATE 15MAR72 15NOV72 PROG ID 0808-1 
EC NO. 57160 571626 PAGE 10; . EC NO. 571609 571626 PAGE 10A 
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5444 DISK ADJUSTMENT UTILITY 


OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1CEB 1809 1339 DC AL2(PRTA+480) 1808 3C C7 1870 1403 MVI JUMPars—-15,C0°G* 
CO B87 O214 1340 8 PRINT PRINT NOISY LINE 18DC 30 A3 1A53 1406 LISA SNS = SNS2M3.A3 
01 180E 1341 oc KL1°O1® 1BEO 38 O1 1A52 1405 TON SNS27@3-1,B1T7 
O12 180F 1342 NOISiN OC 1L*O1® CHANGED BY THE PRIGRANM 18E4 F2 9C 1E 1406 JF KURE 
1CEB 1811 1343 DC AL2(PRTA480) 1BET 3C 14 17CD 1407 MVI LONGe2.20 
CO 87 1768 1344 8 CLPRTA CLEAR PRINT AREA 18EB 3C 48 1182 1408 MVI HLUTSe2. X*48° 
co 87 cocD 1345 ESHLO 8B 9 RETURN TO EITHER ARR GR ARR I8EF 3C 40 10CC 1409 aVI HL Ge2,x*40* 
1346 18F3 3D 03 1181 1410 C.l HLT We}, x* 03° 
134647 SRERHEKAEEERERET ES EREESETA EEE KERSEERKS EAEKEKE KEES EES OE $REEEEE REESE RERERE 1SsF7? F2 81 O7 14611 JE KARE 
1348 * JUMPER TEST ROUTINE FOR ROUTINE OCs AND OD. ©... _* _18FA 3C 10 1181 1412 AVI HEF S2,x*10° 
1349 SERS ERR EEKEKE ESSE EERE OS REKS CAESAR TRAE KKERERAKSEKE EEKEREEKAGT EE ETHER ISFE F2 BY 06 | 1413 J MRR 
34 08 1866 1350 JMPTST ST EJMPTS43.,ARKR SET RETURN 1901 3c 08 118) 1414 KARL AVI HL FG@ek, x’ oe? 
CO &7 164D 1352 B REC AL ES 1905 OC 6O 16CB 1181 1415 KURT MVC Hi TeeR 11) HLT OO 
OC O1 1A66 OATS 1382 MVC SKOCF (2) sEWDSN2 SET SEEK TO FWD 2 TRACKS * 190B 3C BA 192C¢ 1416 MVI SEY ERS. SBN 
31 A6 1A6C 1353 1107 41193 SKOCAD,CTRL LOAD CTRL REG FOR SEEK 190F 3C C6 1006 1417 MVI DESM—3,C°RF® 
F3 AG 00 1354 SIO? SIC 0, 5K 0G THE SEEK 1913 38 60 O20A 1418 TAN SBY¥ FE2.SSW10 
30 AB 14E0 1355 SNS12 SNS SNSC,A3 SNS TRACK CROSSING 1917 F2 ¢C O8 1419 JF SEF 
38 G2 14DF 1356 TBN SNSC-1,58116 IS JUMPER ON? 191A 3C BB 192C 1420 wy SEW Em?., SBF 
CO 160 184F 1357 BT CHK yMP GO PRINT JUMPER MESSAGE IDLE 3C O9 1006 1421 Mvi DiSK-32,C*R* 
30 ABS 14EC 1358 SNS17 SNS SNSC,A3 SNS TRACK CROSSING 1922 35 Gi 19AE 1422 SET L DATRAD, XR1 
38 02 14DF 1359 ~ BN SNSC-1,B1TS6 LGOK FOR TRACK CROSSING MINUS 1926 75 02 00 1423 LDADOR t O€_e MRL), xXR2 
CO 10 185F 1360 BT PEEK BRANCH IF JUMPER IS ON e 1929 BE 10 00 1426 SETINS SBF OG se KR29,X*10° 
38 04 i4DF 136) TBN SNSC-1,B1T5 HEAD SETTLING YET? 192C 8B 08 OO 1625 SETINZ SBF Ote MRZ),X*'O8* 
CO 90 1838 1362 BF SNS17 GG SENSE AGAIN 192F 02 01 02 1426 LA 2 eKR4A),XR1 
CO 87 O2Z1A 1363 CHYIMP B PRINT PRINT JUMPER MESSAGE 1932 1D 01 1LAT5 CO 1427 crc BM@EG@2).O0%,xXR1) 
46 1853 1364 BC XL1*46° 1937 CO Of 1926 1428 BNE LDABDR 
26 1854 1365 oC ILi*t3st ; 1938 O08 01 0B439 1C07 1429 W7N Hi FED, DISK 
18é6c 1856 1366 DC AL2(JUMPMS} ~ 1941 08 53 9339 OAD3 1430 MANN HUT ERD, X*A03° 
AQ00 1858 1367 DC XL2*A000* 1947 OC 00 OD2F CB39 1431 MVC FRSFEN(1LI,HLTCOD 
OE O1 1866 1AT3 1368 ALC EJMPTS43(23,B004 SET BAD RETURN 1940 OC 00 DEA 0839 1432 MVC ERMOBD(1)»HL™COD 
CO 87 164D 1369 PEEK 8 REC AL RESTORE CARRIAGE ~ 195, OC 00 LEEC 1CO7 1433 MVC INF WROQI1),0°SK 
Co 87 OC00 1370 EJ#HPTS 8B 0 RETURN 1959 OC OO IBFC 1C97 1434 MVC ChE mMSE(1) DISK 
CIOSEZE3C1030340 188C 1371 JUMPHS DC CL38* INSTALL JUMPER FROM W3G2G04 TO w3R2P1LO8 195F OC OO LA4SF OBLA 1435 MVC TRAERKHI1),TRK1O0 
OLESD407C5 094666 1371 1965 OC 02 0827 OBLE 1436 MVC RYE (3),.CYC100 
DSD6ED440E SF 3CTE2 4137) 196B 30 A2 LASSI 1437 SNS1 SNS SNSGAI,X*A2* 
CTFOF440E30640E6 1371 196F 38 08 A521 1438 TBN SNS@AI,X*O8" 
F3DOF2D7F1LFO 1371 1973 F2 10 OC 1439 JT TS¥27 
1372 1976 OC OO LASF OB1LB 1446 MYC TRAERH#(1)3,TRK200 
L372 FHHR SERRE ERAS ERE AEE RET ERE EE ERE KE EEE ES EAEE ES REESE EREE TS OO KEREE 197C OC 92 0827 0821 1441 MYC RV WOR (3).CYC200 
1374 * MASTER HALT FOR ROUTINES G7 AND OA THRU OE * 1982 3B 80 OB16 1442 TST2T SBF F BSN], BITO 
1375 MR A a a aa a HE OEE EE EE EEE EES REE SERRE EEE 1986 38 8&0 0818 1443 SBF REWSR-] ,BITO 
34 08,.18A8 1376 HALTR ST EWHALTR#3,ARR STORE RETURN 198A 3B 80 16F3 1444 SBF RIGMCF~1,51T0 
CO 8? 18A9 1377 B SETCA SET HALCOD 198E 38 01 O290C 1445 TBN SBYFEG,SSu27 
OC OC 18A0 0839 i378 MVC HLTROL)HLTCOC SET THIS HALT 1992 F2 90 OC 1446 JF PREEAD 
CO 87 G222 1379 8 HALT 1995 3A 80 OB16 1447 SBN FHuOSN-—1,B1T0O 
A000 18AO 1380 HLTR oc XLZ*A000? 1999 3A 80 OB18 1448 SBN REWSN-1,B1TO 
CO 87 18A9 1381 B SETOA SET DISK AND SPINDLE 1990 3A 80 16F3 1449 SBN RISC -1,B1 TO 
CoO 87 Ooo00 1382 EHALTR 6 0 RETURN 19A1 35 01. 1A4C 1450 PREEND L S VRRRe KRI 
1383 S8HT REESE TEESE EEE EEE ORE SEEK EERERETEEEREERESS SEREKE EKER TEKEREEERNE EEX 19A5 35 O2 1LASE 1451 i S WAR» XRZ 
1384 * SET FIXED OR REMVBL», ORIVE 1 OR 2, RTN # IN PROG AND HALTS * 1949 CO 87 O000 1452 ESETDA 6 ee 
1385 * * 19AD 1980 19AE 1453 DATBAD DC AL2ZEDAT St ) 
1386 * TO ACD ANY DISK I/O INSTRUCTION ANYWHERE IN THE PROGRAM * 19AF OB99 1980 1454 DATBL DC ALZELINI+1) 
1387 * ADD A CONSTANT IN THE FOLLOWING FORMAT TO THE TABLE BELOW. * 19Bl OBAD 19B2 1455 oc AL. 2848 10241) 
1388 * * 1983 1656 1984 1456 oc ALZELI03¢1) 
1389 * AL2¢*LABEL OF INSTRUCTION‘ 41) * 1985 1543 19B6 1457 oc AL2@4 304+15 
1390 SEEKER ECAEES ERS ELE RSTS SEHK SERS HE SAESHRAREEE RES HE KERKEERARETR ES ERE EE 1987 16E3 1988 1458 oC AL2Z@L 70541} 
34 O08 LOAC 1391 SETDA ST ESETDA4#3,ARR SET RETURN 19B9 1lOE9 19BA 1459 oc AG 2ELID6+1) 
34 O1 LAST 1392 ° ST SVXR1.XR1 SAVE XR1 19BB 182¢ 19BC 1460 oc AL2Z@ULI07+1) 
34 02 LASE 1393 St SVXR2_XR2 SAVE XR2 19BD 114 i9BE 1461 oc AL? €@ 30813 
3C BA 1929 1394 MVI SET INS, SBN CAUSE BIT3 IN DA TO TURN ON 19BF 160C 19CO0 1462 oc ALZ #30941) 
3C 76 L1iBi 1395 MVI HLT941,X* 76* SET HALT IN RTN 9 FOR ORIVE 2 - 19C1 1225 19C2 1463 oc AL 28470101) 
3C F2 1C07 1396 MVI DISK,C*2' SET MSG FOR ORIVE 2 19C3 1234 19C4% 1464 oc AL2ZEE701141) 
3C Cé 18670 1397 AVI JUMPMS~15,C°F® SET JUMPER LOCATION FOR DRIVE 2 19C5 1612 19C6 1465 oc AL ZOE 10124+1) 
38 10 O20A 1398 TBN SBYTEZ»SSu13 CHECK FOR ORIVE 2. 19C7 1337 19C8 1466 Dc AL# 4 101341) 
F2 10 10 1399 JT LISA BR TRUE TO CHK FOR 35406 19C9 133A 19CA 1467 oc ALZS64.101441) 
3C 8B 1929 1400 MVI SETINSs» SBF CAUSE BIT3 IN DA TO TURN OFF 19CB 12AC 19CC 1468 oc ALPE IO1L5+1) 
3C 03 1181 14901 MVI HLT941,X*03* z SET HALT IN RTN 9 FOR ORIVE 1 1S9CD 12AF 19CE 1469 OC ACZ EL 101641). 
3C Fi 1C07 1402 MVI DISK,C*l1* SET DISK MESSAGE TO DRIVE 1 OCF 1410 19D0 1470 oc 4X 206 101741) 
e 
15MAR72 L5NOV72 PROG ID OB08-1 DATE 15MART2 15NOV7 2 
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SET JUMPER LOCATION FOR DRIVE 1 
LOOK FOR CPU MODE 

IS THIS A 5406 

JUMP IF IT 1S A 5410 

SHORTEN NOISY PRINT LINES FOR 5406 
SET RTN 9 HALT TO 5406 HLT ID 
SET RIN® HALT TO 5406 HLT 1D 

IS ORIVE 1 SET IN RTN HALT 
BRANCH IF IT IS SET FOR DRIVE 1 
MV IN 5406 ORIVE 2 HALT IN RTN 9 
GO SET RIN 6 HALT te . 
MV IN 5406 ORIVE 1 HALT IN RIN 9 
SET DREVE NUMBER IN RTN B HALT 
CAUSE BITS EN Q BYTE TG TURN ON 
SET DISK MESSAGE FOR FIXED 

TEST FOR REMOVABLE PACK 

JUMP IF NOT REMOVABLE 

CAUSE BITS IN Q BYTE 3G TURN OFF 
SET MSG FOR REMOVABLE DISK 

SET TABLE POINTER IN XR2 

PUT Q@ CODE ADDR IN XR2 

SET DEVICE ADOR {CAN BE SBN) 

SET DISK (CAN BE SBN} 

INCREMENT KR1L BY 2 

LOOK FOR END OF TABLE 


CHANGE START HALT 

MOVE ROUTINE NUMBER TO HALT ID 
CHANGE 1ST LINE PRINT 

SET ERPOR PRINT IDENTEFICATION 

SET ERROR MSG 

SET ERROR MESSAGE 

MV EN SMALL MODEL HIEST ID 

MV IN SMALL MODEL EXPECTED # OF SIG 
GET SENSE 8SYTE O AND 1 


LOOK FOR 100 TRACK 


JUMP IF MODEL 1 

MV IN BIG MODEL HIEST ID 

MV IN BIG MODEL EXPECTED # OF SIO 

SET UPPER HEAD FIR FORWARD 

SET UPPER HEAD FOR REVERSE 

SET READ 10 FOR UPPER HEAD 

USE LOWER READ HEAO? = 
GO TO NEXT Sw TEST IF NOT 

SET LOWER HEAD ON FORWARD 

SET LOWER HEAD ON REVERSE 
SET READ IO RTN FOR LOWER HEAD 

RESTORE XR1 

RESTORE XR2 = 
RETURN 
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PAGE 12 z PAGE 124A 
BOBl 5444 DISK ADJUSTMENT UTILITY Geen setae: chee eheat eed eek. oie ata vee ee eee eee 2. BOBL 5444 DISK ADJUSTMENT UTILITY z 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
19D1 1427 1902 1471 oC AL2(L101641) 1448 0000 LA4C 1539 SVKR1 OC XL2°O° STORAGE FOR XR1 * 
19D3 12A5 19D4 1472 oc AL2(L101941) 1A4D 0000 LASE 15460 SVXR2 OC XL2*O* STORAGE FOR XR2 r 
1905 1615 19D6 1473 DC AL2(L10201) LASF 00 1ASF 1541 TRACK# CC xXLi*o" CE TRACK # ~- DETERMINED BY SNS Ac 
19D7 146C 19D8 1474 oC AL2(L1021413 : 1A50 0000 1A51 1542 SNSOAl DC XL2*O* STORAGE FOR DISK STATUS BYTES O £ 1 
19D9 16D8 1LSDA 1475 Dc AL2(L 102241) 1452 0000 1453 1543 SNS2A3 DC XL2°O* STORAGE FOR DISK STATUS BYTES 2 £ 3 
1908 OB9D 19DC 1476 DC AL2(SIO1O1) 1454 00 1A54 1544 SNPCNT DC XL1*00* CONTROLS NUMBER OF RUNS ON SNAPSHOT 
19DD OBAS% LODE 1477 oc AL2(S10241) *. 1455 00 1A55 1545 BCTR DC XL1°O° BINARY COUNTER @ 1 
19DF 165A 19EO 1478 ot AL2(S103¢1) 1A56 000000 1A58 1546 RDIDIN DC XL3*O* READ 10 INPUT AREA 
19E1 2547 19E2 1479 oc AL2(S104¢1) a 1A59 FOFGFOFOFOFOFO LASF 1547 DCTR1 OC CL7*0000000"* DECIMAL COUNTER # 1 
19E3 16E7 19E4 1480 DC = - AL2{S10541) sf * ay Habis aie weed Rae Soke ee as 1A58 1548 DCTR2 EOU OCTRI-4 _. DECIMAL COUNTER 8 2 
L9E5 1OEC 1966 1481 oc AL2($10641) 1A60 FOFOFO 1A62 1549 SIOCY DC CL3*000°* NUMBER OF SEEKS IM MEASUREMENT 
19£7 1820 19E8 1482 pc AL2USIOTe1) Ag A 1A63 CO000C000 1A66 1550 SKDCF OC XL4*9* SEEK DISK CONTROL FIELD 
19E9 11C7 19EA 1483 oc AL2(S108¢1) ~ 1A67 0000 1A68 1551 BCTR2 -DC XL2*0* BINARY COUNTER # 2 
19E8 1470 19EC 1484 BC ALZ(S10941} 1A69 1A56 1A6A 1552 IDADDR OC ALZ2ERDIDIN-2) ADDR OF START OF 1D INPUT AREA 
19ED 1231 IGEE 1485 DC AL2(S1Ui0¢1) 1A68 1A63 LA6GC 1553 SKOCAD OC AL2Z (SKDC .‘-3) ADDR OF START OF SEEK OCF 
19EF 1237 19FO 1486 oc AL2Z(SIGL1413 ~ 1a6D Fl 1A6D 1554 0001 OC XL1*FA¢ DECIMAL ONE 
19F1 i60F 19F2 1487 DC AL2(S1012¢1) ‘ 1A6E 0001 LAG6F 1555 BOO1l CC KL2*01° BINARY ONE 
19F3 133D 19F4 1486 oc AL2(S1013¢1) ; 1A70 0002 1A71 1556 8002 DC XL2°2° BINARY TWO 
19F5 1201 19F6 1489 oc Al 248101441) ~ 1A72 0004 1A73 1557 8004 DC XL2*0004* 
19FT 1424 19FB 1490 Dt AL2(S1015¢1) 1A74 FREE. 1A75 1558 BMO1l OC KL2*FFFF? BINARY MINUS ONE ; 
19F9 142F 19FA 1491 CC AL2(S 101641) 1A76 1A78 1A77T 1559 RCLADR OC ALZERCLOCF-3)} ADDR OF RECAL DISK CTRL FIELD. 
19F8 12A9 19FL 1492 | oc AL2(S101 741) ~ 1A78 OBOOOD0EO LA7TB 1560 RCLDOC§& DC XL 4 *OO0COO00E0* RECALIBRATE OISK CTRL FIELD 
_ 19FD 1619 19FE 1493 — DC AL2(S101841) 1A7C 0000 1A7D 1561 BSTART OC KL290° STORAGE FOR START OF TABLE ENTRIES 
19FF 1606 1AGO 1494 pc AL2(S101941) ds : 1ATE 00 TATE 1562 SVBSTR DL XL1*OG# S¥ AREA FOR TABLE START ON 1ST PASS 
1A01 196C 1A02 1495 DC AL2Z(SNSi¢1) ~ = 1AT7F 0000 1AB80 1563 BEND OC KL2°C* STORAGE FOR END GF TABLE ENTRIES 
1A03 0BB7 1A04 1496 DC AL2USNS241) 1A8) F2FOF4 1A83 1564 MAXSIO DC CL3* 204" MAX POSSIBLE S10 CYCLES 
1A05 165D 1A06 1497 pc AL2¢(SNS341) “ 1AB4 F2F5F5 1A86 1566 TOMUCH DC Ci.3*255* 
1AO7 171E 1A08 1498 DC AL2(SNS441) \ 1AB7 2020%*02020402026 1A91 1566 EDIT3 DC -KL12* 202060202040 2020402020" 
LAO9 1722 1ADA 1499 oC AL2(SNS541) 1A8F 402020 1566 
1AOB 1554 1A0C 15900 DC AL2(SNS641) 1A92 202048204020204B 1AA% 1567 EDIT2 OC XL19* 20 204B 20 402026482 04 04020 204820404 Be B4B* 
LAOD 1564 1A0E 1501 DC AL2(SNS741) : 149A 2040402020482040 1567 
LAOF 1570 1A10 1592 DC AL2(SNS841) 1AA2 484848 1567 
1A1l1 1579 1A12 1503 DC AL2(SNS941) é 1a95 1568 EDIT1 EQU EDIT344 
1A13 1585 1A14 1504 OC AL2(SNS10+41) . ; 1AAS 1CEi LAAS 1569 HIPRT OC ALZUPRTA+70) 
1A15 1830 1Al6 1505 oc AL2 (SNS1141) LAAT 00 1AA7 1570 OLD DC XL3*00° 
LALT 147C 1A18 15066 oC AL2(SNS12¢1) ; 1AA8 00 1AAB 1571 WORK OC XL1*°00".- , 
1A19 1485 1ALA 1507 DC AL2(SNS1341) ‘ = 1572 a 
1A1B 148€ LAIC 1505 OC ALZ(SNS1441) 1573 SEEKERS SERS HES EESSE EAE SKSEERERS SEKEOCASS ET KE EF OOESEEESSESEESEOTS 
LALO 1497 MALE 1509 oc AL20SNS1541) 1574 * BIT OF CONTROLS PRINTING IO TABLE FOOTNOTE * 
LAIF 14A3 1A20 1516 cc AL2Z(SNSi64)1) 1575 SHS SHEEEEKEEEEEREEESEEAEREESED EKESESREEESSDOSSEES SES HE EEEKETEE SERS HES ES 
1A21 183C€ 1A22 1511 oc ALZ(SNS1741) : 1AA9 90 1AA9 1576 BITSW1 DC KL1790° BIT SWITCH NUMBER 1 
$A23 1473. 1A24 1512 Dc AL2(SNS1841) 1577 
1A25 154A ~ 1A26 1513 oc AL2Z21{SNS1941) 15 7R 8E8894 8G SREEET TEREKES KEES S EFSF SPEEKSECESESE SERS VK SHE TEES ESD ESESESEEESE 
1A27 OBTC - 1A28 1514 oC AL2¢TIGLO1) 1579 © BIT SWITCH DEFINITIONS AND MESSAGES * 
1A29 OBEE: ; JA2a 1515 BC AL2(7T10241) ; LSS BHF4S58 S994 KES SEHSEESAESS EASE KSRERESS OEES EERE SESS ST SE EHKERERSESESECE AAS SS 
1A2B 1652 1A2C 1516 OC AL2(TI0341) . : 1AAA 00 1AAA 15601 BITSW DC xL1°O* ' BIT SW - CONTROLS PER CYCLE OPTION 
1A2D 1677 1A2E 1517 oc AL2(T1I0401) 1582 
1A2F OF 83 1A30 1518 oC AL2{T1i05¢)) 1AAB C4CSE2D240C509D9 14£CB 1583 BITOC DC CL33*°DISK ERROR DURING MEASUREMENT RUNS 
1519 * oC AL2(T10641) é 1AB3 D60940C4E4D9C 905 1583 . 
—21A31 «10F8 1A32 1526 oc ALZ(TIO7#1) LABB C74004C5C1E2ZE4D9 1583 
1A33 161C 1A34 1521 oc AL2(T108¢1) 1AC3 C5D4C5D5E340D9E4 1583 
1A35 1108 1436 1522 OC AL2(T10961) 1ACB DS 1583 : 
1A37 123A 1438 1523 DC AL2Z(TIG1O#1) LACC E2ZD604C540D4C5C1 1AFS 1584 BITO1 OC CL41*SOME MEASUREMENTS ARE BELOW THE LOW LIMIT® 
1A39 123D 1A3A 1524 oc AL2iTIOLL 1) 1AD4 E2€4D9C5D4C5D05E3 1584 
1A3B 16EA 1A3C 1525 pc AL2(TIO12¢1) LADC €240C1D9C540C2C5 1584 
LA3D 1340 1A3E 1526 pc AL2(T101361) LAE4 D3D6E64S0E3C8C540 1584 ‘ ' 
IA3F 1204 1A40 1527 oc AL2(T1014¢1) 1AEC D3D6E64003C9D4C9 1584 . 
1A41 1432 1A42 1528 5 DC AL2(T1G1541) LAFS £3 1584 | 
1A43 1435 1A44 1529 oc AL2(T101641) LAF5 £206D4C540D4C5C1 181£ 1585 BITC2 DC CL42"*SOME MEASUREMENTS ARE ASOVE THE HIGH LIMIT® 
1A45 FFFE 1A46 1536 DC XL2*FREFe r 1AFD E2E409C504C505E3 1585 - 
. L531 8FESERS SSE SERS OESEEESEERES EEERRERES EEEEEES EER CEES SEE SEEREEEESSEOE SSE ES | 1805 £240C109C540C 1C2 1585 : 
1532 SESESEESHERESS SEES SES ESEES £994 $085 E45 EEEEEEEEESEEE EE £0994 $408 4994 4RE SE 1B0D D6E5C540E3C8C540 1585 
1533 «* CONSTANTS ae 1815 C8C9C7C840D03C9D4 1585 
1536 S88S OES SUES EESEEES SEES ES EHS EETESS £8EERESESESOEEE SD OEENS EL EEREREEEERES OF . 18150 C9E3 1585 
; 1535 *866498 eR OS O44 SEES OES OEERE $088 8 5EEEEEKS EEE SEREREREES Hb £4OKEESREEEEREDEEKE 1B1F C4C907E240060940 1834 1586 BITO3 oC CL22*O1IPS OR SKIPS IN GRAPH® 
1A47 40 1A47 1536 BLNK DC cere *¢ 2 1B27 €202C9D7E240C9D5 1586 
1A48 5C 1A48 1537 SPLAT OC CLitee 4 - 1B2F 4CC7D9C107C8 1586 
1A49 FFOO ‘ 1A4A 1538 BM100 OC XL2*FFOO® BINARY MINUS 100 1835 ESCLOSCOCLE3C9D6 1862 1587 BITO4 DC CL46*VARIATION FROM LOWEST TO HIGHEST EXCEEDS LIMIT® . 
Cc € . 
DATE L5MART2 I5NOV72 PROG 1D 0808-1 DATE 15MART2 15NOV72 PROG ID 0808-1 
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OBJECT CODE 


£540C6D9D6B440D3 


OGEOCSE2ZE 340E306 | 


4O0C8CSC7CBCSE2ZE3 


40C5E7TC3C5C5C4E2— 


SOD3COD4C9E3 
CSO5C3D46D9N9C5T3 
E3400° €4046C2C 509 
40D6Cé40F 265C502 
E24¢0E6CSE3C 84005 
D64 (C4 C9E2D2Z40C5 
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C3C1L DYDD MN SCICTCS 
40C4C9C440D506E3 
400406 E5SC540C4E4 
DSC SRST ISOCISOEZ 
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C9C4649C6C SC S03Ce 
OCSEZSOETETETE? 
ETE? 
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DS D6RS404G4604D5 
CSESCS40E7 
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E2 
ETE? 
CéCOOSCSCSERSC IDS 
D56B4¢CE2C 9064003 
ESC3D3CSE26840E2Z 
C5C5024003C505C7 
E3C BG B4OC4C9F 202 


GO 404B48484003C gh4 


CSE3E24065040D3L5 
£64 0460E5C 10940 
490 BC 9C FC 8404848 
4B40 — 

E2E SC LESESE 240C2 
EBE3CS5E240E TE 740 
EVE PSOE TE T&0E TET 
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PART NOG. 5134155 
ae PAGE 13A 
SQURCE STATEMENT © «ee crue. Co CTEt © im Cesc ece 


SSVSKHKAKSKRSESSKSEKRSCEASKSERSE AS HSS SES SSCSSKSECSTRSESLS SSE SAS GR SKSEKSEESPSEEESSAKKESSE 
SSPISEKSCSSAERHKS SEKSSSEREASREAS SS SESE CHKTTSHSKSSS SS SECAGCT SSS STKE CKSEKLSK HSER SL SS 


ae xe 
ee NOTE: THE ACDRESS OF *HERE* MUST BE LESS THAN xf®ipog? ee 
hE oe 


R&ASSHAESKSKAKELASARAEKESSASCHS EHS SL ASPSEKASKEAKRRKESVVCSSCE KA LSEeK Se eesese ESSASKRIORSH 
FHVRKEKRRSEKARS SSS RKSEKEMHK ROK STR AHSESRHKBTETCR GLEAE SSEREERSSE ESS CLK KKKKSHKEBREKAG 


HERE FOU * ‘HERE? MUST BE LESS THAN x* 7009? 
oc ALZ(TDV8L-MERE? 
% FROM *HERE® TH X*ibooG® FS URUSED 
GRG X* poof 
TOTBL £Qu % 1DT8L BUST BE AY x¥* 10008 
DS Ci 2Ge 
RGTE OL CLEfs -ACCESS MOVED WRONG NURGER OF TRECKS On THIS SEEK® 
CYCTBL Eg & OvVCTSt MUST BE AY FP®7&9R* 
BS CizZo5 
PNT YRO BC CLACt INTERVENTION RESUZRED CN ORIVE xt 
REY oc CLT tREVERSEF 
e RD Oc CLYFUFORWARDE 
ORG KP EEoG? 
DESTSBL Edu * ®OFRSTBL* MUST BE AT Bt LFGO® 
pe Ci 255 
END Ed % 
HALT cou Xi 222% 
LinK Eau Xf216* 
{GAB EOU KF 228? 
BRINT Eg yep TA® 
FEST £Ou RPEist 
UNPACK EOL Xi27LE* 
ee TES EOuU ®* 266°" 
YTES EOL X?2GR* 
a Eau X* 25688 
SBYTES EOuU £2 zor * 
SRYTES EGU ¥* 200% 
85456 FOU y?#ga8 
SSEKEES EGY x °sa? 
S8¥#3i EQu Xt age 
SSH1zF EOL K2 20? 
SS$8i3B EGU X®4Q7 
SSeizt  EGgY K°o1e 
SSw2G EGL ¥*agrt PER CYCLE PRINT MOGE 
SSw2i EOU K°eO? 
$Sw22 EOU X°20* 
S$¥23 EGU xX®194 CHECK fFHD CLUTCH'‘ONLY 
SSe24 EQU x?*O8¢ CHECK REY CLUTCH ONLY 
$$¥25 EGU x?*04* 
SS¥#Z6 EGU KFg2ét 
SS#2F EQU K®Gi? USE LOWER READ HEAD 
SSW2E EQU Kk? sot SNAPSHOT MODE 
SSNZ29 EQU X%42G? 
SSHW¥2A EQU X°20* 
SS#2B EQU x*198 
S$W2C EQU x*988 
SS¥2D €QU X*04° REPEAT LAST PRINTOUT 
SSW2E EQU x*o2* OG ROUTINES 1 THRU 6 IF SSW2F IS ON 
SSwW2F EQU x*O]1* DO ROUTINES 1 THRY 3 ETF SSW2E IS OFF 
PROG ID 0808-1 
PaGE 13A 


Ra3447. 


18M MAINTENANCE DIAGNOSTIC PROGRAM | : | PART NO. 5136155 1BM MAINTENANCE DIAGNOSTIC PROGRAM . a PART NO. 5134155 
: PAGE we Pace ere 


BOB1 5444 DISK ADJUSTMENT UTILITY -BOBL 5444 DISK ADJUSTMENT UTILITY 








ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CRCSS-REF ERENCE 
CO80 1667 BITO EQU x*8O8 “ SYMBOL T LEN VALUE OEFN REFERENCES 
00460 1668 BIT1 EQU  x*40# . 
O0C20 1669 BIT2 EQU x*20° . a: ADCYL A005 1246 0821 0888 “ 
0010 1670 BIT3 EQU x*1lO* : , = ALLSET A 004 O&48 0431 0424 
0008 1671 BITS EOQU x*CBe ARR C001 o0008 1677 0205 0413 0559 0636 10146 2167 #%1178 #%41229 #%1243 1257 #%1270 1281 
0004 1672 BITS EQU xX*04* 2 1295 1363 1327 1333 42350 1376 1391 
0002 1673 BIT6 €EQU x*O028 hy, _ ASIL A 004 1704 1317 1315 
0001 1674 BIT? €QU x01" AO A 003 OACC 0019 1015 
OOA2 1675 A2 EQU  _xK*a2® fo A2 C 001 OOA2 1675 
OCA3 1676 A3 EQU Xx*A3® Beat htt wk aX any ee a A3  € 001 OOA3 1676 0972 0975 O978 ©O981 0984 0988 1062 1355 1358 1404 
0008 1.77 ARR EQU x *0a* BASE A 00% 1087 0679 0703 ; cue 2 a wee fee 
OOA2 1678 BUSY EQU x*A2* ; BCALER A 004 167E 1191 1179 : 
= OOA6 1679 CTRL EQU XK*AG# a a BOTR A OOk 1458 1545 0234* 0243¢ 0247 6254 6255 
O0A4 1680 DAT EQU X*AGE i BCTR2 A 002 1A68 1551 1306* 1311 
2002 1681 DIAG EQU X*02! BEGIN A 006 OA1L4 0029 1704 
0010 1682 rar EQU) xX*10" ‘ BEGINI A 004 O82C 0206 0032 0045 0058 C074 6086 92099 
COO1 1683 ID fou x*Ol* j BEGIN3 A 004 0828 0205 0030 0043 O0CS& OC72 0084 0097 : 
OOED 1684 PRTBSY EQU xX*EO® BEND A002 1480 1563 0316* 0328 6453 
OCOAD 1685 Sk €OU xK*ao* soe: BFORS A004 116C 0744 0742 
OOAL 1686 RD EQU so xx*al® : BFORO A004 1149 0763 
OOBA 1687 SBN FOU xXxX*BA? 4 BGHALT A 004 0834 0208 0302 0524 
® 32088 1688 SBF EQU x*BB* ee BLTSW A OOl AAA 1581 0228* 0232* 0250* 0278* 6283* 0322* 0332% 0336*% 0339% 9347 6446* 04661 
OOAD 1689 TSTERR EQU xX*AOD® | 0468 0474 0480 0486 0492 0498 0504 06516 0517% 0565* 
0003 1690 VER EQU x*O38 : BITSW1 A OOL AAS 1576 0605* 0623 0625* : a : 
0001 1691 xXR1i FQU _xX*O1* 2} BITO € 001 COBO 1667 0232 0343 0344 0345 ©0346 0349 0350 0352 0352 0468 les2 1443 
0002 1692 XR2 EQU = X*02¢ i 1444 1447 1448 1469 
1693 TREP BITOO A O33 ACK 1583 0473 
1694 TREP eee BITOl A 041 LAFS 1584 0479 
1695 TREP BITO2 A042 1B1E 1585 0485 
1696 TREP BITO3 A022 1834 1586 0491 » 
16$7 TREP BIT9¢ A046 1862 1587 0497 
1698 TREP BITOS A 044 1B8E 1588 0503 
1699 TREP BITO6 AO35 1881 1589 0509 
1700 TREP ‘ BIT1 C 002 0040 1668 0339 0474 
1701 TREP BIT2 C€ 001 6020 1669 0332 0480 
‘ 1702 TREP BIT3 C001 0010 1670 0446 0486 
: 1703 TREP = BIT4 C 002 oOCO8 1671 0336 0492 me 
OA14 1704 END BEGIN . BITS C 001 0004 1672 0498 0565 0989 1015 1361 ; _ 
= BIT&6 C 001 0002 1673 0250 0564 0682 0744 0763 0973 0976 0979 0982 0985 1063 1066 
: 1071 1C76 1079 #1083 1356 1359 
- BIT? C 001 0001 1674 0605 0623 0625 OS91 v994 1000 1405 
=. BLNK A OOl 1A47 1536 0386 0387 0388 0421 0422 0429 0430 0466 0661 0722 
ee BMOL A002 LATS 1558 ©6303 0313 0357 1313 1427 
: : BM100 A002 1A4A 1538 0259 
BSTART A 002 1A70 1561 0305* 0326 0333 0337 0398 
BUSY C 001 OOA2 1678 0817 O871 C911 0946 1149 1235 
80 A 003 OAOF 0020 = 
: BOB1 A 001 OACO 0003 
: BOC) A 002 1A6F 1555 0243 0256 0414 0538 0821 1068 1304 1308 = 
BOO2 AGO2 IATL 1556 0315 0327 0329 0804 
800% A002 1A73 1557 1328 1368 
CALMSG A 621 ILBFC 159€ 1216 1434 
CETKAD A 002 1445 0952 0940 
i me CHARLY A 004 1268 0841 0829 
hl CHKID A OO1 117E O09 0696 6730 4 
CHKJMP A 004 184F 1363 1357 ; 
; : CKUP A 00% OET2 0448 0443 
° CLBCTR A 004 OBBA 0234 C231 
CLERIT A 006 0C34 0284 0280 0282 6522 
CLPRTA A 004 1768 1295 0210 0317 0393 0435 0616 0828 G885 1344 
CLRTBL A 00% I16F5 1243 0227 
CNDCHK A 004 1056 0636 0230 
2 CNVBTD A 004 1770 1303 0374 0377 0380 0400 0845 06848 
q ic COMDCF A 001 13136 0894 0619 0821 0846 ©0853 G885 6893 
COMPID A 005 OFF6 0602 0599 
: CTRL C001 O0A6 1679 0693* O771* 0816* 0815* 90859% 0862% 0908* 0940* 0943* 0970 11448 1146* 
: A ‘ 1230* 1233* 13538 
CYCTBL A 001 1E00 1625 0229 1246 1246 
ihe ; : Cc 6 
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NO. 571609 571626 PAGE ae EC NG. 571609 571626 PAGE sa 
© & 


) ee eoeveon0enne0e00e00e00 


COCCCHCHC CCC HCCC CECH CCC ESOC CEC OBO OO ECE OOS 








as 
Lr ’ 
<— 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155 io 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 51236155. 
: PAGE 15 ~ v AGE 1SA 
B0B1 5444 DI SK ADJUSTMENT UTILITY i See Se a Oe Oe PPE RISE PER Re Re! Be - bo = 2 BOB81 5444 -DESK ADJUSTMENT. UTILITY... mS nt pewrer |g CTT RE TOTES TR TTT ee se etc v or = r =| 
CROSSREF ERENCE CROSS-REF ERENCE 

SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENSES 
CvC100 A003 OBIE 0195 1436 FRSTLN A 002 OD2F 0363 14319 
CYC1i01 A003 OABF 0128 FRSTSK A 002 1118 C707 0677 C678 0679 0686 C689 O75¢ 
CYC102 A 003 OACF 0139 FwD A OO7 ILEFA 1629 0364 
CYC103 A 003 OADF 0150 FWOREV A GOl 1121 O712 0700 070i 0702 
CYC104 A 003 OAEF 0161 3 FWOSN AOO2 O817 0191 0215 131442" 14478 
CvC105 A 003 OAFF 0172 FWOSN] A 002 OABB 0124 
CYCIGG A 003 OBOF 0183 FWOSN2 A 002 OAC8 O135 1352 
CYC200 A 003 0821 0196 1441 hans Ad ‘ - ree : wat -- --FWDSN3 A 002 O9ADB 0146 rote nes 
CYC201 A003 GAC2 0129 ° FWOSN4 A 002 OAESB O157 
CYC202 A 003 OAD2 0140 FWDSNS A 002 OAFB O168 
CYC203 A 003 OAE2 0151 = FWDSN6 A O02 0808 0179 
CYC204 A 003 OAF2 0162 . FWDTIM A OG2 14DF 1007 0993% 0997 1326 13343* 1332 
CYC205 A 003 OBO2 0173 FHOYES A 006 OFFO 0606 0597 
CYC206 A 003 OB12 0184 GEORGE A 004 12F3 0881 9868 
DAT € 001 OO0AS. 1680 0861* 0909% 1147* . GETBYT A 006 178D 130606 1305* 
CATAD A O0O2 1311 0891 0861 0999 1147 GG A 004 O0B49 0214 0540 
DATBAD A 002 L9OAE 1453 1422 GRAPH A004 OGDE3 93409 0407 
DATBL A 002 1980 1454 1453 , HALT C001 0222 1634 9208 1223 1379 
CATSEP A 004 1407 0935. 0934 0935 HALTE A004 I15CE 1126 1143 
OcF A 004 1319 ©0895 0806* 0809* 0863 0864* 0865* ® HALTR AOO4& 188D 1376 G&57 O80G 0936 O9@4 1053 1126 
DCTRL A OO? LASF 1547 0284 0284* 0294* 9295 0304* 0418 0427 0440 1548 HALTS A O03 1173 0746 0740* 0743 
DCTR2 A OO? 1A5B 1548 0376 0379 0382 0420 0428 0847 O850 1309 1309" 1312 1316 1316 HOSWw A 003 1253 0829 C807* 0830* 
DGDCF A004 14463 0951 0939% CS44" HEAD AOlO 1C€50 1601 0362 
DIAG C901 C062 1681 es70 0910 HERE A OOL ICFB 1616 1617 
DISK A OO2 1CO07 1598 0372 ©0912 1396* 1402® 1417*% 14218 1429 1433 1434 HI. A OOl 0824 0199 0029* 0042* 0C55* CO73I* 0C83* OC96* 0330 0381 
DISTBL A OOL 1FOC 1631 0256* 0285 0569 0569 C869* 0872 OB76 O880 0891 0913 0914 1244 : HIPRT A 302 LAAG 1569 0588 

1244* HI1l A OOL OAC5 0132 0029 
OON A006 12CA 0869 0 866 HI2 AOOl OAD5 0143 0042 
0001 A001 1A6D 1554 0236 0294 03C4& 0440 1312 HES A001 OAES5 0154 0055 
ECLPRT 4 004 1779 1298 1295* HI4 A O0O1 OAF5 0165 ooT1 
ECLATB A 00% 1715 1249 1243* HIS A GOl oOBC5 0176 0083 
FCNOCH A 004 107D 0646 0636* 0638 HI6 A 001 0815 0187 C096 
ECNVBT A 00% 17€8 1318 1307* 1308 HLTCOD A 002 B39 0209 1378 1429* 1430® 1431 1432 
EDIT? AOllL 1LA95 1568 0419 0426 4 HLTR A002 18A0 1386 1378 
EDIT2 A O19 LAA& 1567 0383 HLT8 A 003 10CA 0684 1409* 1415 
EDITS A OllL LADL 1566 1264 1568 HLT9 A 003 1180 o765 O779 1395* 1401* 14628% 1410 1412* 14148 1415 
EECNDC A 004 1081 0647 0646 HSMSG A 034 1518 1023 1020 
EERRTS A 004 1052 0632 0539*% HSTST A004 124F1 1014 C963 1052 
EWALT A 00% 16C€9 1223 1208 " TAR C 001 O010 1682 
EHALTR A 004. 18A5 1382 1376 10 C 001 0001 1683 1234 
EHSTST A 004 “14F6 1022 1014* 1016 / IDADOR A 002 AGA 1552 0239 1233 
EYMPTS A 004 ‘1863 1370 1350* 1368 IOALL A 036 1BE7 1595 1289 
ELACER A 004° 1649 1173 1167% IDERMS A O18 18C3 1594 1285 
ENCD A004 1453 0964 0967 1003 IGEXMS A O14 1187 0748 073% 
ENCDST A 004 1457 9965 0974 IDMSG A O17 1C79 1603 057% 
ENCODE A 004 144€ 0962 0961 0962 IOTBL A OOL 1000 1622 O578 12478 1248 1248 1617 
END A OO!L FFF 1633 IEXMS2 A 013 1194 6749 0738 ¢ 
ENDCK A 003 OETE 0451 0442 0445 0447 0449 INTPRT A004 1691 1200 1194 
ENOTOK A 004 1176 0747 0680* 0745 0761* INTVRQ A 032 LEEC 1627 1203 1433 
EPRTID A 00% 1767 1290 1281 JMPTST A004 181A 1350 0965 1054 
EPRTST A 004 174E 1276 1270 JUDY &4 003 LODF 0690 0704 
EREADI A 004 16ED 1236 1229 JUMPMS A 038 188C 1371 1366 1397 1403% ” 
ERECAL A 004 167A 1190 1176% KARL A004 i901 1414 14il 
ERRCOD A 002 OEAS 0467 1432 KIPP A004 1158 0739 0729 : 
ERRSTS A OOl 1746 1272 0725* 1206® 1219% 1275 KRIS A 006 O0D18 0356 0358 
ERRTST A004 OFT6 0559 0274 - : KURT A006 1905 1415 1406 1413 
ESETDA A 004 1989 1452 1391 LACER A004 162F 1167 022i 
ESHLO AOO0& 1816 1345. 1327*% 1328¢ 1333 LASTID A 004 102E 0626 0618 
EUPKST A 004 173A 1266 1257*# LOADDR A 003 1926 1423 1428 
EXCAP A004 OBCC 0250 0248 LIMIT A OO3 123F 0819 0 805* 
EXPID A OOL LIFA O791 0730¢ 0733 LINK C 001 0216 1635 0033 0046 006C GO&?3 0087 
EXPTRK A 064 OBFD 0261 0216* 0533 LIGl A 004 OB98 0237 1454 
FIRST A003 1227 O61) 0802 0803 0o808* Osi2s L1010 A003 1224 0810 1463 
FNDEND A 003 OC77 0311 0314 — LIOllL A 003 1233 0815 0813 1464 
FNOST A 003 OC3E 9291 0296 : LI1012 AOO3 1611 1146 1465 
FRED A005 12EE 0880 0873 11013 A OO3 1336 0908 1466 


” pate 15MART2 15NOV72 


PR 1D 0808-1 DATE 15MART2? 15NOV72 PRoG ID 0608~1 
EC NO.w 571669 571626 


PA 3s EC NO. 5716C9 571626 PAGE ISA 


‘ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 51234155. 








PAGE 16 ae PAGE 16A. 
6081 5444 DISK ADJUSTMENT UTILITY Sey . 5 ee Oe < BY ieee a iam ati ee : 8081 5444 DISK ADJUSTMENT UTILITY ; ae Bein ae ARS Sai: aR Sites Sao Gh ctreean a eee pan ee 
CROSS~REF ERENCE CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE OD&7N REFERENCES 
LIG14¢ A003 1335 0909 1467 . 3 PRINT C001 O21A 1637 0297 0359 0389 0632 0455 0463 0470 0476 0482 0488 0494 0500 
LI1015 A003 12AB 0861 1468 : 0506 ©0510 0571 OGR2 0620 0626 0658 O719 6735 0831 0836 0881 
£1016 A O03 12AE 06862 1469 €915 1017 1200 1283 1271 1286 1340 1363 
L101? AOO3 161C 6940 C949 1470 - PROP ACS ODED 0411 0399% 0461 0404* 0406 0408* 0416 
11018 AOO3 1426 2943 1471 PRTA AOli 198 1606 ©364% 0367 0368% 62698 0370" O371% 0372* 0373*% 0376% 0379% 03828 0383% 
L1019 AO04 1284 ©G859 1472 0384 0384* 0385% O3462 03878 0388* 0392 0411% 0412 0418% 0419% 6426% 
L102 A004 OBS9F 6239 1455 S234 a 0421* 0422% 0425% 06268 0427* 0428* 0429% 04308 0581 O611 0615 0840 tte ae 
L1020 A904 1614 1147 14723 0841 086437 08478 9850 0854 0858 O867" O877 O878* O879% O880* 0864 aS 
trO21 A004 14668 0970 1474 1263 1265 1296* 1297 1297% 1336* 1335 1335% 1339 1343 £569 
Li022 A006 11607 1236 14675 . PRTADD & 002 O£4F 0434 04138 0414» 
L103 46006 1655 1180 1195 1456 al PRTALN A004 10134 06609 0589 0591 
L104 AGO4 1542 1060 1457 PRIBSY C 001 OGEO 1684 O779 
L105 A004 I16E2 1233 1458 PRTID AOGOOS 1752 1281 C622 0666 G727 1222 
L106 & 003 10€8 6693 1459 PRTENG A O00] OF4D 0433 0409* 0410% 
LioT AOO4 1828 1353 146 PRTLi & 001 OD2A 6360 0343* 0349% 
Lro8 & 003 11€3 o771 O782 1481 PRTIL2 AOOlL ODB1 0396 03448 0350% 
L109 AOO3 1608 1144 1462 ; ‘s PRTL3 A OOlL OESC 0432 0345* 0351 
LISA AGO& 18DC 1404 1399 PRTLG AOOlL 1032 06621 0346 03528 
LNKRET AOO& OFT2 0547 0205* 0537 0539 : PRIRTN A 004 OCO8 96273 212 0233 0252 G262 
LNSTRT A 00% OFCO 90586 9584 0668 0619 ® a: PRTSIS A004 173€ 1270 0664 ©0726 1207 L220 
LS &001 O822 06197 0337 0375 QCHKAD A 002 1124 0714 0660 
LOAD <2 O0OL 022A 1636 0061 0100 QSKCHK A 004 10AF 0675 O714 
LOCK A006 OCD9 6337 G335 0356 0356 ~ QUKEND A 004 104A 0630 0564 0624 
LOIS 4 004 o0089 C398 9325 RCALER A O04 16A4B 1213 1188 1189 
LONG AOQO4 I7CC 1325 6998 1089 1407% ; RCLADR A O02 1AT? 1559 1180 ae 
Loop A004 OBA6 G24] 0242 G242 0249 ke . RCLDOCF AOO% ILA78B 1560 1163* 1169 11719 LEV2es 1185 1559 
Lol ACOl OAC3 06130 RD C 901 OOAl 1686 0816 G8&70 C910 GS645 1148 1234 
L02 A001 OAD3 0141 ; RDGAD A OO2 143F 05950 6543 : 
L63 A OOl OAE3 0152 : ee RDIDIN A 003 JLA5S8 1546 0235* 0260 6261 G@682 0656 6739 O77& 0849 O857T i129 12327 1284 
LO4 AOOl OAF3 O163 1552 
105 A 00) 0BG3 0174 : RDWD A OOS 1624 1154 1129* 1138* 1139% 2349 
106 AOOl 0813 0185 -- RDWDAD A 002 1626 1153 1146 
LRAK A006 OD43 0368 0366 sa READID A 094 1603 1229 0665 9695 0773 C&ee 1128 1221 
LUCY A003 10CD ¢é&é&5 0683 ae RECAL A004 1646 1178 0214 O675 O801 ©9095 0937 1094 1170 1351 1369 
MAXSIO AOQO3 1483 1554 0251 t 4 RELOAD A O02 1333 0892 0809 C864 0944 “ ~ 
MINIAD A002 11FC 0792 0761 RESET AOOS ILS5FB 1138 1136 11350 
MINIFR A 004 11996 0759 O786 O784 0792 . REV AGO? LEF3 1628 0367 
MINSNS A O02 1L11F3 O785 0685* 0686 O69C* 0691 O766* 0767 07758 0776 ; - REVFWO A OOl 42LLFS 96789 0780* 07813 
MORCNV A O06 17AD 1312 1314 REVYSN A002 OB19 0192 0532 14437 14488 
MORED A 003.1536 1657 1055 1095 REVSNI A 302 OABA 0125 
MORPRT A O05: .008D 6399 0454 REVSN2 A 002 OACA 0136 
MORSCN A 004. 1226 ©6809 0822 REVSN3 A G02 OADA 0147 
MS A009 1C05 1557 0373 : REVSNS A G02 OSAEA 0158 
MSK A OOl 1LI1F6 06787 0786 REVSNS A 002 OAFA 0169 
MSKADD A 002 11F5 06786 o771 REVSN6 A OO0O2 OBCA 0186 
MVDIST A 006 OBEY 0256 0255% REVTIM A 002 140C 1005 0996* 0997 1048 951 1326 1331 1332 1338 = 
NODAT AO1l2 1329 0898 0869 0872 . RIDDAD A O02 16F2 1237 1230 
NOISE A 004 I17F7 1334 1329 RIDDCF A 002 16F4 1238 1444% 1449% 
NOISLN A OOL I180F 1342 1325* 1330 ROUTN7T A 004 1889 0657 0867 
NCMOAD A002 1328 0899 0859 RTOA AO] 1LIFD 0796 0757 
NOPRCY A GO4 OF3C 0523 0518. Ros A 301 1403 0930 O796 
NOSAMP A004 OCS7 0297 6570 , RTOC A 001i 1448 0957 0932 
NOSMPL A O28 1C€95 1604 03006 RTGO AoOOl] 151C 1944 0953 , 
NOTE AO51 1DFF 1624 0629 RICE A 061 15C6 1120 1046 
NOTFWD AOO3 14BC 0956 0992 : RTO} A 001 OAIC 060625 0017 
NOTOK AOO% 1125 O719 0697 0698 O778 RI02 AOol OAZ2A 6038 0527 
OLO A001 LAAT 1570 0582* 0585* O5S66* 0600* 0601 602% RT™O3 A G81 GASG 0651 0640 
ONE . A001 L16E 0732 0701 : ~ RTO4 A 00OL QA67? 0067 0053 
CNEMO AOO3 149F 0987 0990 . . , RTO5 A001 0881 0079 0069 
PACKED A 002 OFDD 0594 05868 RT06 A O01 OA9B 0092 0081 
PASTPR A004 O€50 0435 0405 . is RTO? A001 1085 90653 0094 
PEEK AGQ4 185F 1369 1360 “, : > RT08 A001 10AB 0672 0655 
PLUS] AOO4 1463 C768 0966 0987 0995 1004 : RTOS A OGL 1195 06755 O&T4 
POINT AOO6 1787 1305 1303* 13048 1307 RUN AOO1 14DC 1006 1087* 1088 ; 
PPIK & 006 OBAA 0242 0241 = - RVONLY A 006 OF5O 0532 0222 0528 0530 ~ 
PREEND A004 19Al 1450 1446 RYTCYC A 003 O827 0200 0563 14368 14419 . 
. jG : : 
DATE  15MAR72 15NOV72 PROG 10@% 0808-1 DATE  15MAR72  —-LSNOV72Z eee 12. eG Oeeet 
EC NO. 571609 571626 ; PAGE 16 EC NO. 5716C9 §71626 . PAGE 16a 
oC . 
ae 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8081 


SYMBOL 


SBF 
SBN 
SBYTEO 
SBYTE2 
SBYTE3 
SBYTE4 
SBYTES 
SCAN 
$cGooD 
SCHATZ 
SCMS 
SCMSG3 
SCMSG4 
SCMSLA 
SCNBAD 
SCOPE. 
SEEK64 
SET 
SETDA 
SETFWD 
SETINS 
SETIN2 
SETUP 1 
SETUP 2 
SHORT 
SIOCY 
$101 
$1010 
SI011 
$1012 
$1013 
S1014 
S'0i5 
SI016 
S1017 
$1018 
$1019 
S102 
$103 
S104 
£105 
S106 
S107 
S108 
$109 
SIRK 
SK 
SKAD 
SKCTRL 
SKDCAD 
SKDCF 


x 


SKEAD 
SKOUT 
SKWD 
SNBYTS 
SNPCNT 
SNSC 


SNSE 
SNSE1 
SNSIN 


SNSOAL 
SNS1 
SNS10 


DATE 
eC NO. 


5444 DISK ADJUSTMENT UTILITY 


>Pp PPP PPPPPPrP PPPEPOPP PP PP PrP PP PP PPP PPP PP PrP PPrPPPP PPP PP PrP PRPON|AMAMA a4 


LEN VALUE 


001 
001 
001 
001 
001 
001 
001 
004 
004 
003 
008 
016 
034 
032 
001 
004. 
902 
004 
004 
004 
003 
003 
004 
004 
004 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003- 
003 ~ 
003 
003 
003 
003 
004 
001 
002 
001 
002 
004 
002 
002 
002 
001 
001 
002 


002 
002 
002 


002 
C04 
003 


008B 
OOBA 
0208 
O20A 
0208 
020C 
0200 
1201 
132€E 
1183 
1369 
13C4 
13€6 
13B4 
124F 
15CA 
15C5 
1922 
18A9 
14CB 
1929 
192C 
OC3A 
oc73 
17E3 
1A62 
0B89C 
1230 
1236 
160E 
133¢C 
1200 
1423 
142E 
12A8 
1618 
1608 
GBA3 
1659 
1546 
L6E6 


“10L8 


182C 
11C6 
146F 
OD26 
OOAG 
1110 
LIF 
LA6C 
1A66 


262C 
1447 
162E 
11F9 
1A54 
14E0 


1622 
1624 
15C3 


1A51 
1968 
1584 


15MART2 
571609 | 


DEFN 


1688 
1687 
1640 
1641 
1642 
1643 
1644 
0800 
0905 
0766 
0921 
0924 
0925 
0923 
0827 


- 1425 


1101 
1422 
1391 
1000 
1424 
1425 
0285 
0310 
1330 
1549 
0238 
0814 
C816 
1145 
0910 
0870 
0942 
0945 
0860 
1148 
1231 
0240 
1161 
1061 
1234 
0694 
1354 
0772 
0971 
0359 
1685 
0708 
0710 
1553 
1550 


1155 
0953 
1156 
0790 
1544 
1009 © 


1151 
1152 
11600 


1542 
1437 
1082 


15NOV72 
571626 


REFERENCES 


1400 1420 
1394 1416 
0353 0682 
1398 1418 
0217 0219 
0031 0044 
0920 

0820 0887 
C764 

0834 

9912* 0913* 
cols 

0839 

0818 

1124 1125 
1059 

1419 

0206 0213 
1394* 1400% 
1416* 1420% 
0275* 0276 
0276* 0277 
0947 0999 
0236" 0252 
1476 

0811 1485 
1486 

1487 

1488 

1489 

1490 

1491 

1492 

1130* 1131+ 
1494 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

0348 0354 
0694 0772 
0693 

0708 

0237 0970 
9215* 0365 
1000* 1059* 
1144 

0938* 0939 
1132*% 1133* 
O770* = 
O02C7* 0538« 
0972% 0973 
1001* 1002 
LiGi* 1142 
1127* 1130 
1062* 1063 
1091* 1092 
0643 0644 
1495 

1085 1504 


5334155 


PART NO, 
PAGE 17 
CROSS-REFERENCE biehe pete ee og 
0744 0763 
0281 6527 0529 1445 
0C57 0059 0073 0085 0098 0211 0279 0523 0536 
0914" 
O762 0769 1377 1381 
0423 0519* 0520 
0324 0402 0441 0520* 0521* 
1090 
0368 0563 1245 1245* 
1134* 1137® 1493 
0814 0860 0942 0971 1145 1231 1356 
1060 1353 
0369 0525 0532* 0583 0596 0598 0600 0969% 0991 0996 
1352% 1553 
0948 = 
0975* 0976 09798* 0979 0981* 0982 0984* 0985 0988 0989 
1355* 1356 1358* 1359. 136} 
1132 1135 1138 
1065* 1066 1070* 1071 1075* 1076 1078* 1079 1082* 1083 
1182* 1183 1187 1192 1258* 1437 1438 
PROG ID 0808-1 
PAGE 17 


te 


wt 


my 


e, 


cro 
NI 
cc 


re 











«IBM MAINTENANCE DIAGNOSTIC PROGRAM : 


5444 DISK ADJUSTMENT UTILITY 


8081 
oi fa CRCSS—REF ERENCE ede 
SYMBOL T LEN VALUE DEFN REFERENCES 
SNS11 A O0M4 182F 1355 1505 
SNS12 A003 1478 0S75 0977 1506 
SNS13. A003 1484 0978 0980 1507 
SNS14 A003 1480 0981 0983 1508 
SNS15 A003 1496 0986 0986 1509 
SNS16 A003 1442 0988 1510 
SNSIT7 A004 1838 1358 1362 1511 
SNS1B & 003 1472 0972 1512 
SNS19 A003 1549 1062 1513 
SNS2 & 004 OBB6 0244 1496__ Sika --u ouput - wes be 2, cee! nH ee es he, ee 
SNS2A3 A 002 1453 1543 0244* 0245 0645 1293 12598 1262 14048.1405 ~ PPS gree a eee ee ae 
SNS3 A004 165C 1182 1184 1497 ae Se ; 
SNSS6 A004 171D 1258 1498 
SNSS A&£ 004 1721 1259 1499 
SNS6 A003 1553 1065 1067 1073 1069 1500 
SNS? A003 1563 1070 1072 1501 . ; 
SNSB8 A003 156F 1075 1077 1502 . S . 
SNS9 A003 1578 1078 1081 1503 SN SS yaaa 
SON A004 10€3 0682 0706 - an gg Pe ae ee Se 
SPACE A004 OFGE 0510 0462 0505 Ree ek es 
SPLAT AOOl 1A48 1537 0411 : a 
SSKAD A 002 %31B 0856 0810 
SSWO4 C001 0008 1645 0353 
SSW10 C 001 0080 1646 1418 iO Boaee 
SSW1l C001 0040 1647 
SSW12 C 0Ci 0020 1648 
SSWi3 C 001 0010 1649 1398 bs : 
SSW17 € 001 0001 1650 . ws Se: 
SSW2A C 001 06020 1661 ve 2. = 
SSW2B C001 0010 1662 : 5 | | 
SSW2C C 001 CO08 1663 . beh fe 
SSW2D C001 ©6004 1664 0211 0523 . ae 
SSW2E C 001 0002 1665 0059 baits, o 
SSW2F C O01 0001 16€5 0031 0044 OOS? sa73 0085 0098 a ty 
SSW20 C001 0080 1651 0281 a re | Tae 
SSW21 C 001 0040 1652 ie = . 
$SW22 C001 0020 1653 . 
SSW23. C 001 0010 1654 0217 0529 Sema 
SSWo% C€ 001 0008 1655 0219 0527 “a. ee A 
SSW25 C001 0004 1656 - 
SSW26 C OO1 0002 1657 
SSW27 € 001 0001 1658 1445 . nani 
SSW28 C 001 COBO 1659 0279 0536 Be nr ee 
S$SW29. C001 0040 166¢ eae 
START1L A 004 GB6F 0227 0216 0220 0534 - 
STEND A 00% _0C85 0315 0312 - 
STEPER A004 1528 1054 1064 om 
STEPR A004 1527 1953 1056 1093 
STFRST A093 1590 1.086 1057* 1097% 
STFRTM A 003 1585 10696 1086 
STLP2 AOOl 156F 107% 1069 
STORE A O06 OBDO 0251 0246 
STRTUP A 061 14DE 1098 1088 1096* . 
STSMSG A024 1C68 1€02 0385 0843 1264* 1265* 1274 a ‘ 
STSTRT A 004 O0C65 0303 0292 
SVBSTR A001 LATE 1562 0326* 0327* 0404 : es a 
SVXR1 A 002 1A4C 1539 0452* 0453 0560* 6630 0637" 0641 1310* 1317 1392* 1450 
SVXR2 A002 1A4E 1540 9561* 0631: 13638 345] 
TEST C001 0212 1638 0705 0783 094% 
TEST2 A004 11EB 0783 0768 C777 
TEST2 A904 1112 0705 0687 0692 
TIOl A G04 OB7B 0230 0263 1514 
T1010 A003 1239 6817 1523 
TIO1L A OD3 123C 0818 1524 . ee 
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